Fórum Criar componente para trocar cores RGB #370125
30/04/2009
0
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
Curtir tópico
+ 0
Responder
Posts
30/04/2009
Estanieski
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!!!!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)