wfeditorui.pas

业生产并行开发过程 工作流流程编辑器参考源码 采用dxflowchart编写

unit WfEditorUI;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Menus, Buttons, ShellAPI, Registry, ImgList, jpeg,
  ToolWin, ComCtrls, ActnList, dxflchrt, WfView, WfActiG, WfConnG;

type
  TLayoutType = (ltAlignLeft,ltAlignRight,ltAlignHCenter,ltSpaceEquH,ltSpaceEquHX,ltIncWidth,ltDecWidth,ltMakeMaxWidth,ltMakeMinWidth,ltMakeSameWidth,ltSpaceDecH,ltSpaceIncH,
                 ltAlignTop,ltAlignBottom,ltAlignVCenter,ltSpaceEquV,ltSpaceEquVY,ltIncHeight,ltDecHeight,ltMakeMaxHeight,ltMakeMinHeight,ltMakeSameHeight,ltSpaceDecV,ltSpaceIncV);

  TItemType = (iObject, iConnection);

  TWfEditorBuferItem = class(TObject)
    FObject: TObject;
    FObjectType: TItemType;
    procedure SetObject(Value: TObject);
    procedure SetObjectType(Value: TItemType);
  public
    property Obj: TObject read FObject write SetObject;
    property ObjType: TItemType read FObjectType write SetObjectType;
  end;

  TWfEditorUndo = class(TObject)
    FCanUndo: Boolean;
    FChart: TWfView;
    FLength: array [1..200] of integer;
    FStep: Integer;
    FStream: TMemoryStream;
    FUndoSteps: Integer;
    procedure SetChart(Value: TWfView);
    procedure SetUndoSteps(Value: Integer);
  public
    constructor Create;
    destructor Destroy; override;
    procedure Store;
    procedure Undo;
    property CanUndo: Boolean read FCanUndo;
    property Chart: TWfView read FChart write SetChart;
    property UndoSteps: Integer read FUndoSteps write SetUndoSteps;
  end;

  TfWfEditorUI = class(TForm)
    Bevel2: TBevel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    btnCreateConnect: TSpeedButton;
    btnCreateObject: TSpeedButton;
    ChartPopupMenu: TPopupMenu;
    ColorDialog: TColorDialog;
    mniContens: TMenuItem;
    DArrowSizePopupMenu: TPopupMenu;
    DestArrowPopupMenu: TPopupMenu;
    DPointPopupMenu: TPopupMenu;
    FontDialog: TFontDialog;
    i10p: TMenuItem;
    i1p: TMenuItem;
    i2p: TMenuItem;
    i3p: TMenuItem;
    i4p: TMenuItem;
    i5p: TMenuItem;
    i6p: TMenuItem;
    i7p: TMenuItem;
    i8p: TMenuItem;
    i9p: TMenuItem;
    iAddToUnion: TMenuItem;
    iBringToFront: TMenuItem;
    iClearAllUnions: TMenuItem;
    iClearSelection: TMenuItem;
    iClearUnion: TMenuItem;
    iCopy: TMenuItem;
    iCurved: TMenuItem;
    iCut: TMenuItem;
    iD10: TMenuItem;
    iD20: TMenuItem;
    iD30: TMenuItem;
    iD40: TMenuItem;
    iD50: TMenuItem;
    iDArrow: TMenuItem;
    iDelete: TMenuItem;
    iDiamond: TMenuItem;
    iDNone: TMenuItem;
    iDOvalArrow: TMenuItem;
    iDP1: TMenuItem;
    iDP10: TMenuItem;
    iDP11: TMenuItem;
    iDP12: TMenuItem;
    iDP13: TMenuItem;
    iDP14: TMenuItem;
    iDP15: TMenuItem;
    iDP16: TMenuItem;
    iDP2: TMenuItem;
    iDP3: TMenuItem;
    iDP4: TMenuItem;
    iDP5: TMenuItem;
    iDP6: TMenuItem;
    iDP7: TMenuItem;
    iDP8: TMenuItem;
    iDP9: TMenuItem;
    iDRectArrow: TMenuItem;
    iEdit: TMenuItem;
    iEllipse: TMenuItem;
    iImageBottom: TMenuItem;
    iImageBottomLeft: TMenuItem;
    iImageBottomRight: TMenuItem;
    iImageCenter: TMenuItem;
    iImageLeft: TMenuItem;
    iImageRight: TMenuItem;
    iImageTop: TMenuItem;
    iImageTopLeft: TMenuItem;
    iImageTopRight: TMenuItem;
    ImagePositionPopupMenu: TPopupMenu;
    iNewUnion: TMenuItem;
    iNone: TMenuItem;
    iNorthTriangle: TMenuItem;
    iPaste: TMenuItem;
    iRectangle: TMenuItem;
    iRectHorizontal: TMenuItem;
    iRectVertical: TMenuItem;
    iRemoveFromUnion: TMenuItem;
    iRemovePoint: TMenuItem;
    iRoundRect: TMenuItem;
    iS10: TMenuItem;
    iS20: TMenuItem;
    iS30: TMenuItem;
    iS40: TMenuItem;
    iS50: TMenuItem;
    iSArrow: TMenuItem;
    iSelectAll: TMenuItem;
    iSendToBack: TMenuItem;
    iSNone: TMenuItem;
    iSOvalArrow: TMenuItem;
    iSP1: TMenuItem;
    iSP10: TMenuItem;
    iSP11: TMenuItem;
    iSP12: TMenuItem;
    iSP13: TMenuItem;
    iSP14: TMenuItem;
    iSP15: TMenuItem;
    iSP16: TMenuItem;
    iSP2: TMenuItem;
    iSP3: TMenuItem;
    iSP4: TMenuItem;
    iSP5: TMenuItem;
    iSP6: TMenuItem;
    iSP7: TMenuItem;
    iSP8: TMenuItem;
    iSP9: TMenuItem;
    iSRectArrow: TMenuItem;
    iStraight: TMenuItem;
    itEastTriangle: TMenuItem;
    iTextBottom: TMenuItem;
    iTextBottomLeft: TMenuItem;
    iTextBottomRight: TMenuItem;
    iTextCenter: TMenuItem;
    iTextLeft: TMenuItem;
    iTextRight: TMenuItem;
    iTextTop: TMenuItem;
    iTextTopLeft: TMenuItem;
    iTextTopRight: TMenuItem;
    itHexagon: TMenuItem;
    itSouthTriangle: TMenuItem;
    itWestTriangle: TMenuItem;
    LargeImages: TImageList;
    LinePopupMenu: TPopupMenu;
    MainMenu: TMainMenu;
    mniActualSize: TMenuItem;
    mniAddToUnion: TMenuItem;
    mniBringToFront: TMenuItem;
    mniClearAllUnions: TMenuItem;
    mniClearSelection: TMenuItem;
    mniClearUnion: TMenuItem;
    mniCopy: TMenuItem;
    mniCut: TMenuItem;
    mniDelete: TMenuItem;
    miEdit: TMenuItem;
    miFile: TMenuItem;
    mniFit: TMenuItem;
    miHelp: TMenuItem;
    mniNewUnion: TMenuItem;
    mniOpen: TMenuItem;
    mniPaste: TMenuItem;
    mniRemoveFromUnion: TMenuItem;
    mniSaveAs: TMenuItem;
    mniSelectAll: TMenuItem;
    mniSendToBack: TMenuItem;
    mniUndo: TMenuItem;
    miUnions: TMenuItem;
    mniZoomIn: TMenuItem;
    mniZoomOut: TMenuItem;
    N1: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    OpenDialog: TOpenDialog;
    Panel1: TPanel;
    Panel2: TPanel;
    pSilver: TShape;
    pAqua: TShape;
    pBkColor: TShape;
    pBlack: TShape;
    pBlue: TShape;
    pColor: TShape;
    pFuchsia: TShape;
    pGray: TShape;
    pGreen: TShape;
    pLime: TShape;
    pMarron: TShape;
    pNavy: TShape;
    pObject: TPanel;
    pOlive: TShape;
    pPurple: TShape;
    pRed: TShape;
    pTeal: TShape;
    pWhite: TShape;
    pYellow: TShape;
    SArrowSizePopupMenu: TPopupMenu;
    SaveDialog: TSaveDialog;
    sbConnectFont: TSpeedButton;
    sbDArrowSize: TSpeedButton;
    sbDestArrow: TSpeedButton;
    sbDPoint: TSpeedButton;
    sbImagePosition: TSpeedButton;
    sbLine: TSpeedButton;
    sbObjectFont: TSpeedButton;
    sbSArrowSize: TSpeedButton;
    sbShape: TSpeedButton;
    sbSourceArrow: TSpeedButton;
    sbSPoint: TSpeedButton;
    sbStyle: TSpeedButton;
    sbTextPosition: TSpeedButton;
    ShapePopupMenu: TPopupMenu;
    SmallImages: TImageList;
    SourceArrowPopupMenu: TPopupMenu;
    SPointPopupMenu: TPopupMenu;
    StylePopupMenu: TPopupMenu;
    TextPositionPopupMenu: TPopupMenu;
    View1: TMenuItem;
    ilWfObj: TImageList;
    tlb1: TToolBar;
    bvl: TBevel;
    btnOpen: TToolButton;
    btnSaveAs: TToolButton;
    btnUndo: TToolButton;
    btn4: TToolButton;
    btnCut: TToolButton;
    btnCopy: TToolButton;
    btnPaste: TToolButton;
    btnDelete: TToolButton;
    btn9: TToolButton;
    btnSelAll: TToolButton;
    btnBringToFront: TToolButton;
    btn12: TToolButton;
    btnSendToBack: TToolButton;
    btnNewUnion: TToolButton;
    btnAddToUnion: TToolButton;
    btnRemoveFromUnion: TToolButton;
    btn17: TToolButton;
    btnZoomIn: TToolButton;
    btnZoomOut: TToolButton;
    btnFit: TToolButton;
    actlstWfEditor: TActionList;
    actOpen: TAction;
    actSaveAs: TAction;
    actUndo: TAction;
    actCopy: TAction;
    actCut: TAction;
    actPaste: TAction;
    actDelete: TAction;
    actSelAll: TAction;
    actClearSelection: TAction;
    actBringToFront: TAction;
    actSendToBack: TAction;
    actZoomIn: TAction;
    actZoomOut: TAction;
    actFit: TAction;
    actActualSize: TAction;
    actNewUnion: TAction;
    actAddToUnion: TAction;
    actRemoveFromUnion: TAction;
    actClearUnion: TAction;
    actClearAllUnions: TAction;
    actContens: TAction;
    statWFEditor: TStatusBar;
    actProp: TAction;
    actRemovePoint: TAction;
    btnS: TSpeedButton;
    btnE: TSpeedButton;
    btnT: TSpeedButton;
    btnLine: TSpeedButton;
    pmLinePopupMenu: TPopupMenu;
    mni1: TMenuItem;
    mni2: TMenuItem;
    mni3: TMenuItem;
    mni4: TMenuItem;
    mni5: TMenuItem;
    mni6: TMenuItem;
    mni7: TMenuItem;
    mni8: TMenuItem;
    mni9: TMenuItem;
    mni10: TMenuItem;
    actlstLayout: TActionList;
    actAlignLeft: TAction;
    actAlignRight: TAction;
    mniLayout: TMenuItem;
    mniAlignLeft: TMenuItem;
    mniAlignRight: TMenuItem;
    actAlignHCenter: TAction;
    actSpaceEquH: TAction;
    actSpaceEquHX: TAction;
    actIncWidth: TAction;
    actDecWidth: TAction;
    actMakeMaxWidth: TAction;
    actMakeMinWidth: TAction;
    actMakeSameWidth: TAction;
    actSpaceDecH: TAction;
    actSpaceIncH: TAction;
    actAlignTop: TAction;
    actAlignBottom: TAction;
    actAlignVCenter: TAction;
    actSpaceEquV: TAction;
    actSpaceEquVY: TAction;
    actIncHeight: TAction;
    actDecHeight: TAction;
    actMakeMaxHeight: TAction;
    actMakeMinHeight: TAction;
    actMakeSameHeight: TAction;
    actSpaceDecV: TAction;
    actSpaceIncV: TAction;
    mniAlignHCenter: TMenuItem;
    mniSpaceEquH: TMenuItem;
    mniSpaceEquHX: TMenuItem;
    mniIncWidth: TMenuItem;
    mniDecWidth: TMenuItem;
    mniMakeMaxWidth: TMenuItem;
    mniMakeMinWidth: TMenuItem;
    mniMakeSameWidth: TMenuItem;
    mniSpaceDecH: TMenuItem;
    mniSpaceIncH: TMenuItem;
    mniN2: TMenuItem;
    mniAlignTop: TMenuItem;
    mniAlignBottom: TMenuItem;
    mniAlignVCenter: TMenuItem;
    mniSpaceEquV: TMenuItem;
    mniSpaceEquVY: TMenuItem;
    mniIncHeight: TMenuItem;
    mniDecHeight: TMenuItem;
    mniMakeMaxHeight: TMenuItem;
    mniMakeMinHeight: TMenuItem;
    mniMakeSameHeight: TMenuItem;
    mniSpaceDecV: TMenuItem;
    mniUndo1: TMenuItem;
    btn1: TToolButton;
    btnAlignLeft: TToolButton;
    btnAlignRight: TToolButton;
    btnAlignHCenter: TToolButton;
    btnIncWidth: TToolButton;
    btnDecWidth: TToolButton;
    btnMakeMaxWidth: TToolButton;
    btnMakeMinWidth: TToolButton;
    btnMakeSameWidth: TToolButton;
    btnAlignTop: TToolButton;
    btnAlignBottom: TToolButton;
    btnAlignVCenter: TToolButton;
    btn22: TToolButton;
    btnIncHeight: TToolButton;
    btnDecHeight: TToolButton;
    btnMakeMaxHeight: TToolButton;
    btnMakeMinHeight: TToolButton;
    btnMakeSameHeight: TToolButton;
    actFind: TAction;
    actFindNext: TAction;
    dlgFind: TFindDialog;
    mniN3: TMenuItem;
    mniFind: TMenuItem;
    mniFindNext: TMenuItem;
    dlgReplace: TReplaceDialog;
    actReplace: TAction;
    mniReplace: TMenuItem;
    actSetPoint: TAction;
    mniSetPoint: TMenuItem;
    actViewSize: TAction;
    mniViewSize: TMenuItem;
    actSelAllObj: TAction;
    actSelAllCon: TAction;