Nastane po uložení záznamu zadaného parametrem RowIndex do listu
Popis
Tuto událost můžete použít k aplikaci podmíněného formátování na celý řádek v oblasti detailů
Syntaxe
TAfterRow =
procedure (Sender: TObject; Range:
IXLSRange; RowIndex: Integer) of object;
| Sender |
TObject. Určuje komponentu TDataToXLS, která vyvolala událost |
| Range |
IXLSRange. Představuje oblast obsahující celý exportovaný řádek |
| RowIndex |
Integer. Index exportovaného řádku |
Příklad
Tento příklad nastaví barvu vnitřku pro liché řádky na azurovou
procedure TForm1.DataToXLS1AfterRow(Sender: TObject;
Range: IXLSRange; RowIndex: Integer);
begin
if Odd(RowIndex) then Range.Interior.Color := ColorToRGB(clAqua);
end;