.Font.Color converter string

31/07/2008

2

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;


Responder

Posts

31/07/2008

Wonderwall

para as cores vc pode usar

StringToColor

ou

ColorToString


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


Responder

31/07/2008

Vmlima

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


Responder

31/07/2008

Guigosnet

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

estilo := FontDialog.Font.Style;


Responder

01/08/2008

Rodc

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


Responder

06/08/2008

Vmlima

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


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