Fórum TCantas X Mouse ? #301272

31/10/2005

0

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

Responder

Posts

31/10/2005

Michael

Olá!

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

[]´s


Responder

Gostei + 0

31/10/2005

Renatacoimbra

Isso mesmo, desculpa, me expressei mal !

Gostaria de copiar uma area pequena ao redor dor Cursor.

[]´s


Responder

Gostei + 0

31/10/2005

Michael

[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


Responder

Gostei + 0

31/10/2005

Renatacoimbra

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


Responder

Gostei + 0

31/10/2005

Renatacoimbra

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

:oops:


Responder

Gostei + 0

31/10/2005

Michael

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


Responder

Gostei + 0

31/10/2005

Renatacoimbra

Obrigada Michael, vou testar.


[]´s


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar