fuqexport4xlseditor.pas.~1~

Advanced.Export.Component.v4.01.rar,delphi 第三方控件

    gbXLSSeriesDataRange: TGroupBox;
    laXLSSeriesDataRangeCol1: TLabel;
    laXLSSeriesDataRangeRow1: TLabel;
    laXLSSeriesDataRangeCol2: TLabel;
    laXLSSeriesDataRangeRow2: TLabel;
    edXLSSeriesDataRangeCol1: TEdit;
    edXLSSeriesDataRangeRow1: TEdit;
    edXLSSeriesDataRangeCol2: TEdit;
    edXLSSeriesDataRangeRow2: TEdit;
    rbXLSSeriesColumn: TRadioButton;
    cbXLSSeriesColumn: TComboBox;
    rbXLSSeriesCustom: TRadioButton;
    gbXLSChartPosition1: TGroupBox;
    rbXLSChartAutoPosition: TRadioButton;
    laXLSChartPlacement: TLabel;
    cbXLSChartPlacement: TComboBox;
    rbXLSChartCustomPosition: TRadioButton;
    tsCellFormat: TTabSheet;
    pcXLSCells: TPageControl;
    tsXLSCellBase: TTabSheet;
    bvXLSCellBase: TBevel;
    laXLSCellCol: TLabel;
    laXLSCellRow: TLabel;
    laXLSCellType: TLabel;
    laXLSCellValue: TLabel;
    laXLSCellDateTimeFormat: TLabel;
    laXLSCellNumericFormat: TLabel;
    edXLSCellCol: TEdit;
    edXLSCellRow: TEdit;
    cbXLSCellType: TComboBox;
    edXLSCellValue: TEdit;
    edXLSCellDateTimeFormat: TEdit;
    edXLSCellNumericFormat: TEdit;
    tsMergedCellFormat: TTabSheet;
    pcXLSMergedCells: TPageControl;
    tsXLSMergedCellBase: TTabSheet;
    bvXLSMergedCellBase: TBevel;
    laXLSMergedCellsFirstCol: TLabel;
    edXLSMergedCellsFirstCol: TEdit;
    laXLSMergedCellsFirstRow: TLabel;
    edXLSMergedCellsFirstRow: TEdit;
    laXLSMergedCellsLastCol: TLabel;
    edXLSMergedCellsLastCol: TEdit;
    laXLSMergedCellsLastRow: TLabel;
    edXLSMergedCellsLastRow: TEdit;
    procedure FormShow(Sender: TObject);
    procedure tbtSheetEditClick(Sender: TObject);
    procedure lvSheetsDeletion(Sender: TObject; Item: TListItem);
    procedure tbtSheetDelClick(Sender: TObject);
    procedure tbtSheetUpClick(Sender: TObject);
    procedure tbtSheetDownClick(Sender: TObject);
    procedure lvStylesChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure tbtSheetAddClick(Sender: TObject);
    procedure tbtStyleUpClick(Sender: TObject);
    procedure tbtStyleDownClick(Sender: TObject);
    procedure cbXLSFontChange(Sender: TObject);
    procedure cbXLSFontSizeChange(Sender: TObject);
    procedure btnFontColorClick(Sender: TObject);
    procedure btnFontColorMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure btnFontColorMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pbFontColorPaint(Sender: TObject);
    procedure btnFontBoldClick(Sender: TObject);
    procedure btnFontItalicClick(Sender: TObject);
    procedure btnFontStrikeOutClick(Sender: TObject);
    procedure btnUnderlineSingleClick(Sender: TObject);
    procedure btnUnderlineSingleAccountingClick(Sender: TObject);
    procedure btnUnderlineDoubleClick(Sender: TObject);
    procedure btnUnderlineDoubleAccountingClick(Sender: TObject);
    procedure btnHorizontalLeftClick(Sender: TObject);
    procedure btnHorizontalCenterClick(Sender: TObject);
    procedure btnHorizontalRightClick(Sender: TObject);
    procedure btnHorizontalFillClick(Sender: TObject);
    procedure btnVerticalTopClick(Sender: TObject);
    procedure btnVerticalCenterClick(Sender: TObject);
    procedure btnVerticalBottomClick(Sender: TObject);
    procedure btnBorderTopClick(Sender: TObject);
    procedure btnBorderBottomClick(Sender: TObject);
    procedure btnBorderLeftClick(Sender: TObject);
    procedure btnBorderRightClick(Sender: TObject);
    procedure cbBorderTopChange(Sender: TObject);
    procedure cbBorderTopDrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure cbBorderBottomChange(Sender: TObject);
    procedure cbBorderBottomDrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure cbBorderLeftChange(Sender: TObject);
    procedure cbBorderLeftDrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure cbBorderRightChange(Sender: TObject);
    procedure cbBorderRightDrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure btnBorderTopColorClick(Sender: TObject);
    procedure btnBorderTopColorMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnBorderTopColorMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure pbBorderTopPaint(Sender: TObject);
    procedure btnBorderBottomColorClick(Sender: TObject);
    procedure btnBorderBottomColorMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnBorderBottomColorMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure pbBorderBottomPaint(Sender: TObject);
    procedure btnBorderLeftColorClick(Sender: TObject);
    procedure btnBorderLeftColorMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnBorderLeftColorMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure pbBorderLeftPaint(Sender: TObject);
    procedure btnBorderRightColorClick(Sender: TObject);
    procedure btnBorderRightColorMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnBorderRightColorMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure pbBorderRightPaint(Sender: TObject);
    procedure btnFillBackgroundClick(Sender: TObject);
    procedure btnFillBackgroundMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnFillBackgroundMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure pbFillBackgroundPaint(Sender: TObject);
    procedure cbPatternChange(Sender: TObject);
    procedure cbPatternDrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure btnFillForegroundClick(Sender: TObject);
    procedure btnFillForegroundMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnFillForegroundMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure pbFillForegroundPaint(Sender: TObject);
    procedure rgXLSFunctionClick(Sender: TObject);
    procedure pbXLSCellPaint(Sender: TObject);
    procedure lvOptionsChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure pcFormatsChange(Sender: TObject);
    procedure chAllowCaptionsClick(Sender: TObject);
    procedure chGoToFirstRecordClick(Sender: TObject);
    procedure chAutoCalcStrTypeClick(Sender: TObject);
    procedure NumericEditKeyPress(Sender: TObject; var Key: Char);
    procedure rbExportOnlyClick(Sender: TObject);
    procedure rbExportAllClick(Sender: TObject);
    procedure rbAllHeaderRowsClick(Sender: TObject);
    procedure rbOnlyHeaderRowsClick(Sender: TObject);
    procedure mmHeaderChange(Sender: TObject);
    procedure rbAllFooterRowsClick(Sender: TObject);
    procedure rbOnlyFooterRowsClick(Sender: TObject);
    procedure mmFooterChange(Sender: TObject);
    procedure edIntegerFormatChange(Sender: TObject);
    procedure edFloatFormatChange(Sender: TObject);
    procedure edDateFormatChange(Sender: TObject);
    procedure edTimeFormatChange(Sender: TObject);
    procedure edDateTimeFormatChange(Sender: TObject);
    procedure edCurrencyFormatChange(Sender: TObject);
    procedure edBooleanTrueChange(Sender: TObject);
    procedure edBooleanFalseChange(Sender: TObject);
    procedure edNullStringChange(Sender: TObject);
    procedure tbtDownloadDataFormatClick(Sender: TObject);
    procedure tbtStyleAddClick(Sender: TObject);
    procedure tbtStyleDelClick(Sender: TObject);
    procedure bXLSResetAllClick(Sender: TObject);
    procedure bXLSResetItemClick(Sender: TObject);
    procedure ListViewKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure miInsetTabClick(Sender: TObject);
    procedure bResetFormatsClick(Sender: TObject);
    procedure miClearClick(Sender: TObject);
    procedure tbtUploadDataFormatClick(Sender: TObject);
    procedure bBrowseClick(Sender: TObject);
    procedure rgStripTypeClick(Sender: TObject);
    procedure lvSheetsDblClick(Sender: TObject);
    procedure tbtAddFieldFormatClick(Sender: TObject);
    procedure tbtDelFieldFormatClick(Sender: TObject);
    procedure tbtEditFieldFormatClick(Sender: TObject);
    procedure lvFieldFormatsDblClick(Sender: TObject);
    procedure tcFieldsChange(Sender: TObject);
    procedure mmFieldsChange(Sender: TObject);
    procedure chOnlyVisibleFieldsClick(Sender: TObject);
    procedure mmExportedFieldsChange(Sender: TObject);
    procedure mmFieldCaptionsChange(Sender: TObject);
    procedure mmFieldWidthsChange(Sender: TObject);
    procedure mmFieldFormatsChange(Sender: TObject);
    procedure chAutoCalcColWidthClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure lvSheetsChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure edSkipRecCountExit(Sender: TObject);
    procedure edExportRecCountExit(Sender: TObject);
    procedure edStartDataColExit(Sender: TObject);
    procedure edCaptionRowExit(Sender: TObject);
    procedure edHeaderRowCountExit(Sender: TObject);
    procedure edFooterRowCountExit(Sender: TObject);
    procedure lvFieldFormatsChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure trXLSNoteTransparencyChange(Sender: TObject);
    procedure rbXLSNoteFillSolidClick(Sender: TObject);
    procedure rbXLSNoteFillGradientClick(Sender: TObject);
    procedure rbXLSNoteGradientHorizontalClick(Sender: TObject);
    procedure rbXLSNoteGradientVerticalClick(Sender: TObject);
    procedure rbXLSNoteGradientDiagonalUpClick(Sender: TObject);
    procedure rbXLSNoteGradientDiagonalDownClick(Sender: TObject);
    procedure rbXLSNoteGradientFromCornerClick(Sender: TObject);
    procedure rbXLSNoteGradientFromCenterClick(Sender: TObject);
    procedure btnXLSNoteBackgroundColorMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnXLSNoteBackgroundColorMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnXLSNoteBackgroundColorClick(Sender: TObject);
    procedure pbXLSNoteBackgroundColorPaint(Sender: TObject);
    procedure btnXLSNoteForegroundColorMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnXLSNoteForegroundColorMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnXLSNoteForegroundColorClick(Sender: TObject);
    procedure pbXLSNoteForegroundColorPaint(Sender: TObject);
    procedure tbtAddExtensionClick(Sender: TObject);
    procedure tbtDelExtensionClick(Sender: TObject);
    procedure tvExtensionsChange(Sender: TObject; Node: TTreeNode);
    procedure pcXLSDataFormatChange(Sender: TObject);
    procedure pcXLSNotesChange(Sender: TObject);
    procedure pcXLSHyperlinksChange(Sender: TObject);
    procedure edXLSHyperlinkColExit(Sender: TObject);
    procedure edXLSHyperlinkRowExit(Sender: TObject);
    procedure rgXLSHyperlinkStyleClick(Sender: TObject);
    procedure edXLSHyperlinkTitleChange(Sender: TObject);
    procedure edXLSHyperlinkTargetChange(Sender: TObject);
    procedure edXLSNoteColExit(Sender: TObject);
    procedure edXLSNoteRowExit(Sender: TObject);
    procedure mmXLSNoteLinesChange(Sender: TObject);
    procedure pcXLSChartsChange(Sender: TObject);
    procedure edXLSChartTitleChange(Sender: TObject);
    procedure cbXLSChartStyleChange(Sender: TObject);
    procedure rgXLSChartLegendPositionClick(Sender: TObject);
    procedure chXLSChartShowLegendClick(Sender: TObject);
    procedure chXLSChartAutoColorClick(Sender: TObject);
    procedure rbXLSChartAutoPositionClick(Sender: TObject);
    procedure cbXLSChartPlacementChange(Sender: TObject);
    procedure rbXLSChartCustomPositionClick(Sender: TObject);
    procedure edXLSChartLeftExit(Sender: TObject);
    procedure edXLSChartTopExit(Sender: TObject);
    procedure edXLSChartHeightExit(Sender: TObject);
    procedure edXLSChartWidthExit(Sender: TObject);
    procedure rbXLSChartCategoryLabelColumnClick(Sender: TObject);
    procedure cbXLSChartCategoryLabelColumnChange(Sender: TObject);
    procedure rbXLSChartCategoryLabelCustomClick(Sender: TObject);
    procedure edXLSChartCategoryLabelsCol1Exit(Sender: TObject);
    procedure edXLSChartCategoryLabelsCol2Exit(Sender: TObject);
    procedure edXLSChartCategoryLabelsRow1Exit(Sender: TObject);
    procedure edXLSChartCategoryLabelsRow2Exit(Sender: TObject);
    procedure pcXLSSeriesChange(Sender: TObject);
    procedure edXLSSeriesTitleChange(Sender: TObject);
    procedure rbXLSSeriesColumnClick(Sender: TObject);
    procedure cbXLSSeriesColumnChange(Sender: TObject);
    procedure rbXLSSeriesCustomClick(Sender: TObject);
    procedure edXLSSeriesDataRangeCol1Exit(Sender: TObject);
    procedure edXLSSeriesDataRangeCol2Exit(Sender: TObject);
    procedure edXLSSeriesDataRangeRow1Exit(Sender: TObject);
    procedure edXLSSeriesDataRangeRow2Exit(Sender: TObject);
    procedure pcXLSCellsChange(Sender: TObject);
    procedure pcXLSMergedCellsChange(Sender: TObject);
    procedure edXLSCellColExit(Sender: TObject);
    procedure edXLSCellRowExit(Sender: TObject);
    procedure cbXLSCellTypeChange(Sender: TObject);
    procedure edXLSCellValueChange(Sender: TObject);
    procedure edXLSCellDateTimeFormatChange(Sender: TObject);
    procedure edXLSCellNumericFormatChange(Sender: TObject);
    procedure edXLSMergedCellsFirstColExit(Sender: TObject);
    procedure edXLSMergedCellsFirstRowExit(Sender: TObject);
    procedure edXLSMergedCellsLastColExit(Sender: TObject);
    procedure edXLSMergedCellsLastRowExit(Sender: TObject);
  private
    FExportXLS: TQExport4XLS;
    FDesigner: {$IFNDEF VCL4}TFormDesigner
               {$ELSE}
                 {$IFNDEF VCL6}IFormDesigner
                 {$ELSE}IDesigner
                 {$ENDIF}
               {$ENDIF};