AfterTitles 이벤트 - HotXLS 개발자 참조

모든 열 제목이 워크시트에 저장될 때 발생합니다

설명

이 이벤트를 사용하여 전체 헤더에 추가 서식을 적용할 수 있습니다

구문

TDBGridAfterTitles = procedure(Sender: TObject; Range: IXLSRange) of object;

Sender	TObject. 지정합니다 TGridToXLS 컴포넌트 triggered 이벤트
Range	전체 헤더를 포함하는 범위를 나타내는 IXLSRange

예제

이 예제는 헤더 주위에 굵은 테두리를 추가합니다

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;