Documentation HotXLS
Accueil Sommaire Présentation

Événement AfterTitles

Se produit lorsque tous les titres de colonne sont enregistrés dans la feuille de calcul

Description

Vous pouvez utiliser cet événement pour appliquer une mise en forme supplémentaire à tout l'en-tête

Syntaxe

TDBGridAfterTitles = procedure(Sender: TObject; Range: IXLSRange) of object;
Sender TObject. Spécifie TGridToXLS composant que triggered événement
Range IXLSRange. Représente une plage qui contient tout l'en-tête

Exemple

Cet exemple place une bordure épaisse autour de l'en-tête 
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;