Cores Rgb

[Guest claudiobl]

Caros,

Como sabemos as cores no formato RGB, são compostas pela combinação

de tres cores o (vermelho+verde+azul),

Para formar a cor eu faço:

vermelho := 100;

verde := 250;

azul := 230;

edit1.color := RGB(vermelho+verde+azul);

Agora como eu faço para pegar os numeros separados:

o valor do vermelho;

o valor do verde;

o valor do azul;

Grato,

Cláudio Lima

[Kikonanet]

Olá Cláudio,

Use essas funções

GetBValue(Edit1.Color); // Azul
GetGValue(Edit1.Color); // Verde
GetRValue(Edit1.Color); // Vermelho

Abs.

Kiko