Cita:
Empezado por ecfisa
Hola MaxiDucoli.
Realmente no entiendo bién lo que buscas hacer. Si es pasar el valor de la propiedad TColor a sus correspondientes valores RGB, podes hacer:
Código Delphi [-]procedure TColorToRGB(Color: TColor; var R, G, B: Byte); begin if Color shr 24 = $FF then Color := GetSysColor(Color and $FF) else if Color shr 24 > $02 then Color := 0; R := Color; G := Color shr 8; B := Color shr 16; end;
Llamada ejemplo:
Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); var R,G,B: Byte; begin Label1.Color:= $0012D4D6; // un color cualquiera... TColorToRGB(Label1.Color, R, G, B); Caption:= Format('Red: %d - Green: %d - Blue: %d',[R, G, B]) end;
Saludos. |
No, eso ya lo sé hacer.
No sé como explicarme, en realidad por que no sé si existe.
ponele que tengo una gama de rojos, bueno, quiero pasarlo a "ROJO PURO".
Ejemplo:
rgb(190,10,30)
RGB(255,60,10)
RGB(200,50,30);
Yo lo que querría saber es cual es el "COLOR FUERTE" de ese RGB y ponerlo en color primario. RGB (255,0,0) entendés?