Возникает после того, как заголовок столбца, заданный ColumnIndex, сохранён в ячейку
Описание
Можно использовать данное событие для применения условного форматирования к ячейке заголовка
Синтаксис
TDBGridAfterTitle =
procedure(Sender: TObject; Cell:
IXLSRange; ColumnIndex: Integer; Column: TColumn) of object;
| Sender |
TObject. Указывает TGridToXLS компонент который triggered событие |
| Cell |
IXLSRange, представляющий ячейку с заголовком столбца |
| ColumnIndex |
Integer. индекс для столбец |
| Column |
TColumn. объект который представляет столбец |
Пример
Данный пример задаёт ширину столбца с индексом 3
procedure TForm1.GridToXLS1AfterTitle(Sender: TObject;
Cell: IXLSRange; ColumnIndex: Integer; Column: TColumn);
begin
if ColumnIndex = 3 then Cell.ColumnWidth := 30;
end;
Данный пример показывает, как изменить текст заголовка столбца
procedure TForm1.GridToXLS1AfterTitle(Sender: TObject;
Cell: IXLSRange; ColumnIndex: Integer; Column: TColumn);
begin
Cell.Value := StringReplace(Cell.Value, '_', ' ', [rfReplaceAll]);
end;