.Font.Color converter string

Delphi

31/07/2008

var
cor : TColor;
tamanho: integer;
nome : String;
estilo : TFontStyles;
begin
cor := FontDialog.Font.Color;
======>>>>converter para uma string, para gravar no banco de dados? tem como? pegar o valor dentro deles?

tamanho:= FontDialog.Font.Size; == aki tbem
nome := FontDialog.Font.Name; == aki tbem
estilo := FontDialog.Font.Style; == aki tbem

end;


Guigosnet

Guigosnet

Curtidas 0

Respostas

Wonderwall

Wonderwall

31/07/2008

para as cores vc pode usar

StringToColor

ou

ColorToString


acho que os Sizes sao valores inteiros .... pode usar integer ...


GOSTEI 0
Vmlima

Vmlima

31/07/2008

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...


GOSTEI 0
Guigosnet

Guigosnet

31/07/2008

e o tipo Style como faço para converter em string?

estilo := FontDialog.Font.Style;


GOSTEI 0
Rodc

Rodc

31/07/2008

O estilo guarda como número. Mas talvêz até exista uma função que converta para string.


GOSTEI 0
Vmlima

Vmlima

31/07/2008

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


GOSTEI 0
POSTAR