Indtræffer, efter at kolonnen angivet af ColumnIndex i den aktuelle række er gemt i cellen
Beskrivelse
Du kan bruge denne hændelse til at anvende betinget formatering på enhver eksporteret celle i detaljeområdet
Syntaks
TDBGridAfterCell =
procedure (Sender: TObject; Cell:
IXLSRange; RowIndex, ColumnIndex: Integer; Column: TColumn) of object;
| Sender |
TObject. Angiver the TGridToXLS component that triggered the event |
| Cell |
IXLSRange. Repræsenterer the cell which is exported |
| RowIndex |
Integer. The index of the current row |
| ColumnIndex |
Integer. The index of the column |
| Column |
TColumn. An object that represents the column |
Eksempel
This example sets the interior color for odd columns to silver
procedure TForm1.GridToXLS1AfterCell(Sender: TObject;
Cell: IXLSRange; RowIndex, ColumnIndex: Integer; Column: TColumn);
begin
if Odd(ColumnIndex + 1) then Cell.Interior.Color := ColorToRGB(clSilver);
end;