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
