Retornar o valor da cor!

Delphi

03/05/2005

Ola pessoal!

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

Fernando Piccini

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

03/05/2005

vc pode exibir os valores de cada componente em separado

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
Fernando Piccini

Fernando Piccini

03/05/2005

Ao colega q me achudou muito obrigado!

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
Marcelo Saviski

Marcelo Saviski

03/05/2005

sim, é sou usar o Canvas.Pixels[X, Y]

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
Fernando Piccini

Fernando Piccini

03/05/2005

kra valeu :D


GOSTEI 0
POSTAR