Recent

Author Topic: Run time loading Picture in MasterData when record changes  (Read 3371 times)

gambothell

  • New Member
  • *
  • Posts: 27
Run time loading Picture in MasterData when record changes
« on: February 14, 2012, 08:44:26 pm »
Lazarus 0.9.28.2-12 beta (Ubuntu 11.04)
FPC: 2.4.0
SVN Revision: 22277

I am using MySQL 5.1 in Lazarus Linux version. In LazReport I need to print a MySQL field which is a jpg. I am also using Zeos components.  Since you cannot display a MySQL picture in the DBImage, I am forced to load the stream into a TImage and save the picture to a temporary file. Now I can load the picture into the Picture1.Graphic. The problem is that when I place the Picture1 object into the MasterData band, I need to load the picture when the frDataSet.OnNext is triggered. So far I cannot get the Picture1 to load from the saved file. I have no problem in loading the TPicture using TfrPictureView(frReport1.FindObject('Picture1')).Picture.LoadFromFile(FPath+FileName); if the TPicture does not change in the report.

Any suggestions on how to load the TPicture in LazReport when it is in the MasterData band when the next record is read? I appreciate your help.

gambothell

  • New Member
  • *
  • Posts: 27
Re: Run time loading Picture in MasterData when record changes
« Reply #1 on: February 14, 2012, 09:50:40 pm »
 :D I found the solution:

procedure TForm1.frReport1EnterRect(Memo: TStringList;  View: TfrView);
begin
  if View.Name = 'Picture1' then
    TFrPictureView(View).Picture.LoadFromFile(FilePath+FileName);
end;