Получить размер Scroll'a

[Дmmm]

Дано: Grid, на котором может появляться ScrollBar, в зависимости от к-ва строк, естественно.
Найти: ширину этого Grid так, чтобы ScrollBar оказывался ровно по краю, не налезал на последний столбец и зазора тоже не было.
Приходит в голову что-то типа
Grid1.Width:=(Grid1.DefaultColWidth +Grid1.GridLineWidth)*Grid1.ColCoun t+GetSystemMetrics(SM_CXVSCROLL);
но не работает, ширина пустого места с краю явно плывёт в зависимости от ColCount

[Stilet]

Так что нужно? подогнать ширину колонок или ширину грида?
Если грида, то в цикле пройтись по колонкам, просуммировать их ширину плюс метрика.

[Дmmm]

Грида, ширину скролла разве можно менять? У всех колонок одинаковая ширина, но не получается так, может еще что-то прибавлять надо?

[Аватар]

Не красиво, когда грид или любой визуальный объект по ширине дергается. Юзер тоже будет дергаться

[Дmmm]

Так в том и вопрос, как сразу ширину с запасом задать, чтобы скролл встал ровно?

[Аватар]

Ну так бы сделал

type
  TDBGrid = class(DBGrids.TDBGrid)
  end;
...
  s:=DBGrid1.GridLineWidth*DBGrid1.ColCount;
  for i:=0 to DBGrid1.ColCount-1 do s:=s+DBGrid1.ColWidths[i];
  DBGrid1.ClientWidth:=s;

Почему то решил, что DBGrid. Но не важно, для стринггрида тоже, но без переопределения типа. Для него можно и без цикла используя DefaultColWidth. Главное - ClientWidth, она без учета скролбара