Changeset 31 for trunk/Forms/UMainForm.pas

Timestamp:

Feb 18, 2012, 8:02:50 PM (12 years ago)

Author:

chronos

Message:

• Modified: Renamed classes from Compiler to Target. Interpretter registred as possible and default target.

File:

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

trunk/Forms/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, SynEdit, Forms, Controls, Graphics, Dialogs,
-  Menus, ActnList, StdCtrls, ComCtrls, UBrainFuck, UCoolTranslator, StrUtils,
-  SpecializedList, UCompiler, Registry, URegistry, ULastOpenedList, Process;
+  Menus, ActnList, StdCtrls, ComCtrls, UTargetInterpretter, UCoolTranslator, StrUtils,
+  SpecializedList, UTarget, Registry, URegistry, ULastOpenedList, Process;
 
 const
@@ -146 +146 @@
     CompilerIndex: Integer;
     ProjectFileName: string;
-    BrainFuckCompiler: TBrainFuckCompiler;
-    BrainFuckInterpreter: TBrainFuckInterpretter;
+    BrainFuckCompiler: TTarget;
+    BrainFuckInterpreter: TTargetInterpretter;
     BreakPoints: TListInteger;
-    Compilers: TCompilerList;
+    Targets: TTargetList;
     LastOpenedList: TLastOpenedList;
     OpenProjectOnStart: Boolean;
@@ -168 +168 @@
 uses
   UInterpretterForm, UApplicationInfo, UCompiledForm, UOptionsForm,
-  UCompilerDelphi, UCompilerPHP, UCompilerC, UCompilersForm;
+  UTargetDelphi, UTargetPHP, UTargetC, UCompilersForm;
 
 resourcestring
@@ -255 +255 @@
   end;
   LastOpenedList.LoadFromRegistry(Root, Key);
-  Compilers.LoadFromRegistry(Root, Key);
+  Targets.LoadFromRegistry(Root, Key);
 end;
 
 procedure TMainForm.SaveToRegistry(Root: HKEY; Key: string);
 begin
-  Compilers.SaveToRegistry(Root, Key);
+  Targets.SaveToRegistry(Root, Key);
   LastOpenedList.SaveToRegistry(Root, Key);
   with TRegistryEx.Create do
@@ -308 +308 @@
 begin
   MenuItemTarget.Clear;
-  for I := 0 to Compilers.Count - 1 do begin
+  for I := 0 to Targets.Count - 1 do begin
     NewMenuItem := TMenuItem.Create(MenuItemTarget);
-    NewMenuItem.Caption := TBrainFuckCompiler(Compilers[I]).Name;
+    NewMenuItem.Caption := TTarget(Targets[I]).Name;
     NewMenuItem.OnClick := MenuItemTargetClick;
     if I = CompilerIndex then NewMenuItem.Checked := True;
@@ -320 +320 @@
 begin
   BreakPoints := TListInteger.Create;
-  BrainFuckInterpreter := TBrainFuckInterpretter.Create;
+  BrainFuckInterpreter := TTargetInterpretter.Create;
   BrainFuckInterpreter.OnChangeState := BrainFuckInterpreterChangeState;
-  BrainFuckCompiler := TBrainFuckCompiler.Create;
-  Compilers := TCompilerList.Create;
-  Compilers.Add(TBrainFuckCompilerDelphi.Create);
-  Compilers.Add(TBrainFuckCompilerPHP.Create);
-  Compilers.Add(TBrainFuckCompilerC.Create);
+  BrainFuckCompiler := TTarget.Create;
+  Targets := TTargetList.Create;
+  Targets.Add(TTargetInterpretter.Create);
+  Targets.Add(TTargetDelphi.Create);
+  Targets.Add(TTargetPHP.Create);
+  Targets.Add(TTargetC.Create);
   UpdateTargetList;
   LastOpenedList := TLastOpenedList.Create;
@@ -338 +339 @@
   SaveToRegistry(RegistryRoot, ApplicationInfo.RegistryKey);
   LastOpenedList.Free;
-  Compilers.Free;
+  Targets.Free;
   BrainFuckCompiler.Free;
   BrainFuckInterpreter.Free;
@@ -449 +450 @@
 procedure TMainForm.ACompileExecute(Sender: TObject);
 begin
-  with TBrainFuckCompiler(Compilers[CompilerIndex]) do begin
+  with TTarget(Targets[CompilerIndex]) do begin
     Optimization := coNormal;
     Source := MemoSource.Text;
@@ -466 +467 @@
 procedure TMainForm.ACompileAndRunExecute(Sender: TObject);
 begin
-  with TBrainFuckCompiler(Compilers[CompilerIndex]) do begin
+  with TTarget(Targets[CompilerIndex]) do begin
     Optimization := coNormal;
     Source := MemoSource.Text;