Se declanșează după ce înregistrarea specificată de RowIndex este salvată în Foaia de lucru
Descriere
type TDataToXLSAfterRowEvent = procedure(Sender: TObject; RowIndex: Integer; Row: IXLSRange) of object;
Sintaxă
TAfterRow =
procedure (Sender: TObject; Range:
IXLSRange; RowIndex: Integer) of object;
| Sender |
TObject. Specifică componenta TDataToXLS care a declanșat evenimentul |
| Range |
IXLSRange. Reprezintă un interval care conține rândul exportat |
| RowIndex |
Integer. Indexul rândului care este exportat |
Exemplu
Acest exemplu setează culoarea interiorului pentru rândurile impare la aqua
procedure TForm1.DataToXLS1AfterRow(Sender: TObject;
Range: IXLSRange; RowIndex: Integer);
begin
if Odd(RowIndex) then Range.Interior.Color := ColorToRGB(clAqua);
end;