Changeset 31 for trunk/Forms/UCompilersForm.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/UCompilersForm.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;