Изменить высоту строк по умолчанию для TDBGrid

Delphi , Компоненты и Классы , TDBGrid

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

// Derive a new Type: TMyDBGrid 

type
   TMyDBGrid = class(TDBGrid)
   public
     property DefaultRowHeight;
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.DFM}


 procedure TForm1.FormCreate(Sender: TObject);
 begin
   DbGrid1.Canvas.Font.Size := 13;
   TMyDBGrid(DBGrid1).DefaultRowHeight := DBGrid1.Canvas.TextHeight('MMMMM') + 4;
 end;

Here's the translation of the text into Russian:

Код, написанный на Delphi, имеет цель изменить стандартную высоту строки в компоненте TDBGrid, именуемом DBGrid1. Стандартная высота строки рассчитывается путем добавления 4 к высоте текста строки 'MMMMM', отображаемой с помощью шрифта, установленного на канвасе грида.

Вот некоторые улучшения, которые можно сделать:

1. Добавьте комментарии: было бы хорошей идеей добавить комментарии, объясняющие, что код делает и почему были сделаны определенные решения. Например, вы можете комментировать причину выбора строки 'MMMMM' как тестовой строки.
2. Используйте константы: вместо жесткого кодирования значения 4 в расчете, может быть лучше определить константу на верхушке модуля с meaningful именем.
3. Улучшите читаемость кода: процедура TForm1.FormCreate выполняет два разных действия - устанавливает размер шрифта и изменяет стандартную высоту строки. Было бы лучше разделить эти задачи на отдельные процедуры или методы, каждый для каждого задания.

Вот пример улучшения кода:

// Деривация нового типа: TMyDBGrid
type
   TMyDBGrid   = class(TDBGrid)
   public
     property DefaultRowHeight;
   end;

var
   Form1: TForm1;

implementation

{$R *.DFM}

const
  RowHeightAdjustment = 4;

procedure TForm1.SetFontAndRowHeight(Sender: TObject);
begin
  DbGrid1.Canvas.Font.Size := 13;
  TMyDBGrid(DBGrid1).DefaultRowHeight := DBGrid1.Canvas.TextHeight('MMMMM') + RowHeightAdjustment;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Установка шрифта и высоты строки в обработчик события FormCreate
  SetFontAndRowHeight(Sender);
end;

В этом улучшенном варианте мы добавили константу RowHeightAdjustment, чтобы хранить значение, ранее жестко кодированное. Мы также разделили установку шрифта и расчет высоты строки на отдельную процедуру SetFontAndRowHeight, которая вызывается из обработчика события FormCreate. Это делает код более модульным, легче для чтения и поддержки.

Статья описывает, как изменить высоту строк по умолчанию для компонента TDBGrid в Delphi, используя свойство DefaultRowHeight и метод TextHeight.

Комментарии и вопросы

:: Главная :: TDBGrid ::