TCantas X Mouse ?

Delphi

31/10/2005

Olá Pessoal, bom dia !

Alguém pode me dar uma ajuda com isso ?

Olha só, eu preciso, quando clicar com o botão esquerdo do mouse copiar a imagem do contorno do mouse e salvar em Disco, estando em qualquer parte da tela.


Obrigada.


Renatacoimbra

Renatacoimbra

Curtidas 0

Respostas

Michael

Michael

31/10/2005

Olá!

O que vc quer dizer com contorno do mouse? Está falando do cursor?

[]´s


GOSTEI 0
Renatacoimbra

Renatacoimbra

31/10/2005

Isso mesmo, desculpa, me expressei mal !

Gostaria de copiar uma area pequena ao redor dor Cursor.

[]´s


GOSTEI 0
Michael

Michael

31/10/2005

[url=http://delphi.about.com/od/graphics/l/aa021004a.htm]Neste link[/url] vc encontrará um código que faz (tbm) o que vc quer. É só extrair a parte que vc precisa.

[]´s


GOSTEI 0
Renatacoimbra

Renatacoimbra

31/10/2005

Brigada Michel !

Como faço pra pegar a posição X Y do Curso ?

Preciso disso pra passar como parametro pra função q faz o PrintScreen
da Area q eu quero, só q essa area vai ser a posição do cursor.


[]´s


GOSTEI 0
Renatacoimbra

Renatacoimbra

31/10/2005

Desculpa, errar seu nome, Michael não Michel.

:oops:


GOSTEI 0
Michael

Michael

31/10/2005

Desculpa, errar seu nome, Michael não Michel. Embarassed

Eu já tava ficando zangado... hehehehe

Bom, vc pode usar a função da API do Windows [b:9e1332cf06]GetCursorPos[/b:9e1332cf06], ou então, se observar novamente o site que lhe indiquei, vai ver que a estrutura preenchida por GetCursorInfo tem duas variáveis (uma, que tem duas, na verdade) que trazem as informações que vc quer. Repare abaixo:

(...) ScreenShotBitmap.Canvas.Draw( [b:9e1332cf06]ci.ptScreenPos.x[/b:9e1332cf06] - Integer(II.xHotspot) - r.Left, [b:9e1332cf06]ci.ptScreenPos.y[/b:9e1332cf06] - Integer(II.yHotspot) - r.Top, Icon );


Tanto uma qto a outra retornam as posições X e Y do cursor.

[]´s


GOSTEI 0
Renatacoimbra

Renatacoimbra

31/10/2005

Obrigada Michael, vou testar.


[]´s


GOSTEI 0
POSTAR