Como Salvar Cores

[Guest - Carla -]

Usando um scroll bar, no evento OnScroll mudo as cores do formulário.

Faço isso com 3 scrolls, um para vermelho, um para verde e outro para azul.

lblBlue.caption:= IntToStr(scbBlue.Position);

frmFormatar.color:= RGB(scbRed.Position, scbGreen.Position, scbBlue.Position);

Como faço para salvar essas cores no banco de dados quando ele clicar em um botão?

Obrigada

Carla

[Luiz Guilherme]

bom dia carla.....tente salva-las em um campo string mesmo..... axo que não tera nenhum problema..... até mais...

[Guest Guest]

Tentei fazer isso:

CorFundo:= frmformatar.color;

Não dá certo não...

Como faço então?

[Luiz Guilherme]

Corfundo1:= scbRed.Position

Corfundo2:= scbGreen.Position

Corfundo3:= scbBlue.Position

Tenta assim....

[Guest Guest]

Não dá para fazer assim, pois cada um é uma cor. Eu queria a mistura que ele faz no RGB. Na hora de selecinar as cores não tem como saber...

Álguma outra idéia?

qryLogin.Active := False;

qryLogin.SQL.Clear;

qryLogin.SQL.Add('Select CorFundo1, CorFundo2, CorFundo3 from Login where Usuario like "%'+edtLogin.Text + '%"');

qryLogin.Active := True;

frmLogin.Color:= qryLogin.FieldByName('CorFundo1').Value;

[Guest Guest]

Tb tentei fazer assim só que dá erro no SQL

CorFundo:= FloatToStr(RGB(scbRed.Position, scbGreen.Position, scbBlue.Position));

qryFormat.Active := False;

qryFormat.SQL.Clear;

qryFormat.SQL.Add('Insert Into Login (CorFundo) Values (CorFundo) where Cod like "%'+frmLogin.Label6.Caption+'%"');

qryFormat.Active := True;