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;