Linien Ausrichtung

[mkinzler]

Eher so

Delphi-Quellcode:

var
    i, b, h: Integer;
    ...
begin
    b := 0;
    for i := 0 to ListBox1.Count - 1 do
    begin
        //Ermittle breitesten String
        h := ListBox1.Canvas.TextWidth(ListBox1.Items[i]);
        if h > b then b := h;
    end;
    ...
end;