(RowIndex: TObject; FieldIndex:

You can use this event to apply conditional formatting to any exported cell in the detail area

TObject. Nurodo the TDataToXLS component that triggered the event

(RowIndex: TObject; FieldIndex:

TObject. Nurodo the TDataToXLS component that triggered the event ; TTForm1.DataToXLS1AfterFieldIndex(Sender: TObject; FieldIndex: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);. An object that represents the field of dataset, TForm1.DataToXLS1AfterFieldIndex(Sender: TObject; FieldIndex: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);Index: Integer; TForm1.DataToXLS1AfterFieldIndex(Sender: TObject; FieldIndex: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);: TTForm1.DataToXLS1AfterFieldIndex(Sender: TObject; FieldIndex: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);) of object; RowIndex TObject. Nurodo the TDataToXLS component that triggered the event; TTForm1.DataToXLS1AfterFieldIndex(Sender: TObject; FieldIndex: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);. An object that represents the field of dataset, TForm1.DataToXLS1AfterFieldIndex(Sender: TObject; FieldIndex: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);Index: Integer; TForm1.DataToXLS1AfterFieldIndex(Sender: TObject; FieldIndex: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);: TTForm1.DataToXLS1AfterFieldIndex(Sender: TObject; FieldIndex: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);) of object;

RowIndex	then
FieldIndex	; TTForm1.DataToXLS1AfterFieldIndex(Sender: TObject; FieldIndex: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);. An object that represents the field of dataset, TForm1.DataToXLS1AfterFieldIndex(Sender: TObject; FieldIndex: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);Index: Integer; TForm1.DataToXLS1AfterFieldIndex(Sender: TObject; FieldIndex: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);: TTForm1.DataToXLS1AfterFieldIndex(Sender: TObject; FieldIndex: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);) of object;
TTForm1.DataToXLS1AfterFieldIndex(Sender: TObject; FieldIndex: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);. An object that represents the field of dataset	then
This example sets the interior color for odd columns to silver	; TTForm1.DataToXLS1AfterFieldIndex(Sender: TObject; FieldIndex: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);. An object that represents the field of dataset, TForm1.DataToXLS1AfterFieldIndex(Sender: TObject; FieldIndex: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);Index: Integer; TForm1.DataToXLS1AfterFieldIndex(Sender: TObject; FieldIndex: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);: TTForm1.DataToXLS1AfterFieldIndex(Sender: TObject; FieldIndex: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);) of object;
TForm1.DataToXLS1AfterFieldIndex(Sender: TObject; FieldIndex: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);	Odd(This example sets the interior color for odd columns to silver +

then

FieldIndex.Interior.Color := ColorToRGB(clSilver);

procedure TForm1.DataToXLS1AfterCell(Sender: TObject;
  Cell: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);
begin
  if Odd(FieldIndex + 1) then Cell.Interior.Color := ColorToRGB(clSilver);
end;