Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

TatiFerrari

alterar picture no free report

Recommended Posts

Não utilizo o FreeReport, mas neste componente picture não tem alguma propriedade chamada LoadFromFile ou algo do tipo ? Onde poderia passar a imagem...

Desculpe uma resposta tão demorada, mas estava vendo sua mensagem aqui no forum e não resisti. Experimente fazer como descrito abaixo, no evento OnEnterRect do frReport:
procedure TfmPPP.frReport2EnterRect(Memo: TStringList; View: TfrView);begin  if Memo.Count > 0 then    if (Memo[0] = '[Logomarca]') and (View is TfrPictureView) then    begin      if dm.tb00Arqlogo.value <> '' then        if not fileexists(dm.tb00Arqlogo.value) then        begin          MessageDlg('Arquivo de logotipo "'+dm.tb00Arqlogo.value+'" não encontrado.', mtWarning, [mbOk], 0);          abort;       end;      (View as TfrPictureView).picture.loadfromfile(dm.tb00Arqlogo.value);    end;end;

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.