📄 treeed.pas
字号:
procedure Paste1Click(Sender: TObject);
procedure PopupNodePopup(Sender: TObject);
procedure SendtoBack1Click(Sender: TObject);
procedure CBImageStyleChange(Sender: TObject);
procedure AddnewRoot2Click(Sender: TObject);
procedure Prune1Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Aligntogrid1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure CBAllowScrollChange(Sender: TObject);
procedure CBZoomAnimatedClick(Sender: TObject);
procedure CBAllowZoomClick(Sender: TObject);
procedure CBSelectedColorDefClick(Sender: TObject);
procedure CBSelectedTextDefClick(Sender: TObject);
procedure CBHorizVisibleClick(Sender: TObject);
procedure CBVertVisibleClick(Sender: TObject);
procedure AboutTeeTree101Click(Sender: TObject);
procedure TeeTree10HomePage1Click(Sender: TObject);
procedure wwwSteemacom1Click(Sender: TObject);
procedure New1Click(Sender: TObject);
procedure Printpreview1Click(Sender: TObject);
procedure Close1Click(Sender: TObject);
procedure Print1Click(Sender: TObject);
procedure Saveas1Click(Sender: TObject);
procedure Open1Click(Sender: TObject);
procedure Cut2Click(Sender: TObject);
procedure Copy2Click(Sender: TObject);
procedure Paste2Click(Sender: TObject);
procedure Delete2Click(Sender: TObject);
procedure Selectall1Click(Sender: TObject);
procedure Search2Click(Sender: TObject);
procedure N1001Click(Sender: TObject);
procedure N751Click(Sender: TObject);
procedure N501Click(Sender: TObject);
procedure N251Click(Sender: TObject);
procedure N151Click(Sender: TObject);
procedure N101Click(Sender: TObject);
procedure Child1Click(Sender: TObject);
procedure Brother1Click(Sender: TObject);
procedure Prunenode1Click(Sender: TObject);
procedure NewRoot1Click(Sender: TObject);
procedure Connections1Click(Sender: TObject);
procedure Images1Click(Sender: TObject);
procedure Grid1Click(Sender: TObject);
procedure Text1Click(Sender: TObject);
procedure Crossboxes1Click(Sender: TObject);
procedure Shapes1Click(Sender: TObject);
procedure Color1Click(Sender: TObject);
procedure Format1Click(Sender: TObject);
procedure Insert1Click(Sender: TObject);
procedure Gradient1Click(Sender: TObject);
procedure Border1Click(Sender: TObject);
procedure Font1Click(Sender: TObject);
procedure Shadow1Click(Sender: TObject);
procedure Style1Click(Sender: TObject);
procedure Transparent1Click(Sender: TObject);
procedure Edit4Click(Sender: TObject);
procedure N2001Click(Sender: TObject);
procedure N51Click(Sender: TObject);
procedure View1Click(Sender: TObject);
procedure Editortabs1Click(Sender: TObject);
procedure Zoom1Click(Sender: TObject);
procedure Line2Click(Sender: TObject);
procedure Triangle2Click(Sender: TObject);
procedure RoundRectangle1Click(Sender: TObject);
procedure Rectangle2Click(Sender: TObject);
procedure Ellipse2Click(Sender: TObject);
procedure Left1Click(Sender: TObject);
procedure Top1Click(Sender: TObject);
procedure Right1Click(Sender: TObject);
procedure Bottom1Click(Sender: TObject);
procedure Horizontal1Click(Sender: TObject);
procedure Vertical1Click(Sender: TObject);
procedure Diagonal1Click(Sender: TObject);
procedure InvDiagonal1Click(Sender: TObject);
procedure Diamond2Click(Sender: TObject);
procedure Linknodes1Click(Sender: TObject);
procedure Help1Click(Sender: TObject);
procedure CBVertAutoClick(Sender: TObject);
procedure SpeedLinkClick(Sender: TObject);
procedure PageShapesChange(Sender: TObject);
procedure SpeedNormalClick(Sender: TObject);
procedure Shapetabs1Click(Sender: TObject);
procedure TrackBarZoomChange(Sender: TObject);
procedure CBHorizAutoClick(Sender: TObject);
procedure Export1Click(Sender: TObject);
procedure CBBufferedClick(Sender: TObject);
procedure CBSnapGridClick(Sender: TObject);
procedure Edit5Change(Sender: TObject);
procedure Tools1Click(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure CBScrollToViewClick(Sender: TObject);
procedure CBShowHintClick(Sender: TObject);
procedure CBSingleSelectClick(Sender: TObject);
procedure Editortips1Click(Sender: TObject);
procedure NodeTheTreeClick(Sender: TObject);
procedure NodeTreeSelectShape(Sender: TTreeNodeShape);
procedure NodeTreeMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure CBAllowDeleteClick(Sender: TObject);
procedure NodeTreeDeletingShapes(Sender: TSelectedShapeList;
var AllowDelete: Boolean);
procedure NodeTreeStopEditing(Sender: TTreeNodeShape);
procedure NewParent1Click(Sender: TObject);
procedure AligntoGrid2Click(Sender: TObject);
procedure ShowNames1Click(Sender: TObject);
procedure Import1Click(Sender: TObject);
procedure ButtonNewClick(Sender: TObject);
procedure ButtonOpenClick(Sender: TObject);
procedure NodeTreeKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ButtonPrintClick(Sender: TObject);
procedure ButtonPrintPreviewClick(Sender: TObject);
procedure ButtonZoomInClick(Sender: TObject);
procedure ButtonScrollClick(Sender: TObject);
procedure EHandleSizeChange(Sender: TObject);
procedure ShapeFontColorMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Fonttoolbar1Click(Sender: TObject);
procedure Statusbar2Click(Sender: TObject);
procedure ComboFontsChange(Sender: TObject);
procedure ComboFontSizeChange(Sender: TObject);
procedure FontBoldClick(Sender: TObject);
procedure EditFontInterChange(Sender: TObject);
procedure SBOutlineClick(Sender: TObject);
procedure FontLeftAlignClick(Sender: TObject);
procedure CBZoomCenteredClick(Sender: TObject);
procedure Toolbar1Click(Sender: TObject);
procedure CBShowRulersClick(Sender: TObject);
procedure Rulers1Click(Sender: TObject);
procedure CBBevelInnerChange(Sender: TObject);
procedure CBBevelOuterChange(Sender: TObject);
procedure CBBorderClick(Sender: TObject);
procedure CBCrossStyleChange(Sender: TObject);
procedure Save1Click(Sender: TObject);
procedure NodeTreeUnSelectShape(Sender: TTreeNodeShape);
procedure Edit6Click(Sender: TObject);
procedure ComboPenStyleChange(Sender: TObject);
procedure ShapeBorderColorMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure BorderWidthChange(Sender: TObject);
procedure ComboPenStyleDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
procedure Bordertoolbar1Click(Sender: TObject);
procedure Delete3Click(Sender: TObject);
procedure ShapeBrushMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ComboBrushDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
procedure ComboBrushChange(Sender: TObject);
procedure TabControl1Change(Sender: TObject);
procedure Visible1Click(Sender: TObject);
procedure Aligntoleft1Click(Sender: TObject);
procedure PageNodesMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ComboTextChange(Sender: TObject);
procedure Delete4Click(Sender: TObject);
procedure CBTranspClick(Sender: TObject);
procedure Addnewpoint1Click(Sender: TObject);
procedure Pattern1Click(Sender: TObject);
procedure ClipText1Click(Sender: TObject);
procedure CBHotTrackClick(Sender: TObject);
procedure CBWheelChange(Sender: TObject);
procedure PopupPointPopup(Sender: TObject);
procedure Fixed1Click(Sender: TObject);
procedure Relativetostartnode1Click(Sender: TObject);
procedure Relativetoendnode1Click(Sender: TObject);
procedure AutoScroll1Click(Sender: TObject);
procedure N110Click(Sender: TObject);
procedure Sendbyemail1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure BGridColorClick(Sender: TObject);
procedure BSelectedColorClick(Sender: TObject);
procedure BSelectedTextClick(Sender: TObject);
procedure BUnFocusedColorClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure PopupMenuPanelPopup(Sender: TObject);
procedure PanelBackimageClick(Sender: TObject);
procedure Image1Click(Sender: TObject);
procedure None1Click(Sender: TObject);
procedure PanelBorderClick(Sender: TObject);
procedure PanelColorClick(Sender: TObject);
procedure PanelGradientClick(Sender: TObject);
procedure HotTrack1Click(Sender: TObject);
procedure ShowHints1Click(Sender: TObject);
procedure Transparent2Click(Sender: TObject);
procedure TimerButtonTimer(Sender: TObject);
procedure PopupFormatPopup(Sender: TObject);
procedure Border2Click(Sender: TObject);
procedure Color2Click(Sender: TObject);
procedure Font2Click(Sender: TObject);
procedure Gradient2Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Pattern2Click(Sender: TObject);
procedure Autosize1Click(Sender: TObject);
procedure Cliptext2Click(Sender: TObject);
procedure Never1Click(Sender: TObject);
procedure Shadow2Click(Sender: TObject);
procedure PopupConnFormatPopup(Sender: TObject);
procedure Border3Click(Sender: TObject);
procedure Points1Click(Sender: TObject);
procedure Font3Click(Sender: TObject);
procedure ButtonSaveClick(Sender: TObject);
procedure ButtonZoomOutClick(Sender: TObject);
procedure Inspector1Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure PageTreeChange(Sender: TObject);
procedure Fromarrow1Click(Sender: TObject);
procedure ToArrow1Click(Sender: TObject);
procedure Text2Click(Sender: TObject);
procedure CBRulersUnitsClick(Sender: TObject);
procedure CBPrintPanelClick(Sender: TObject);
procedure BPageBorderClick(Sender: TObject);
procedure BHandleColorClick(Sender: TObject);
procedure BHandlePenClick(Sender: TObject);
procedure BGridPenClick(Sender: TObject);
procedure BGridBigPenClick(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure ButtonColor1Click(Sender: TObject);
procedure BCrossBorderClick(Sender: TObject);
procedure BCrossColorClick(Sender: TObject);
procedure SignPenButtonClick(Sender: TObject);
procedure CBPrinterDefaultClick(Sender: TObject);
procedure EPageWidthChange(Sender: TObject);
procedure EPageHeightChange(Sender: TObject);
procedure Curve1Click(Sender: TObject);
procedure CBPrintPageBorderClick(Sender: TObject);
procedure CBScrollFlatClick(Sender: TObject);
procedure CBUnitsChange(Sender: TObject);
procedure BackColor1Click(Sender: TObject);
procedure ComboFontSizeKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ComboFontSizeExit(Sender: TObject);
procedure UDZoomClick(Sender: TObject; Button: TUDBtnType);
procedure CBTextEnabledClick(Sender: TObject);
procedure CBTextModeChange(Sender: TObject);
procedure CBTextKeyChange(Sender: TObject);
procedure CBTextMouseChange(Sender: TObject);
procedure CBTextSizeClick(Sender: TObject);
procedure CBTextFormatClick(Sender: TObject);
procedure CBTextFontClick(Sender: TObject);
procedure SBFontGradClick(Sender: TObject);
procedure PaintBox1Paint(Sender: TObject);
procedure Copyaspicture1Click(Sender: TObject);
procedure ComboTextDropDown(Sender: TObject);
procedure Automatic3Click(Sender: TObject);
procedure Curve2Click(Sender: TObject);
procedure PopupConnPopup(Sender: TObject);
procedure SBCloseInspectorClick(Sender: TObject);
procedure PanelInspectorResize(Sender: TObject);
procedure SBCloseNodeTreeClick(Sender: TObject);
private
{ Private declarations }
FRecentFiles : TRecentFiles;
TreeClipboard : TTreeClipboard;
Creating : Boolean;
Deleting : Boolean;
OldAlign : TAlign;
OldAnchors : TAnchors;
OldBounds : TRect;
OldDesignState : Boolean;
OldDragMode : TDragMode;
OldGrid : Boolean;
OldDblClick : TNotifyEvent;
SavedEvents : TTreeEvents;
Selecting : Boolean;
OldParent : TWinControl;
OldPopup : TPopupMenu;
OldDesigning : Boolean;
OldZoom : Boolean;
OldPanning : TPanningMode;
OldVisible : Boolean;
OldCursorPos : TPoint; //tom:25/09/2002; Hold position of cursor before popupmenu
ComingFromDoubleClick : Boolean;
Function AddNewRoot:TTreeNodeShape;
Procedure CheckPanelNodes;
Procedure CheckPanelToolBar;
Procedure CheckPanelTools;
Procedure CheckSaveDialogFilter;
Procedure CreateNewTree;
Procedure DoLoadTreeImage;
Procedure DoZoom(Value:Integer);
procedure EditConnectionPage(NumPage:Integer);
procedure EnablePageControls;
procedure NodeTreeDragDrop(Sender:TCustomTree; Dragged,Parent:TTreeNodeShape);
Procedure UpdateNodeTree;
Function GetFontAttribute:TFontStyles;
Function GetFontAlign:THorizTextAlign;
Function GetFontSize:Integer;
Function GetNodeTreeShape(ANode:TTreeNodeShape):TTreeNodeShape;
Procedure MainSetCaption;
Function NodeTreeText(ANode:TTreeNodeShape):String;
Procedure RefreshStatusBar;
procedure ReopenFile(Const FileName:String);
Procedure ResetNodeTreeSelected;
Procedure SaveOldTreeSettings;
Function SelectedBorder:TTreePen;
Function SelectedElement:TCustomTreeElement;
procedure SetPageControls;
Procedure SetTreeProperties;
Procedure SetTreeSettings;
procedure SpeedClick(Sender: TObject);
procedure SpeedPolygonClick(Sender: TObject);
Function TeeEditColor(Var Color:TColor):Boolean;
{ Tree events }
procedure TheTreeAfterDraw(Sender: TObject);
procedure TheTreeDeletedShapes(Sender: TObject);
procedure TheTreeSelectShape(Sender: TTreeNodeShape);
procedure TheTreeUnSelectShape(Sender: TTreeNodeShape);
procedure TheTreeSelectConnection(Sender: TTreeConnection);
procedure TheTreeUnSelectConnection(Sender: TTreeConnection);
Procedure TheTreeMovingShape(Sender: TTreeNodeShape; Var DeltaX,DeltaY:Integer);
procedure TheTreeMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure TheTreeMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TheTreeNewPolygon( Sender: TCustomTree; APolygon:TPolygonShape);
Procedure TheTreeResizingShape( Sender: TTreeNodeShape;
ACorner: TTreeShapeHandle; Var DeltaX,DeltaY:Integer);
procedure TheTreeStopEditing(Sender: TTreeNodeShape);
procedure TheTreeClickConnection(Sender: TTreeConnection;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure TheTreeDblClickConnection(Sender: TTreeConnection;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure TheTreeDblClickShape(Sender: TTreeNodeShape;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure TheTreeKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure TheTreeOnZoomedArea(Const R:TRect);
procedure TheTreeOnZoom(Sender:TObject);
procedure ChangeZoom(Value:Integer);
Procedure RefreshZoomLabel;
Procedure ChangeStyle(AStyle:TTreeShapeStyle);
procedure SpeedDouble(Sender: TObject);
procedure AddNewShape(AClass:PTreeTagShape; Const R:TRect);
Procedure InternalAddShape( AGroup:Integer;
Const AName:String;
AClass:TTreeNodeShapeClass;
UseStyle:Boolean;
AStyle:TTreeShapeStyle);
Function GetToolBarShape:PTreeTagShape;
Procedure InternalAddCustomShape( Const AGroup:String;
Const AName:String;
AClass:TTreeNodeShapeClass);
Procedure TryPopup(ATree:TCustomTree; x,y:Integer);
procedure ChangeAutoSize(Sender: TTreeNodeShape);
Function ChangeBevel(ACombo:TComboBox):TPanelBevel;
procedure ChangeBorderWidth(Sender: TTreeNodeShape);
procedure ChangeClipText(Sender: TTreeNodeShape);
procedure ChangeClipText2(Sender: TTreeNodeShape);
procedure ChangeFontColor(Sender: TTreenodeShape);
procedure ChangePointStyle(AStyle:TConnectionPointStyle);
procedure ChangeFont(Sender: TTreeNodeShape);
procedure ChangeFontAttrib(Sender: TTreeNodeShape);
procedure ChangeFontSize(Sender: TTreeNodeShape);
procedure ChangeFontAlign(Sender: TTreeNodeShape);
procedure ChangeGradient(Sender: TTreeNodeShape);
procedure ChangeImageIndex(Sender: TTreeNodeShape);
procedure ChangeInterChar(Sender: TTreeNodeShape);
procedure ChangeTransparent(Sender: TTreeNodeShape);
procedure DoAlignToGrid(Sender: TTreeNodeShape);
procedure DoBringtoFront(Sender: TTreeNodeShape);
procedure DoPrune(Sender: TTreeNodeShape);
procedure DoSendToBack(Sender: TTreeNodeShape);
Procedure DoSelection(Node:TTreeNodeShape; Select:Boolean);
Procedure DoSetOutLine(Sender:TTreeNodeShape);
Procedure DoEnableControls(AContainer:TWinControl; IsEnable:Boolean);
Procedure SelectExpandNode(Node:TTreeNodeShape; Select:Boolean);
Procedure SetBevelCombo(ABevel:TPanelBevel; ACombo:TComboBox);
Procedure SetBorderControls;
Procedure SetFontControls;
procedure SetOtherControls;
procedure SetToolBars;
Procedure RefreshRulers;
protected
CaptionFormat : String;
CurrentFile : String;
FModified : Boolean;
FSetting : Boolean;
TreeUndo : TTreeUndo;
Function CheckSave:Boolean;
Procedure DoSaveTree;
Procedure FillNodeTree;
Procedure InternalSaveTree;
procedure LoadTree(const AFileName: String);
procedure LoadTreeProc(Reader:TReader; Stream:TStream); dynamic;
Procedure ResetTree;
Procedure SetInspectorProperties;
Procedure SetNewTreeSettings; dynamic;
Procedure TeeModified(YesNo:Boolean=True);
class function TeeTreeClass: TTreeClass; virtual;
Procedure WriteTreeToStream(AStream:TStream); dynamic;
public
{ Public declarations }
TheTree : TCustomTree;
PersistOptions : Boolean;
Procedure RegisterTreeShape(AGroup:Integer;
Const AName:String;
AStyle:TTreeShapeStyle);
Procedure LoadEditorParameters; dynamic;
Procedure SaveEditorParameters; dynamic;
procedure StopConnecting;
end;
TTreeNotifyEvent=procedure(Sender:TTreeEditor);
TTreeEditWindow=( teInspector,
teNodeTree,
teToolbar,
teToolShapes,
teEditors,
teFont,
teFormat,
teRulers,
teStatus,
teModeTabs,
teMainMenu
);
TTreeEditWindows=set of TTreeEditWindow;
{ Non-visual component to invoke the Tree Editor }
TTreeEdit=class(TCustomTreeLink)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -