Changeset 32 for trunk/Forms/UMainForm.pas

Timestamp:

Feb 18, 2012, 8:44:10 PM (13 years ago)

Author:

chronos

Message:

• Modified: Target specific options is maintained by target class in registry.
• Modified: Integer index TargetIndex replaced by object reference CurrentTarget.

File:

• trunk/Forms/UMainForm.pas (modified) (17 diffs)

trunk/Forms/UMainForm.pas

@@ -18 +18 @@
 
   TMainForm = class(TForm)
-    ACompile: TAction;
+    AProgramCompile: TAction;
     AAbout: TAction;
     ABreakpointToggle: TAction;
@@ -29 +29 @@
     AProgramStepOut: TAction;
     AProgramRunToCursor: TAction;
-    AProgramStopOver: TAction;
+    AProgramStepOver: TAction;
     AProgramStepInto: TAction;
     AViewCompiled: TAction;
@@ -108 +108 @@
     procedure ABreakpointToggleExecute(Sender: TObject);
     procedure ACompileAndRunExecute(Sender: TObject);
-    procedure ACompileExecute(Sender: TObject);
+    procedure AProgramCompileExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
     procedure AFormatSourceExecute(Sender: TObject);
@@ -138 +138 @@
       Shift: TShiftState; X, Y: Integer);
   private
+    FCurrentTarget: TTarget;
     procedure AProjectOpenRecentExecute(Sender: TObject);
     procedure BrainFuckInterpreterChangeState(Sender: TObject);
     procedure MenuItemTargetClick(Sender: TObject);
     procedure ProjectOpen(FileName: string);
+    procedure SetCurrentTarget(AValue: TTarget);
   public
     Modified: Boolean;
-    CompilerIndex: Integer;
     ProjectFileName: string;
-    BrainFuckCompiler: TTarget;
-    BrainFuckInterpreter: TTargetInterpretter;
     BreakPoints: TListInteger;
     Targets: TTargetList;
@@ -157 +156 @@
     procedure UpdateStatusBar;
     procedure UpdateTargetList;
+    property CurrentTarget: TTarget read FCurrentTarget write SetCurrentTarget;
   end;
 
@@ -222 +222 @@
 begin
   with TMenuItem(Sender) do begin
-    CompilerIndex := MenuIndex;
+    CurrentTarget := TTarget(Targets[MenuIndex]);
     Checked := True;
     for I := 0 to Parent.Count - 1 do
-      if Parent.Items[I].MenuIndex <> MenuIndex then Parent.Items[I].Checked := False
+      if Parent.Items[I].MenuIndex <> MenuIndex then Parent.Items[I].Checked := False;
   end;
 end;
@@ -238 +238 @@
 end;
 
+procedure TMainForm.SetCurrentTarget(AValue: TTarget);
+var
+  I: Integer;
+begin
+  if FCurrentTarget = AValue then Exit;
+  FCurrentTarget := AValue;
+  for I := 0 to Targets.Count - 1 do
+    TTarget(Targets[I]).OnChangeState := nil;
+  FCurrentTarget.OnChangeState := BrainFuckInterpreterChangeState;
+end;
+
 procedure TMainForm.LoadFromRegistry(Root: HKEY; Key: string);
+var
+  TargetName: string;
 begin
   with TRegistryEx.Create do
@@ -245 +258 @@
     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('');
-    CompilerIndex := ReadIntegerWithDefault('SelectedCompiler', 0);
+    TargetName := ReadStringWithDefault('TargetName', 'Interpretter');
+    CurrentTarget := Targets.FindByName(TargetName);
+    if not Assigned(CurrentTarget) then CurrentTarget := TTarget(Targets[0]);
   finally
     Free;
@@ -267 +280 @@
     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');
-    WriteInteger('SelectedCompiler', CompilerIndex);
+    WriteString('TargetName', CurrentTarget.Name);
   finally
     Free;
@@ -289 +300 @@
   MemoSource.Enabled := ProjectFileName <> '';
   AProjectClose.Enabled := ProjectFileName <> '';
-  AProgramRun.Enabled := (ProjectFileName <> '') and (BrainFuckInterpreter.State = rsStopped);
-  AProgramPause.Enabled := (ProjectFileName <> '') and (BrainFuckInterpreter.State = rsRunning);
-  AProgramStop.Enabled := (ProjectFileName <> '') and (BrainFuckInterpreter.State <> rsStopped);
-  ACompile.Enabled := ProjectFileName <> '';
+  AProgramRun.Enabled := (tcRun in CurrentTarget.Capabilities) and
+    (ProjectFileName <> '') and (CurrentTarget.State = rsStopped);
+  AProgramPause.Enabled := (tcPause in CurrentTarget.Capabilities) and
+    (ProjectFileName <> '') and (CurrentTarget.State = rsRunning);
+  AProgramStop.Enabled := (tcStop in CurrentTarget.Capabilities) and
+    (ProjectFileName <> '') and (CurrentTarget.State <> rsStopped);
+  AProgramCompile.Enabled := (tcCompile in CurrentTarget.Capabilities) and (ProjectFileName <> '');
+  AProgramStepInto.Enabled := (tcStepInto in CurrentTarget.Capabilities) and (ProjectFileName <> '');
+  AProgramStepOut.Enabled := (tcStepOut in CurrentTarget.Capabilities) and (ProjectFileName <> '');
+  AProgramRunToCursor.Enabled := (tcRunToCursor in CurrentTarget.Capabilities) and (ProjectFileName <> '');
+  AProgramStepOver.Enabled := (tcStepOver in CurrentTarget.Capabilities) and (ProjectFileName <> '');
   UpdateStatusBar;
   UpdateTargetList;
@@ -312 +330 @@
     NewMenuItem.Caption := TTarget(Targets[I]).Name;
     NewMenuItem.OnClick := MenuItemTargetClick;
-    if I = CompilerIndex then NewMenuItem.Checked := True;
+    if TTarget(Targets[I]) = CurrentTarget then NewMenuItem.Checked := True;
     MenuItemTarget.Add(NewMenuItem);
   end;
@@ -320 +338 @@
 begin
   BreakPoints := TListInteger.Create;
-  BrainFuckInterpreter := TTargetInterpretter.Create;
-  BrainFuckInterpreter.OnChangeState := BrainFuckInterpreterChangeState;
-  BrainFuckCompiler := TTarget.Create;
   Targets := TTargetList.Create;
   Targets.Add(TTargetInterpretter.Create);
@@ -340 +355 @@
   LastOpenedList.Free;
   Targets.Free;
-  BrainFuckCompiler.Free;
-  BrainFuckInterpreter.Free;
   BreakPoints.Free;
 end;
@@ -349 +362 @@
   InterpreterForm.LastStepCounter := 0;
   InterpreterForm.Show;
-  BrainFuckInterpreter.Input := InterpreterForm.MemoInput.Lines.Text;
-  BrainFuckInterpreter.Source := MemoSource.Text;
-  BrainFuckInterpreter.Run;
+  if CurrentTarget is TTargetInterpretter then
+    TTargetInterpretter(CurrentTarget).Input := InterpreterForm.MemoInput.Lines.Text;
+  CurrentTarget.Source := MemoSource.Text;
+  CurrentTarget.Run;
 end;
 
@@ -442 +456 @@
 procedure TMainForm.AOptionsExecute(Sender: TObject);
 begin
-  OptionsForm.LoadFromInterpretter(BrainFuckInterpreter);
+  //OptionsForm.LoadFromInterpretter(CurrentTarget);
   if OptionsForm.ShowModal = mrOK then begin
-    OptionsForm.SaveToInterpretter(BrainFuckInterpreter);
-  end;
-end;
-
-procedure TMainForm.ACompileExecute(Sender: TObject);
-begin
-  with TTarget(Targets[CompilerIndex]) do begin
+    //OptionsForm.SaveToInterpretter(CurrentTarget);
+  end;
+end;
+
+procedure TMainForm.AProgramCompileExecute(Sender: TObject);
+begin
+  with CurrentTarget do begin
     Optimization := coNormal;
     Source := MemoSource.Text;
@@ -467 +481 @@
 procedure TMainForm.ACompileAndRunExecute(Sender: TObject);
 begin
-  with TTarget(Targets[CompilerIndex]) do begin
+  with CurrentTarget do begin
     Optimization := coNormal;
     Source := MemoSource.Text;
@@ -480 +494 @@
 procedure TMainForm.AProgramPauseExecute(Sender: TObject);
 begin
-  MainForm.BrainFuckInterpreter.Pause
+  CurrentTarget.Pause
 end;
 
 procedure TMainForm.AProgramStopExecute(Sender: TObject);
 begin
-  MainForm.BrainFuckInterpreter.Stop;
+  CurrentTarget.Stop;
 end;