Delphi StringGrid длина столбцов

[a.n.o.n.i.m]

Заполняю динамически длину столбиков на форме

ColWidths[table.ColCount -1] := table.Canvas.TextWidth(table.Cells[table.ColCount -1, 0])

Далее открываю закрываю формочку(которая никак данные не меняет стрингрида) и перерисовываю его с таким же расчетом ширины столбца

Данные при этом не меняются но становятся на пиксель каждый столбик длиннее, почему?
Как правильно тогда вычислить динамически ширину каждого столбика?

Может как то что занулить где то или что?

[Arigato]

Сообщение от a.n.o.n.i.m

становятся на пиксель каждый столбик длиннее

А если этот лишний пиксель просто вычесть?

[a.n.o.n.i.m]

дак первый раз его нет, но все последующие разы он есть, то есть дергание происходит только при 2 загрузке ширины столбиков, далее при загрузке столбиков все огонь ниче не дергается.

Может как то занулить че нибудь где нибудь что заново корректно отрисоватЬ?

[evg_m]

1. где (когда, при каком событии) настраиваете ширину (используете приведенный код) ?
2. где (когда, ... ) и как(каким кодом) проверяете реальную ширину ?

[a.n.o.n.i.m]

При любом изменение, добавление удаление, редактирование данных вызывается функция с этим кодом определения ширины

[DIONISKA]

Сообщение от a.n.o.n.i.m

ColWidths[table.ColCount -1] := table.Canvas.TextWidth(table.Cells[table.ColCount -1, 0])

Выглядит как-то подозрительно и считать будет только последний столбик, может всё-же что-то вроде:

var i:integer;
begin
  for I := 0 to pred(table.ColCount) do
 begin
    table.ColWidths[i]:=table.Canvas.TextWidth(table.Cells[i,0]);
 end;
//...
end;

?
И часом нигде не изменяется BevelWidth или какое-нибудь сглаживание шрифта?