Listado de tipos de letra

[jandro]

Hola a todos.

Me gustaría saber como hacer una lista desplegable donde se muestren todas las fuentes que tiene windows para poder aplicarlas a un tipo TLabel. Es esto posible??

Muchas gracias.

Saludos.

[afunez2007]

Hay un componente en Dialogs>FontDialog

Que puedes utilizar para ese efecto de la siguiente manera:

1.- Insertas un TLabel y le cambias el caption con el texto que deseas

2.- Insertas un FontDialog

3.- Insertas un Boton y le agregas el siguiente codigo:

Código Delphi [-]
if FontDialog1.Execute then
begin
 Label1.Font:=FontDialog1.Font;
end;

Saludos

[rgstuamigo]

Empezado por jandro

Hola a todos.

Me gustaría saber como hacer una lista desplegable donde se muestren todas las fuentes que tiene windows para poder aplicarlas a un tipo TLabel. Es esto posible??

Muchas gracias.

Saludos.

Pues para eso esta el componente TFontDialog ( pestaña Dialogs de la paleta de componente)
Lo puedes usar de esta manera:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if FontDialog1.Execute then //si ejecutando el dialogo ha selecionado una fuente
   Label1.Font:= FontDialog1.Font;//asigno la fuente selecionada a mi label 
end;

Saludos...

[Aleca]

Las Rx tienen un componente TFontComboBox q hace lo que pedis y la JVCL también.

[afunez2007]

Estuve probando los FontCombobox, pero no los consigo hacer funcionar, mientras que el fontdialog aparte te da tamaños y colores.

Jedi

Código Delphi [-]
lbl1.Font:=JvFontComboBox1.Font;

RX

Código Delphi [-]
lbl1.Font:=FontComboBox1.Font;

Pero no aplican el tipo de letra al label, lo probe en todos los eventos del combo, onexit, onchange, onkeydown, onkeyup, etc..

Saludos

[Aleca]

Empezado por afunez2007

Estuve probando los FontCombobox, pero no los consigo hacer funcionar, mientras que el fontdialog aparte te da tamaños y colores.

Jedi

Código Delphi [-]
lbl1.Font:=JvFontComboBox1.Font;





RX

Código Delphi [-]
lbl1.Font:=FontComboBox1.Font;





Pero no aplican el tipo de letra al label, lo probe en todos los eventos del combo, onexit, onchange, onkeydown, onkeyup, etc..

Saludos

estas usando el font del componente q coincide con el de la etiqueta, este codigo lo probe con el de las Rx

Código Delphi [-]
procedure TForm1.FontComboBox1Change(Sender: TObject);
begin
MiLabel1.Font.Name := FontComboBox1.FontName;
end;