Changeset 41 for trunk/IDE/Forms/UCompilersForm.pas

Timestamp:

Feb 28, 2012, 8:34:31 PM (13 years ago)

Author:

chronos

Message:

• Modified: Instead of TProducer class will be used TTarget as real target definition.
• Added: For execution of compiled code TExecutor class is introduced.

File:

• trunk/IDE/Forms/UCompilersForm.pas (modified) (3 diffs)

trunk/IDE/Forms/UCompilersForm.pas

@@ -31 +31 @@
 
 uses
-  UMainForm, UCompiler, UCompilerSettingsForm, UProducer;
+  UMainForm, UCompiler, UCompilerSettingsForm, UProducer, UTarget;
 
 resourcestring
@@ -46 +46 @@
 procedure TFormProducers.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  if (Item.Index >= 0) and (Item.Index < MainForm.Compiler.Producers.Count) then
-  with TProducer(MainForm.Compiler.Producers[Item.Index]) do begin
+  if (Item.Index >= 0) and (Item.Index < MainForm.Compiler.Targets.Count) then
+  with TTarget(MainForm.Compiler.Targets[Item.Index]) do begin
     Item.Caption := Name;
-    Item.Data := MainForm.Compiler.Producers[Item.Index];
-    Item.SubItems.Add(CompilerPath);
+    Item.Data := MainForm.Compiler.Targets[Item.Index];
+    Item.SubItems.Add(Producer.CompilerPath);
   end;
 end;
@@ -66 +66 @@
 procedure TFormProducers.ReloadList;
 begin
-  ListView1.Items.Count := MainForm.Compiler.Producers.Count;
+  ListView1.Items.Count := MainForm.Compiler.Targets.Count;
   ListView1.Refresh;
 end;