현재 레코드의 FieldIndex로 지정된 필드가 셀에 저장된 후에 발생합니다
설명
이 이벤트를 사용하여 세부 영역의 모든 내보낸 셀에 조건부 서식을 적용할 수 있습니다
예제
TAfterCell =
procedure (Sender: TObject; Cell:
IXLSRange; RowIndex, FieldIndex: Integer; Field: TField) of object;
| Sender |
TObject. 지정합니다 TDataToXLS 컴포넌트 triggered 이벤트 |
| Cell |
내보내는 셀을 나타내는 IXLSRange |
| RowIndex |
Integer. 현재 행의 인덱스 |
| FieldIndex |
Integer. 인덱스 의 field |
| Field |
TField. 데이터 집합의 필드를 나타내는 객체 |
예제
This example sets the interior color for odd columns to silver
procedure TForm1.DataToXLS1AfterCell(Sender: TObject;
Cell: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);
begin
if Odd(FieldIndex + 1) then Cell.Interior.Color := ColorToRGB(clSilver);
end;