Programming => Packages and Libraries => LazReport => Topic started by: FrankBKK on June 24, 2021, 03:36:36 pm
Title: How to pass TImage to LazReport ?
Post by: FrankBKK on June 24, 2021, 03:36:36 pm
How can I pass dynamically generated Images to LazReport ?
Is there a way similar as to pass a variable ?
Title: Re: How to pass TImage to LazReport ?
Post by: HB9FIH on July 15, 2022, 02:00:54 pm
Frank - problem solved ? here my code: - I still looking for pass an Image ... but no success until now..maybe you solved
procedure TForm1.frReport1GetValue(const ParName: String; var ParValue: Variant ); var i: Integer; begin for i:=0 to ComponentCount-1 do begin if UpperCase(ParName)=UpperCase(Components.Name) then begin // showmessage(inttostr(i)+ParName); case Components.ClassName of 'TEdit': ParValue:=(Components as TEdit).Text; 'TComboBox': ParValue:=(Components as TComboBox).Text; 'TLabel': ParValue:=(Components as TLabel).Caption; 'TButton': ParValue:=(Components as TButton).Caption; 'TMemo': ParValue:=(Components as TMemo).Lines.Text; // 'TImage': ParValue:= Components Image1.Picture; // 'TSpinEdit': ParValue:=(Components as TSpinEdit).Value; // 'TFloatSpinEdit': ParValue:=(Components as TFloatSpinEdit).Value; end; end; end;
end;
Title: Re: How to pass TImage to LazReport ?
Post by: dseligo on July 15, 2022, 05:14:10 pm