Ламерский вопрос про DbGrid

← →
ray_wagner (2002-02-12 03:36) [0]

Подскажите, как сделать, чтобы в DbGride не оставалось пустого места после столбцов?

← →
Johnmen (2002-02-12 09:59) [1]

Растянуть столбцы !

← →
Desdechado (2002-02-12 10:23) [2]

... вручную или программно :))

← →
Jim (2002-02-12 10:38) [3]

Попробуй по очереди, один вручную, второй программно :-))

← →
Jim (2002-02-12 10:38) [4]

Можно по очереди, один вручную, второй программно :-))

← →
Анонимщик (2002-02-12 21:17) [5]

Не, по очереди не выйдет, нужно сразу - и вручную, и программно.

Делаешь цикл от первой записи до последней. Для каждого шага этого цикла делаешь еще один цикл - от нулевого поля до Count - 1. Здесь определяешь, какую длину занимают данные (DBGrid->Canvas->TextWidth(Table1->Fields->Fields[такое-то поле]->AsString)). А для каждого поля создаешь переменную, в которой максимальную длину хранишь. Понятно? Дойдешь до конца таблицы, у тебя в этих переменных и будут необходимые длины полей. Потом выставишь по ним ширину столбцов, только еще о заголовках не забудь.

← →
Quest (2002-02-13 09:18) [6]

зачем перегружать программу? ... я например даю пользователям менять размеры столбцов, сохраняя их значения при выходе и восстанавливая при запуске программы. Для пользователя это удобнее, особенно если окно программы может менять размер.

← →
kserg@ukr.net (2002-02-13 10:53) [7]

>Quest уважаемый, поделись как ты это делаешь?

← →
Quest (2002-02-13 12:20) [8]

Сохраняю исключительно в ini файле, для того чтобы легко можно было лекго сохранять и переносить настройки ..
Сохранить:
Uses IniFiles;
...
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin If MessageDLG("Желаете выйти из программы ?"+ "",mtConfirmation,[mbYes,mbNo],0) = mrYes Then Begin With TiniFile.Create(CHangeFileExt(ExtractFilename(Application.ExeName),".INI")) DO Try // сохранение размеров и местоположения главного окошка WriteInteger("Position", "Left",Left); WriteInteger("Position", "Top",Top); WriteInteger("Size", "Width",Width); WriteInteger("Size", "Height",Height); // сохранение размеров столцов DBGrid WriteInteger("DBGrid1", "Width1",DBGrid1.Columns[0].Width ); WriteInteger("DBGrid1", "Width2",DBGrid1.Columns[1].Width ); WriteInteger("DBGrid1", "Width3",DBGrid1.Columns[2].Width ); Finally Free; End; CanClose := True; End Else CanClose := False; End;

Установить:
procedure TForm1.FormCreate(Sender: TObject); begin With TiniFile.Create(CHangeFileExt(ExtractFilename(Application.Exename),".INI")) DO Try // установка размеров и местоположения главного окошка Left := ReadInteger("Position", "Left", 171); Top := ReadInteger("Position", "Top", 61); Width := ReadInteger("Size", "Width", 511); Height := ReadInteger("Size", "Height", 400); // установка размеров столцов DBGrid DBGrid1.Columns[0].Width:=ReadInteger("DBGrid1", "Width1",80 ); DBGrid1.Columns[1].Width:=ReadInteger("DBGrid1", "Width2",80 ); DBGrid1.Columns[2].Width:=ReadInteger("DBGrid1", "Width3",80 ); Finally Free; End; End;
... разумеется можно автоматизировать эти процедуры и в цикле перебирать существующие TDBGRID, определяя количество столбцов и их размеры.

← →
wicked (2002-02-13 14:05) [9]

2 kserg@ukr.net
2 Quest ©
а ежели у кого rxlib есть, так там это всё автоматически... компонента tformstorage.... и уже немного меньше работы... :)

← →
Quest (2002-02-13 14:26) [10]

>wicked ©
НО есть и такие, кто не пользуется сторонними компонентами, а принципиально и из соображения длительного сопровождения программы (с переходами на более продвинутые версии Delphi) использует стандартные и самописные ...

← →
Анонимщик (2002-02-13 14:29) [11]

Все равно это все неудобно, длина текста в поле может меняться, иногда желательно, чтобы размер выставлялся и сам по максимальной ширине видимых записей.

← →
wicked (2002-02-13 14:44) [12]

2 Quest ©
дело ваше... можно и самому написать похожую компоненту... смысл моего высказывания заключается в том, что если delphi - компонентно-ориентированная среда, то, по меньшей мере, геморройно пытаться в каждом проекте писать одно и то же сохранение...

насчёт изменения ширины столбцов
можно разрешить юзеру выставить такую ширину, как ему хочется (он за компом главный :), а потом, при изменении размеров окна, пропорционально изменять ширину столбцов... ну и, конечно, сохранять этот расклад между сессиями работы с программой...

← →
Quest (2002-02-13 14:45) [13]

>Анонимщик ©
относительно твоего алгоритма, это тоже не рационально, выходит при любых пересчётах, изменений данных необходимо пробегать по всей базе, и плюс к этому будут ограничения на используемые шрифты и размер формы (ведь если ширина главного окошка будет больше суммарной ширины столбцов + разделителей + ширина рамки, то справа от крайней левой колонки будет неиспользованное место, и в противном случае не будут видны все поля, так как не будет возможности их сократить)

← →
Belov (2002-02-13 15:22) [14]

>2Quest
На самом деле можно сделать все более красивее и проще
по-поводу сохранения настроек
DBGrid1.Columns.SaveToFile(....)
установка
DBGrid1.Columns.LoadFromFile(...)

← →
Quest (2002-02-13 15:50) [15]

>Belov ©
возможно, я не спорю, но для меня мой путь удобнее, по крайней мере тем, что я помимо размеров столбцов TDBGrid-ов ещё сохраняю различные настройки и переменные программы и при чтении, могу перед их установкой делать необходимые проверки и обработки ...
но это к теме уже не относится.

← →
Jony (2002-02-13 16:36) [16]

Используй DBGridEh. У неё есть свойство AutiFitColWidths. Установить его в True и все проблемы решены.

← →
Анонимщик (2002-02-13 21:19) [17]

А я, Quest, пример привел, да и только. А вот скажешь, может, как узнать, какие строки в гриде видны в данное время и каким записям они соответствуют?

← →
Quest (2002-02-14 08:20) [18]

>Анонимщик ©
не скажу, но чтобы бегать только по видимой части DBGrid можно воспользоваться чем-то типа этого:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin With (Sender as TDBGrid).Canvas Do if TextWidth > column.Width then if TextWidth > column.title.<размер заголовка столбца> then column.Width := TextWidth; End;

← →
Quest (2002-02-14 08:44) [19]

TextWidth -> TextWidth(Column.Field.text)

← →
Анонимщик (2002-02-14 10:43) [20]

Quest >>>
Не, так не пойдет, ак только заголовок учитываться будет, нечестно. Вообще-то этот вопрос где-то поднимался, но я невнимательно читал. Количество видимых строк в DBGrid"е можно, в общем, высчитать, исходя из высоты самого грида и высоты текста в каждой строке, но вот на какой строке именно находишься - не знаю, как сделать. Если есть время, то посмотришь, может?

← →
MetallAdm (2002-02-14 11:24) [21]

А нельзя все енто математически подсчитать ??
Относительно Ширины DBGrid-a ??
плюс учитывать длинну строк в Титульных строках ...
если ширина ДБГрида = 100
а ширина всех строк =50
их допустим пять то выводишь формулу и прибовляешь к их ширине
.. в данном случае по 10

Или Такой вариан не из лутших ??

← →
Анонимщик (2002-02-14 11:50) [22]

Чего-то непонятно, о чем речь, чтобы столбцы сами по себе были как можно меньше и в то же время, чтобы в них была видна вся информация, или чтобы сам грид имел максимальную ширину, исходя из ширины каждого из столбцов?

← →
Quest (2002-02-14 12:08) [23]

>Анонимщик ©
это вопрос скорее к ray_wagner © - открывшему эту ветку :))

>>на какой строке именно находишься
текущую строку видимой части TDBGrid
With TStringGrid(DBGrid1) Do Begin Col // столбец Row // строка End;
если текущее значение, то это через DataSet
...
но по моему ты ошибаешся относительно моего предыдущего ответа, ведь здесь как раз и учитывается ширина текста в ячейке:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin With (Sender as TDBGrid).Canvas Do // ЭТО ширина содержимого ячейки if TextWidth(Column.Field.text) > column.Width then column.Width := TextWidth(Column.Field.text) + <приращение относительно ширины DBGrid>; End;

← →
Анонимщик (2002-02-14 12:16) [24]

Это происходит вычисление и установка ширины только для данной ячейки. Событие, вызывающее эту перерисовку, происходит, когда нужно эту чяейку перерисовать. А другие-то видимые не учитываюся, а они могут повлиять (и повлияют) на нужную ширину. Как я уж только не извращался (но по-простому, без наворотов) - ничего не вышло.

← →
Quest (2002-02-14 13:33) [25]

это происходит вычисление для всех ячеек, но только для одного условия - чтобы ширина столбца была не меньше самого "длинного" значения ячейки этого столбца (я попробовал и работает прекрасно, правда с небольшим дополнением) ... а вот с уменьшением столбца (до ширины самого длинного значения) - просчёт :( ... да, здесь могу сказать только одно, что это не является основной задачей для программиста, и настройку элементов инерфейса можно переложить на пользователя предоставив ему для этого необходимые средства, а то современный пользователь окромя местонахождений основных кнопок ни о чём думать и не желает ... :)
прошу прощения за оффтопик

← →
Анонимщик (2002-02-14 20:10) [26]

Не, Quest, ты не прав. Мне желательно, например, чтобы ширина столбца выравнивалась автоматически по ширине самой длинной видимой записи в гриде в данный момент. И как реализовать?

Ламерский вопрос про DbGrid Найти похожие ветки