Converter TString para TColor
:?: Olá a todos.
Uso Delphi 5, Paradox e QuickReport.
Num programa de emissão de etiquetas (coloridas) armazeno
código, nome do cliente e o nome da cor desejada (clblue, clgreen, etc..).
No evento BeforePrint do DetailBand1 coloquei o seguinte código:
M_Cor := Dtm.Etiquetas.FieldByName(´NomeDaCor´).Value;
QrDbText2.Font.Color := M_Cor;
Mas o sistema retorna um erro de convesão: Imcompatible Types TColor e TString
Como posso fazer para atribuir o conteúdo da variável M_Cor para Font.Color do componente QRDBText.
Obrigado.
Neto
Uso Delphi 5, Paradox e QuickReport.
Num programa de emissão de etiquetas (coloridas) armazeno
código, nome do cliente e o nome da cor desejada (clblue, clgreen, etc..).
No evento BeforePrint do DetailBand1 coloquei o seguinte código:
M_Cor := Dtm.Etiquetas.FieldByName(´NomeDaCor´).Value;
QrDbText2.Font.Color := M_Cor;
Mas o sistema retorna um erro de convesão: Imcompatible Types TColor e TString
Como posso fazer para atribuir o conteúdo da variável M_Cor para Font.Color do componente QRDBText.
Obrigado.
Neto
Neto
Curtidas 0
Respostas
Motta
13/12/2004
StringToColor se não se falha a memória ....
GOSTEI 0