--gt;gt;Imprimir imagem do formulário... Alguém sabe?

Delphi

22/07/2003

Pessoal, alguém sabe como posso imprimir uma área determinada do form? tipo, dar as coordenadas e capturar esse retângulo, jogando na área de transferência?


Earmarques

Earmarques

Curtidas 0

Respostas

Cebikyn

Cebikyn

22/07/2003

A seguinte procedure põe o conteúdo de um retângulo qualquer do Desktop (incluindo seu Form ou qualquer outra coisa) na Área de Transferência, espero que ajude:

procedure Capturar(Coordenadas: TRect);
var
  R : TRect;
  DC : HDc;
  Bitmap : TBitmap;
  Canv : TCanvas;
begin
  Canv := TCanvas.Create;
  Bitmap := TBitmap.Create;
  Bitmap.Width := Coordenadas.Right-Coordenadas.Left;
  Bitmap.Height := Coordenadas.Bottom-Coordenadas.Top;
  DC := GetWindowDC( GetDeskTopWindow );
  Canv.Handle := DC;
  R := Rect(0, 0, Bitmap.Width, Bitmap.Height);
  Bitmap.Canvas.CopyRect( R, Canv, Coordenadas );
  Clipboard.Assign(Bitmap);
  ReleaseDC( GetDeskTopWindow, DC );
  Bitmap.Free;
  Canv.Free;
end;


Não esqueça de por [b:a60f5d472a]ClipBrd[/b:a60f5d472a] na seção [b:a60f5d472a]Uses[/b:a60f5d472a] da sua Unit.


GOSTEI 0
POSTAR