Nastane po uložení pole zadaného parametrem FieldIndex aktuálního záznamu do buňky
Popis
Tuto událost můžete použít k aplikaci podmíněného formátování na libovolnou exportovanou buňku v oblasti detailů
Syntaxe
TAfterCell =
procedure (Sender: TObject; Cell:
IXLSRange; RowIndex, FieldIndex: Integer; Field: TField) of object;
| Sender |
TObject. Určuje komponentu TDataToXLS, která vyvolala událost |
| Cell |
IXLSRange. Představuje buňku, která se exportuje |
| RowIndex |
Integer. Index aktuálního řádku |
| FieldIndex |
Integer. Index pole |
| Field |
TField. Objekt představující pole datové sady |
Příklad
Tento příklad nastaví barvu vnitřku pro liché sloupce na stříbrnou
procedure TForm1.DataToXLS1AfterCell(Sender: TObject;
Cell: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);
begin
if Odd(FieldIndex + 1) then Cell.Interior.Color := ColorToRGB(clSilver);
end;