Como faço para gravar no banco de dados a cor do shape1

04/12/2003

1

Como faço para gravar no banco de dados a cor do shape1

QProduto.SQL.Clear;
QProduto.SQL.Add(´Insert into Produtos (Codigo, NOME, Data_Entrada, Data_Vencimento,´+
´Cod_Tipo, Cod_Externo, Cod_Tecnico, Concentracao, Faixa, Quantidade)´);
QProduto.SQL.Add(´Values(´+ QuotedStr (editCodigo.Text) + ´,´+
QuotedStr(editNomeProduto.Text) + ´, ´+
QuotedStr(editDataEntrada.Text)+´,´+
QuotedStr(editDataVencimento.Text)+´ ,´+
QuotedStr(editCodTipo.Text)+´,´+
QuotedStr(editCodExterno.Text)+´,´+
QuotedStr(editCodExterno.Text)+´,´+
QuotedStr(editConcentracao.Text)+´,´+
QuotedStr([color=red:2040534425]Shape1. .........Aqui que não sei..... [/color:2040534425])+´,´+
QuotedStr(editEstoque.Text)+´)´);
QProduto.ExecSQL;


Responder

Posts

05/12/2003

Rafael Heise

ColorToStr(Shape1.Brush.Color)


Responder

05/12/2003

Adilsond

Use a função: ColorToRGB(Shape1.Brush.Color) para transformar a cor em um LongInt e TColor(LongInt) para transformar o valor novamente para a cor.


Responder

16/06/2008

Tathianam

No Delphi7 a função é: [b:346e956ad5]ColorToString[/b:346e956ad5] e vice-versa


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira