Changeset 413 for PinConnection/UPacketBurst.pas

Timestamp:

Aug 16, 2012, 12:59:53 PM (12 years ago)

Author:

chronos

Message:

• Modified: Classes using TCommPin class now inherits from TCommNode which inherits from TComponent. All TCommNodes are now registred as components in PinConnection group on component palette.
• Modified: TCommPin now have reference to parent TCommNode.

File:

• PinConnection/UPacketBurst.pas (modified) (3 diffs)

PinConnection/UPacketBurst.pas

@@ -19 +19 @@
   { TPacketBurst }
 
-  TPacketBurst = class
+  TPacketBurst = class(TCommNode)
   private
     FActive: Boolean;
@@ -36 +36 @@
     PacketBurstPin: TCommPin;
     destructor Destroy; override;
-    constructor Create;
+    constructor Create(AOwner: TComponent); override;
     property Active: Boolean read FActive write SetActive;
   end;
@@ -44 +44 @@
 { TSerialPort }
 
-constructor TPacketBurst.Create;
+constructor TPacketBurst.Create(AOwner: TComponent);
 begin
+  inherited;
   PacketSinglePin := TCommPin.Create;
   PacketSinglePin.OnReceive := PacketSingleReceive;
+  PacketSinglePin.Node := Self;
   PacketBurstPin := TCommPin.Create;
   PacketBurstPin.OnReceive := PacketBurstReceive;
+  PacketBurstPin.Node := Self;
   SendThreadEvent := TSimpleEvent.Create;
   SendPeriod := 1;