Gravar cor em formato texto.
bom dia a todos,
estou utilizando um arquivo .ini para gravar algumas informações de configuração de um sistema e gostaria de gravar neste arquivo a cor e configuração de fonte definido pelo usario neste arquivo.
ex.:
Label1.Font.Name := FontDialog1.Font.Name;
Label1.Font.Color := FontDialog1.Font.Color;
Label1.Font.Size := FontDialog1.Font.Size;
Label1.Font.Style := FontDialog1.Font.Style;
Label1.Font.Charset := FontDialog1.Font.Charset;
com isto eu configuro algumas propriedades de font do label1.
e tento gravar no config.ini com o comando:
Configuracao.WriteString(´label1´, ´Fonte Cor´, Label1.Font.Color);
so que se eu jogar estes dados como estao no comando acima no arquivo .ini vai dar o seguinte erro:
[u:d8d5beac23][b:d8d5beac23]Incompatible types: ´String´ and ´TColor´[/b:d8d5beac23][/u:d8d5beac23].
a pergunta é: como eu converto estes dados para gravar em um arquivo? texto. :(
estou utilizando um arquivo .ini para gravar algumas informações de configuração de um sistema e gostaria de gravar neste arquivo a cor e configuração de fonte definido pelo usario neste arquivo.
ex.:
Label1.Font.Name := FontDialog1.Font.Name;
Label1.Font.Color := FontDialog1.Font.Color;
Label1.Font.Size := FontDialog1.Font.Size;
Label1.Font.Style := FontDialog1.Font.Style;
Label1.Font.Charset := FontDialog1.Font.Charset;
com isto eu configuro algumas propriedades de font do label1.
e tento gravar no config.ini com o comando:
Configuracao.WriteString(´label1´, ´Fonte Cor´, Label1.Font.Color);
so que se eu jogar estes dados como estao no comando acima no arquivo .ini vai dar o seguinte erro:
[u:d8d5beac23][b:d8d5beac23]Incompatible types: ´String´ and ´TColor´[/b:d8d5beac23][/u:d8d5beac23].
a pergunta é: como eu converto estes dados para gravar em um arquivo? texto. :(
Tronbr
Curtidas 0
Respostas
Adriano Santos
14/02/2004
Edit1.Text := ColorToString(Panel1.Color);
Panel1.Color := StringToColor(Edit1.Text);
Panel1.Color := StringToColor(Edit1.Text);
GOSTEI 0