HotXLS Delphi Excel Read Write Library / Component Developers Guide loslab Inc.

AfterCell event

Occurs after the field specified by FieldIndex of the current record is saved into the cell.

Description

You can use this event to apply conditional formatting to any exported cell in the detail area.

Syntax

TAfterCell = procedure (Sender: TObject; Cell: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField) of object;
Sender TObject. Specifies the TDataToXLS component that triggered the event.
Cell IXLSRange. Represents the cell which is exported.
RowIndex Integer. The index of the current row.
FieldIndex Integer. The index of the field.
Field TField. An object that represents the field of dataset.

Example

This example sets the interior color for odd columns to silver.

procedure TForm1.DataToXLS1AfterCell(Sender: TObject;
  Cell: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);
begin
  if Odd(FieldIndex + 1) then Cell.Interior.Color := ColorToRGB(clSilver);
end;
Copyright©2014 loslab.com