Changeset 56 for trunk/IDE/Forms

Timestamp:

Jul 13, 2012, 2:10:18 PM (12 years ago)

Author:

chronos

Message:

• Modified: Slightly enhanced unfinished interpretter.

Location:

trunk/IDE/Forms

Files:

• UFormProject.lfm (modified) (1 diff)
• UFormProject.pas (modified) (2 diffs)

trunk/IDE/Forms/UFormProject.lfm

@@ -47 +47 @@
     object ADelete: TAction
       Caption = 'Delete'
+      OnExecute = ADeleteExecute
     end
     object ARename: TAction
       Caption = 'Rename'
+      OnExecute = ARenameExecute
     end
     object AShow: TAction
       Caption = 'Show'
+      OnExecute = AShowExecute
     end
   end

trunk/IDE/Forms/UFormProject.pas

@@ -25 +25 @@
     TreeViewProject: TTreeView;
     procedure AAddExecute(Sender: TObject);
+    procedure ADeleteExecute(Sender: TObject);
+    procedure ARenameExecute(Sender: TObject);
+    procedure AShowExecute(Sender: TObject);
     procedure TreeViewProjectChange(Sender: TObject; Node: TTreeNode);
   private
@@ -90 +93 @@
 end;
 
+procedure TFormProject.ADeleteExecute(Sender: TObject);
+begin
+
+end;
+
+procedure TFormProject.ARenameExecute(Sender: TObject);
+begin
+
+end;
+
+procedure TFormProject.AShowExecute(Sender: TObject);
+begin
+
+end;
+
 procedure TFormProject.UpdateProjectTree;
 var