Changeset 406 for ISPProgrammer/UISPProgrammer.pas

Timestamp:

Aug 14, 2012, 10:28:11 AM (12 years ago)

Author:

chronos

Message:

• Modified: TDallasProgrammer in ISPProgrammer package will use existed external serial port instead creating own.

File:

• ISPProgrammer/UISPProgrammer.pas (modified) (3 diffs)

ISPProgrammer/UISPProgrammer.pas

@@ -20 +20 @@
   private
     FActive: Boolean;
+    FOnActivate: TNotifyEvent;
+    FOnDeactivate: TNotifyEvent;
     FOnLog: TLogEvent;
     FCPUType: TCPUType;
@@ -45 +47 @@
     property Active: Boolean read FActive write SetActive;
     property CPUType: TCPUType read GetCPUType write SetCPUType;
+    property OnActivate: TNotifyEvent read FOnActivate write FOnActivate;
+    property OnDeactivate: TNotifyEvent read FOnDeactivate write FOnDeactivate;
   end;
 
@@ -68 +72 @@
   if FActive = AValue then Exit;
   FActive := AValue;
+  if AValue then begin
+    if Assigned(FOnActivate) then
+      FOnActivate(Self);
+  end else begin
+    if Assigned(FOnDeactivate) then
+      FOnDeactivate(Self);
+  end;
 end;