Changeset 414 for PinConnection/UCommDelay.pas

Timestamp:

Aug 17, 2012, 9:53:11 AM (12 years ago)

Author:

chronos

Message:

• Fixed: Use parent TCommNode Active property instead custom in PinConnection package.

File:

• PinConnection/UCommDelay.pas (modified) (5 diffs)

PinConnection/UCommDelay.pas

@@ -35 +35 @@
   TCommDelay = class(TCommNode)
   private
-    FActive: Boolean;
     FDelay: TDateTime;
     PacketQueue1: TListObject; // TListObject<TDelayedPacket>
@@ -43 +42 @@
     procedure ReceiveData1(Sender: TCommPin; AStream: TListByte);
     procedure ReceiveData2(Sender: TCommPin; AStream: TListByte);
-    procedure SetActive(AValue: Boolean);
+  protected
+    procedure SetActive(const AValue: Boolean); override;
   public
     Lock1: TCriticalSection;
@@ -52 +52 @@
     destructor Destroy; override;
     property Delay: TDateTime read FDelay write FDelay;
-    property Active: Boolean read FActive write SetActive;
   end;
 
@@ -141 +140 @@
 end;
 
-procedure TCommDelay.SetActive(AValue: Boolean);
+procedure TCommDelay.SetActive(const AValue: Boolean);
 begin
   if FActive = AValue then Exit;
@@ -167 +166 @@
     FreeAndNil(Thread2);
   end;
+  inherited;
 end;