Показать сообщение отдельно
  #1  
Старый 17.04.2020, 19:13
Аватар для Admin
Admin Admin вне форума
Администратор
 
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,560
Версия Delphi: Delphi 7
Репутация: выкл
По умолчанию Автоматическая ширина колонок DBGrid

Пример позволяет настроить ширину столбцов компонента DBGrid относительно их содержимого. Процедуру AutoSizeColDBGrid (DBGrid: TDBGrid) нужно вызывать после каждого добавления изменения, удаления записи, фильтрации данных.

Код:
Procedure TF_Principale.AutoSizeColDBGrid(DBGrid:TDBGrid); // <--- TF_Principale.AutoSizeColDBGrid(DBGrid:TDBGrid); pour qu'on puisse appeler cette procedure depuis d'autres unitйs du projet
var i, ColWidth, ColTextWidth:integer;
begin
if DBGrid.DataSource.DataSet.Active then
 begin
  DBGrid.DataSource.DataSet.DisableControls;
  for i:= 0 to DBGrid.Columns.Count-1 do
    begin
       ColWidth:=DBGrid.Canvas.TextWidth(DBGrid.Columns[i].Field.DisplayLabel);
             DBGrid.DataSource.DataSet.First;
             while not DBGrid.DataSource.DataSet.EOF do
               begin
                ColTextWidth:=DBGrid.Canvas.TextWidth(DBGrid.Columns[i].Field.DisplayText);
                  if (ColTextWidth>ColWidth) then
                   begin
                    ColWidth:=ColTextWidth;
                   end;
                 DBGrid.DataSource.DataSet.Next;
               end;{while}
       DBGrid.Columns[i].Width:=ColWidth+30;
  end;{for}
  DBGrid.DataSource.DataSet.EnableControls;
  DBGrid.DataSource.DataSet.First;
 end;
end;

AutoSizeColDBGrid(DBGrid1);
Ответить с цитированием