Changeset 31 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Forms

Files:

• UCompilersForm.pas (modified) (4 diffs)
• UMainForm.pas (modified) (9 diffs)
• UOptionsForm.pas (modified) (4 diffs)

trunk/Forms/UCompilersForm.pas

@@ -31 +31 @@
 
 uses
-  UMainForm, UCompiler;
+  UMainForm, UTarget;
 
 resourcestring
@@ -46 +46 @@
 procedure TFormCompilers.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  if (Item.Index >= 0) and (Item.Index < MainForm.Compilers.Count) then
-  with TBrainFuckCompiler(MainForm.Compilers[Item.Index]) do begin
+  if (Item.Index >= 0) and (Item.Index < MainForm.Targets.Count) then
+  with TTarget(MainForm.Targets[Item.Index]) do begin
     Item.Caption := Name;
-    Item.Data := MainForm.Compilers[Item.Index];
+    Item.Data := MainForm.Targets[Item.Index];
     Item.SubItems.Add(CompilerPath);
   end;
@@ -56 +56 @@
 procedure TFormCompilers.ListView1DblClick(Sender: TObject);
 begin
-  with TBrainFuckCompiler(ListView1.Selected.Data) do
+  with TTarget(ListView1.Selected.Data) do
     CompilerPath := InputBox(SCompilerOptions, SCompilerPath,
       CompilerPath);
@@ -64 +64 @@
 procedure TFormCompilers.ReloadList;
 begin
-  ListView1.Items.Count := MainForm.Compilers.Count;
+  ListView1.Items.Count := MainForm.Targets.Count;
   ListView1.Refresh;
 end;

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;

trunk/Forms/UOptionsForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Spin, ComCtrls, UBrainFuck;
+  Spin, ComCtrls, UTargetInterpretter;
 
 type
@@ -28 +28 @@
     { private declarations }
   public
-    procedure LoadFromInterpretter(Interpretter: TBrainFuckInterpretter);
-    procedure SaveToInterpretter(Interpretter: TBrainFuckInterpretter);
+    procedure LoadFromInterpretter(Interpretter: TTargetInterpretter);
+    procedure SaveToInterpretter(Interpretter: TTargetInterpretter);
   end;
 
@@ -59 +59 @@
 end;
 
-procedure TOptionsForm.LoadFromInterpretter(Interpretter: TBrainFuckInterpretter
+procedure TOptionsForm.LoadFromInterpretter(Interpretter: TTargetInterpretter
   );
 begin
@@ -66 +66 @@
 end;
 
-procedure TOptionsForm.SaveToInterpretter(Interpretter: TBrainFuckInterpretter);
+procedure TOptionsForm.SaveToInterpretter(Interpretter: TTargetInterpretter);
 begin
   Interpretter.CellSize := SpinEditCellSize.Value;