[bemulima]

Здравствуйте!
Использую PageControl а в ней DBGrid, есть всего несколько колонок таблиц а скрол по горизонтали образуется как будто очень много колонок, как сделать, чтоб был нормальный скрол?

[M.A.D.M.A.N.]

Увы, он всегда себя так ведет.

[bemulima]

Сообщение от M.A.D.M.A.N.

Увы, он всегда себя так ведет.

И нет никаких вариантов его нормализовать?

[NumLock]

Горизонтальный скролл появляется когда все колонки не влезают в клиентскую область грида. То бишь он есть или его нет. Если речь про размер страницы скролла в сетке, то это всегда так.

[NumLock]

Код:

var
  Columns: Integer;
  ColumnsWidth: Integer;
  ScrollInfo: TScrollInfo;
begin
  ColumnsWidth:=0;
  for Columns:=0 to DBGrid1.Columns.Count-1 do Inc(ColumnsWidth, DBGrid1.Columns[Columns].Width);
  ScrollInfo.cbSize:=SizeOf(TScrollInfo);
  ScrollInfo.fMask:=SIF_ALL;
  GetScrollInfo(DBGrid1.Handle, SB_HORZ, ScrollInfo);
  ScrollInfo.nPage:=MulDiv(ScrollInfo.nMax-ScrollInfo.nMin, DBGrid1.Width, ColumnsWidth);
  SetScrollInfo(DBGrid1.Handle, SB_HORZ, ScrollInfo, True);
end;