Listing 24


//Ermitteln aller nicht proportionalen Fonts des Systems

function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
  FontType: Integer; Data: Pointer): Integer; stdcall;
begin

  if (TextMetric.tmPitchAndFamily and 1)=0 then
     Form1.ComboBox1.Items.Add(LogFont.lfFaceName);

  Result := 1;
end;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
   EnumFonts(Canvas.Handle, nil, @EnumFontsProc, nil);
end;

...


Zurück zur Hauptseite