Items in ComboBox rechtsbündig

[DeddyH]

Dann mache ich auch mit:

Delphi-Quellcode:

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
const
  RIGHT_OFFSET = 2;
var
  CBB: TComboBox;
begin
  CBB := Control as TComboBox;
  CBB.Canvas.FillRect(Rect);
  Rect.Right := Rect.Right - RIGHT_OFFSET;
  DrawText(CBB.Canvas.Handle, PChar(CBB.Items[Index]), -1, Rect,
    DT_RIGHT or DT_SINGLELINE);
end;

Damit ist die DropDown-Liste allerdings auch rechtsbündig, sieht IMO ein wenig komisch aus.