|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Автоматическая ширина колонок DBGrid
Пример позволяет настроить ширину столбцов компонента DBGrid относительно их содержимого. Процедуру AutoSizeColDBGrid (DBGrid: TDBGrid) нужно вызывать после каждого добавления изменения, удаления записи, фильтрации данных.
Код:
Procedure TF_Principale.AutoSizeColDBGrid(DBGrid:TDBGrid); // <--- TF_Principale.AutoSizeColDBGrid(DBGrid:TDBGrid); pour qu'on puisse appeler cette procedure depuis d'autres unitйs du projet var i, ColWidth, ColTextWidth:integer; begin if DBGrid.DataSource.DataSet.Active then begin DBGrid.DataSource.DataSet.DisableControls; for i:= 0 to DBGrid.Columns.Count-1 do begin ColWidth:=DBGrid.Canvas.TextWidth(DBGrid.Columns[i].Field.DisplayLabel); DBGrid.DataSource.DataSet.First; while not DBGrid.DataSource.DataSet.EOF do begin ColTextWidth:=DBGrid.Canvas.TextWidth(DBGrid.Columns[i].Field.DisplayText); if (ColTextWidth>ColWidth) then begin ColWidth:=ColTextWidth; end; DBGrid.DataSource.DataSet.Next; end;{while} DBGrid.Columns[i].Width:=ColWidth+30; end;{for} DBGrid.DataSource.DataSet.EnableControls; DBGrid.DataSource.DataSet.First; end; end; AutoSizeColDBGrid(DBGrid1); |
Этот пользователь сказал Спасибо Admin за это полезное сообщение: | ||
Guaho (17.04.2020)
|
#2
|
||||
|
||||
Оооо! Отлично! Как раз мне этого не хватало - в моей программе, в процедуре импорта данных из внешних файлов, это как раз нужно! Я делал авто-подбор ширины крайне простым и потому топорным методом, из-за чего оставались довольно большие пробелы... Да что-то я туплю, ведь не только на импорте можно применить, это везде надо натыкать, на все гриды, такую функцию!
Ща буду пробовать! СПАСИБО!!! |
#3
|
||||
|
||||
ЭхЪ... Результат не порадовал. Временами вываливается ошибка "Grid index out of range", хотя для всех скрытых столбцов я включил видимость, плюс у некоторых столбцов не уменьшается ширина, зато у других она может сброситься почти в ноль, хотя текста там ого-го! Плюс довольно большой пробел получается от текста до вертикальной линии, ограничивающей столбец, но это легко можно подправить в коде.
Однако, всё не так плохо. Так как я пользуюсь компонентом TDBGridEh, я нашёл метод грида "OptimizeAllColsWidth" (оказывается он там был, а я и не знал!). Вот он работает без ошибок и в разы быстрее. В любом случае, спасибо! Последний раз редактировалось Guaho, 17.04.2020 в 21:33. |
#4
|
||||
|
||||
Да не очень то и отлично. Главный минус этого решения - чтение всего датасета, а читать надо только видимый в гриде фрейм данных и вот с этим беда. Информация об этом зарыта глубоко в исходниках грида, а без этой информации красиво и быстро не получается.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#5
|
||||
|
||||
В библиотеке Ehlib сделано и красиво, и быстро. По крайне й мере, раз в пять быстрее отрабатывает, чем приведённый код, что говорит о работе на довольно глубоком уровне. Только сортировку желательно отключить, для качественного результата.
|