Changeset 4 for trunk/Forms

Timestamp:

Sep 1, 2014, 7:10:03 PM (10 years ago)

Author:

chronos

Message:

• Added: Concept of project and open project as directory.

Location:

trunk/Forms

Files:

• UFormBrowse.lfm (modified) (3 diffs)
• UFormMain.lfm (modified) (5 diffs)
• UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormBrowse.lfm

@@ -1 +1 @@
 object FormBrowse: TFormBrowse
-  Left = 351
+  Left = 554
   Height = 526
-  Top = 147
+  Top = 269
   Width = 722
   Caption = 'Browse'
   ClientHeight = 526
   ClientWidth = 722
-  LCLVersion = '1.1'
+  LCLVersion = '1.3'
   object TreeView1: TTreeView
     Left = 0
@@ -14 +14 @@
     Width = 241
     Align = alLeft
+    DefaultItemHeight = 24
     TabOrder = 0
   end
@@ -43 +44 @@
       item
         Caption = 'Status'
-        Width = 256
+        Width = 259
       end>
     ReadOnly = True

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 667
   Caption = 'VCSCommander'
-  ClientHeight = 472
+  ClientHeight = 471
   ClientWidth = 667
   Menu = MainMenu1
-  LCLVersion = '1.1'
+  LCLVersion = '1.3'
   object ToolBarMain: TToolBar
     Left = 0
@@ -15 +15 @@
     Width = 667
     Caption = 'ToolBarMain'
-    Images = ImageList1
     ParentShowHint = False
     ShowHint = True
@@ -22 +21 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 21
-    Top = 451
+    Height = 26
+    Top = 445
     Width = 667
     Panels = <>
   end
   object MainMenu1: TMainMenu
-    Images = ImageList1
     left = 232
     top = 88
     object MenuItemFile: TMenuItem
       Caption = 'File'
+      object MenuItem8: TMenuItem
+        Action = Core.AProjectOpen
+      end
+      object MenuItem10: TMenuItem
+        Action = Core.AProjectClose
+      end
+      object MenuItem9: TMenuItem
+        Caption = '-'
+      end
       object MenuItemQuit: TMenuItem
-        Action = AQuit
+        Action = Core.AQuit
       end
     end
@@ -40 +47 @@
       Caption = 'View'
       object MenuItem7: TMenuItem
-        Action = AViewFavorites
+        Caption = 'Favorites'
       end
     end
@@ -46 +53 @@
       Caption = 'General'
       object MenuItem2: TMenuItem
-        Action = ASettings
+        Action = Core.ASettings
       end
     end
     object MenuItem3: TMenuItem
-      Caption = 'Help'
+      Action = Core.AHelp
       object MenuItem5: TMenuItem
-        Action = AHelp
+        Caption = 'Help'
       end
       object MenuItem4: TMenuItem
-        Action = AAbout
+        Action = Core.AAbout
       end
     end
   end
-  object ActionList1: TActionList
-    Images = ImageList1
-    left = 232
-    top = 144
-    object AQuit: TAction
-      Caption = 'Quit'
-      Hint = 'Quit'
-      OnExecute = AQuitExecute
-    end
-    object ASettings: TAction
-      Caption = 'Settings'
-    end
-    object AAbout: TAction
-      Caption = 'About'
-    end
-    object AHelp: TAction
-      Caption = 'Help'
-    end
-    object AViewFavorites: TAction
-      Caption = 'Favorites'
-    end
-  end
-  object ImageList1: TImageList
-    left = 232
-    top = 200
-  end
 end

trunk/Forms/UFormMain.pas

@@ -14 +14 @@
 
   TFormMain = class(TForm)
-    AViewFavorites: TAction;
-    AHelp: TAction;
-    ASettings: TAction;
-    AAbout: TAction;
-    AQuit: TAction;
-    ActionList1: TActionList;
-    ImageList1: TImageList;
     MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
+    MenuItem10: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
@@ -29 +23 @@
     MenuItem6: TMenuItem;
     MenuItem7: TMenuItem;
+    MenuItem8: TMenuItem;
+    MenuItem9: TMenuItem;
     MenuItemQuit: TMenuItem;
     MenuItemFile: TMenuItem;
     StatusBar1: TStatusBar;
     ToolBarMain: TToolBar;
-    procedure AQuitExecute(Sender: TObject);
   private
     { private declarations }
   public
-    { public declarations }
+    procedure UpdateInterface;
   end;
 
@@ -47 +42 @@
 {$R *.lfm}
 
+uses
+  UCore;
+
 { TFormMain }
 
-procedure TFormMain.AQuitExecute(Sender: TObject);
+procedure TFormMain.UpdateInterface;
+const
+  AppName = 'VCSCommander';
 begin
-  Close;
+  if Assigned(Core.Project) then
+    Caption := Core.Project.Directory + ' - ' + AppName
+    else Caption := AppName
 end;