Faça as adaptações necessárias
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;
SINSCONF : TextFile;
NM_IMPRIMEMARCADAGUA : String;
begin
if FileExists('c:\Arquivos de Programas\Saude\Configuracao\SINSCONF.txt')
then
begin
AssignFile(SINSCONF,'c:\Arquivos de
Programas\Saude\Configuracao\SINSCONF.txt');
// Lê o conteúdo da variável NM_IMPRIMEMARCADAGUA na linha atual -> 3ª
Linha
Read(SINSCONF,NM_IMPRIMEMARCADAGUA);
// Se o conteúdo for igual a TRUE imprime a Marca d'água
if NM_IMPRIMEMARCADAGUA = 'TRUE' then
begin
BitMap := TBitMap.Create;
try
if not FileExists('c:\Arquivos de
Programas\Saude\Figuras\brasao.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:\Arquivos de
Programas\Saude\Figuras\brasao.bmp');
with qrSINS0208.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;
CloseFile(SINSCONF);
end;
end;
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de jcrcpt
Enviada em: terça-feira, 28 de junho de 2005 11:30
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Marca De Agua em Quickreport
> Ola a Todos !
>
> Alguém sabe como se faz uma marca de agua em Quickreport ?
>
> Já procurei na lista mas não achei nada.
>
> Cumprimentos
>
> Jc
--
<<<<< 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!.
__________ NOD32 1.1156 (20050628) Information __________
This message was checked by NOD32 antivirus system.
http://www.nod32.com
[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
