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

PinConnection/UCommHub.pas

@@ -25 +25 @@
   TCommHub = class(TCommNode)
   private
-    FActive: Boolean;
     FPins: TPinList;
     procedure Receive(Sender: TCommPin; Stream: TListByte);
@@ -33 +32 @@
     destructor Destroy; override;
     property Pins: TPinList read FPins write FPins;
-    property Active: Boolean read FActive write FActive;
   end;
 
@@ -103 +101 @@
 begin
   Active := False;
-  FPins.Free;
-  inherited Destroy;
+  FreeAndNil(FPins);
+  inherited;
 end;