Font Dialog

Delphi

11/05/2012

Ola pessoal

estou usando o seguinte codigo para modificar a fonte em em DBrichedit, em uma base de dados.


Fontdialog1.font.assign(DBRichEdit1.defAttributes);
if Fontdialog1.execute then
DBRichedit1.selAttributes.assign(FontDialog1.Font)

Tudo funciona ok. Quando reabro o formulario, no entanto as modificacoes das fontes não se mantem.

Estou usando o Windows 7. Pode ser isso?


Cilmar Rosa

Cilmar Rosa

Curtidas 0

Respostas

Wesley Yamazack

Wesley Yamazack

11/05/2012

Olá CILMAR, isso realmente vai acontecer sempre! Pois toda ver que você abrir o projeto ele vai estar com a configuração antiga, que você definiu lá no Delphi no modo Designer, entende?

A ideia seria você salvar estas propriedades em um arquivo .ini, como assim ? Eu fiz um post em 2009, foi um dos primeiros que pensei neste tipo de problema, veja só : https://www.devmedia.com.br/quick-tips-salvando-configuracoes-do-form-no-ini/15160

Ele ensina a fazer com o formulário, mas você pode adaptar para a tua necessidade, ok ? Entenda a funcionalidade o resto você só adapta!

Um abraço e bons códigos
GOSTEI 0
Cilmar Rosa

Cilmar Rosa

11/05/2012

Ola

O seguinte

Estou modificando a fonte de um campo tipo Varchar, em uma tabela.

Quando uso o BDE , não tem problema

Nesse caso estou usando o DBExpress, e não funciona

cilmar


GOSTEI 0
Joel Rodrigues

Joel Rodrigues

11/05/2012

Olá, Cilmar.
Como você está armazenando a fonte no banco e qual erro está ocorrendo?
GOSTEI 0
Cilmar Rosa

Cilmar Rosa

11/05/2012

Ola Joel

1-modifico a fonte sem problema
2-quando reabro a tabela, a modificacao não persiste, volta a fonte default previa
3-estou usando o blackfishsql

GOSTEI 0
Joel Rodrigues

Joel Rodrigues

11/05/2012

Bom, vamos aos detalhes:
1) Como você está gravando isso no banco(em que formato, quais informações)
2) Como você está passando essa informação para a propriedade Font do controle?
GOSTEI 0
Cilmar Rosa

Cilmar Rosa

11/05/2012

OLa
1-Drichedit -> campo tipo Varchar
2-DB express -: Tsqlquery <- Tdatsetprovider <- Clientdataset
3-ApplyUpdates(0)

cilmar
GOSTEI 0
POSTAR