Schriftarten_Edit.Style := csOwnerDrawFixed; // kann auch im OI eingestellt werden
und dann im OnDrawItem-Event selber zeichnen.
ich glaub dazu gibt's sogar in Delphi's Demoordner oder der
OH ein Beispiel.
Alternativ gibt es auh schon fertige Komponenten dafür.
(Eine ist ganz bestimmt in der JCL drin)
[add]
aber so schnell aus'm Ärmel geschüttelt ... etwa so:
Delphi-Quellcode:
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
TComboBox(Control).Canvas.FillRect(Rect);
TComboBox(Control).Canvas.Font.Name := TComboBox(Control).Items[Index];
TComboBox(Control).Canvas.TextOut(Rect.Left + 2, Rect.Top,
TComboBox(Control).Items[Index]);
end;
[add3] ist übrigens auf dem Beispiel in der
OH entstanden: [
oh]OnDrawItem, (Delphi-Beispiel)[/
oh]
[add2]
aha, da is ja schon wer ... warum hast du mir denn keine RedBox geschickt?