Nastáva po uložení poľa zadaného pomocou FieldIndex aktuálneho záznamu do bunky
Popis
Túto udalosť môžete použiť na aplikovanie podmienečného formátovania na ľubovoľnú exportovanú bunku v oblasti detailov
Syntax
TAfterCell =
procedure (Sender: TObject; Cell:
IXLSRange; RowIndex, FieldIndex: Integer; Field: TField) of object;
| Sender |
TObject. Určuje komponent TDataToXLS, ktorý vyvolal udalosť |
| Cell |
IXLSRange. Predstavuje bunku, ktorá sa exportuje |
| RowIndex |
Integer. Index aktuálneho riadka |
| FieldIndex |
Integer. Index poľa |
| Field |
TField. Objekt, ktorý predstavuje pole množiny dát |
Príklad
Tento príklad nastaví farbu interiéru pre nepárne stĺpce na strieborná
procedure TForm1.DataToXLS1AfterCell(Sender: TObject;
Cell: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);
begin
if Odd(FieldIndex + 1) then Cell.Interior.Color := ColorToRGB(clSilver);
end;