Items in ComboBox rechtsbündig

[Ykcim]

Hallo Zusammen,

ich möchte, dass die Items in meiner ComboBox und dann bei Auswahl auch der Text rechtsbündig sind. Ich war davon ausgegangen, dass ich das im Objektinspektor wie bei einem Editfeld einstellen kann. Ich finde aber nichts dergleichen...

Könnt Ihr mir weiterhelfen? Das ist doch nun nichts exotisches...

Gruß
Patrick

[DeddyH]

Selber zeichnen?

[Popov]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Style := lbOwnerDrawFixed; //das kann man auch im ObjektInspector einstellen
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListbox) do
    Canvas.TextRect(Rect, Rect.Right - Canvas.TextWidth(Items[Index]) - 2, Rect.Top, Items[Index]);
end;

Die -2 ist dafür da, damit ein kleiner Abstand zum rechten Rand besteht.

[Natcree]

Oder Direkt für die Combobox...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.style:=csownerdrawfixed;
end;

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as Tcombobox) do
  Canvas.TextRect(Rect, Rect.Right - Canvas.TextWidth(Items[Index]) - 2, Rect.Top, Items[Index]);
end;

[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.

[Natcree]

lol

[Ykcim]

Hallo Zusammen,

vielen Dank für die Lösungen. Ich muss mich ein bißchen mit beschäftigen, da die TausenderPunkte der Items ein Fehler erzeugen. Da es sich aber um sehr hohe Zahlen handelt, möchte ich die drin haben...

Vielen Dank
Patrick