Картинки в отчет ???

Комментарии

• gpi

  April 2006 отредактировано 01:16

  Если кнопки на диалоговой форме отчёта, то

  procedure Button1OnClick(Sender: TfrxComponent);
  begin
       Picture1.Picture.LoadFromFile('C:\11.bmp');
  end;
  procedure Button2OnClick(Sender: TfrxComponent);
  begin
       Picture1.Picture.LoadFromFile('C:\22.bmp');
  end;
  

  Если из программы, то через FindObject
• Golik

  April 2006 отредактировано 01:16

  нет, кнопки на главной форме. из которой отчет вызывается.
• gpi

  April 2006 отредактировано 01:16

  Тогда так
  TfrxPictureView(frxReport1.FindObject('Picture1')).Picture.LoadFromFile('filename');
• Lex

  April 2006 отредактировано 01:16

  gpi написал:

  Если из программы, то через FindObject

  обоим кнопкам присваиваешь обработчик

  procedure TForm1.ButtonClick(Sender: TObject);
  var
    frxPicture: TfrxPictureView;
  begin
    frxPicture := (frxReport1.FindObject('Picture1') as TfrxPictureView);
    if Sender = Button1 then
      frxPicture.Picture.LoadFromFile('C:\11.bmp')
    else if Sender = Button2 then
      frxPicture.Picture.LoadFromFile('C:\22.bmp')
  end;
  
• Golik

  April 2006 отредактировано 01:16

  .Picture.LoadFromFile('filename');
  
  там нет такого !!!!!!!!!!!!!!!!!!!!!!!!!!
  на форме у меня компонент frxReport ,
  дблклик по нему, добавил туда обьект Picture,
  и надо чтоб с главной формы программы в Picture загружалась нужная картинка(по кнопке). как ?????????????????
  подробней можно?
• Golik

  April 2006 отредактировано 01:16

  TfrxPictureView а где его обьявить то ?
  
• gpi

  April 2006 отредактировано 01:16

  написал:

  и надо чтоб с главной формы программы в Picture загружалась нужная картинка(по кнопке). как ?????????????????
  подробней можно?

  Для кнопок на главной форме Delphi нужно установить обработчик

  procedure TForm1.ButtonClick(Sender: TObject);
  var
   frxPicture: TfrxPictureView;
  begin
   frxPicture := (frxReport1.FindObject('Picture1') as TfrxPictureView);
   if Sender = Button1 then
     frxPicture.Picture.LoadFromFile('C:\11.bmp')
   else if Sender = Button2 then
     frxPicture.Picture.LoadFromFile('C:\22.bmp')
  end;
  

  написал:

  TfrxPictureView а где его обьявить то ?

  TfrxPictureView объявлен в frxClass. При добавлении frxReport на форму, frxClass добавляется в uses
  
• Golik

  April 2006 отредактировано 01:16

  frxPicture.Picture.LoadFromFile('C:\11.bmp') выделяет эту строку и выдает ошибку.
  вроде того что в модуле непорядок
• Golik

  April 2006 отредактировано 01:16

  спасибо ! заработало!!!!!!!!!!!!!!!!!!
  это тупил!