qexport4dialog.pas

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

    procedure cbxFormatFieldsChange(Sender: TObject);
    procedure bAddUserFormatClick(Sender: TObject);
    procedure PagesChange(Sender: TObject);
    procedure bEditUserFormatClick(Sender: TObject);
    procedure bDeleteUserFormatClick(Sender: TObject);
    procedure bClearUserFormatsClick(Sender: TObject);
    procedure sgrCaptionsDrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure paHTMLColumnHead_1Click(Sender: TObject);
    procedure paHTMLOddRowCol_1Click(Sender: TObject);
    procedure paHTMLEvenRowCol_1Click(Sender: TObject);
    procedure laHTMLData_1Click(Sender: TObject);
    procedure bHTMLSaveTemplateClick(Sender: TObject);
    procedure bHTMLLoadTemplateClick(Sender: TObject);
    procedure cbxHTMLTemplateChange(Sender: TObject);
    procedure paHTMLBackgroundClick(Sender: TObject);
    procedure cbxXLSFontChange(Sender: TObject);
    procedure cbxXLSFontSizeChange(Sender: TObject);
    procedure pbFontColorPaint(Sender: TObject);
    procedure pbBorderTopPaint(Sender: TObject);
    procedure pbBorderBottomPaint(Sender: TObject);
    procedure pbBorderLeftPaint(Sender: TObject);
    procedure pbBorderRightPaint(Sender: TObject);
    procedure pbFillBackgroundPaint(Sender: TObject);
    procedure pbFillForegroundPaint(Sender: TObject);
    procedure btnFontColorClick(Sender: TObject);
    procedure btnBorderTopColorClick(Sender: TObject);
    procedure btnBorderBottomColorClick(Sender: TObject);
    procedure btnBorderLeftColorClick(Sender: TObject);
    procedure btnBorderRightColorClick(Sender: TObject);
    procedure btnFillBackgroundClick(Sender: TObject);
    procedure btnFillForegroundClick(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 cmbBorderTopChange(Sender: TObject);
    procedure cmbBorderBottomChange(Sender: TObject);
    procedure cmbBorderLeftChange(Sender: TObject);
    procedure cmbBorderRightChange(Sender: TObject);
    procedure cmbBorderTopDrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure cmbBorderBottomDrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure cmbBorderLeftDrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure cmbBorderRightDrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure cmbPatternDrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure cmbPatternChange(Sender: TObject);
    procedure bStartClick(Sender: TObject);
    procedure OnBeginExport(Sender: TObject);
    procedure OnEndExport(Sender: TObject);
    procedure OnBeforeExportRow(Sender: TObject; Row: TQExportRow;
      var Accept: Boolean);
    procedure OnExportedRecord(Sender: TObject; RecNo: Integer);
    procedure chPrintFileClick(Sender: TObject);
    procedure FieldsListDragOver(Sender, Source: TObject; X,
      Y: Integer; State: TDragState; var Accept: Boolean);
    procedure rgXLSFunctionClick(Sender: TObject);
    procedure btnXLSResetItemClick(Sender: TObject);
    procedure btnXLSResetAllClick(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 btnBorderTopColorMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnBorderTopColorMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnBorderBottomColorMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnBorderBottomColorMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnBorderLeftColorMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnBorderLeftColorMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnBorderRightColorMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnBorderRightColorMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnFillBackgroundMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnFillBackgroundMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnFillForegroundMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnFillForegroundMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure pbXLSCellPaint(Sender: TObject);
    procedure lstAvailableFieldsDragDrop(Sender, Source: TObject; X,
      Y: Integer);
    procedure lstExportedFieldsDragDrop(Sender, Source: TObject; X,
      Y: Integer);
    procedure laHTMLHead_1Click(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 edXLSPageHeaderChange(Sender: TObject);
    procedure edXLSPageFooterChange(Sender: TObject);
    procedure chXLSAutoCalcColWidthClick(Sender: TObject);
    procedure edHTMLTitleChange(Sender: TObject);
    procedure edHTMLCSSFileNameChange(Sender: TObject);
    procedure btnHTMLCSSFileNameClick(Sender: TObject);
    procedure chHTMLOverwriteCSSFileClick(Sender: TObject);
    procedure edHTMLFileRecCountChange(Sender: TObject);
    procedure chHTMLGenerateIndexClick(Sender: TObject);
    procedure cbxHTMLFontNameChange(Sender: TObject);
    procedure edHTMLBackgroundChange(Sender: TObject);
    procedure btnHTMLBackgroundClick(Sender: TObject);
    procedure edHTMLBodyAdvancedChange(Sender: TObject);
    procedure edHTMLCellPaddingChange(Sender: TObject);
    procedure edHTMLCellSpacingChange(Sender: TObject);
    procedure edHTMLBorderWidthChange(Sender: TObject);
    procedure edHTMLTableBackgroundChange(Sender: TObject);
    procedure btnHTMLTableBackgroundClick(Sender: TObject);
    procedure edHTMLTableAdvancedChange(Sender: TObject);
    procedure laHTMLFontClick(Sender: TObject);
    procedure laHTMLLinkClick(Sender: TObject);
    procedure laHTMLVLinkClick(Sender: TObject);
    procedure laHTMLALinkClick(Sender: TObject);
    procedure chXMLStandaloneClick(Sender: TObject);
    procedure edXMLEncodingChange(Sender: TObject);
    procedure edSQLTableNameChange(Sender: TObject);
    procedure chSQLCreateTableClick(Sender: TObject);
    procedure edSQLCommitRecCountChange(Sender: TObject);
    procedure chSQLCommitAfterScriptClick(Sender: TObject);
    procedure edSQLCommitStatementChange(Sender: TObject);
    procedure edSQLNullStringChange(Sender: TObject);
    procedure edSQLStatementTermChange(Sender: TObject);
    procedure edBooleanTrueChange(Sender: TObject);
    procedure edBooleanFalseChange(Sender: TObject);
    procedure OnStopExport(Sender: TObject; var CanContinue: Boolean);
    procedure OnFetchedRecord(Sender: TObject; RecNo: Integer);
    procedure chGoToFirstRecordClick(Sender: TObject);
    procedure edExportRecCountChange(Sender: TObject);
    procedure edSkipRecCountChange(Sender: TObject);
    procedure chAllowCaptionsClick(Sender: TObject);
    procedure OnSkippedRecord(Sender: TObject; RecNo: Integer);
    procedure OnGetExportText(Sender: TObject; ColNo: Integer;
      var Text: WideString);
    procedure sgrCaptionsGetEditText(Sender: TObject; ACol, ARow: Integer;
      var Value: String);
    procedure cbxColumnAlignExit(Sender: TObject);
    procedure edColumnWidthExit(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure edXLSSheetTitleChange(Sender: TObject);
    procedure edNullStringChange(Sender: TObject);
    procedure rbInternalClick(Sender: TObject);
    procedure rbExternalClick(Sender: TObject);
    procedure chHTMLUseMultiFileExportClick(Sender: TObject);
    procedure rbExportOnlyClick(Sender: TObject);
    procedure rbExportAllRecordsClick(Sender: TObject);
    procedure chTXTAutoCalcColWidthClick(Sender: TObject);
    procedure edTXTSpacingChange(Sender: TObject);
    procedure NumberKeyPress(Sender: TObject; var Key: Char);
    procedure chCSVQuoteStringsClick(Sender: TObject);
    procedure edCSVCommaExit(Sender: TObject);
    procedure rgRTFPageOrientationClick(Sender: TObject);
    procedure lstXLSFieldsDeletion(Sender: TObject; Item: TListItem);
    procedure lstXLSFieldsChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure pcXLSFormatsChange(Sender: TObject);
    procedure tbtAddXLSStyleClick(Sender: TObject);
    procedure tbtDelXLSStyleClick(Sender: TObject);
    procedure tbtUpXLSStyleClick(Sender: TObject);
    procedure tbtDownXLSStyleClick(Sender: TObject);
    procedure rgXLSStripTypeClick(Sender: TObject);
    procedure tbtSaveXLSStyleClick(Sender: TObject);
    procedure tbtLoadXLSStyleClick(Sender: TObject);
    procedure chCurrentRecordOnlyClick(Sender: TObject);
    procedure XLSExpBeforeExportRow(Sender: TObject; Sheet: Integer;
      Row: TQExportRow; var Accept: Boolean);
    procedure XLSExpExportedRecord(Sender: TObject; Sheet, RecNo: Integer);
    procedure XLSExpAdvancedGetExportText(Sender: TObject; Sheet,
      ColNo: Integer; var Text: WideString);
    procedure edCSVQuoteExit(Sender: TObject);
    procedure chExportEmptyClick(Sender: TObject);
    procedure edCaptionRowExit(Sender: TObject);
    procedure edCaptionRowKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edHTMLIndexLinkTemplateChange(Sender: TObject);
    procedure chHTMLNavigationOnTopClick(Sender: TObject);
    procedure chHTMLNavigationOnBottomClick(Sender: TObject);
    procedure edHTMLIndexLinkTitleChange(Sender: TObject);
    procedure edHTMLFirstLinkTitleChange(Sender: TObject);
    procedure edHTMLPriorLinkTitleChange(Sender: TObject);
    procedure edHTMLNextLinkTitleChange(Sender: TObject);
    procedure edHTMLLastLinkTitleChange(Sender: TObject);
    procedure lvPDFFontsChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure cbPDFFontNameChange(Sender: TObject);
    procedure cbPDFFontEncodingChange(Sender: TObject);
    procedure edPDFFontSizeChange(Sender: TObject);
    procedure sbPDFFontColorClick(Sender: TObject);
    procedure edPDFColSpacingChange(Sender: TObject);
    procedure edPDFRowSpacingChange(Sender: TObject);
    procedure edPDFGridLineWidthChange(Sender: TObject);
    procedure cbPDFPageFormatChange(Sender: TObject);
    procedure edPDFPageWidthExit(Sender: TObject);
    procedure edPDFPageHeightExit(Sender: TObject);
    procedure cbPDFPageUnitsChange(Sender: TObject);
    procedure cbPDFPageOrientationChange(Sender: TObject);
    procedure edPDFPageMarginLeftExit(Sender: TObject);
    procedure edPDFPageMarginRightExit(Sender: TObject);
    procedure edPDFPageMarginTopExit(Sender: TObject);
    procedure edPDFPageMarginBottomExit(Sender: TObject);
    procedure bToolsClick(Sender: TObject);
    procedure miSaveOptionsClick(Sender: TObject);
    procedure miLoadOptionsClick(Sender: TObject);
    procedure lstRTFBaseStylesChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure lstRTFBaseStylesDeletion(Sender: TObject; Item: TListItem);
    procedure pcRTFStylesChange(Sender: TObject);
    procedure cbRTFFontChange(Sender: TObject);
    procedure cbRTFFontSizeChange(Sender: TObject);
    procedure bRTFFontColorMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure bRTFFontColorMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure bRTFFontColorClick(Sender: TObject);
    procedure bRTFFontBoldClick(Sender: TObject);
    procedure bRTFFontItalicClick(Sender: TObject);
    procedure bRTFFontStrikeOutClick(Sender: TObject);
    procedure bRTFFontUnderlineClick(Sender: TObject);
    procedure pbRTFFontColorPaint(Sender: TObject);
    procedure bRTFBackgroundColorMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure bRTFBackgroundColorMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure bRTFBackgroundColorClick(Sender: TObject);
    procedure pbRTFBackgroundColorPaint(Sender: TObject);
    procedure bRTFHighlightColorMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure bRTFHighlightColorMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure bRTFHighlightColorClick(Sender: TObject);
    procedure pbRTFHighlightColorPaint(Sender: TObject);
    procedure chRTFAllowHighlightClick(Sender: TObject);
    procedure chRTFAllowBackgroundClick(Sender: TObject);
    procedure rgRTFStripTypeClick(Sender: TObject);
    procedure bRTFResetItemClick(Sender: TObject);
    procedure bRTFResetAllClick(Sender: TObject);
    procedure tbtAddRTFStyleClick(Sender: TObject);
    procedure tbtDelRTFStyleClick(Sender: TObject);
    procedure tbtMoveRTFStyleUpClick(Sender: TObject);
    procedure tbtMoveRTFStyleDownClick(Sender: TObject);
    procedure tbtLoadRTFStyleClick(Sender: TObject);
    procedure tbtSaveRTFStyleClick(Sender: TObject);
    procedure bRTFFontLeftClick(Sender: TObject);
    procedure bRTFFontCenterClick(Sender: TObject);
    procedure bRTFFontRightClick(Sender: TObject);
    procedure bRTFFontFillClick(Sender: TObject);
    procedure pbRTFSamplePaint(Sender: TObject);
    procedure tvXLSExtensionsChange(Sender: TObject; Node: TTreeNode);
    procedure rgXLSHyperlinkStyleClick(Sender: TObject);
    procedure edXLSHyperlinkTitleChange(Sender: TObject);
    procedure edXLSHyperlinkTargetChange(Sender: TObject);
    procedure edXLSHyperlinkScreenTipChange(Sender: TObject);
    procedure tbtAddXLSExtensionClick(Sender: TObject);
    procedure tbtDelXLSExtensionClick(Sender: TObject);
    procedure mmXLSNoteLinesChange(Sender: TObject);
    procedure edXLSHyperlinkColExit(Sender: TObject);
    procedure edXLSHyperlinkRowExit(Sender: TObject);
    procedure edXLSNoteColExit(Sender: TObject);
    procedure edXLSNoteRowExit(Sender: TObject);
    procedure cbXLSNoteFontChange(Sender: TObject);
    procedure cbXLSNoteFontSizeExit(Sender: TObject);
    procedure btnXLSNoteFontColorMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnXLSNoteFontColorMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnXLSNoteFontColorClick(Sender: TObject);
    procedure pbXLSNoteFontColorPaint(Sender: TObject);
    procedure btnXLSNoteFontBoldClick(Sender: TObject);
    procedure btnXLSNoteFontItalicClick(Sender: TObject);
    procedure btnXLSNoteFontStrikeOutClick(Sender: TObject);
    procedure btnXLSNoteUnderlineSingleClick(Sender: TObject);
    procedure btnXLSNoteUnderlineSingleAccountingClick(Sender: TObject);
    procedure btnXLSNoteUnderlineDoubleClick(Sender: TObject);
    procedure btnXLSNoteUnderlineDoubleAccountingClick(Sender: TObject);
    procedure btnXLSNoteHorizontalLeftClick(Sender: TObject);
    procedure btnXLSNoteHorizontalCenterClick(Sender: TObject);
    procedure btnXLSNoteHorizontalRightClick(Sender: TObject);
    procedure btnXLSNoteHorizontalFillClick(Sender: TObject);
    procedure btnXLSNoteVerticalTopClick(Sender: TObject);
    procedure btnXLSNoteVerticalCenterClick(Sender: TObject);
    procedure btnXLSNoteVerticalBottomClick(Sender: TObject);
    procedure rgXLSNoteOrientationClick(Sender: TObject);