Fórum Retornar o valor da cor! #279878
03/05/2005
0
Alguem sabe como retornar o retornar o [b:96af7dd9bb]valor[/b:96af7dd9bb] de uma cor! No caso retornar em valor numerico a cor de um [b:96af7dd9bb]pixel[/b:96af7dd9bb]????
Achei um método q retorna TColor, mas gostaria q me retornasse em valor [b:96af7dd9bb]numerico[/b:96af7dd9bb].
ah! O valor retornado pode ser em hexadecimal, decimal ou binario!!!
desde ja agradeço.
Fernando Piccini
Curtir tópico
+ 0Posts
03/05/2005
Marcelo Saviski
var
Cor: TColor;
s: string;
begin
with Mouse.CursorPos do
Cor := ColorToRGB(GetPixel(GedDC(GetDesktopWindows), X, Y));
s := Format(´R: ¬d G: ¬d B: ¬d´, [GetRValue(Cor), GetGValue(Cor), GetBValue(Cor)]);
Label1.Caption := s;
end;esse código mostra o valor RGB do pixel aonde o ponteiro do cursor está
para exibir em hexadecimal vc poeria usa a função [u:51dcbdda02][color=green:51dcbdda02]IntToHex(Cor, 6);[/color:51dcbdda02][/u:51dcbdda02]
Gostei + 0
03/05/2005
Fernando Piccini
eu vou tentar obter os valores de cada pixel de uma imagem q vai estar dentro e um TImage!!
Eu poderia tb obter o valor de um Canvas????
vlw
Gostei + 0
03/05/2005
Marcelo Saviski
no exemplo usei o GetPixel no desktop, seria só substituir o [color=green:535014d7c8][i:535014d7c8]GedDC(GetDesktopWindows)[/i:535014d7c8][/color:535014d7c8] por GetDC(Image.Handle) que tb daria
pra usar o Canvas.Pixels[X, Y] a imagem precisa ser um bitmap, se não for, tente com o GetPixel como disse acima
Gostei + 0
03/05/2005
Fernando Piccini
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)