HotXLS-documentatie
Startpagina Inhoud Overzicht

AfterTitles gebeurtenis

Occurs on all column titles are saved into Worksheet

Beschrijving

Je kunt dit event gebruiken om extra opmaak toe te passen op de volledige kop

Syntaxis

TDBGridAfterTitles = procedure(Sender: TObject; Range: IXLSRange) of object;
Sender TObject. Specificeert de TGridToXLS-component die het event heeft geactiveerd
Range IXLSRange. Vertegenwoordigt een bereik dat de volledige kop bevat

Voorbeeld

This example puts the thick border around the header 
procedure TForm1.GridToXLS1AfterTitles(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;