ado_qexport4dialog.pas

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

    procedure SetTXTAutoCalcColWidth(const Value: boolean);
    procedure SetTXTSpacing(const Value: integer);
    procedure SetCSVQuoteStrings(const Value: boolean);
    procedure SetCSVComma(const Value: char);
    procedure SetCSVQuote(const Value: char);

    procedure SetAccessPassword(const Value: string);
    procedure SetAccessTableName(const Value: string);
    procedure SetAccessCreateTable(const Value: boolean);

    procedure SetPDFColSpacing(const Value: double);
    procedure SetPDFRowSpacing(const Value: double);
    procedure SetPDFGridLineWidth(const Value: integer);

    function GetPDFPageSizeFormat: string;
    procedure SetPDFPageFormat(const Value: TQExportPageFormat);
    function GetPDFPageWidth: double;
    procedure SetPDFPageWidth(const Value: double);
    function GetPDFPageHeight: double;
    procedure SetPDFPageHeight(const Value: double);
    procedure SetPDFPageUnits(const Value: TQExportUnits);
    procedure SetPDFPageOrientation(const Value: TQExportPageOrientation);
    function GetPDFPageMarginLeft: double;
    procedure SetPDFPageMarginLeft(const Value: double);
    function GetPDFPageMarginRight: double;
    procedure SetPDFPageMarginRight(const Value: double);
    function GetPDFPageMarginTop: double;
    procedure SetPDFPageMarginTop(const Value: double);
    function GetPDFPageMarginBottom: double;
    procedure SetPDFPageMarginBottom(const Value: double);

    procedure InitializeDialog;
    procedure ShowTitle;
    procedure SaveExportOptions(const FileName: string);
    procedure LoadExportOptions(const FileName: string);

    function RunColorEditor(CurrColor: TColor): TColor;

    procedure FillExportTypeStringArray();
    procedure FillExportTypeFilterArray();

    procedure ChangeFileExtension;
    procedure FillAllowedExports;
    procedure ResetStandardFormats;
    procedure FillFields;
    procedure ShowButtons;
    procedure MakeStringGrid;
    procedure LoadStringGridCaption;
    function IsCompatiblePage: boolean;

    procedure HTMLFillColors;
    procedure HTMLUpdateMultifileControls;

    procedure ShowFormatButtons;

    function GetIndexOfNewAvailableFields(Item: TListItem): integer;

    procedure SetCustomTemplate;
    procedure SetCaptions;

    function CurrXLSListView: TListView;
    function CurrXLSFormat: TxlsFormat; 
    procedure CorrectXLSFieldsList;

    procedure ShowXLSListItem(Fmt: TxlsFormat);
    procedure ShowXLSListItemM;
    procedure ShowRTFListItem(Item: TListItem);
    procedure ShowRTFListItemM;

    function RTFCurrListView: TListView;
    procedure RTFResetAllItems;
    procedure RTFResetAllItems_A;
    procedure RTFUpdateItemSetDefault(Item: TListItem);
    procedure RTFShowStyleButtons;
    procedure RTFRenumStyles;
    procedure RTFSaveStyle(const FileName: string);
    procedure RTFLoadStyle(const FileName: string);

    procedure RTFUpdateItemFont(Item: TListItem);
    procedure RTFUpdateItemFontSize(Item: TListItem);
    procedure RTFUpdateItemFontColor(Item: TListItem);
    procedure RTFUpdateItemFontBold(Item: TListItem);
    procedure RTFUpdateItemFontItalic(Item: TListItem);
    procedure RTFUpdateItemFontStrikeOut(Item: TListItem);
    procedure RTFUpdateItemFontUnderline(Item: TListItem);
    procedure RTFUpdateItemBackgroundColor(Item: TListItem);
    procedure RTFUpdateItemHighlightColor(Item: TListItem);
    procedure RTFUpdateItemAllowBackground(Item: TListItem);
    procedure RTFUpdateItemAllowHighlight(Item: TListItem);
    procedure RTFUpdateItemAlignment(Item: TListItem);

    procedure XLSUpdateItemFont(Item: TListItem);
    procedure XLSUpdateItemFontSize(Item: TListItem);
    procedure XLSUpdateItemFontColor(Item: TListItem);
    procedure XLSUpdateItemFontBold(Item: TListItem);
    procedure XLSUpdateItemFontItalic(Item: TListItem);
    procedure XLSUpdateItemFontStrikeOut(Item: TListItem);
    procedure XLSUpdateItemFontUnderline(Item: TListItem);
    procedure XLSUpdateItemHorAlignment(Item: TListItem);
    procedure XLSUpdateItemVertAlignment(Item: TListItem);
    procedure XLSUpdateItemBorderTop(Item: TListItem);
    procedure XLSUpdateItemBorderTopColor(Item: TListItem);
    procedure XLSUpdateItemBorderBottom(Item: TListItem);
    procedure XLSUpdateItemBorderBottomColor(Item: TListItem);
    procedure XLSUpdateItemBorderLeft(Item: TListItem);
    procedure XLSUpdateItemBorderLeftColor(Item: TListItem);
    procedure XLSUpdateItemBorderRight(Item: TListItem);
    procedure XLSUpdateItemBorderRightColor(Item: TListItem);
    procedure XLSUpdateItemFillPattern(Item: TListItem);
    procedure XLSUpdateItemFillBackground(Item: TListItem);
    procedure XLSUpdateItemFillForeground(Item: TListItem);
    procedure XLSUpdateItemAggregate(Item: TListItem);
    procedure XLSUpdateItemSetDefault(Item: TListItem);
    procedure XLSResetAllItems;
    procedure XLSResetAllItems_A;
    procedure XLSShowStyleButtons;
    procedure XLSRenumStyles;
    procedure XLSSaveStyle(const FileName: string);
    procedure XLSLoadStyle(const FileName: string);

    procedure XLSShowHyperlink(Node: TTreeNode);
    procedure XLSShowNote(Node: TTreeNode);
    procedure XLSTuneNoteFillType;
    procedure XLSTuneChartPosition;
    procedure XLSTuneChartCategoryLabelType;
    procedure XLSTuneSeriesDataRangeType;
    procedure XLSShowChart(Node: TTreeNode);
    procedure XLSShowSeries(Node: TTreeNode);
    procedure XLSShowCell(Node: TTreeNode);
    procedure XLSTuneCellType;
    procedure XLSShowMergedCell(Node: TTreeNode);
    procedure XLSClearHyperlinkNodes;
    procedure XLSClearNoteNodes;
    procedure XLSClearChartNodes;
    procedure XLSClearCellNodes;
    procedure XLSClearMergedCellsNodes;
    procedure XLSUpdateHyperlinkFormats;

    procedure PDFFillFontList;
    procedure PDFShowFontInfo;
    procedure PDFShowExample;
  public
    property Dialog: TADO_QExport4Dialog read GetDialog;

    property DataSet: TDataSet read GetDataSet;
    property CustomSource: TqeCustomSource4 read GetCustomSource;
    property ListView: TListView read GetListView;
    property DBGrid: TDBGrid read GetDBGrid;
    property StringGrid: TStringGrid read GetStringGrid;

    property AutoChangeFileExt: boolean read GetAutoChangeFileExt;
    property SaveLoadButtons: boolean read GetSaveLoadButtons;
    property CommonOptions: TCommonOptions read GetCommonOptions;
    property ConfirmAbort: boolean read GetConfirmAbort;
    property AutoSaveOptions: boolean read GetAutoSaveOptions;
    property AutoLoadOptions: boolean read GetAutoLoadOptions;
    property ExportSource: TQExportSource read GetExportSource;

    property QuickExport: TQExport4 read FQuickExport write FQuickExport;

    property FileName: string read FFileName write SetFileName;
    property ShowFile: boolean read FShowFile write SetShowFile;
    property PrintFile: boolean read FPrintFile write SetPrintFile;
    property ExportType: TAllowedExport read GetExportType write SetExportType;
    property OptionsFileName: string read FOptionsFileName
      write SetOptionsFileName;
    property GoToFirstRecord: boolean read FGoToFirstRecord
      write SetGoToFirstRecord;
    property CurrentRecordOnly: boolean read FCurrentRecordOnly
      write SetCurrentRecordOnly;
    property ExportEmpty: boolean read FExportEmpty write SetExportEmpty;
    property ExportRecCount: integer read FExportRecCount
      write SetExportRecCount;
    property SkipRecCount: integer read FSkipRecCount
      write SetSkipRecCount;

    property AllowCaptions: boolean read FAllowCaptions write SetAllowCaptions;
    property CaptionRow: integer read FCaptionRow write SetCaptionRow;

    property IntegerFmt: string read FIntegerFmt write SetIntegerFmt;
    property FloatFmt: string read FFloatFmt write SetFloatFmt;
    property DateFmt: string read FDateFmt write SetDateFmt;
    property TimeFmt: string read FTimeFmt write SetTimeFmt;
    property DateTimeFmt: string read FDateTimeFmt write SetDateTimeFmt;
    property CurrencyFmt: string read FCurrencyFmt write SetCurrencyFmt;
    property BooleanTrue: string read FBooleanTrue write SetBooleanTrue;
    property BooleanFalse: string read FBooleanFalse write SetBooleanFalse;
    property NullString: string read FNullString write SetNullString;

    property RTFPageOrientation: TQExportPageOrientation
      read FRTFPageOrientation write SetRTFPageOrientation;
    property RTFStripType: TrtfStripType read FRTFStripType
      write SetRTFStripType;

    property XLSPageHeader: string read FXLSPageHeader write SetXLSPageHeader;
    property XLSPageFooter: string read FXLSPageFooter write SetXLSPageFooter;
    property XLSSheetTitle: string read FXLSSheetTitle write SetXLSSheetTitle;
    property XLSStripType: TxlsStripType read FXLSStripType
      write SetXLSStripType;
    property XLSAutoCalcColWidth: boolean read FXLSAutoCalcColWidth
      write SetXLSAutoCalcColWidth;
    property XLSPageBackground: string read FXLSPageBackground
      write SetXLSPageBackground;

    property HTMLTitle: string read FHTMLTitle write SetHTMLTitle;
    property HTMLUsingCSS: TUsingCSS read FHTMLUsingCSS write SetHTMLUsingCSS;
    property HTMLCSSFileName: string read FHTMLCSSFileName
      write SetHTMLCSSFileName;
    property HTMLOverwriteCSSFile: boolean read FHTMLOverwriteCSSFile
      write SetHTMLOverwriteCSSFile;

    property HTMLUseMultiFileExport: boolean read FHTMLUseMultiFileExport
      write SetHTMLUseMultiFileExport;
    property HTMLFileRecCount: integer read FHTMLFileRecCount
      write SetHTMLFileRecCount;
    property HTMLGenerateIndex: boolean read FHTMLGenerateIndex
      write SetHTMLGenerateIndex;

    property HTMLIndexLinkTemplate: string read FHTMLIndexLinkTemplate
      write SetHTMLIndexLinkTemplate;
    property HTMLNavigationOnTop: boolean read FHTMLNavigationOnTop
      write SetHTMLNavigationOnTop;
    property HTMLNavigationOnBottom: boolean read FHTMLNavigationOnBottom
      write SetHTMLNavigationOnBottom;
    property HTMLIndexLinkTitle: string read FHTMLIndexLinkTitle
      write SetHTMLIndexLinkTitle;
    property HTMLFirstLinkTitle: string read FHTMLFirstLinkTitle
      write SetHTMLFirstLinkTitle;
    property HTMLPriorLinkTitle: string read FHTMLPriorLinkTitle
      write SetHTMLPriorLinkTitle;
    property HTMLNextLinkTitle: string read FHTMLNextLinkTitle
      write SetHTMLNextLinkTitle;
    property HTMLLastLinkTitle: string read FHTMLLastLinkTitle
      write SetHTMLLastLinkTitle;

    property HTMLFontName: string read FHTMLFontName write SetHTMLFontName;
    property HTMLBackground: string read FHTMLBackground
      write SetHTMLBackground;
    property HTMLBodyAdvanced: string read FHTMLBodyAdvanced
      write SetHTMLBodyAdvanced;
    property HTMLCellPadding: integer read FHTMLCellPadding
      write SetHTMLCellPadding;
    property HTMLCellSpacing: integer read FHTMLCellSpacing
      write SetHTMLCellSpacing;
    property HTMLBorderWidth: integer read FHTMLBorderWidth
      write SetHTMLBorderWidth;
    property HTMLTableBackground: string read FHTMLTableBackground
      write SetHTMLTableBackground;
    property HTMLTableAdvanced: string read FHTMLTableAdvanced
      write SetHTMLTableAdvanced;

    property HTMLBackgroundColor: TColor read FHTMLBackgroundColor
      write SetHTMLBackgroundColor;
    property HTMLFontColor: TColor read FHTMLFontColor write SetHTMLFontColor;
    property HTMLHeadBackgroundColor: TColor read FHTMLHeadBackgroundColor
      write SetHTMLHeadBackgroundColor;
    property HTMLHeadFontColor: TColor read FHTMLHeadFontColor
      write SetHTMLHeadFontColor;
    property HTMLOddRowBackgroundColor: TColor read FHTMLOddRowBackgroundColor
      write SetHTMLOddRowBackgroundColor;
    property HTMLEvenRowBackgroundColor: TColor read FHTMLEvenRowBackgroundColor
      write SetHTMLEvenRowBackgroundColor;
    property HTMLDataFontColor: TColor read FHTMLDataFontColor
      write SetHTMLDataFontColor;
    property HTMLLinkColor: TColor read FHTMLLinkColor write SetHTMLLinkColor;
    property HTMLVLinkColor: TColor read FHTMLVLinkColor
      write SetHTMLVLinkColor;
    property HTMLALinkColor: TColor read FHTMLALinkColor
      write SetHTMLALinkColor;

    property XMLStandalone: boolean read FXMLStandalone write SetXMLStandalone;
    property XMLEncoding: string read FXMLEncoding write SetXMLEncoding;

    property SQLTableName: string read FSQLTableName write SetSQLTableName;
    property SQLCreateTable: boolean read FSQLCreateTable
      write SetSQLCreateTable;
    property SQLCommitRecCount: integer read FSQLCommitRecCount
      write SetSQLCommitRecCount;
    property SQLCommitAfterScript: boolean read FSQLCommitAfterScript
      write SetSQLCommitAfterScript;
    property SQLCommitStatement: string read FSQLCommitStatement
      write SetSQLCommitStatement;
    property SQLStatementTerm: string read FSQLStatementTerm
      write SetSQLStatementTerm;

    property TXTAutoCalcColWidth: boolean read FTXTAutoCalcColWidth
      write SetTXTAutoCalcColWidth;
    property TXTSpacing: integer read FTXTSpacing write SetTXTSpacing;
    property CSVQuoteStrings: boolean read FCSVQuoteStrings
      write SetCSVQuoteStrings;
    property CSVComma: char read FCSVComma write SetCSVComma;
    property CSVQuote: char read FCSVQuote write SetCSVQuote;

    property AccessPassword: string read FAccessPassword
      write SetAccessPassword;
    property AccessTableName: string read FAccessTableName
      write SetAccessTableName;
    property AccessCreateTable: boolean read FAccessCreateTable
      write SetAccessCreateTable;

    property PDFColSpacing: double read FPDFColSpacing write SetPDFColSpacing;
    property PDFRowSpacing: double read FPDFRowSpacing write SetPDFRowSpacing;
    property PDFGridLineWidth: integer read FPDFGridLineWidth
      write SetPDFGridLineWidth;
    property PDFPageFormat: TQExportPageFormat read FPDFPageFormat
      write SetPDFPageFormat;
    property PDFPageWidth: double read GetPDFPageWidth
      write SetPDFPageWidth;
    property PDFPageHeight: double read GetPDFPageHeight
      write Se