Następuje po zapisaniu pola określonego przez FieldIndex bieżącego rekordu do komórki
Opis
To zdarzenie może służyć do zastosowania formatowania warunkowego do dowolnej wyeksportowanej komórki w obszarze szczegółowym
Przykład
TAfterCell =
procedure (Sender: TObject; Cell:
IXLSRange; RowIndex, FieldIndex: Integer; Field: TField) of object;
| Sender |
TObject. Określa TDataToXLS komponent że triggered zdarzenie |
| Cell |
IXLSRange. Reprezentuje komórkę, która jest eksportowana |
| RowIndex |
Integer. Indeks bieżącego wiersza |
| FieldIndex |
Integer. Indeks pola |
| Field |
TField. Obiekt reprezentujący pole zbioru danych |
Przykład
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;