Buscar

Como retornar a cor de um pixel de uma imagem?

Código

{Para testar o exemplo inclua em um form um componente Image e inclua neste componente Image uma imagem qualquer. Inclua o código abaixo no evento OnMouseMove.}
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
// Retornar a cor
Caption := ColorToString(Image1.Canvas.Pixels[X,Y]);
{ Retornar o número da cor }
Caption := Caption + ' - '+IntToStr(ColorToRGB(Image1.Canvas.Pixels[X,Y]));
end; //Esta dica foi testada com uma imagem de formato BMP

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Imagens
Adicionada dia: 06/06/03
Por: Felipe Monteiro
Visualizada: 3542 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009