Changeset 60 for trunk/Compiler

Timestamp:

Jul 17, 2012, 7:25:56 AM (12 years ago)

Author:

chronos

Message:

• Added: Target celection combobox on main toolbar.
• Added: Options of available targets allow to change producer and executor path if available.

Location:

trunk/Compiler

Files:

• UExecutor.pas (modified) (1 diff)
• UTarget.pas (modified) (2 diffs)

trunk/Compiler/UExecutor.pas

@@ -18 +18 @@
     procedure SetRunState(AValue: TRunState);
   public
+    ExecutorPath: string;
     Target: TObject; // TTarget;
     procedure Run; virtual; abstract;

trunk/Compiler/UTarget.pas

@@ -26 +26 @@
   TListTarget = class(TListObject)
     function SearchBySysName(Name: string): TTarget;
+    procedure LoadToStrings(Strings: TStrings);
   end;
 
@@ -57 +58 @@
 end;
 
+procedure TListTarget.LoadToStrings(Strings: TStrings);
+var
+  I: Integer;
+begin
+  try
+    Strings.BeginUpdate;
+    Strings.Clear;
+    for I := 0 to Count - 1 do
+      Strings.AddObject(TTarget(Items[I]).Name, Items[I]);
+  finally
+    Strings.EndUpdate;
+  end;
+end;
+
 end.