Fórum Personalizar tipo da fonte e tamanho da letra? #358008

Ola, eu faria o seguinte:

-criava uma tb no banco de dados com as configuracoes que vc quer salvar, Fontes. Estilos, para Labels, para Edits, etc...

Criava um form que cadastrasse essas informacoes;

-Criava uma Classe que verificava a configuracao Local;

-Sempre ao criar qq Form, o form a ser criado faz uma busca nas informacoes atraves da classe que verifica os dados, e retorna para esse form a configuracao.

-assim se no banco de dados estiver que os edits, serao NEGRITO, por exemplo:
Para fazer todos os Edits do Seu form atender as necessidade do que a Classe retornar de configuracoes salvas

Exemplo de como vai ficar a alteracao:

procedure TForm1.btn1Click(Sender: TObject);
var i,x : Integer;
begin


for i := 0 to ComponentCount -1 do
begin
if (Components[i] is TLabel) then
begin
TLabel(Components[i]).Font.Style := Font.Style+[fsBold];
end;
end;


for x := 0 to ComponentCount -1 do
begin
if (Components[x] is TEdit) then
begin
TEdit(Components[x]).Font.Style := Font.Style+[fsBold,fsItalic];
TEdit(Components[x]).Font.Name :=´MT Extra´;
end;
end;

//Esse evento esta num Botao, vc pode criar um metodo que fique mais adequado na sua aplicacao//

Esse é um caminho. onde Há os campos de Font.Style, ou Font.Name, facao com que a sua aplicacao busque no banco de dados a sua configuracao salva.
Abraços


end;

Perfeito...

Sua ideia me ajudou muito, e eu já consegue colocar esse recurso no sistema....

quem quizer saber como fiz, é só mandar um mp...

obrigado...