Items in ComboBox mit verschiedenen Schriften

[bitsetter]

Hallo,

versuche es mal so:

Delphi-Quellcode:

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
   with Control as TCombobox 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,screen.Fonts.Strings[Index]);
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Combobox1.Items:= screen.Fonts;
  Combobox1.Style:= csOwnerDrawFixed;
end;