Changeset 55 for trunk/IDE/Forms/UFormProject.pas

Timestamp:

Jul 13, 2012, 1:49:52 PM (12 years ago)

Author:

chronos

Message:

• Updated: Common package now contain TApplicationInfo class which contain various application info.

File:

• trunk/IDE/Forms/UFormProject.pas (modified) (4 diffs)

trunk/IDE/Forms/UFormProject.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  UProject;
+  Menus, ActnList, UProject;
 
 type
@@ -12 +12 @@
 
   TFormProject = class(TForm)
+    AAdd: TAction;
+    AShow: TAction;
+    ARename: TAction;
+    ADelete: TAction;
+    ActionList1: TActionList;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    OpenDialog1: TOpenDialog;
+    PopupMenuFile: TPopupMenu;
     TreeViewProject: TTreeView;
+    procedure AAddExecute(Sender: TObject);
     procedure TreeViewProjectChange(Sender: TObject; Node: TTreeNode);
   private
@@ -67 +79 @@
 end;
 
+procedure TFormProject.AAddExecute(Sender: TObject);
+begin
+  if Sender is TMenuItem then
+  with TMenuItem(Sender) do begin
+    if OpenDialog1.Execute then begin
+
+      UpdateProjectTree;
+    end;
+  end;
+end;
+
 procedure TFormProject.UpdateProjectTree;
 var
   NewNode: TTreeNode;
 begin
-  with Core, TreeViewProject, Items do begin
+  with Core, TreeViewProject, Items do
+  try
     BeginUpdate;
     Clear;
     if Assigned(Project) then begin
-      NewNode := AddChild(nil, ExtractFileNameOnly(Project.FileName));
+      NewNode := AddChildObject(nil, ExtractFileNameOnly(Project.FileName), Project);
       UpdateProjectFiles(NewNode, Project.Files);
       NewNode.Expand(True);
     end;
-    EndUpdate;
     if Assigned(TreeViewProject.TopItem) and
       (TreeViewProject.TopItem.Count > 0) then
       TreeViewProject.TopItem.Items[0].Selected := True
       else FormSourceCode.ProjectFile := nil;
+  finally
+    EndUpdate;
   end;
 end;
@@ -113 +138 @@
       end;
     end;
-    NewNode := TreeViewProject.Items.AddChild(SelNode, FileName);
-    NewNode.Data := Pointer(Files[I]);
+    NewNode := TreeViewProject.Items.AddChildObject(SelNode, FileName, Pointer(Files[I]));
   end;
 end;