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

Question

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?...

Cebikyn · Answer

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.

F�rum --gt;gt;Imprimir imagem do formul�rio... Algu�m sabe? #170767