📄 tbxd_u1.pas
字号:
unit TBXD_U1;
interface
{$I WPINC.INC}
{$DEFINE WITHSPLASH}
{$DEFINE WPDFEX}
{.$DEFINE WPPREMFORM}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TBXDkPanels, StdCtrls, TBXStatusBars, WPRTEDefs, WPCTRMemo,
WPCTRRich, ExtCtrls, WPRuler, TBXToolPals, TBXExtItems, TBX, TBXLists,
TBXMDI, TB2ExtItems, TB2Item, TB2Dock, TB2Toolbar, ImgList, Menus,
{$IFDEF WPPREMIUM}WPIORTFPremium, {$ENDIF}
TBXThemes, TBXSwitcher, TBXUtils, TBXStripesTheme, TBXOfficeXPTheme, TBXAluminumTheme,
WPAction, WPActnStr, WPObj_Image, WPRTEPaint, ActnList, WPCtrStyleCol, WPManHeadFoot,
// addtional Themes
//-does not work: TBXOfficeXPGradientTheme,
//-TBXOffice2003Theme,
{ TBXDreamTheme,
TBXNexos2Theme,
TBXOfficeCTheme,
TBXNexos4Theme,
TBXXitoTheme,
TBXNexos5Theme,
TBXOffice11AdaptiveTheme,
TBXSentimoXTheme,
TBXAthenTheme,
TBXNexos3Theme,}WPUtil, WPPrvFrm, WpParPrp, WPTabdlg, WPBltDlg, WpPagPrp,
WPTbar, WPPanel, ComCtrls, WP1Style, WPStyles, jpeg
{$IFDEF WPPREMIUM}, WPOBJ_TextBox, XPMan{$ENDIF} // TextBoxes, WPTools Professional only
{$IFDEF WPDFEX}, WPPDFWP, WPGutter, WPXMLint, WPLngCtr{$ENDIF}
;
type
TWPTBXForm = class(TForm)
TBXSwitcher: TTBXSwitcher;
TBXMDIHandler1: TTBXMDIHandler;
TBDock1: TTBXDock;
TBToolbar1: TTBXToolbar;
TBXSubmenuItem1: TTBXSubmenuItem;
TBXItem4: TTBXItem;
TBXItem1: TTBXItem;
TBXItem5: TTBXItem;
TBXSeparatorItem1: TTBXSeparatorItem;
TBXItem2: TTBXItem;
TBXSeparatorItem2: TTBXSeparatorItem;
TBXItem6: TTBXItem;
TBXItem15: TTBXItem;
TBXItem7: TTBXItem;
TBXSeparatorItem3: TTBXSeparatorItem;
TBXItem8: TTBXItem;
mnEdit: TTBXSubmenuItem;
TBXSeparatorItem4: TTBXSeparatorItem;
TBXItem9: TTBXItem;
TBXItem10: TTBXItem;
TBXItem11: TTBXItem;
TBXSeparatorItem11: TTBXSeparatorItem;
TBXItem56: TTBXItem;
TBXSeparatorItem17: TTBXSeparatorItem;
TBXItem57: TTBXItem;
TBXItem58: TTBXItem;
FrmSubMenu: TTBXSubmenuItem;
TBXItem16: TTBXItem;
TBXItem17: TTBXItem;
TBXItem19: TTBXItem;
TBXSeparatorItem9: TTBXSeparatorItem;
TBXItem21: TTBXItem;
TBXToolbar2: TTBXToolbar;
TBXItem40: TTBXItem;
TBXItem41: TTBXItem;
TBXItem42: TTBXItem;
TBXSeparatorItem12: TTBXSeparatorItem;
TBXItem43: TTBXItem;
TBXItem44: TTBXItem;
TBXSeparatorItem13: TTBXSeparatorItem;
TBXItem45: TTBXItem;
TBXItem46: TTBXItem;
TBXItem47: TTBXItem;
TBXSeparatorItem15: TTBXSeparatorItem;
TBXSubmenuItem10: TTBXSubmenuItem;
TBXList1: TTBXStringList;
TBXToolbar3: TTBXToolbar;
TBXLabelItem1: TTBXLabelItem;
lstFonts: TTBXComboBoxItem;
lstSizes: TTBXComboBoxItem;
TBXSeparatorItem18: TTBXSeparatorItem;
TBXItem61: TTBXItem;
TBXItem62: TTBXItem;
TBXSeparatorItem5: TTBXSeparatorItem;
AlignLeft: TTBXItem;
AlignCenter: TTBXItem;
AlignRight: TTBXItem;
bColorButton: TTBXSubmenuItem;
TBXMultiDock2: TTBXMultiDock;
DockablePanel: TTBXDockablePanel;
TBXPageScroller: TTBXPageScroller;
TBXLabel3: TTBXLabel;
TBXAlignmentPanel2: TTBXAlignmentPanel;
ListBox1: TListBox;
bBGColorButton: TTBXSubmenuItem;
bParColorButton: TTBXSubmenuItem;
AlignJust: TTBXItem;
TBXColorPalette2: TTBXColorPalette;
TBXColorPalette3: TTBXColorPalette;
TBXColorPalette1: TTBXColorPalette;
ActionList1: TActionList;
WPALeft1: TWPALeft;
WPACenter1: TWPACenter;
WPARight1: TWPARight;
WPAJustified1: TWPAJustified;
WPABold1: TWPABold;
WPAItalic1: TWPAItalic;
FontLinks: TWPToolsCustomEditContolAction;
SizeLinks: TWPToolsCustomEditContolAction;
WPAOpen1: TWPAOpen;
WPASave1: TWPASave;
WPANew1: TWPANew;
WPPreviewDlg1: TWPPreviewDlg;
WPParagraphPropDlg1: TWPParagraphPropDlg;
WPBulletDlg1: TWPBulletDlg;
WPTabDlg1: TWPTabDlg;
WPPagePropDlg1: TWPPagePropDlg;
TBXSubmenuItem5: TTBXSubmenuItem;
ShowSpecial: TTBXItem;
ShowHyper: TTBXItem;
showBookM: TTBXItem;
ShowMailM: TTBItem;
ShowGrid: TTBXItem;
StyleCombo: TTBXComboBoxItem;
StyleLinks: TWPToolsCustomEditContolAction;
TBXItem18: TTBXItem;
TBXSeparatorItem8: TTBXSeparatorItem;
TBXSeparatorItem6: TTBXSeparatorItem;
TBXSubmenuItem8: TTBXSubmenuItem;
TBXStringList1: TTBXStringList;
TBXSeparatorItem7: TTBXSeparatorItem;
TBXSubmenuItem9: TTBXSubmenuItem;
ShowParPrp: TTBXItem;
TBXItem12: TTBXItem;
ShowSPAN: TTBItem;
TBXVisibilityToggleItem1: TTBXVisibilityToggleItem;
TBXVisibilityToggleItem2: TTBXVisibilityToggleItem;
Panel1: TPanel;
WPRuler1: TWPRuler;
ThumbsDock: TTBXDock;
ThumbWindow: TTBXDockablePanel;
WPPreview1: TWPPreview;
TBXSeparatorItem14: TTBXSeparatorItem;
TBXItem13: TTBXItem;
TBSeparatorItem1: TTBSeparatorItem;
TBXItem28: TTBXItem;
StatusBar1: TStatusBar;
WPRichText1: TWPRichText;
WPStyleDlg1: TWPStyleDlg;
WPOneStyleDlg1: TWPOneStyleDlg;
TBXSeparatorItem16: TTBXSeparatorItem;
TBXItem3: TTBXItem;
TBXToolbar1: TTBXToolbar;
btnInCol: TTBXItem;
btnInsRow: TTBXItem;
btnCreateTable: TTBXItem;
WPABBottom1: TWPABBottom;
WPABRight1: TWPABRight;
WPABLeft1: TWPABLeft;
WPABTop1: TWPABTop;
WPACreateTable1: TWPACreateTable;
WPAInsRow1: TWPAInsRow;
WPAInsCol1: TWPAInsCol;
StdIcons: TImageList;
btnUnderline: TTBXItem;
WPAUnderline1: TWPAUnderline;
WPAStrikeout1: TWPAStrikeout;
WPASubscript1: TWPASubscript;
WPASuperscript1: TWPASuperscript;
btnSuper: TTBXItem;
btnSub: TTBXItem;
btnDelRow: TTBXItem;
btnDelCol: TTBXItem;
WPADelRow1: TWPADelRow;
WPADelCol1: TWPADelCol;
TBXVisibilityToggleItem3: TTBXVisibilityToggleItem;
TBXSubmenuItem11: TTBXSubmenuItem;
TBXItem14: TTBXItem;
TBXItem29: TTBXItem;
TBXSubmenuItem7: TTBXSubmenuItem;
TBXItem22: TTBXItem;
TBXItem26: TTBXItem;
TBXItem27: TTBXItem;
TBXItem23: TTBXItem;
TBXItem25: TTBXItem;
TBXItem24: TTBXItem;
TBXSeparatorItem10: TTBXSeparatorItem;
TBXItem30: TTBXItem;
TBXItem20: TTBXItem;
TBXSeparatorItem19: TTBXSeparatorItem;
TBXItem32: TTBXItem;
TBXItem33: TTBXItem;
WPABullets1: TWPABullets;
WPANumbers1: TWPANumbers;
WPADecIndent1: TWPADecIndent;
WPAIncIndent1: TWPAIncIndent;
TBXItem34: TTBXItem;
TBXItem35: TTBXItem;
WPASellAll1: TWPASellAll;
WPAHideSelection1: TWPAHideSelection;
WPAInsertNumber1: TWPAInsertNumber;
WPAInsertField1: TWPAInsertField;
WPAEditHyperlink1: TWPAEditHyperlink;
WPASearch2: TWPASearch;
WPAReplace2: TWPAReplace;
ACreatePDF: TAction;
WPAUndo1: TWPAUndo;
WPACopy1: TWPACopy;
WPACut1: TWPACut;
WPAPaste1: TWPAPaste;
WPAHideSelection2: TWPAHideSelection;
WPASpellcheck1: TWPASpellcheck;
WPASpellAsYouGo1: TWPASpellAsYouGo;
WPAStartThesaurus1: TWPAStartThesaurus;
WPADeleteText1: TWPADeleteText;
TBXSeparatorItem20: TTBXSeparatorItem;
GrSubMenu: TTBXSubmenuItem;
Image1: TImage;
Image2: TImage;
BackImg: TTBXItem;
TBXSeparatorItem21: TTBXSeparatorItem;
BrkTables: TTBXItem;
BrkRows: TTBXItem;
TBXItem36: TTBXItem;
TBXSeparatorItem23: TTBXSeparatorItem;
TBXItem50: TTBXItem;
WPVertRuler1: TWPVertRuler;
GrPopup: TTBXPopupMenu;
GraphicsMenu: TTBItemContainer;
TBGroupItem1: TTBGroupItem;
GraphicsMenuGroup: TTBGroupItem;
CharMode: TTBXItem;
TBXItem37: TTBXItem;
TBXItem38: TTBXItem;
TBXItem48: TTBXItem;
TBXItem49: TTBXItem;
WPStyleCollection1: TWPStyleCollection;
TBItem1: TTBItem;
XMLOutlineMode: TTBItem;
WPGutter1: TWPGutter;
TBXItem51: TTBXItem;
TBXItem52: TTBXItem;
TBXItem53: TTBXItem;
WPACombineCell1: TWPACombineCell;
WPASplitCells1: TWPASplitCells;
TBXItem54: TTBXItem;
TBXSeparatorItem22: TTBXSeparatorItem;
TBXItem55: TTBXItem;
TBXItem59: TTBXItem;
TBItem2: TTBItem;
AInsHyper: TAction;
AInsBook: TAction;
TBXItem39: TTBXItem;
TBXItem60: TTBXItem;
TBXItem63: TTBXItem;
WPARedo1: TWPARedo;
TBXItem64: TTBXItem;
TBXItem65: TTBXItem;
TBXItem66: TTBXItem;
TBXItem67: TTBXItem;
TBXSubmenuItem2: TTBXSubmenuItem;
TBXItem69: TTBXItem;
TBXItem68: TTBXItem;
TBXSeparatorItem24: TTBXSeparatorItem;
TBXSubmenuItem3: TTBXSubmenuItem;
TBXItem70: TTBXItem;
TBXItem71: TTBXItem;
TBXSeparatorItem25: TTBXSeparatorItem;
TBXSubmenuItem4: TTBXSubmenuItem;
TBXItem72: TTBXItem;
TBXItem74: TTBXItem;
TBXItem75: TTBXItem;
TBXSeparatorItem26: TTBXSeparatorItem;
TBXItem73: TTBXItem;
TBXItem76: TTBXItem;
FormatOption: TTBXItem;
TBXSubmenuItem6: TTBXSubmenuItem;
TBXItem31: TTBXItem;
TBXSubmenuItem12: TTBXSubmenuItem;
TBXItem77: TTBXItem;
TBXItem78: TTBXItem;
RemoveKeepN: TTBXItem;
TBXItem79: TTBXItem;
TBXItem80: TTBXItem;
procedure TBXRadioButton1Change(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure bColorButtonDrawImage(Item: TTBCustomItem;
Viewer: TTBItemViewer; Canvas: TCanvas; ImageRect: TRect;
ImageOffset: TPoint; StateFlags: Integer);
procedure TBXColorPalette1Change(Sender: TObject);
procedure lstFontsPopup(Sender: TTBCustomItem; FromLink: Boolean);
procedure TBXItem40Click(Sender: TObject);
procedure TBXItem44Click(Sender: TObject);
procedure TBXList1Change(Sender: TObject);
procedure TBXItem16Click(Sender: TObject);
procedure TBXItem17Click(Sender: TObject);
procedure TBXItem19Click(Sender: TObject);
procedure TBXItem21Click(Sender: TObject);
procedure TBXItem6Click(Sender: TObject);
procedure ShowMailMClick(Sender: TObject);
procedure showBookMClick(Sender: TObject);
procedure ShowHyperClick(Sender: TObject);
procedure ShowGridClick(Sender: TObject);
procedure ShowSpecialClick(Sender: TObject);
procedure TestButton1Click(Sender: TObject);
procedure TBXItem18Click(Sender: TObject);
procedure TBXItem22Click(Sender: TObject);
procedure TBXItem14Click(Sender: TObject);
procedure TBXItem20Click(Sender: TObject);
procedure TBXItem30Click(Sender: TObject);
procedure TBXItem57Click(Sender: TObject);
procedure TBXItem58Click(Sender: TObject);
procedure TBXLink1Click(Sender: TObject);
procedure WPRichText1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ShowParPrpClick(Sender: TObject);
procedure TBXItem12Click(Sender: TObject);
procedure ShowSPANClick(Sender: TObject);
procedure WPRichText1TextObjectClick(Sender: TWPCustomRtfEdit;
pobj: TWPTextObj; obj: TWPObject; var ignore: Boolean);
procedure WPRichText1ChangeCursorPos(Sender: TObject);
procedure TBXItem13Click(Sender: TObject);
procedure TBXItem28Click(Sender: TObject);
procedure WPPreview1Click(Sender: TWPCustomRtfEdit; PageNo, X,
Y: Integer; var Ignore: Boolean);
procedure TBXItem5Click(Sender: TObject);
procedure StyleComboDrawItem(Sender: TTBXCustomList; ACanvas: TCanvas;
ARect: TRect; AIndex, AHoverIndex: Integer;
var DrawDefault: Boolean);
procedure WPRichText1OpenDialog(Sender: TObject;
DiaType: TWPCustomRtfEditDialog; var ResultValue: Boolean);
procedure TBXItem3Click(Sender: TObject);
procedure WPRichText1DelayedUpdate(Sender: TObject;
var WPUPD_Code: Integer; Param: Integer);
procedure TBXItem29Click(Sender: TObject);
procedure TBXItem43Click(Sender: TObject);
procedure TBXItem31Click(Sender: TObject);
procedure WPRichText1HyperLinkEvent(Sender: TObject; text, url: string;
IgnoredNumber: Integer);
procedure CharModeClick(Sender: TObject);
procedure WPRichText1ChangeSelection(Sender: TObject);
procedure TBXItem15Click(Sender: TObject);
procedure WPRichText1PaintWatermark(Sender: TObject;
RTFEngine: TWPRTFEnginePaint; toCanvas: TCanvas; PageRect: TRect;
PaintPageNr, RTFPageNr: Integer; WaterMarkRef: TObject; XRes,
YRes: Integer; CurrentZoom: Single; PaintMode: TWPPaintModes);
procedure BackImgClick(Sender: TObject);
procedure BrkTablesClick(Sender: TObject);
procedure BrkRowsClick(Sender: TObject);
procedure TBXItem36Click(Sender: TObject);
procedure WPRichText1TextObjectDblClick(Sender: TWPCustomRtfEdit;
pobj: TWPTextObj; obj: TWPObject; var ignore: Boolean);
procedure Button3Click(Sender: TObject);
procedure TBXItem50Click(Sender: TObject);
procedure WPRichText1MailMergeGetText(Sender: TObject;
const inspname: string; Contents: TWPMMInsertTextContents);
procedure WPRichText1TextObjectMouseDown(Sender: TWPCustomRtfEdit;
pobj: TWPTextObj; obj: TWPObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure CreatePDFClick(Sender: TObject);
procedure XMLOutlineModeClick(Sender: TObject);
procedure CurrParAttrClick(Sender: TObject);
procedure WPRichText1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure TBXItem51Click(Sender: TObject);
procedure TBXItem52Click(Sender: TObject);
procedure TBXItem55Click(Sender: TObject);
procedure WPRichText1ClickHotText(Sender: TObject; par: TParagraph;
posinpar, X, Y: Integer; Button: TMouseButton; Shift: TShiftState;
TxtObj: TWPTextObj);
procedure nxfClick(Sender: TObject);
procedure WPRichText1CustomLinePaintAfter(Sender: TObject;
RTFEngine: TWPRTFEngineBasis; Param: TWPVirtPagePaintParam;
EndOfPageRun: Boolean);
procedure WPRichText1CustomLinePaintBefore(Sender: TObject;
RTFEngine: TWPRTFEngineBasis; Param: TWPVirtPagePaintParam;
EndOfPageRun: Boolean);
procedure FormDestroy(Sender: TObject);
procedure AAButton1Click(Sender: TObject);
procedure TBXItem59Click(Sender: TObject);
procedure ReloadClick(Sender: TObject);
procedure TBItem2Click(Sender: TObject);
procedure AAAAClick(Sender: TObject);
procedure AInsHyperExecute(Sender: TObject);
procedure AInsBookExecute(Sender: TObject);
procedure WPRichText1GetAttributeColor(Sender: TObject;
var CharStyle: TCharacterAttr; par: TParagraph; posinpar: Integer);
procedure TBXItem66Click(Sender: TObject);
procedure WPRichText1TextObjectPaint(Sender: TObject; pobj: TWPTextObj;
toCanvas: TCanvas; XRes, YRes, X, Y, W, H, BASE: Integer;
PageRef: TWPVirtPage; Modes: TWPTextObjectPaintModes;
const CanvasExtraAttr: TWPPaintExtraParams;
var ContinueMode: TWPTextObjectPaintResult);
procedure WPRichText1BeforePasteText(Sender: TObject;
RTFData: TWPRTFDataCollection; par: TParagraph; Stream: TStream;
Reader: TWPCustomTextReader; OnlyBodyText: Boolean;
var LoadedText: TWPRTFDataBlock);
procedure TBXItem67Click(Sender: TObject);
procedure TBXItem69Click(Sender: TObject);
procedure TBXItem68Click(Sender: TObject);
procedure WPRichText1NewRTFDataBlock(Sender: TObject;
RTFDataBlock: TWPRTFDataBlock);
procedure TBXItem71Click(Sender: TObject);
procedure TBXItem70Click(Sender: TObject);
procedure TBXItem72Click(Sender: TObject);
procedure TBXItem75Click(Sender: TObject);
procedure TBXItem74Click(Sender: TObject);
procedure TBXItem73Click(Sender: TObject);
procedure TBXItem76Click(Sender: TObject);
procedure TBXItem7Click(Sender: TObject);
procedure FormatOptionClick(Sender: TObject);
procedure TBXItem78Click(Sender: TObject);
procedure TBXItem77Click(Sender: TObject);
procedure CapitalizeFirstChar(Sender: TObject;
RTFEngine: TWPRTFEngineBasis; RTFDataBlock: TWPRTFDataBlock;
par: TParagraph);
procedure RemoveKeepNClick(Sender: TObject);
procedure WPRichText1AfterCompleteWordEvent(Sender: TObject;
var lastchar: Char);
procedure TBXItem79Click(Sender: TObject);
procedure TBXItem80Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
FVisitedHyperlinks: TStringList;
public
ManHeadFoot: TWPManageHeaderFooter;
FIELDCOUNT: Integer;
procedure CharCallback(Sender: TObject;
var CharItem: WideChar;
par: TParagraph;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -