.Font.Color converter string
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;
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
Curtidas 0
Respostas
Wonderwall
31/07/2008
para as cores vc pode usar
StringToColor
ou
ColorToString
acho que os Sizes sao valores inteiros .... pode usar integer ...
StringToColor
ou
ColorToString
acho que os Sizes sao valores inteiros .... pode usar integer ...
GOSTEI 0
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...
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
31/07/2008
e o tipo Style como faço para converter em string?
estilo := FontDialog.Font.Style;
estilo := FontDialog.Font.Style;
GOSTEI 0
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
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
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