Изменить размер рисунка

Classic

В зависимости от значения переключателя в программе (CheckBox)
необходимо рисунок в отчете увеличить в 2 раза или оставить без
изменений.

Как получить доступ к размеру рисунка перед печатью,
или к свойству Stretched ?

-=Serg=-

См. FAQ "Как обратиться к объекту отчета из программы"

написал:

2.31. Как обратиться к объекту отчета из программы?

Объекты FR не являются компонентами (как в QR, RB) и недоступны в программе
обычным способом. Используйте следующий код:

var
  t: TfrMemoView;
begin
  t := TfrMemoView(frReport1.FindObject('Memo1'));

  if t <> nil then
    t.Memo.Text := 'FastReport';
// или так:
  if t <> nil then
    t.Prop := 'FastReport';
end;

Classic

Понятно, но как добраться до свойства Stretched у некоего
Picture1 типа TfrPictureView ???

void __fastcall TFMain::frReport1BeforePrint(TStringList *Memo, TfrView *View)
{
     if(View->Name == "Picture1"){
       TfrPictureView *pic = ((TfrPictureView*)(View));
        pic->Picture->Bitmap = MyBmp; // присвоил некий рисунок - ок !
        // до этого места все работает нормально
        //---------------------------------------------------------------------
        // теперь в зависимости от условия chb->ItemIndex 
        // нужно задать Stretched = true или Stretched = false для Picture1

             if(chb->ItemIndex == 1)
             // вот здесь нужно задать Stretched = true для этого Picture1
             // из отчета - как тут пробиться к этому свойству ???
              else ..... ->Stretched = false;        
       }
}

-=Serg=-

Flags := Flags and flStretched

Classic

Спасибо, все работает.

 if(View->Name == "Picture1"){
       TfrPictureView *pic = ((TfrPictureView*)(View));
        pic->Picture->Bitmap = MyBmp;
        if(chb->ItemIndex) pic->Flags = pic->Flags|flStretched;
       }