Linien Ausrichtung

[thiagojonas]

Also so?

Delphi-Quellcode:

laenge:=0;
for i := 0 to Listbox.Items.Count -1 do
begin
 Variable:= Listbox.items[i];
 if length(Variable)>laenge then
begin
 laenge:=length(s)
 Target:=Variable;
  end;
end;
Variable2:=ListBox1.Canvas.TextWidth(ListBox1.Items[laenge]);;
end;