Há pouco tempo precisei configurar um sistema de uma outra pessoa para alterar as logos que existiam nos relatórios. As logos do sistema eram todas fixas, sem configuração em nenhum lugar. A maneira mais fácil que encontrei foi de deixar um arquivo de imagem com tamanho e nome padrão, e alterar todos relatórios para que pegassem esta imagem na pasta do executável.
Esta operação é bastante simples:
No evento "Before Print" do quickreport é só adicionar a linha:
// Carrega a imagem
if FileExists(ExtractFilePath(ParamStr(0))+'logo.jpg') then
begin
QRImage2.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'logo.jpg');
end;
Basicamente verifico se existe o arquivo "logo.jpg" na pasta em que está o executável "ExtractFilePath(ParamStr(0))". Se o arquivo não existir, nada acontece.
Isto é muito útil, veja que pode ser colocada uma logo padrão na pasta do executável, apenas trocando a logo, ficam todos os relatórios no padrão.
