Changeset 414 for PinConnection/UPacketBurst.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/UPacketBurst.pas (modified) (4 diffs)

PinConnection/UPacketBurst.pas

@@ -21 +21 @@
   TPacketBurst = class(TCommNode)
   private
-    FActive: Boolean;
     SendThreadEvent: TEvent;
     SendThread: TPacketBurstSendThread;
@@ -29 +28 @@
     procedure PacketSingleReceive(Sender: TCommPin; Stream: TListByte);
     procedure PacketBurstReceive(Sender: TCommPin; Stream: TListByte);
-    procedure SetActive(const AValue: Boolean);
+  protected
+    procedure SetActive(const AValue: Boolean); override;
   public
     SendPeriod: Integer;
@@ -37 +37 @@
     destructor Destroy; override;
     constructor Create(AOwner: TComponent); override;
-    property Active: Boolean read FActive write SetActive;
   end;
 
@@ -101 +100 @@
     FreeAndNil(SendThread);
   end;
+  inherited;
 end;