Changeset 52 for trunk/UCore.pas

Timestamp:

Jul 26, 2012, 3:11:08 PM (12 years ago)

Author:

chronos

Message:

• Modified: Optimization functions moved to shared place in TTarget.
• Modified: Text source is loaded to program source array of brainfuck commands for better processing.

File:

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

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, UApplicationInfo, ULastOpenedList,
-  UCoolTranslator, UTarget;
+  UCoolTranslator, UTarget, URegistry, Registry;
 
 type
@@ -25 +25 @@
     Targets: TTargetList;
     OpenProjectOnStart: Boolean;
+    procedure LoadFromRegistry(Root: HKEY; Key: string);
+    procedure SaveToRegistry(Root: HKEY; Key: string);
   end;
 
@@ -48 +50 @@
   Targets.Add(TTargetC.Create);
   Targets.Add(TTargetJava.Create);
+  LoadFromRegistry(HKEY(ApplicationInfo.RegistryRoot), ApplicationInfo.RegistryKey);
 end;
 
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
+  SaveToRegistry(HKEY(ApplicationInfo.RegistryRoot), ApplicationInfo.RegistryKey);
   Targets.Free;
+end;
+
+procedure TCore.LoadFromRegistry(Root: HKEY; Key: string);
+var
+  TargetName: string;
+begin
+  with TRegistryEx.Create do
+  try
+    RootKey := Root;
+    OpenKey(Key, True);
+    OpenProjectOnStart := ReadBoolWithDefault('OpenProjectOnStart', True);
+    if ValueExists('LanguageCode') then
+      CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
+      else CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('');
+  finally
+    Free;
+  end;
+  LastOpenedList.LoadFromRegistry(Root, Key);
+  Targets.LoadFromRegistry(Root, Key);
+end;
+
+procedure TCore.SaveToRegistry(Root: HKEY; Key: string);
+begin
+  Targets.SaveToRegistry(Root, Key);
+  LastOpenedList.SaveToRegistry(Root, Key);
+  with TRegistryEx.Create do
+  try
+    RootKey := Root;
+    OpenKey(Key, True);
+    WriteBool('OpenProjectOnStart', OpenProjectOnStart);
+    if Assigned(CoolTranslator1.Language) and (CoolTranslator1.Language.Code <> '') then
+      WriteString('LanguageCode', CoolTranslator1.Language.Code)
+      else DeleteValue('LanguageCode');
+  finally
+    Free;
+  end;
 end;