📄 fuqexport4xlseditor.pas
字号:
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};
FExportSourceList: TStringList;
FLoading: boolean;
FNeedSelected: boolean;
FCurrSheet: TListItem;
FCurrColumn: TListItem;
FCurrOption: TListItem;
FCurrStyle: TListItem;
FHyperlinkNode: TTreeNode;
FNoteNode: TTreeNode;
FChartNode: TTreeNode;
FCellNode: TTreeNode;
FMergedCellNode: TTreeNode;
FStandardFormatPageIndex: integer;
FNoteFormatPageIndex: integer;
FNotePageIndex: integer;
FHyperlinkPageIndex: integer;
FChartPageIndex: integer;
FSeriesPageIndex: integer;
FCellPageIndex: integer;
FMergedCellPageIndex: integer;
FCurrList: integer;
FCurrFormat: integer;
procedure ShowCurrSheet;
procedure TuneSheetButtons;
procedure TuneExportRecCount;
procedure TuneHeader;
procedure TuneFooter;
procedure TuneFormats;
procedure TuneXLSChartPosition;
procedure TuneXLSChartCategoryLabel;
procedure TuneXLSSeriesDataRange;
function GetCurrFmtList: TListView;
function GetCurrFmtItem: TxlsCustomItem;
function GetCurrFont: TxlsFont;
function GetCurrAlignment: TxlsAlignment;
function GetCurrBorders: TxlsBorders;
function GetCurrFill: TxlsFill;
procedure SetCurrDefault;
procedure ShowColumnButtons;
procedure ShowStyleButtons;
procedure LoadSheets;
procedure SaveSheets;
procedure SetFormatsActivePage(Value: TTabSheet);
procedure FillLists(Sheet: TxlsSheet);
procedure ClearLists;
procedure FillExportSourceList;
procedure AddExportSourceListItem(const S: string);
procedure SetSheetExportSource(Sheet: TxlsSheet; Source: TComponent);
procedure MoveListItemUp(ListView: TListView);
procedure MoveListItemDown(ListView: TListView);
procedure RenumStyles;
function CurrentSheetMemo: TMemo;
procedure XLSUpdateItemFont(Item: TxlsCustomItem);
procedure XLSUpdateItemFontSize(Item: TxlsCustomItem);
procedure XLSUpdateItemFontColor(Item: TxlsCustomItem);
procedure XLSUpdateItemFontBold(Item: TxlsCustomItem);
procedure XLSUpdateItemFontItalic(Item: TxlsCustomItem);
procedure XLSUpdateItemFontStrikeOut(Item: TxlsCustomItem);
procedure XLSUpdateItemFontUnderline(Item: TxlsCustomItem);
procedure XLSUpdateItemHorAlignment(Item: TxlsCustomItem);
procedure XLSUpdateItemVertAlignment(Item: TxlsCustomItem);
procedure XLSUpdateItemBorderTop(Item: TxlsCustomItem);
procedure XLSUpdateItemBorderTopColor(Item: TxlsCustomItem);
procedure XLSUpdateItemBorderBottom(Item: TxlsCustomItem);
procedure XLSUpdateItemBorderBottomColor(Item: TxlsCustomItem);
procedure XLSUpdateItemBorderLeft(Item: TxlsCustomItem);
procedure XLSUpdateItemBorderLeftColor(Item: TxlsCustomItem);
procedure XLSUpdateItemBorderRight(Item: TxlsCustomItem);
procedure XLSUpdateItemBorderRightColor(Item: TxlsCustomItem);
procedure XLSUpdateItemFillPattern(Item: TxlsCustomItem);
procedure XLSUpdateItemFillBackground(Item: TxlsCustomItem);
procedure XLSUpdateItemFillForeground(Item: TxlsCustomItem);
procedure XLSUpdateItemAggregate(Item: TxlsCustomItem);
procedure XLSUpdateItemSetDefault(Item: TxlsCustomItem);
procedure SheetAllowCaptions(Item: TListItem);
procedure SheetGoToFirstRecord(Item: TListItem);
procedure SheetOnlyVisibleFields(Item: TListItem);
procedure SheetAutoCalcStrType(Item: TListItem);
procedure SheetSkipRecCount(Item: TListItem);
procedure SheetExportRecCount(Item: TListItem);
procedure SheetStartDataCol(Item: TListItem);
procedure SheetCaptionRow(Item: TListItem);
procedure SheetHeaderRows(Item: TListItem);
procedure SheetHeader(Item: TListItem);
procedure SheetFooterRows(Item: TListItem);
procedure SheetFooter(Item: TListItem);
procedure SheetIntegerFormat(Item: TListItem);
procedure SheetFloatFormat(Item: TListItem);
procedure SheetDateFormat(Item: TListItem);
procedure SheetTimeFormat(Item: TListItem);
procedure SheetDateTimeFormat(Item: TListItem);
procedure SheetCurrencyFormat(Item: TListItem);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -