De Novo Cores

[Guest - Carla -]

Consegui salvar a cor na tabela, mas agora tem um outro problema: Como fazer o form receber essa cor depois de logar.

Faço assim:

qryFormat.Close;

qryFormat.SQL.Clear;

qryFormat.SQL.Add('Select CorFundo from Format where Cod like "%'+label6.caption+ '%"');

qryFormat.ExecSql;

CorFundo:= qryFormat.FieldByName('CorFundo').Value;

frmLogin.Color:= RGB(CorFundo);

Mas RGB(CorFundo) não funciona, como faço?

E se este usuário não tiver formatado nada? Isso quer dizer, não haverá o cod na tabela? Ele entra para fazer o select, mas não acha, dá erro. Onde faço, ou o q devo mudar?

Obrigada

[DELPHI-Man32]

neste caso o valor do campo tem que ser o nome da cor, é isso que tem no banco?

tipo

Cor

clRed;

clGray;

clBlue;

clSilver;

clBlack;

[Guest Guest]

Não, eu tava guardando o número do RGB, mas não sei como fazer para ele receber isso. Pelo número, da forma como ele escolhe, tem mais opções do q os nomes das cores q aparecem lá...

[vitorbrando]

Carla,

esse número que você está tentando usar é um número inteiro?

Eu estava vendo e o RGB você tem que entrar com três paramentros, ou seja:

RGB(r:byte, g:byte, b:byte), se você está gravando um número inteiro ele vai apresentar erro porque para você usar o RGB terá que entrar com esses três parametros...

Caso você esteja gravando um número inteiro mesmo é só você mudar uma coisa no seu código:

frmLogin.Color:= (CorFundo);

Tenta ai e depois posta o resultado...

falou

[Guest Guest]

Fiz assim:

qryFormat.Close;

qryFormat.SQL.Clear;

qryFormat.SQL.Add('Select CorFundo from Format where Cod like "%'+label6.caption+'%"');

qryFormat.ExecSql;

CorFundo:= qryFormat.FieldByName('CorFundo').Value;

frmLogin.Color:= CorFundo;

Ele roda, mas quando chega em execSql fala que não encontrou CorFundo, mas tá tudo certo, a tabela a variável, tudo. Não sei, o posso fazer nesse caso?