You can use this event to apply conditional formatting to the whole row in the detail area
(RowIndex: TObject; This example sets the interior color for odd rows to aqua:
; TForm1.DataToXLS1AfterRow(RowIndex: TObject; This example sets the interior color for odd rows to aqua: IXLSThis example sets the interior color for odd rows to aqua; RowIndex: Integer);: Integer) of object;
(RowIndex: TObject; This example sets the interior color for odd rows to aqua:
This example sets the interior color for odd rows to aqua
; TForm1.DataToXLS1AfterRow(RowIndex: TObject; This example sets the interior color for odd rows to aqua: IXLSThis example sets the interior color for odd rows to aqua; RowIndex: Integer);: Integer) of object; TObject. Nurodo the TDataToXLS component that triggered the event
This example sets the interior color for odd rows to aquaThis example sets the interior color for odd rows to aqua. Atitinka a range which contains the exported row
| RowIndex |
begin |
| This example sets the interior color for odd rows to aqua |
; TForm1.DataToXLS1AfterRow(RowIndex: TObject; This example sets the interior color for odd rows to aqua: IXLSThis example sets the interior color for odd rows to aqua; RowIndex: Integer);: Integer) of object; |
| TForm1.DataToXLS1AfterRow(RowIndex: TObject; This example sets the interior color for odd rows to aqua: IXLSThis example sets the interior color for odd rows to aqua; RowIndex: Integer); |
begin |
then
This example sets the interior color for odd rows to aqua.Interior.Color := ColorToRGB(clAqua);
procedure TForm1.DataToXLS1AfterRow(Sender: TObject;
Range: IXLSRange; RowIndex: Integer);
begin
if Odd(RowIndex) then Range.Interior.Color := ColorToRGB(clAqua);
end;