Inhalt einer ListBox rechtsbündig ausgeben

[Daniel B]

Hallo,

hiermit kann man die Texte der ListBox rechtbündig anzeigen lassen.
Achtung, Style der ListBox muss auf "lbOwnerDrawFixed" stehen! Einfach im OI bei "Style" einstellen.

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var 
  iTemp: Integer;
  sTemp: String;
begin
  with ListBox1 do
  begin
    Canvas.FillRect(Rect);
    sTemp := Items[Index];
    iTemp := Rect.Right - Canvas.TextWidth(sTemp) - 1;
    Canvas.TextOut(iTemp, Rect.Top, sTemp); 
  end;
end;

Grüsse, Daniel