HotXLS Docs
Main Index Overview

AfterTitles event

Occurs after all the column titles are saved into the Worksheet

Overview

You can employ this event to apply additional formatting to the whole header

Syntax

TAfterTitles = procedure(Sender: TObject; Range: IXLSRange) of object;
Sender TObject. Determines the TDataToXLS component that triggered the event
Range IXLSRange. Denotes a range which contains the whole header

Example

This example puts the thick border around the header 
procedure TForm1.DataToXLS1AfterTitles(Sender: TObject;
  Range: IXLSRange);
begin
  With Range.Borders do begin
     Item[xlEdgeBottom].LineStyle := xlContinuous;
     Item[xlEdgeBottom].Weight := xlThick;
     Item[xlEdgeTop].LineStyle := xlContinuous;
     Item[xlEdgeTop].Weight := xlThick;
     Item[xlEdgeLeft].LineStyle := xlContinuous;
     Item[xlEdgeLeft].Weight := xlThick;
     Item[xlEdgeRight].LineStyle := xlContinuous;
     Item[xlEdgeRight].Weight := xlThick;
  end;
end;