Personalizar tipo da fonte e tamanho da letra?
Boa tarde,
Gostária de saber se é possivel dar a opção do usuário escolher o tamanho da letra e o tipo da font dos label e edits do programa...
Alguns clientes preferem uma letra maior, geralmente faço as aplicações no formato padrão. arial, 8. então gostária de dar essa opção aos clientes...
há...claro teria que salvar essa escolha no perfil ou cadastro do usuário..
se alguem puder ajudar , fico grato...
carlos...
Gostária de saber se é possivel dar a opção do usuário escolher o tamanho da letra e o tipo da font dos label e edits do programa...
Alguns clientes preferem uma letra maior, geralmente faço as aplicações no formato padrão. arial, 8. então gostária de dar essa opção aos clientes...
há...claro teria que salvar essa escolha no perfil ou cadastro do usuário..
se alguem puder ajudar , fico grato...
carlos...
Edsant
Curtidas 0
Respostas
Mazzi
05/05/2008
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;
-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;
GOSTEI 0
Edsant
05/05/2008
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...
Sua ideia me ajudou muito, e eu já consegue colocar esse recurso no sistema....
quem quizer saber como fiz, é só mandar um mp...
obrigado...
GOSTEI 0