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

PinConnection/UCommThread.pas

@@ -30 +30 @@
   TCommThread = class(TCommNode)
   private
-    FActive: Boolean;
     FOnReceiveData: TReceiveDataEvent;
     FReceiveThread: TCommThreadReceiveThread;
@@ -42 +41 @@
     procedure ExtReceiveData(Sender: TCommPin; Stream: TListByte);
     procedure ExtSetStatus(Sender: TCommPin; AStatus: Integer);
-    procedure SetActive(const AValue: Boolean);
+  protected
+    procedure SetActive(const AValue: Boolean); override;
   public
     Ext: TCommPin;
     Pin: TCommPin;
-    property Active: Boolean read FActive write SetActive;
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -101 +100 @@
     FreeAndNil(FReceiveThread);
   end;
+  inherited;
 end;