Dicas - Pegar a cor de onde o mouse está

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Esta é uma dica bastante usada, pois serve para que você possa saber qual é a cor de algum objeto.

Pegando a cor de onde o mouse está

 

Esta é uma dica bastante usada, pois serve para que você possa saber qual é a cor de algum objeto, ou da parte de uma imagem. Deste modo seu mouse irá funcinar como aquele "conta gotas" que tem na maioria dos programas editores de imagem. Neste exemplo nós iremos colocar a cor no fundo do nosso formulário, mas lembre-se que pode fazer o que quizer com o valor recebido, até mesmo guarda-lo em uma variável.

Primeiramente crie um novo projeto. Insira somente um componente Timage no seu formulário. Agora no evento OnMouseMove insira o código abaixo:

 

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

  Form1.Color := Image1.Canvas.Pixels[x, y];

end;

 

Agora é só salvar e rodar a aplicação para ver como funciona esta dica.

 

Feito por Marco Antonio

marco@clubedelphi.net

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?