Changeset 13 for trunk/UFormMain.pas

Timestamp:

May 9, 2014, 12:37:10 AM (10 years ago)

Author:

chronos

Message:

• Added: Basic parsing of "Depends on" expressions.

Location:

trunk

Files:

• . (modified) (1 prop)
• UFormMain.pas (modified) (5 diffs)

trunk

@@ -3 +3 @@
 LinuxBuilder.lps
 LinuxBuilder.res
+backup

@@ -3 +3 @@
 LinuxBuilder.lps
 LinuxBuilder.res
+backup

trunk/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ActnList, ComCtrls, StdCtrls, UKConfig, ULastOpenedList, URegistry, Registry;
+  ActnList, ComCtrls, StdCtrls, UKConfig, ULastOpenedList, URegistry, Registry2;
 
 const
@@ -67 +67 @@
     procedure LastOpenedListCompareChange(Sender: TObject);
     procedure LastOpenedListOpenChange(Sender: TObject);
-    procedure MenuItemOpenRecentClick(Sender: TObject);
     procedure TreeView1SelectionChanged(Sender: TObject);
   private
@@ -95 +94 @@
 begin
   AutoOpen := True;
-  LastOpenedListOpen.LoadFromRegistry(RegContext(RootKey, RootPath + '/OpenRecent'));
-  LastOpenedListCompare.LoadFromRegistry(RegContext(RootKey, RootPath + '/CompareRecent'));
+  LastOpenedListOpen.LoadFromRegistry(RegContext(RootKey, RootPath + '\OpenRecent'));
+  LastOpenedListCompare.LoadFromRegistry(RegContext(RootKey, RootPath + '\CompareRecent'));
   if AutoOpen and (LastOpenedListOpen.Items.Count > 0) then
     OpenDir(LastOpenedListOpen.Items[0])
@@ -112 +111 @@
   LastOpenedListOpen.LoadToMenuItem(MenuItemOpenRecent, AOpenDirExecute);
   LastOpenedListOpen.LoadToMenuItem(PopupMenuOpenRecent.Items, AOpenDirExecute);
-end;
-
-procedure TFormMain.MenuItemOpenRecentClick(Sender: TObject);
-begin
-
 end;
 
@@ -254 +248 @@
 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
-  LastOpenedListOpen.SaveToRegistry(RegContext(RootKey, RootPath + '/OpenRecent'));
-  LastOpenedListCompare.SaveToRegistry(RegContext(RootKey, RootPath + '/CompareRecent'));
+  LastOpenedListOpen.SaveToRegistry(RegContext(RootKey, RootPath + '\OpenRecent'));
+  LastOpenedListCompare.SaveToRegistry(RegContext(RootKey, RootPath + '\CompareRecent'));
 end;
 

@@ -3 +3 @@
 LinuxBuilder.lps
 LinuxBuilder.res
+backup