Der kunde kann halt selbst formulare erstellen und abgeleitete comboboxen ablegen. Somit sind bereits einige Formulare erstellt worden. Ich hab nun beim ondrawitem folgendes hinterlegt und nun ist es schick
Delphi-Quellcode:
PROCEDURE TVisuComboBox.DrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
VAR
LRect: TRect;
CB: TCombobox;
BEGIN
CB := TCombobox(Control);
WITH CB.Canvas DO
BEGIN
LRect := Rect;
FillRect( LRect );
Font.Color := clWindowText;
TextOut(LRect.left, LRect.top, CB.Items[index]);
END;
END;