Foros Club Delphi - Listado de tipos de letra

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Listado de tipos de letra (https://www.clubdelphi.com/foros/showthread.php?t=65058)

jandro

17-11-2009 22:51:34

Listado de tipos de letra

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

17-11-2009 23:04:09

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

17-11-2009 23:06:22

Cita:

Empezado por jandro (Mensaje 346827)

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

17-11-2009 23:07:20

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

afunez2007

17-11-2009 23:32:29

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;

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

17-11-2009 23:49:46

Cita:

Empezado por afunez2007 (Mensaje 346843)

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;

:)

La franja horaria es GMT +2. Ahora son las 23:21:58.