Obtener las fuentes de Windows
 

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.

Que tal si bajas el TFontComboBox?

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!

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...

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

Un saludo

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

Saludos!

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);

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