Ola Eduardo !
Desde já agradeço imenso a sua atenção.
Vou passar as funções para o código e testar a aplicação.
Um Abraço
JC
--- Em delphi-br@yahoogrupos.com.br, Eduardo Silva ® <[EMAIL PROTECTED]>
escreveu
> Faça as adaptações necessárias
>
> procedure TfrmSINS0208imp.ImprimeBitMap(Cnv:
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
2 matches
Mail list logo