Ok!.. nunca me confirmaste si se trata de un QuickReports, pero supongo que si:
Las bandas tienen un evento llamado
BeforePrint, si esta imagen cambia cada vez que se reimprime la banda, este sería el lugar, pero si no cambia nunca en todo el reporte, puedes asignar el gráfico cuando lo creas o en el evento
BeforePrint del reporte, por ejemplo:
Código Delphi
[-]
procedure TrptTarjeta.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
var
P: TPicture;
begin
if FileExists(ChangeFileExt(Application.ExeName, '.bmp')) then
qriLogo.Picture.LoadFromFile(ChangeFileExt(Application.ExeName, '.bmp'))
else if FileExists(ChangeFileExt(Application.ExeName, '.png')) then
begin
P := TPicture.Create;
try
P.LoadFromFile(ChangeFileExt(Application.ExeName, '.png'));
qriLogo.Picture.Assign(Flatten(P.Graphic));
finally
P.Free;
end;
end;
end;
Faltaría fundir la imagen sobre otra de ser necesario.
Saludos!