Criar componente para trocar cores RGB
Bom dia, gostaria de criar no delphi uma tela RGB onde vá trocando as cores conforme vou inserindo valores, alguém tem algo parecido?
Desde já agradeço
[img][/img]
Desde já agradeço
[img][/img]
Estanieski
Curtidas 0
Respostas
Estanieski
30/04/2009
JÁ DESCOBRI!!!!
]
var
Vermelho, Verde, Azul: byte;
MinhaCor: TColor;
begin
Vermelho := RxSpinEdit1.AsInteger;
Verde := RxSpinEdit2.AsInteger;
Azul := RxSpinEdit3.AsInteger;
MinhaCor := TColor(RGB(Vermelho, Verde, Azul));
Memo2.Color := MinhaCor;
end;
VALEU!!!!
]
var
Vermelho, Verde, Azul: byte;
MinhaCor: TColor;
begin
Vermelho := RxSpinEdit1.AsInteger;
Verde := RxSpinEdit2.AsInteger;
Azul := RxSpinEdit3.AsInteger;
MinhaCor := TColor(RGB(Vermelho, Verde, Azul));
Memo2.Color := MinhaCor;
end;
VALEU!!!!
GOSTEI 0