|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Слишком узкий горизонтальный скрол
Здравствуйте!
Использую PageControl а в ней DBGrid, есть всего несколько колонок таблиц а скрол по горизонтали образуется как будто очень много колонок, как сделать, чтоб был нормальный скрол? |
#2
|
||||
|
||||
Увы, он всегда себя так ведет.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
Горизонтальный скролл появляется когда все колонки не влезают в клиентскую область грида. То бишь он есть или его нет. Если речь про размер страницы скролла в сетке, то это всегда так.
Пишу программы за еду. __________________ Последний раз редактировалось NumLock, 15.12.2016 в 18:43. |
#5
|
||||
|
||||
Код:
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; Пишу программы за еду. __________________ |