[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;