Obtener las fuentes de Windows

[molina669]

No se si realmente esta duda va aquí, si no es así, lo siento.
Quisiera saber como puedo guardar en un combo las fuentes que tengo instaladas en el sistema. He buscado mucho por el foro y no he encontrado nada.

Un saludo.

[jhonny]

Que tal si bajas el TFontComboBox?

[jhonny]

Bueno, disculpa, a veces a uno se le olvidan cosas tan sencillas como que ese componente viene es en las RxLib, mas no de fabrica...

[delphi.com.ar]

Empezado por jhonny

Bueno, disculpa...

¿Es para mí?... Pero si yo escribí al mismo tiempo que vos!!.. no vi tu mensaje!

Saludos!

[jhonny]

Empezado por delphi.com.ar

¿Es para mí?... Pero si yo escribí al mismo tiempo que vos!!.. no vi tu mensaje!

Saludos!

Bueno, era para molina669, pero ya que tu insistes, es para vos también .

[delphi.com.ar]

Tienes varios componentes con código que hacen lo que tu pides, puedes usarlos o bien estudiar el código para hacerlo a tu manera. Uno de ellos es el TFontComboBox de las RxLibs, o su versión "Modernizada" el TJvFontComboBox de las JCL (Project JEDI Code Library).

Saludos!

[molina669]

Gracias a los dos, me decanto por el componente RX.

Un saludo

[[seoane]]

Puedes hacerlo por código:

Código Delphi [-]
function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
  FontType: Integer; Data: Pointer): Integer; stdcall;
begin
  TStrings(Data).Add(LogFont.lfFaceName);
  Result:= 1;
end;

procedure CargarFuentes(Items: TStrings);
var
  DC: HDC;
begin
  DC:= GetDC(0);
  Items.Clear;
  EnumFonts(DC, nil, @EnumFontsProc, Pointer(Items));
  ReleaseDC(0, DC);
end;

Por ejemplo:

Código Delphi [-]
  CargarFuentes(Combobox1.Items);