| Class TWfModelForm (unit wfMain) |
TForm
| Constructors |
| Functions |
procedure AddWfClass(Sender: TObject);
procedure AddWfSubClass(Sender: TObject);
procedure AddWorkFlowStep1Click(Sender: TObject);
procedure ClearModel(Sender: TObject);
procedure CopyModel1Click(Sender: TObject);
procedure DeleteWfItem(Sender: TObject);
procedure FileExit(Sender: TObject);
procedure FileOpen(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure ListViewEnter(Sender: TObject);
procedure ListViewExit(Sender: TObject);
procedure SaveResource(Sender: TObject);
procedure SelectViewType(Sender: TObject);
procedure SplitterMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure SplitterMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SplitterMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TreeViewChange(Sender: TObject; Node: TTreeNode);
procedure TreeViewEnter(Sender: TObject);
procedure TreeViewExit(Sender: TObject);
procedure TvDeleteNode(Sender: TObject; Node: TTreeNode);
procedure ViewMenuDropDown(Sender: TObject);
Function AddChildNode(Const S : String;
Const PNode : TTreeNode;
Const SList : TStringList) : TTreeNode;
Function AddModelNode(Const S : String) : TTreeNode;
Function CopyNode(Const PNode : TTreeNode;
Const ANode : TTreeNode) : Boolean;
procedure DisplayResources(FileName : String);
Function ReadModel(Const AModel : String) : Boolean;
Function ReadNode(Const PNode : TTreeNode;
Var Storage : IStorage;
Ndx : Integer) : Boolean;
Procedure SetOptionsMenu(CState : Integer);
Function StoreModel( CNode : TTreeNode;
Const AModel : String) : Boolean;
Function StoreNode(Var Storage : IStorage;
CNode : TTreeNode;
Ndx : Integer) : Boolean;
procedure UpdateListView(AStrings : TStringList);
Procedure UpdateTreeView;
procedure UpdateViewPanel;| Properties |
| Events |
| Variables |
AddWorkFlowClass1 : TMenuItem;
AddWorkFlowStep1 : TMenuItem;
AddWorkFlowSubClass1 : TMenuItem;
CopyModel1 : TMenuItem;
DeleteWorkFlowItem1 : TMenuItem;
FileOpenDialog : TOpenDialog;
FileSaveDialog : TSaveDialog;
Large : TImageList;
ListView : TListView;
ListViewCaption : TPanel;
ListViewPanel : TPanel;
MainMenu : TMainMenu;
miFile : TMenuItem;
miFileExit : TMenuItem;
miFileOpen : TMenuItem;
miFileSave : TMenuItem;
miView : TMenuItem;
miViewLargeIcons : TMenuItem;
miViewSmallIcons : TMenuItem;
NewModel1 : TMenuItem;
Options1 : TMenuItem;
Panel1 : TPanel;
Small : TImageList;
Splitter : TPanel;
StatusBar : TStatusBar;
TreeView : TTreeView;
TreeViewPanel : TPanel;
CurList : TStringList;
SplitControl : TSplitControl;
TreeStorage : TStructuredStorage;| Constructors |
| Functions |
procedure AddWfClass(Sender: TObject);
procedure AddWfSubClass(Sender: TObject);
procedure AddWorkFlowStep1Click(Sender: TObject);
procedure ClearModel(Sender: TObject);
procedure CopyModel1Click(Sender: TObject);
procedure DeleteWfItem(Sender: TObject);
procedure FileExit(Sender: TObject);Do An Error
procedure FileOpen(Sender: TObject);Do an Error
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);Form Initialization
procedure ListViewEnter(Sender: TObject);
procedure ListViewExit(Sender: TObject);
procedure SaveResource(Sender: TObject);
procedure SelectViewType(Sender: TObject);
procedure SplitterMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure SplitterMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SplitterMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TreeViewChange(Sender: TObject; Node: TTreeNode);
procedure TreeViewEnter(Sender: TObject);
procedure TreeViewExit(Sender: TObject);
procedure TvDeleteNode(Sender: TObject; Node: TTreeNode);
procedure ViewMenuDropDown(Sender: TObject);
Function AddChildNode(Const S : String;
Const PNode : TTreeNode;
Const SList : TStringList) : TTreeNode;
Function AddModelNode(Const S : String) : TTreeNode;
Function CopyNode(Const PNode : TTreeNode;
Const ANode : TTreeNode) : Boolean;
procedure DisplayResources(FileName : String);
Function ReadModel(Const AModel : String) : Boolean;
Function ReadNode(Const PNode : TTreeNode;
Var Storage : IStorage;
Ndx : Integer) : Boolean;
Procedure SetOptionsMenu(CState : Integer);
Function StoreModel( CNode : TTreeNode;
Const AModel : String) : Boolean;
Function StoreNode(Var Storage : IStorage;
CNode : TTreeNode;
Ndx : Integer) : Boolean;
procedure UpdateListView(AStrings : TStringList);
Procedure UpdateTreeView;
procedure UpdateViewPanel;| Properties |
| Events |
| Variables |
AddWorkFlowClass1 : TMenuItem;
AddWorkFlowStep1 : TMenuItem;
AddWorkFlowSubClass1 : TMenuItem;
CopyModel1 : TMenuItem;
DeleteWorkFlowItem1 : TMenuItem;
FileOpenDialog : TOpenDialog;
FileSaveDialog : TSaveDialog;
Large : TImageList;
ListView : TListView;
ListViewCaption : TPanel;
ListViewPanel : TPanel;
MainMenu : TMainMenu;
miFile : TMenuItem;
miFileExit : TMenuItem;
miFileOpen : TMenuItem;
miFileSave : TMenuItem;
miView : TMenuItem;
miViewLargeIcons : TMenuItem;
miViewSmallIcons : TMenuItem;
NewModel1 : TMenuItem;
Options1 : TMenuItem;
Panel1 : TPanel;
Small : TImageList;
Splitter : TPanel;
StatusBar : TStatusBar;
TreeView : TTreeView;
TreeViewPanel : TPanel;
CurList : TStringList;
SplitControl : TSplitControl;
TreeStorage : TStructuredStorage;