Changeset 52 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormCPU.pas (modified) (1 diff)
• UFormMain.lfm (modified) (1 diff)
• UFormMain.lrt (modified) (1 diff)
• UFormMain.pas (modified) (4 diffs)

trunk/Forms/UFormCPU.pas

@@ -47 +47 @@
   if MainForm.CurrentTarget is TTargetInterpretter then
   with TTargetInterpretter(MainForm.CurrentTarget) do begin
-    LabelProgramPointer.Caption := IntToStr(SourcePosition);
+    LabelProgramPointer.Caption := IntToStr(ProgramIndex);
     LabelMemoryPointer.Caption := IntToStr(MemoryPosition);
     LabelStepCounter.Caption := IntToStr(StepCount);

trunk/Forms/UFormMain.lfm

@@ -120 +120 @@
     object ToolButtonTarget: TToolButton
       Left = 345
+      Hint = 'Target select'
       Top = 2
-      Caption = 'ToolButtonTarget'
+      Caption = 'Target select'
       DropdownMenu = PopupMenuTargets
       Style = tbsDropDown

trunk/Forms/UFormMain.lrt

@@ -1 +1 @@
 TMAINFORM.CAPTION=LazFuck
-TMAINFORM.TOOLBUTTONTARGET.CAPTION=ToolButtonTarget
+TMAINFORM.TOOLBUTTONTARGET.HINT=Target select
+TMAINFORM.TOOLBUTTONTARGET.CAPTION=Target select
 TMAINFORM.TABSHEETDEBUG.CAPTION=Debug
 TMAINFORM.TABSHEETSOURCE.CAPTION=Source code

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;