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