Changeset 22 for trunk/UMainForm.pas

Timestamp:

Feb 12, 2012, 8:15:36 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Default language selection and remeber explicitly selected language.

File:

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

trunk/UMainForm.pas

@@ -221 +221 @@
     OpenKey(Key, True);
     OpenProjectOnStart := ReadBoolWithDefault('OpenProjectOnStart', True);
+    BrainFuckInterpreter.CellSize := ReadIntegerWithDefault('CellSize', 256);
+    BrainFuckInterpreter.MemorySize := ReadIntegerWithDefault('MemorySize', 30000);
+    if ValueExists('LanguageCode') then
+      CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
+      else CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('');
   finally
     Free;
@@ -235 +240 @@
     OpenKey(Key, True);
     WriteBool('OpenProjectOnStart', OpenProjectOnStart);
+    WriteInteger('CellSize', BrainFuckInterpreter.CellSize);
+    WriteInteger('MemorySize', BrainFuckInterpreter.MemorySize);
+    if Assigned(CoolTranslator1.Language) and (CoolTranslator1.Language.Code <> '') then
+      WriteString('LanguageCode', CoolTranslator1.Language.Code)
+      else DeleteValue('LanguageCode');
   finally
     Free;
@@ -284 +294 @@
   BrainFuckInterpreter.OnChangeState := BrainFuckInterpreterChangeState;
   BrainFuckCompiler := TBrainFuckCompiler.Create;
-  CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('cs');
   Compilers := TListObject.Create;
   Compilers.Add(TBrainFuckCompilerDelphi.Create);