[dmit2222]

Как зафиксировать размер колонок, чтобы при запуске программы они не становились длинными?

[angvelem]

Пропиши их размер в Design-Time или, если удобнее, тоже самое в Run-Time, но уже в коде.

[dmit2222]

Сообщение от angvelem

Пропиши их размер в Design-Time или, если удобнее, тоже самое в Run-Time, но уже в коде.

Извиняюсь за тупой вопрос, но где именно этот design-time?

[angvelem]

Клик правой кнопкой мышки на DBGrid, появится окошко для создания/выбора колонок. В Object Inspector-е выставляем ширину колонки.

[t116]

Я делал так, может и не правильно

Код:

procedure TMainForm.FormCreate(Sender: TObject);
var
 i:integer;
 
begin
  for i:=2 to 32 do
   DBGrid1.Columns[i].width:=40;
  for i:=34 to 36 do
   DBGrid1.Columns[i].Width:=30;
   DBGrid1.Columns[33].Width:=190;
   DBGrid1.Columns[37].Width:=150;

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

[angvelem]

Правильно, это называется Run-Time режим.

[dmit2222]

У меня вся загвозка в том,что я не в design-time и не в run-time ничего этого раньше не прописывал. Просто мышкой растянул как надо и все. А теперь создал новый DBgrid мышкой растянул как надо, но при запуске длина колонок сбрасывается на значения по умолчанию.

[angvelem]

То что ты растянул, будет работать, но так неудобно -точный размер подогнать сложно.

[dmit2222]

Сообщение от angvelem

То что ты растянул, будет работать, но так неудобно -точный размер подогнать сложно.

В том то и дело, что всегда работало, а вот теперь не работает.

[Snake22]

после того как поключил базу к дбгриду.жмакни двойным кликом на этот грид,и в окошке Edititng DBGreed columns нажми add all fields и потом меняй размер,и тогда при запуске он останется

[Last Living Man]

Надо написать процедуру авторазмера колонок (например по массиву процентов типа byte) и вызывать при OnResize того на чем лежит грид.

Примерно будет выглядеть так:

Код:

procedure AutoSizeDBGridColumns(DBGrid: TDBGrid; ColPercents: array of byte);

и вызывать:

Код:

AutoSizeDBGridColumns(DBGrid1, [20, 30, 50]);

[angvelem]

Сообщение от Last Living Man

Надо написать процедуру авторазмера колонок ...

Ну молодец, а чего же код не привёл, только подразнил ТС?

[Ildar-tsr]

Сообщение от Last Living Man

Код:

procedure AutoSizeDBGridColumns(DBGrid: TDBGrid; ColPercents: array of byte);

А что если понадобиться задать ширину столбца больше 255?

Я бы посоветовал такую конструкцию:

Код:

var i: integer;
...
for i:= 0 to DBGrid1.Columns.Count-1 do
  case i of
  0: DBGrid1.Columns[i].Width:= 200;
  1: DBGrid1.Columns[i].Width:= 100;
  2: DBGrid1.Columns[i].Width:= 80;
  end;

И сколько столбцов столько и случаев описать. Case удобен также для случаев когда нескольким столбцам нужно задать одинаковую ширину:

Код:

case i of
0,2,3: DBGrid1.Columns[i].Width:= 200;
1,4: DBGrid1.Columns[i].Width:= 100;
end;

[Last Living Man]

Сообщение от angvelem

Ну молодец, а чего же код не привёл, только подразнил ТС?

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

Сообщение от Ildar-tsr

А что если понадобиться задать ширину столбца больше 255?

Сообщение от Last Living Man

Надо написать процедуру авторазмера колонок (например по массиву процентов типа byte) и вызывать при OnResize того на чем лежит грид.

[Ildar-tsr]

Сообщение от Last Living Man

Надо написать процедуру авторазмера колонок (например по массиву процентов типа byte) и вызывать при OnResize того на чем лежит грид.

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