Changeset 16 for trunk/UFormMain.pas

Timestamp:

Jan 8, 2016, 5:09:58 PM (8 years ago)

Author:

chronos

Message:

• Added: Preparation for filtering of non visible nodes.

File:

• trunk/UFormMain.pas (modified) (5 diffs)

trunk/UFormMain.pas

@@ -35 +35 @@
     MenuItem10: TMenuItem;
     MenuItemArch: TMenuItem;
-    MenuItem12: TMenuItem;
     MenuItemCompareRecent: TMenuItem;
     MenuItem2: TMenuItem;
@@ -81 +80 @@
     Config: TConfigMenu;
     procedure Reload;
+    procedure UpdateInterface;
     procedure FocusTreeNode(Node: TMenuNode);
   end;
@@ -137 +137 @@
   LastOpenedListOpen.AddItem(Dir);
   Reload;
+  UpdateInterface;
 end;
 
@@ -230 +231 @@
 end;
 
+procedure TFormMain.UpdateInterface;
+begin
+  Caption :=  Config.BaseDir + ' - ' + Application.Title;
+end;
+
 procedure TFormMain.FocusTreeNode(Node: TMenuNode);
 var
@@ -274 +280 @@
 procedure TFormMain.AExitExecute(Sender: TObject);
 begin
-  Application.Terminate;
+  FormMain.Close;
 end;