Changeset 22

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk

Files:

• Languages/LazFuckIDE.cs.po (modified) (2 diffs)
• UMainForm.pas (modified) (3 diffs)
• UOptionsForm.pas (modified) (1 diff)

trunk/Languages/LazFuckIDE.cs.po

@@ -200 +200 @@
 #: tmainform.menuitemopenrecent.caption
 msgid "Open recent"
-msgstr ""
+msgstr "Otevřít nedávnÃœ"
 
 #: tmainform.menuitemtarget.caption
@@ -226 +226 @@
 #: toptionsform.checkbox1.caption
 msgid "Reopend last opened project"
-msgstr ""
+msgstr "Otevřít naposledy otevřenÃœ projekt"
 
 #: toptionsform.label1.caption

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);

trunk/UOptionsForm.pas

@@ -47 +47 @@
 begin
   MainForm.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
-  ComboBoxLanguage.ItemIndex := MainForm.CoolTranslator1.Languages.IndexOf(MainForm.CoolTranslator1.Language);
+  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(MainForm.CoolTranslator1.Language);
   if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
   CheckBox1.Checked := MainForm.OpenProjectOnStart;