Weiss zufällig jemand wie ich bei einer TComboBox (genauergesagt geht es um die
Unicode - TTNTComboBox) die Auswahl + Items zentriere?
Wie beim TEdit CreateParams zu überschreiben und ES_CENTER zu setzen funktioniert leider nicht.
Bei ES_Center ist die Box nicht mehr beschreibbar und bei ES_Right entsprechen Darstellung und Verhalten ES_Left.
Hat jemand eine Idee?
[erledigt]
Solve:
Code:
procedure TForm1.TntComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var w,
l : integer;
text: widestring;
begin
text:= TntComboBox1.Items.Strings[Index];
w:= TntComboBox1.Canvas.TextWidth(text);
l:= (Rect.Right - Rect.Left - w) div 2;
TntComboBox1.Canvas.TextOut(Rect.Left + l, Rect.Top, text);
end;