Changeset 67 for trunk/UCore.pas

Timestamp:

Jan 17, 2015, 4:08:03 PM (10 years ago)

Author:

chronos

Message:

• Renamed: MainForm class to FormMain.
• Moved: CurrentTarget moved from FormMain to Core class.

File:

• trunk/UCore.pas (modified) (4 diffs)

trunk/UCore.pas

@@ -20 +20 @@
     procedure DataModuleDestroy(Sender: TObject);
   private
+    FCurrentTarget: TTarget;
+    procedure SetCurrentTarget(AValue: TTarget);
   public
     ScaleDPI: TScaleDPI;
@@ -28 +30 @@
     procedure LoadFromRegistry(Root: HKEY; Key: string);
     procedure SaveToRegistry(Root: HKEY; Key: string);
+    property CurrentTarget: TTarget read FCurrentTarget write SetCurrentTarget;
   end;
 
@@ -39 +42 @@
 
 uses
-  UTargetJava, UTargetDelphi, UTargetPHP, UTargetC, UTargetInterpretter, UTargetFPC;
+  UFormMain, UTargetJava, UTargetDelphi, UTargetPHP, UTargetC,
+  UTargetInterpretter, UTargetFPC;
 
 
@@ -110 +114 @@
 end;
 
+procedure TCore.SetCurrentTarget(AValue: TTarget);
+var
+  I: Integer;
+begin
+  if FCurrentTarget = AValue then Exit;
+  FCurrentTarget := AValue;
+  for I := 0 to Targets.Count - 1 do
+    TTarget(Targets[I]).OnChangeState := nil;
+  if Assigned(FCurrentTarget) then begin
+    FCurrentTarget.OnChangeState := FormMain.TargetStateChanged;
+    FCurrentTarget.OnLog := FormMain.TargetLogExecute;
+    FCurrentTarget.OptimizationLevel := OptimizationLevel;
+    FCurrentTarget.Messages.OnChange := FormMain.MessagesChanged;
+  end;
+  FormMain.UpdateTargetList;
+  FormMain.UpdateInterface;
+end;
+
+
 end.