Class TWfModelForm (unit wfMain)

Inherits from

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);

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;



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;