FontDialog

Delphi

25/08/2003

Como faço pra armazenar TFont em uma variável e depois restaurá-la?

Tenho algumas linhas do Relatório que devem ser alteradas pelo usuário.
Criei uma Matriz[1..10] of Tfont e armazeno os valores quando 

if FontDialog1.Execute then 
   Matriz[1] := FontDialog1.font;

if FontDialog1.Execute then 
   Matriz[2] := FontDialog1.font;
...

Porém os valores de Matriz[1..4] são idênticos ao último FontDialog1.Execute.

Estou ficando louco ou vou ter que colocar um FontDialog para cada elemento da Matriz?


Okama

Okama

Curtidas 0

Respostas

4_olho

4_olho

25/08/2003

Amigo Okama,

As fontes estão associadas a algum componente, certo? E as fontes tem propriedades separadas. Grave estas propriedades. Associe os valores das propriedades à campos e grave estes campos ...

Exemplo bobo:

Label1.Font.Color:=TabelaCorFonte.Value;
Memo1.Font.Name:=TabelaNomeFonte.Value;

e assim por diante...

Não sei se consegui me fazer entender...


GOSTEI 0
Okama

Okama

25/08/2003

Entendi, isso eu já estou fazendo, só que são muitos campos e queria simplificar.


GOSTEI 0
POSTAR