Changeset 68 for trunk/IDE/Forms/UFormMain.pas

Timestamp:

Jul 30, 2012, 3:52:56 PM (12 years ago)

Author:

chronos

Message:

• Added: Addon modules support.
• Modified: Restored usage of URegistry unit.

File:

• trunk/IDE/Forms/UFormMain.pas (modified) (6 diffs)

trunk/IDE/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
-  ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas,
+  ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas, Registry,
   UProject, FileUtil, Menus, ActnList, DateUtils,
-  UFormTargetCode, UFormCodeTree, UGeneralRegistry;
+  UFormTargetCode, UFormCodeTree, URegistry;
 
 type
@@ -146 +146 @@
     procedure ProducerProcessOutput(Text: string);
   public
-    procedure LoadFromRegistry(Root: Integer; const Key: string);
-    procedure SaveToRegistry(Root: Integer; const Key: string);
+    procedure LoadFromRegistry(Root: HKEY; const Key: string);
+    procedure SaveToRegistry(Root: HKEY; const Key: string);
     procedure OpenRecentClick(Sender: TObject);
     function GetSource(Name: string; var SourceCode: string): Boolean;
@@ -402 +402 @@
 end;
 
-procedure TFormMain.LoadFromRegistry(Root: Integer; const Key: string);
-begin
-  with TGeneralRegistry.Create(nil) do
+procedure TFormMain.LoadFromRegistry(Root: HKEY; const Key: string);
+begin
+  with TRegistryEx.Create do
     try
-      CurrentRoot := Root;
+      RootKey := Root;
       OpenKey(Key, True);
       if ValueExists('RightPanelWidth') then
@@ -419 +419 @@
 end;
 
-procedure TFormMain.SaveToRegistry(Root: Integer; const Key: string);
-begin
-  with TGeneralRegistry.Create(nil) do
+procedure TFormMain.SaveToRegistry(Root: HKEY; const Key: string);
+begin
+  with TRegistryEx.Create do
     try
-      CurrentRoot := Root;
+      RootKey := Root;
       OpenKey(Key, True);
       WriteInteger('RightPanelWidth', PageControlRight.Width);
@@ -477 +477 @@
 begin
   AProjectClose.Execute;
-  Core.SaveToRegistry(Integer(Core.ApplicationInfo.RegistryRoot), Core.ApplicationInfo.RegistryKey);
+  Core.SaveToRegistry(HKEY(Core.ApplicationInfo.RegistryRoot), Core.ApplicationInfo.RegistryKey);
 end;
 
@@ -503 +503 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
-  Core.LoadFromRegistry(Integer(Core.ApplicationInfo.RegistryRoot), Core.ApplicationInfo.RegistryKey);
+  Core.LoadFromRegistry(HKEY(Core.ApplicationInfo.RegistryRoot), Core.ApplicationInfo.RegistryKey);
   DockInit;
   Core.ProjectTemplatesInit;