hallo
noch ein kleines beispiel, wie man selbst ein Dropdown-Menü für die Schriftarten, die jeweils in der eigenen schriftart angezeigt werden erstellen kann:
Der Combobox den Style csOwnerDrawFixed zuweisen.
den Items der Combobox alle verfügbaren Fonts zuweisen:
Combobox1.Items := Screen.Fonts;
nun im onDrawItem Ereignis noch folgenden Code für die Textausgabe einfügen:
Delphi-Quellcode:
ComboBox1.Canvas.Brush.Color := clwhite;
ComboBox1.Canvas.FillRect(Rect);
ComboBox1.Canvas.Font.Name :=ComboBox1.Items[index];
ComboBox1.Canvas.TextOut(Rect.Left+2,Rect.Top,ComboBox1.Items[index]);
MfG
Luki