tfrxpictureview(sender).Picture.Graphic.Empty
what is wrong with this code
procedure TViewprintform.MainreportBeforePrint(
Sender: TfrxReportComponent);
begin
if sender.name='MainPicture'
then
Begin
if dataform.MsdbIMAGE.value<>'' // path of a simple bitmap
then
if tfrxpictureview(sender).Picture.Graphic.Empty
then
tfrxpictureview(sender).picture.loadfromfile(dataform.MsdbIMAGE.value);
end;
end;
procedure TViewprintform.MainreportBeforePrint(
Sender: TfrxReportComponent);
begin
if sender.name='MainPicture'
then
Begin
if dataform.MsdbIMAGE.value<>'' // path of a simple bitmap
then
if tfrxpictureview(sender).Picture.Graphic.Empty
then
tfrxpictureview(sender).picture.loadfromfile(dataform.MsdbIMAGE.value);
end;
end;