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

[totote]

la verdad es que está resuelto muy facil XD jajaja

[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!

[ixMike]

La última vez que asigné TStrings como si fuera un valor me explotó el petardo en la mano:

Código Delphi [-]
var
  Lista: TStrings;
begin
...
Listbox1.Items:=Lista;
...
Lista.Free;

[keyboy]

Eso explota pero por usar un TStrings en lugar de un TStringList.

Bye

[jachguate]

Bueno, eso depende....

Código Delphi [-]
var
  Lista: TStrings;
begin
  Lista := TStringList.Create();
  try
    ...
    Listbox1.Items:=Lista;
    ...
  finally
    Lista.Free;
  end;

Esto debiera ir perfecto!

[ixMike]

Empezado por keyboy

Eso explota pero por usar un TStrings en lugar de un TStringList.

Bye

Eso explota porque al hacer ListBox1.Items:=Lista y después liberar Lista, al intentar al acceder a ListBox1.Items... Error Acces violation bla bla bla porque ya no existe, ¡lo he liberado!


Salu2.

[jachguate]

Parece que no leíste el código que puse en el post #9 de este hilo. Ahora veo que solo seguís suponiendo que explotaría... pero en realidad no pasa. Te invito a comprobarlo.

Código Delphi [-]
var
  Lista: TStrings;
begin
  Lista := TStringList.Create();
  try
    Lista.Add('A que no exploto!!!');
    Listbox1.Items:=Lista;
  finally
    Lista.Free;
  end;
  try
    ShowMessage(ListBox1.Items[0]);
  except
    ShowMessage('Explotó!');
  end;
end;

[ixMike]

Empezado por jachguate

Parece que no leíste el código que puse en el post #9 de este hilo. Ahora veo que solo seguís suponiendo que explotaría... pero en realidad no pasa. Te invito a comprobarlo.

Es cierto, pero, ¡si a mí me pasaba!

Mí no entender.


Edito: creo recordar que me pasaba entre objetos TStrings, no con la propiedad Items.

[[egostar]]

Empezado por ixMike

Eso explota porque al hacer ListBox1.Items:=Lista y después liberar Lista, al intentar al acceder a ListBox1.Items... Error Acces violation bla bla bla porque ya no existe, ¡lo he liberado!


Salu2.

Amigo ixMike, que quieres decir con intentar acceder a ListBox1.Items, si liberas Lista el ListBox1.Items ya cargo lo que tuviese Lista, asi que no veo donde este el error de acceso.

Prueba este código, funciona sin problemas y accedes al ListBox tantas veces quieras y Lista ya está "liberada".......

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Lista: TStrings;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Lista := TStringList.Create;
  with Lista do begin
    Add('This example uses A string List.');
    Add('It is the easiest way to add strings');
    Add('to a combobox''s list of strings.');
    Add('Always remember TStrings.Create method');
    Add('is abstract; So use TStringList.Create');
    Add('method instead.');
  end;
  Listbox1.Items := Lista;
  Lista.Free;
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  ShowMessage(ListBox1.Items.Strings[ListBox1.ItemIndex]);
end;

end.

Salud OS

[jachguate]

No lo tengo a mano ahora para confirmarlo... pero estoy seguro que esto es así desde Delphi 1.

Quizás te pasaba con Turbo Pascal..

Un saludo.

[ixMike]

Empezado por egostar

Amigo ixMike, que quieres decir con intentar acceder a ListBox1.Items, si liberas Lista el ListBox1.Items ya cargo lo que tuviese Lista, asi que no veo donde este el error de acceso.

Prueba este código, funciona sin problemas y accedes al ListBox tantas veces quieras y Lista ya está "liberada".......

Salud OS

se te adelantó jachguate

De todas formas, Items no es una variable tipo dato a la que se le asignes un número, un carácter... sino que es un objeto... creo que ahí estaba mi jaleo mental

Gracias a los dos.


Añado: me pasaba con Delphi 3, pero ya digo, puede que fuera entre objetos TStrings, o algo así...

[[egostar]]

Empezado por jachguate

No lo tengo a mano ahora para confirmarlo... pero estoy seguro que esto es así desde Delphi 1.

Quizás te pasaba con Turbo Pascal..

Un saludo.

Casi estoy seguro que el problema era que usabas esto

Código Delphi [-]
var
  Lista: TStrings;

begin
  Lista := TStrings.Create;
end;

en lugar de esto

Código Delphi [-]
var
  Lista: TStrings;

begin
  Lista := TStringList.Create;
end;

Salud OS

[jachguate]

Fantástico, ¿no?
¿Por qué crees que he dicho esto antes?

Empezado por yo mero

Gracias al estupendo trabajo del equipo de desarrollo de la VCL!
...
¡gracias, chavales! Por eso es un placer programar en Delphi!