Recent

Author Topic: LazReport - Picture component at run time.  (Read 4259 times)

wcleyton

  • Jr. Member
  • **
  • Posts: 80
LazReport - Picture component at run time.
« on: April 23, 2012, 07:17:05 pm »
Good afternoon,

 How do I create a component at run time Picture in LazReport?

wcleyton

  • Jr. Member
  • **
  • Posts: 80
Re: LazReport - Picture component at run time.
« Reply #1 on: April 24, 2012, 01:34:06 pm »
Good Morning,

Good morning,

 Any suggestions? or it is not possible?

wcleyton

  • Jr. Member
  • **
  • Posts: 80
Re: LazReport - Picture component at run time.
« Reply #2 on: April 24, 2012, 03:29:39 pm »
It worked!

Code: [Select]
procedure TForm1.Button1Click(Sender: TObject);
var
  Foto : TfrPictureView;
begin
  frReport1.Pages.Clear;
  frReport1.Pages.Add();
  Foto := TfrPictureView.Create;
  Foto.width  := 100;
  Foto.Height := 100;
  Foto.Left   := 10;
  Foto.Top    := 40;
  Foto.Stretched:=true;
  Foto.Picture.LoadFromFile('C:\Adesivos_Unhas\Imagens\P1000065.JPG');
  frReport1.Pages[0].Objects.Add(Foto);
  frReport1.ShowReport;
end;