Treedt op wanneer alle kolomtitels in het werkblad zijn opgeslagen
Beschrijving
U kunt deze gebeurtenis gebruiken om aanvullende opmaak toe te passen op de gehele koptekst
Syntaxis
TDBGridAfterTitles =
procedure(Sender: TObject; Range:
IXLSRange) of object;
| Sender |
TObject. Specificeert TGridToXLS component dat triggered gebeurtenis |
| Range |
IXLSRange. Vertegenwoordigt een bereik dat de volledige kop bevat |
Voorbeeld
Dit voorbeeld plaatst een dikke rand rondom de koptekst
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;