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

04/12/2003

2

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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar