.Font.Color converter string

Question

var  cor    : TColor;  tamanho: integer;  nome   : String;  estilo : TFontStyles;begin   cor    := FontDialog.Font.Color;  ======>>>>converter para uma string, para gravar no banco de dado...

Wonderwall · Answer

para as cores vc pode usarStringToColorou ColorToStringacho que os Sizes sao valores inteiros .... pode usar integer ......

Vmlima · Answer

Memo1.Lines.Append(Btn.Font.Name);
Memo1.Lines.Append(Inttostr(Btn.Font.Size));
Memo1.Lines.Append(ColorToString(Btn.Font.Color));

� s� vc fu�ar mais um pouco que vc aprende como pegar o resto...

Guigosnet · Answer

e o tipo Style como fa�o para converter em string?estilo := FontDialog.Font.Style;...

Rodc · Answer

O estilo guarda como n�mero. Mas talv�z at� exista uma fun��o que converta para string....

Vmlima · Answer

if FSBold in BitBtn1.Font.Style then showmessage(�� negrito�);
if FSItalic in BitBtn1.Font.Style then showmessage(�� italico�);

TFontStyles � do tipo Set o TFontStyle, o comando in verifica se ele est� dentro do conjunto

ai vc faz uma fun��o pra retornar a String Negrito se for negrito...

Se vira pra fazer o resto n� rapaz...

Atenciosamente