Tela de Cores

Delphi

03/12/2008

Olá pessoal, eu to querendo fazer um tela de cores que me desse a cor em RGB e Hexadecimal, tipo esta ai em baixo:


vlw
abraço


Phelipe30

Phelipe30

Curtidas 0

Respostas

Wdrocha

Wdrocha

03/12/2008

Boa noite..

Coloque um TImage no seu form...

e no envento MouseMove do TImage vc faz assim...

   Var Red, Green, Blue : Integer;
   Begin

       Red := GetRValue ( Image1.Picture.Bitmap.Canvas.Pixels[X, Y]);

       Green := GetGValue ( Image1.Picture.Bitmap.Canvas.Pixels[X, Y]);

       Blue := GetBValue ( Image1.Picture.Bitmap.Canvas.Pixels[X, Y]); 

    End;


aew é só jogar os valores dessas variáveis para um TEdit...no caso 3 Tedits...

só fazendo a conversão....

Por exemplo...
Edit1.Tex := IntToStr (R);

espero ter ajudado...


qualquer coisa posta aew...


GOSTEI 0
POSTAR