при заполнении DBGrid ширина (сумма) всех колонок = ширине формы

← →
Ral'f (2007-06-18 16:52) [0]

Как сделать, чтобы при заполнении DBGrid, ширина всех колонок автоматически подбиралась под ширину формы? Ширину всех колонок можно принять - одинаковой.
(Query1.Close; Query1.SQL.Clear; Query1.SQL.Add(""); Query1.Open; Query1.FieldByName("Name").DisplayLabel:="Наименование"; Query1.FieldByName("NeName").DisplayLabel:="Прочее";)

← →
zorik © (2007-06-18 16:56) [1]

В компоненте TDBGridEh библиотеки EhLib есть свойство AutoFitColWidths

← →
Правильный Вася (2007-06-18 16:58) [2]

забавно будет посмотреть на грид нулевой ширины на форме в 2 пиксела шириной

← →
Sergey13 © (2007-06-18 16:59) [3]

> [0] Ral"f (18.06.07 16:52)

Это не очень хорошая затея, ИМХО, если не хочешь от пользвателя пинки получать.

← →
Плохиш © (2007-06-18 17:02) [4]

> Ral"f (18.06.07 16:52)

Слабо, в справке посмотреть описание свойства Width у класса TColumn?

← →
Ral'f (2007-06-20 09:55) [5]

В моей программе BorderStyle = bsSingle, поэтому:
> грид нулевой ширины на форме в 2 пиксела шириной
не увидишь!

> свойства Width у класса TColumn
Настроек DBGrid я не меняю, поэтому, соответственно число Column = 0. А заполняется DBGrid благодаря запросу (см. [0])

Так как бы это всё автоматизировать? я имею ввиду автоподбор ширины колонок.
Или, хотя бы, как, при этом самом заполнении с помощью Query, конкретно указать ширину?

← →
novill © (2007-06-20 11:00) [6]

> [5] Ral"f (20.06.07 09:55)
>
> Настроек DBGrid я не меняю, поэтому, соответственно число
> Column = 0. А заполняется DBGrid благодаря запросу

Это значит что колонки создаются после открытия запроса. На соответствующие события и вешай пересчет ширины ячеек.

← →
Ral'f (2007-06-21 17:38) [7]

> Это значит что колонки создаются после открытия запроса. На соответствующие события и вешай пересчет ширины ячеек.

таких запросов несколько, неужели к каждому запросу приписывать?
...
Query1.Close;
и как бы цикл for тут по колонкам поместить?
DBGrid1.Columns.Items[i].Width =100;

DBGrid1.Columns.Count

type TGr = class (TCustomGrid); procedure TForm1.Button1Click(Sender: TObject); var N, W, W0: Integer; begin W0:=TGr(DBGrid1).ColWidths[0]; W:=(DBGrid1.ClientWidth-W0-TGr(DBGrid1).GridLineWidth*(DBGrid1.Columns.Count-1)) div (DBGrid1.Columns.Count); for N := 0 to DBGrid1.Columns.Count-1 do DBGrid1.Columns[N].Width:=W; end;

Может быть (скорее всего:)) я не правильно расчитал W, ну а смысл вроде отвечает на вопрос....

при заполнении DBGrid ширина (сумма) всех колонок = ширине формы Найти похожие ветки