Changeset 52 for trunk/Forms/UFormMain.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/Forms/UFormMain.pas (modified) (4 diffs)

trunk/Forms/UFormMain.pas

@@ -175 +175 @@
   SProgramStopped = 'Program stopped';
   SNewProject = 'New project';
+  SCompileStart = 'Compiling...';
+  SDone = 'Done';
 
 { TMainForm }
@@ -298 +300 @@
     RootKey := Root;
     OpenKey(Key, True);
-    Core.OpenProjectOnStart := ReadBoolWithDefault('OpenProjectOnStart', True);
-    if ValueExists('LanguageCode') then
-      Core.CoolTranslator1.Language := Core.CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
-      else Core.CoolTranslator1.Language := Core.CoolTranslator1.Languages.SearchByCode('');
     TargetName := ReadStringWithDefault('TargetName', 'Interpretter');
     CurrentTarget := Core.Targets.FindByName(TargetName);
@@ -308 +306 @@
     Free;
   end;
-  Core.LastOpenedList.LoadFromRegistry(Root, Key);
-  Core.Targets.LoadFromRegistry(Root, Key);
 end;
 
 procedure TMainForm.SaveToRegistry(Root: HKEY; Key: string);
 begin
-  Core.Targets.SaveToRegistry(Root, Key);
-  Core.LastOpenedList.SaveToRegistry(Root, Key);
   with TRegistryEx.Create do
   try
     RootKey := Root;
     OpenKey(Key, True);
-    WriteBool('OpenProjectOnStart', Core.OpenProjectOnStart);
-    if Assigned(Core.CoolTranslator1.Language) and (Core.CoolTranslator1.Language.Code <> '') then
-      WriteString('LanguageCode', Core.CoolTranslator1.Language.Code)
-      else DeleteValue('LanguageCode');
     WriteString('TargetName', CurrentTarget.Name);
   finally
@@ -465 +455 @@
     ProjectFileName := Core.ProjectFileName;
     ProgramName := ExtractFileNameOnly(Core.ProjectFileName);
-    CurrentTarget.Messages.AddMessage('Compiling...');
+    CurrentTarget.Messages.AddMessage(SCompileStart);
     Compile;
-    CurrentTarget.Messages.AppendMessage('done');
+    CurrentTarget.Messages.AppendMessage(SDone);
     FormTargetCode.MemoTarget.Text := TargetCode;
     UpdateInterface;