Llenar ListBox con fuentes del sistema

[totote]

Hola a todos.

Queria saber si se puede llenar un ListBox con las fuentes que estan instaladas en la pc.

Saludos.

[dec]

Hola,

Fíjate en este hilo, tienes varias formas de conseguir lo que quieres.

[totote]

Muchas gracias dec

[Khronos]

Código Delphi [-]
Listbox1.items:=screen.fonts;

Salu2

[[egostar]]

Empezado por Khronos

Código Delphi [-]
Listbox1.items:=screen.fonts;

Salu2

Vaya, que simple lo hiciste......

Salud OS

[ixMike]

Empezado por Khronos

Código Delphi [-]
Listbox1.items:=screen.fonts;

Salu2

¿eso no explota?

Por si las moscas:

Código Delphi [-]
ListBox1.Items.AddStrings(Screen.Fonts);

Salu2

[[egostar]]

Empezado por ixMike

¿eso no explota?

Explotar ????, pues he ejecutado la instrucción y pues no, funcionó bien.

Salud OS

[jachguate]

Empezado por ixMike

¿eso no explota?

¡Claro que no!

Gracias al estupendo trabajo del equipo de desarrollo de la VCL!

Código Delphi [-]
procedure TCustomListBox.SetItems(Value: TStrings);
begin
  if Style in [lbVirtual, lbVirtualOwnerDraw] then
    case Style of
      lbVirtual: Style := lbStandard;
      lbVirtualOwnerDraw: Style := lbOwnerDrawFixed;
    end;
  Items.Assign(Value);
end;

¡gracias, chavales! Por eso es un placer programar en Delphi!