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

Selber zeichnen?

zusammenfalten · markieren

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.

Oder Direkt für die Combobox...

zusammenfalten · markieren

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;

Dann mache ich auch mit:

zusammenfalten · markieren

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.

lol

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