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

отредактировано 00:34 Раздел: FastReport 3.0
подскажите как в fast report моно зделать чтоб по нажатию одной кнопки в отчет передавалась кортинка например № 1, а по другой кнопке картинка № 2.
спасибо.

Комментарии

  • gpigpi
    отредактировано 00:34
    Если кнопки на диалоговой форме отчёта, то
    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
  • отредактировано 00:34
    нет, кнопки на главной форме. из которой отчет вызывается.
  • gpigpi
    отредактировано 00:34
    Тогда так
    TfrxPictureView(frxReport1.FindObject('Picture1')).Picture.LoadFromFile('filename');
  • LexLex
    отредактировано 00:34
    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;
    
  • отредактировано 00:34
    .Picture.LoadFromFile('filename');

    там нет такого !!!!!!!!!!!!!!!!!!!!!!!!!!
    на форме у меня компонент frxReport ,
    дблклик по нему, добавил туда обьект Picture,
    и надо чтоб с главной формы программы в Picture загружалась нужная картинка(по кнопке). как ?????????????????
    подробней можно?
  • отредактировано 00:34
    TfrxPictureView а где его обьявить то ?
  • gpigpi
    отредактировано 00:34
    написал:
    и надо чтоб с главной формы программы в 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
  • отредактировано 00:34
    frxPicture.Picture.LoadFromFile('C:\11.bmp') выделяет эту строку и выдает ошибку.
    вроде того что в модуле непорядок ;)
  • отредактировано 00:34
    спасибо ! заработало!!!!!!!!!!!!!!!!!!
    это тупил!
    ;)

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.