Changeset 11 for trunk/UFormMain.pas

Timestamp:

May 3, 2014, 12:09:24 AM (10 years ago)

Author:

chronos

Message:

• Added: Common package for support of LastOpenedList.

File:

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

trunk/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ActnList, ComCtrls, StdCtrls, UKConfig;
+  ActnList, ComCtrls, StdCtrls, UKConfig, ULastOpenedList, URegistry, Registry;
+
+const
+  RootKey = HKEY_CURRENT_USER;
+  RootPath = '\Software\LinuxBuilder';
 
 type
@@ -22 +26 @@
     ActionList1: TActionList;
     ImageList1: TImageList;
+    LastOpenedList1: TLastOpenedList;
     MainMenu1: TMainMenu;
     Memo1: TMemo;
     MenuItem1: TMenuItem;
+    MenuItem10: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
@@ -32 +38 @@
     MenuItem7: TMenuItem;
     MenuItem8: TMenuItem;
+    MenuItem9: TMenuItem;
+    MenuItemOpenRecent: TMenuItem;
     StatusBar1: TStatusBar;
     ToolBar1: TToolBar;
@@ -45 +53 @@
     procedure AShowLogExecute(Sender: TObject);
     procedure AViemSystemExecute(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure LastOpenedList1Change(Sender: TObject);
+    procedure MenuItemOpenRecentClick(Sender: TObject);
     procedure TreeView1SelectionChanged(Sender: TObject);
   private
     procedure DoLog(Text: string);
+    procedure OpenDir(Dir: string);
   public
+    AutoOpen: Boolean;
     Config: TConfigMenu;
     procedure Reload;
@@ -71 +84 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
-  Config.LoadFromDir('/home/jha/Projekty/fpc/kernel_options/linux-3.0', 'x86');
-  Reload;
+  AutoOpen := True;
+  LastOpenedList1.LoadFromRegistry(RegContext(RootKey, RootPath));
+  if AutoOpen and (LastOpenedList1.Items.Count > 0) then
+    OpenDir(LastOpenedList1.Items[0])
+    else Reload;
+end;
+
+procedure TFormMain.LastOpenedList1Change(Sender: TObject);
+begin
+  LastOpenedList1.LoadToMenuItem(MenuItemOpenRecent, AOpenDirExecute);
+end;
+
+procedure TFormMain.MenuItemOpenRecentClick(Sender: TObject);
+begin
+
 end;
 
@@ -89 +115 @@
 end;
 
+procedure TFormMain.OpenDir(Dir: string);
+begin
+  Config.LoadFromDir(Dir);
+  LastOpenedList1.AddItem(Dir);
+  Reload;
+end;
+
 procedure TFormMain.Reload;
 var
@@ -94 +127 @@
 begin
   TreeView1.Items.Clear;
-  TreeView1.Items.AddChild(nil, Config.TopNode.GetName);
-  Options := [];
-  if AViemSystem.Checked then Include(Options, toShowSystem);
-  Config.TopNode.LoadTreeNode(TreeView1.TopItem, Options);
-  TreeView1.TopItem.Expanded := True;
-  StatusBar1.Panels[0].Text := 'Count: ' + IntToStr(Config.TopNode.GetCount);
+  if Assigned(Config.TopNode) then begin
+    TreeView1.Items.AddChild(nil, Config.TopNode.GetName);
+    Options := [];
+    if AViemSystem.Checked then Include(Options, toShowSystem);
+    Config.TopNode.LoadTreeNode(TreeView1.TopItem, Options);
+    TreeView1.TopItem.Expanded := True;
+    StatusBar1.Panels[0].Text := 'Count: ' + IntToStr(Config.TopNode.GetCount);
+  end else begin
+    StatusBar1.Panels[0].Text := '';
+  end;
 end;
 
@@ -117 +154 @@
   OutDir: string;
 begin
+  if Sender is TMenuItem then begin
+    OpenDir(TMenuItem(Sender).Caption);
+  end;
   if SelectDirectory('Select Linux source directory', Config.BaseDir, OutDir) then begin
-    Config.LoadFromDir(OutDir, 'x86');
-    Reload;
+    OpenDir(OutDir);
   end;
 end;
@@ -141 +180 @@
     Config2 := TConfigMenu.Create;
     Config.TopNode.SaveToList(List1);
-    Config2.LoadFromDir('/opt/elinos-D6.0/linux/linux-p4-3.0/', 'p4');
+    Config2.LoadFromDir('/opt/elinos-D6.0/linux/linux-p4-3.0/');
     Config2.TopNode.SaveToList(List2);
     Config.CompareStringLists(List1, List2, Missing1, Missing2);
@@ -176 +215 @@
 end;
 
+procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  LastOpenedList1.SaveToRegistry(RegContext(RootKey, RootPath));
+end;
+
 procedure TFormMain.FormCreate(Sender: TObject);
 begin