Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.31;
Скачать: CL | DM;

Вниз

TDBGrid и Ширина столбца. Все что мне посоветовали это здорово но как реально это сделать...   Найти похожие ветки 

 
777   (2001-12-26 03:03) [0]

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

procedure TForm3.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
Var i, MaxW: integer;

begin
MaxW := 0;
{По моему где то здесь собака порылась}
with DBGrid1.DataSource.DataSet do
for i := 0 to FieldCount - 1 do
if visible then begin
if MaxW < Length(Column.Field.AsString)*DBGrid1.Font.Size then
MaxW := Length(Column.Field.AsString)*DBGrid1.Font.Size;
end;

{Здесь сравнение найденого? максимума и ширины колонки
можно конечно и defaultwidth написать но не в это дело}
if Length(Column.Field.AsString)*DBGrid1.Font.Size > Length(Trim(Column.Title.Caption))*DBGrid1.Font.Size then
Column.Width := MaxW
else
Column.Width := Length(Trim(Column.Title.Caption))*DBGrid1.Font.Size;

dbgrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
// Panel1.Refresh;

end;

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


 
gek   (2001-12-26 07:41) [1]

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


 
Desdechado ©   (2001-12-26 10:27) [2]

ну и обработчик тут явно не тот - на прорисовку каждой клетки выполняется!!! ты предварительно все рассчитай (в TDataSet.AfterOpen, например) ширины и подкорректируй свой грид. только учти, что колонки могут оказаться шире самого грида :))



Страницы: 1 вся ветка

Текущий архив: 2002.01.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
3-99846
Nimnul
2001-12-24 15:26
2002.01.31
Снова BDE!


4-100097
DeUnDe
2001-11-24 23:22
2002.01.31
Как программно посмотреть повторяются ли строки в listbox’е или нет?


14-100058
Seery
2001-12-05 11:12
2002.01.31
Бездарность


14-100062
Лисий Хвост
2001-12-10 09:22
2002.01.31
Программистам-Битломанам


3-99837
RID
2001-12-20 15:46
2002.01.31
Обновление данных в БД Interbase 6.0