AfterTitles 이벤트 - HotXLS 개발자 참조

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

설명

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

예제

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

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

예제

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;