Copiar Parte da tela num Image??

Question

Como fa�o para consegui copiar parte da tela em um componente Image. Gostaria de definir um ponto no form (atrav�s de um clique, por exemplo) e fosse pega uma �rea ao redor do clique e copiada para o Image.

Cebikyn · Answer

Use este c�digo:[code:1:0352b3cc4e]var  DC : HDc;  Canv: TCanvas;  R, DRV: TRect;  X1, Y1, W1, Z1: Integer;begin   Canv := TCanvas.Create;  DC := GetWindowDC( GetDeskTopWindow );  Canv.Handle := DC;  DRV := Rect(0, 0, Image1.Width, Image1.Height);  // Aqui voc� especifica qual �rea vai ser copiada:  R := Rect( X1 , Y1 , Z1 , W1 );  Image1.Canvas.CopyRect( DRV, Canv, R );  ReleaseDC( GetDeskTopWindow, DC );  Canv.Free;end;[/code:1:0352b3cc4e]Para definir X, Y, Z e W de maneira que o c�digo pegue a �rea ao redor do clique, vc pode fazer assim no OnMouseDown do seu form:[code:1:0352b3cc4e]X1 := X - (Image1.Width div2);Y1 := Y - (Image1.Height div2);W1 := X + (Image1.Width div2);Z1 := Y + (Image1.Height div2);[/code:1:0352b3cc4e]Se o c�digo n�o funcionar ou tiver algum problema durante o uso do mesmo, deixe uma mensagem....

F�rum Copiar Parte da tela num Image?? #189240