Deu certo! Muito obrigada a todos pela ajuda!
Abraços, Ana ----- Original Message ----- From: "Eduardo Silva ®" <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Monday, May 16, 2005 2:53 PM Subject: RES: [delphi-br] Marca d'agua no Quick Report procedure TfrmSINS0208imp.ImprimeBitMap(Cnv: TCanvas; BitMap: TBitMap; R: TRect); var Info : PBitMapInfo; InfoSize : DWORD; Image : Pointer; ImageSize : DWORD; begin with BitMap do begin GetDIBSizes(Handle, InfoSize, ImageSize); GetMem(Info, InfoSize); try Getmem(Image, ImageSize); try GetDIB(Handle, Palette, Info^,Image^); with Info^.bmiHeader do StretchDIBits(Cnv.Handle, R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top, 0, 0, biWidth, biHeight, Image, Info^, DIB_RGB_COLORS, SRCAND); finally FreeMem(Image, ImageSize); end; finally FreeMem(Info, InfoSize); end; end; end; procedure TfrmSINS0208imp.PageFooterBand1AfterPrint(Sender: TQRCustomBand; BandPrinted: Boolean); var BitMap : TBitMap; R : TRect; X, Y : integer; begin BitMap := TBitMap.Create; try if not FileExists('c:\figura.bmp') then begin messagebox(handle,'O arquivo de imagem não existe ou foi removido !','Atenção',MB_OK or MB_ICONWARNING); SetActiveWindow(Application.Handle); end else begin BitMap.LoadFromFile('c:\figura.bmp'); with quick.QRPrinter do begin Y := YPos(PaperLengthValue) div 6; X := XPos(PaperWidthValue) div 4; R := Rect(X, 2 * Y, 3 * X, 4 * Y); ImprimeBitMap(Canvas, BitMap, R); end; end; finally BitMap.Free; end; end; end; -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Ana Júlia Solano Rocha Enviada em: segunda-feira, 16 de maio de 2005 13:18 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Marca d'agua no Quick Report Boa tarde, pessoal! Tenho um cliente que quer que o logotipo da empresa saia como uma marca d'agua no relatório e não sei como fazer isso. Estou utilizando Quick Report. Se alguém puder me ajudar, agradeço muito. Abraços, Ana [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] ---------------------------------------------------------------------------- -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos Esta mensagem foi verificada pelo E-mail Protegido Terra. Scan engine: McAfee VirusScan / Atualizado em 16/05/2005 / Versão: 4.4.00 - Dat 4492 Proteja o seu e-mail Terra: http://mail.terra.com.br/ -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html