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
<*> 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
