Changeset 68 for trunk/IDE/Forms

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/IDE/Forms

Files:

• UFormMain.lfm (modified) (8 diffs)
• UFormMain.pas (modified) (6 diffs)

trunk/IDE/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 695
   Caption = 'Transpascal IDE'
-  ClientHeight = 476
+  ClientHeight = 482
   ClientWidth = 695
   Font.Height = -11
@@ -20 +20 @@
     Left = 0
     Height = 5
-    Top = 471
+    Top = 477
     Width = 695
     Align = alBottom
@@ -89 +89 @@
     object ComboBoxTarget: TComboBox
       Left = 230
-      Height = 27
+      Height = 21
       Top = 2
       Width = 100
-      ItemHeight = 0
+      ItemHeight = 13
       OnChange = ComboBoxTargetChange
       Style = csDropDownList
@@ -105 +105 @@
   object Splitter1: TSplitter
     Left = 490
-    Height = 339
+    Height = 345
     Top = 26
     Width = 5
@@ -113 +113 @@
   object PageControlRight: TPageControl
     Left = 495
-    Height = 339
+    Height = 345
     Top = 26
     Width = 200
@@ -137 +137 @@
     Left = 0
     Height = 101
-    Top = 370
+    Top = 376
     Width = 695
     ActivePage = TabSheetMessages
@@ -155 +155 @@
     Left = 0
     Height = 5
-    Top = 365
+    Top = 371
     Width = 695
     Align = alBottom
@@ -162 +162 @@
   object PageControlMain: TPageControl
     Left = 0
-    Height = 339
+    Height = 345
     Top = 26
     Width = 490

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;