schriftarten durchschalten

[bitsetter]

Das 2. Beispiel von mir bezog sich auf das 1.

Delphi-Quellcode:

//im OI das Ivent onDrawItem für Listbox1 durch doppelklicken auswählen. //Delphi erstellt dann automatisch das Ivent, da schreibst du dann den Code rein.
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with Control as TListBox do
  begin
    if Index< screen.Fonts.Count then
    begin
      Canvas.FillRect(Rect);
      canvas.Font.Name:= screen.Fonts.Strings[Index];
      Canvas.TextOut(rect.Left, rect.Top,'a');
      canvas.Font.Name:= 'Arial';
      Canvas.TextOut(rect.Left+ 10, rect.Top, ' = '+ screen.Fonts.Strings[Index]);
    end;
  end;
end;

//im OI das Ivent onCreate für Form1 durch doppelklicken auswählen.
procedure TForm1.FormCreate(Sender: TObject);
begin
  Listbox1.Items:= screen.Fonts;
  Listbox1.Style:= lbOwnerDrawFixed;
end;

EDIT: Fontname in der Listbox wurde hinzugefügt
EDIT: jetzt auch noch mit Beschreibung