Changeset 136 for trunk/UCore.pas

Timestamp:

Mar 5, 2022, 4:14:27 PM (3 years ago)

Author:

chronos

Message:

• Modified: Update recent files list in registry immediately.
• Fixed: Regresion in debugging step in and step out.
• Fixed: Of by one index in loop start command interpretation.
• Fixed: Correctly load directory and file name into open and save dialogs.
• Modified: Faster interval for program output refresh.

File:

• trunk/UCore.pas (modified) (6 diffs)

trunk/UCore.pas

@@ -29 +29 @@
     FCurrentTarget: TTarget;
     StoredDimension: TControlDimension;
+    RecentFileRegistryContext: TRegistryContext;
     procedure InitTargets;
     procedure SetCurrentTarget(AValue: TTarget);
@@ -46 +47 @@
     Optimizations: TOptimizations;
     procedure Init;
+    procedure AddItemToLastOpenedList(FileName: string);
     procedure LoadFromRegistry(Context: TRegistryContext);
     procedure SaveToRegistry(Context: TRegistryContext);
@@ -69 +71 @@
 
 { TCore }
+
+procedure TCore.AddItemToLastOpenedList(FileName: string);
+begin
+  with LastOpenedList do begin
+    LoadFromRegistry(RecentFileRegistryContext);
+    AddItem(FileName);
+    SaveToRegistry(RecentFileRegistryContext);
+  end;
+end;
 
 procedure TCore.DataModuleCreate(Sender: TObject);
@@ -91 +102 @@
   StoredDimension := TControlDimension.Create;
   InitTargets;
+  RecentFileRegistryContext := TRegistryContext.Create(ApplicationInfo.RegistryRoot,
+    ApplicationInfo.RegistryKey + '\' + RecentFilesRegKey);
   LoadFromRegistry(Core.ApplicationInfo.GetRegistryContext);
 end;
@@ -149 +162 @@
     Free;
   end;
-  LastOpenedList.LoadFromRegistry(TRegistryContext.Create(Context.RootKey, Context.Key + '\' + RecentFilesRegKey));
   Targets.LoadFromRegistry(TRegistryContext.Create(Context.RootKey, Context.Key + '\Compiler'));
+  LastOpenedList.LoadFromRegistry(RecentFileRegistryContext);
   PersistentForm1.RegistryContext := Context;
 end;
@@ -157 +170 @@
 begin
   Targets.SaveToRegistry(TRegistryContext.Create(Context.RootKey, Context.Key + '\Compiler'));
-  LastOpenedList.SaveToRegistry(TRegistryContext.Create(Context.RootKey, Context.Key + '\' + RecentFilesRegKey));
   with TRegistryEx.Create do
   try