fuqexport4xlseditor.pas

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

unit fuQExport4XLSEditor;

{$I VerCtrl.inc}

interface

uses
  Windows, Messages, SysUtils, {$IFDEF VCL6}Variants,{$ENDIF} Classes,
  Graphics, Controls, Forms, Dialogs, QExport4XLS, ComCtrls, StdCtrls,
  ExtCtrls{$IFDEF VCL4}, ImgList{$ENDIF}, ToolWin, QExport4, Buttons,
  QExport4Common, Menus, Grids, {$IFNDEF VCL6}DsgnIntf, ImgList{$ELSE}DesignIntf{$ENDIF};

type
  TfmQExport4XLSEditor = class(TForm)
    paSheets: TPanel;
    paButtons: TPanel;
    bOk: TButton;
    bCancel: TButton;
    lvSheets: TListView;
    tbSheets: TToolBar;
    tbtSheetAdd: TToolButton;
    tbtSheetDel: TToolButton;
    ilMain: TImageList;
    ilListView: TImageList;
    tbtSheetUp: TToolButton;
    tbtSeparator_01: TToolButton;
    tbtSheetDown: TToolButton;
    pcFormats: TPageControl;
    tsFieldFormats: TTabSheet;
    lvFieldFormats: TListView;
    tbFieldFormats: TToolBar;
    tsOptions: TTabSheet;
    lvOptions: TListView;
    tsStyles: TTabSheet;
    lvStyles: TListView;
    tbStyles: TToolBar;
    tbtStyleAdd: TToolButton;
    tbtStyleDel: TToolButton;
    tbtSeparator_02: TToolButton;
    tbtStyleUp: TToolButton;
    tbtStyleDown: TToolButton;
    rgStripType: TRadioGroup;
    tbtSheetEdit: TToolButton;
    Panel1: TPanel;
    bXLSResetItem: TSpeedButton;
    bXLSResetAll: TSpeedButton;
    pcSheetOptions: TPageControl;
    tsSheetCommon: TTabSheet;
    bvSheetCommon: TBevel;
    chAllowCaptions: TCheckBox;
    chGoToFirstRecord: TCheckBox;
    chAutoCalcStrType: TCheckBox;
    laSkipRecCount_01: TLabel;
    edSkipRecCount: TEdit;
    laExportRecCount_02: TLabel;
    edExportRecCount: TEdit;
    tsHeader: TTabSheet;
    bvHeader: TBevel;
    rbExportAll: TRadioButton;
    rbExportOnly: TRadioButton;
    laSkipRecCount_02: TLabel;
    laStartDataCol: TLabel;
    edStartDataCol: TEdit;
    rbAllHeaderRows: TRadioButton;
    rbOnlyHeaderRows: TRadioButton;
    edHeaderRowCount: TEdit;
    laHeaderRowCount_02: TLabel;
    mmHeader: TMemo;
    tsFooter: TTabSheet;
    rbAllFooterRows: TRadioButton;
    rbOnlyFooterRows: TRadioButton;
    edFooterRowCount: TEdit;
    laFooterRowCount_02: TLabel;
    mmFooter: TMemo;
    bvFooter: TBevel;
    tsFormats: TTabSheet;
    bvFormats: TBevel;
    laIntegerFormat: TLabel;
    edIntegerFormat: TEdit;
    laDateFormat: TLabel;
    edDateFormat: TEdit;
    laDateTimeFormat: TLabel;
    edDateTimeFormat: TEdit;
    laBooleanTrue: TLabel;
    edBooleanTrue: TEdit;
    laNullString: TLabel;
    edNullString: TEdit;
    laBooleanFalse: TLabel;
    edBooleanFalse: TEdit;
    laCurrencyFormat: TLabel;
    edCurrencyFormat: TEdit;
    laTimeFormat: TLabel;
    edTimeFormat: TEdit;
    laFloatFormat: TLabel;
    edFloatFormat: TEdit;
    tbtDownloadDataFormat: TToolButton;
    pmHeaderFooter: TPopupMenu;
    miInsetTab: TMenuItem;
    bResetFormats: TSpeedButton;
    miClear: TMenuItem;
    tbtSeparator_04: TToolButton;
    tbtUploadDataFormat: TToolButton;
    paCommon: TPanel;
    laFileName: TLabel;
    edFileName: TEdit;
    chShowFile: TCheckBox;
    chPrintFile: TCheckBox;
    Bevel18: TBevel;
    bBrowse: TSpeedButton;
    sdFileName: TSaveDialog;
    tbtAddFieldFormat: TToolButton;
    tbtDelFieldFormat: TToolButton;
    tbtEditFieldFormat: TToolButton;
    tsFields: TTabSheet;
    chOnlyVisibleFields: TCheckBox;
    Bevel15: TBevel;
    laCaptionRow: TLabel;
    edCaptionRow: TEdit;
    pcFields: TPageControl;
    tsExportedFields: TTabSheet;
    tsFieldCaptions: TTabSheet;
    tsFieldWidths: TTabSheet;
    tsFormat: TTabSheet;
    mmExportedFields: TMemo;
    mmFieldCaptions: TMemo;
    mmFieldWidths: TMemo;
    mmFieldFormats: TMemo;
    chAutoCalcColWidth: TCheckBox;
    paFormats: TPanel;
    pcFormats1: TPageControl;
    tsStandardFormat: TTabSheet;
    tsNoteFormat: TTabSheet;
    pcXLSDataFormat: TPageControl;
    tsXLSFont: TTabSheet;
    Bevel11: TBevel;
    laXLSFont: TLabel;
    laXLSFontSize: TLabel;
    Bevel4: TBevel;
    btnFontColor: TSpeedButton;
    Bevel5: TBevel;
    btnFontBold: TSpeedButton;
    btnFontItalic: TSpeedButton;
    btnFontStrikeOut: TSpeedButton;
    Bevel6: TBevel;
    btnUnderlineSingle: TSpeedButton;
    btnUnderlineSingleAccounting: TSpeedButton;
    btnUnderlineDouble: TSpeedButton;
    btnUnderlineDoubleAccounting: TSpeedButton;
    Bevel3: TBevel;
    btnHorizontalLeft: TSpeedButton;
    btnHorizontalCenter: TSpeedButton;
    btnHorizontalRight: TSpeedButton;
    btnHorizontalFill: TSpeedButton;
    Bevel8: TBevel;
    btnVerticalTop: TSpeedButton;
    btnVerticalCenter: TSpeedButton;
    btnVerticalBottom: TSpeedButton;
    pbFontColor: TPaintBox;
    cbXLSFont: TComboBox;
    cbXLSFontSize: TComboBox;
    tsXLSBorders: TTabSheet;
    Bevel7: TBevel;
    Bevel10: TBevel;
    Bevel9: TBevel;
    btnBorderTop: TSpeedButton;
    btnBorderBottom: TSpeedButton;
    btnBorderLeft: TSpeedButton;
    btnBorderRight: TSpeedButton;
    btnBorderTopColor: TSpeedButton;
    pbBorderTop: TPaintBox;
    btnBorderBottomColor: TSpeedButton;
    pbBorderBottom: TPaintBox;
    btnBorderLeftColor: TSpeedButton;
    pbBorderLeft: TPaintBox;
    btnBorderRightColor: TSpeedButton;
    pbBorderRight: TPaintBox;
    cbBorderTop: TComboBox;
    cbBorderBottom: TComboBox;
    cbBorderLeft: TComboBox;
    cbBorderRight: TComboBox;
    tsXLSFill: TTabSheet;
    Bevel1: TBevel;
    btnFillBackground: TSpeedButton;
    pbFillBackground: TPaintBox;
    btnFillForeground: TSpeedButton;
    pbFillForeground: TPaintBox;
    cbPattern: TComboBox;
    tsXLSAggregate: TTabSheet;
    Bevel2: TBevel;
    rgXLSFunction: TRadioGroup;
    pcXLSNotes: TPageControl;
    tsXLSNoteBase: TTabSheet;
    bvXLSNoteBase: TBevel;
    laXLSNoteRow: TLabel;
    laXLSNoteCol: TLabel;
    laXLSNoteLines: TLabel;
    edXLSNoteRow: TEdit;
    edXLSNoteCol: TEdit;
    mmXLSNoteLines: TMemo;
    tsXLSNoteFill: TTabSheet;
    bvXLSNoteFill: TBevel;
    bvXLSNoteFillColors: TBevel;
    btnXLSNoteBackgroundColor: TSpeedButton;
    pbXLSNoteBackgroundColor: TPaintBox;
    btnXLSNoteForegroundColor: TSpeedButton;
    pbXLSNoteForegroundColor: TPaintBox;
    laXLSNoteTransparency: TLabel;
    laXLSNoteTransparencyStart: TLabel;
    laXLSNoteTransparencyFinish: TLabel;
    gbXLSNoteFillType: TGroupBox;
    rbXLSNoteFillSolid: TRadioButton;
    rbXLSNoteFillGradient: TRadioButton;
    paXLSNoteFillGradient: TPanel;
    rbXLSNoteGradientHorizontal: TRadioButton;
    rbXLSNoteGradientVertical: TRadioButton;
    rbXLSNoteGradientDiagonalUp: TRadioButton;
    rbXLSNoteGradientDiagonalDown: TRadioButton;
    rbXLSNoteGradientFromCorner: TRadioButton;
    rbXLSNoteGradientFromCenter: TRadioButton;
    trXLSNoteTransparency: TTrackBar;
    tsExtensions: TTabSheet;
    tbExtensions: TToolBar;
    tbtAddExtension: TToolButton;
    tbtDelExtension: TToolButton;
    tvExtensions: TTreeView;
    ColorDialog: TColorDialog;
    tsHyperlinkFormat: TTabSheet;
    pcXLSHyperlinks: TPageControl;
    tsXLSHyperlinkBase: TTabSheet;
    bvXLSHyperlinkBase: TBevel;
    laXLSHyperlinkCol: TLabel;
    edXLSHyperlinkCol: TEdit;
    laXLSHyperlinkRow: TLabel;
    edXLSHyperlinkRow: TEdit;
    rgXLSHyperlinkStyle: TRadioGroup;
    laXLSHyperlinkTitle: TLabel;
    edXLSHyperlinkTitle: TEdit;
    laXLSHyperlinkTarget: TLabel;
    edXLSHyperlinkTarget: TEdit;
    tsChartFormat: TTabSheet;
    pcXLSCharts: TPageControl;
    tsXLSChartBase: TTabSheet;
    bvXLSChartBase: TBevel;
    laXLSChartTitle: TLabel;
    edXLSChartTitle: TEdit;
    laXLSChartStyle: TLabel;
    cbXLSChartStyle: TComboBox;
    rgXLSChartLegendPosition: TRadioGroup;
    chXLSChartShowLegend: TCheckBox;
    chXLSChartAutoColor: TCheckBox;
    tsXLSChartPosition: TTabSheet;
    bvXLSChartPosition: TBevel;
    gbXLSChartPosition2: TGroupBox;
    laXLSChartLeft: TLabel;
    laXLSChartHeight: TLabel;
    laXLSChartTop: TLabel;
    laXLSChartWidth: TLabel;
    edXLSChartLeft: TEdit;
    edXLSChartHeight: TEdit;
    edXLSChartTop: TEdit;
    edXLSChartWidth: TEdit;
    tsXLSChartCategoryLabels: TTabSheet;
    bvXLSChartCategoryLabels: TBevel;
    rbXLSChartCategoryLabelColumn: TRadioButton;
    cbXLSChartCategoryLabelColumn: TComboBox;
    rbXLSChartCategoryLabelCustom: TRadioButton;
    gbXLSChartCustomCategoryLabel: TGroupBox;
    laXLSChartCategoryLabelsCol1: TLabel;
    edXLSChartCategoryLabelsCol1: TEdit;
    laXLSChartCategoryLabelsCol2: TLabel;
    edXLSChartCategoryLabelsCol2: TEdit;
    laXLSChartCategoryLabelsRow1: TLabel;
    edXLSChartCategoryLabelsRow1: TEdit;
    laXLSChartCategoryLabelsRow2: TLabel;
    edXLSChartCategoryLabelsRow2: TEdit;
    tsSeriesFormat: TTabSheet;
    pcXLSSeries: TPageControl;
    tsXLSSeriesBase: TTabSheet;
    BVXLSSeriesBase: TBevel;
    laXLSSeriesTitle: TLabel;
    edXLSSeriesTitle: TEdit;
    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);