Changeset 4 for trunk/Forms/UFormMain.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Forms/UFormMain.pas (modified) (3 diffs)

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;