Jak przeszukać wszystkie komórki w StringGrid aby szerokość kolumny była równa jej najdłuższego łańcucha?
Zastosowanie czegoś takiego nie dało pożądanego efektu:
for w := 0 to StringGrid.RowCount - 1 do
begin
for k := 0 to StringGrid.ColCount - 1 do
begin
max := 0;
if StringGrid.Cells[k, w] <> '' then
begin
if max < StringGrid.Canvas.TextWidth(StringGrid.Cells[k, w]) then
max := StringGrid.Canvas.TextWidth(StringGrid.Cells[k, w]);
StringGrid.ColWidths[k] := 5 + max;
end;
end;
end;
poprawiłem błędy w kodzie :P jakiś Chochlik drukarski się wkradł ;)