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

Комментарии

• -=Serg=-

  July 2005 отредактировано 05:35

  См. 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 Москва, Перово

  July 2005 отредактировано 05:35

  Понятно, но как добраться до свойства 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=-

  July 2005 отредактировано 05:35

  Flags := Flags and flStretched
  
• Classic Москва, Перово

  July 2005 отредактировано 05:35

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

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