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

PinConnection/UCommFrame.pas

@@ -14 +14 @@
   { TCommFrame }
 
-  TCommFrame = class
+  TCommFrame = class(TCommNode)
   private
     LastCharIsSpecialChar: Boolean;
@@ -35 +35 @@
     ControlCodeSpecialChar: Byte;
     function ComputeRawSize(DataStream: TListByte): Integer;
-    constructor Create;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     property FrameErrorCount: Integer read FFrameErrorCount;
@@ -46 +46 @@
 { TCommFrame }
 
-constructor TCommFrame.Create;
-begin
+constructor TCommFrame.Create(AOwner: TComponent);
+begin
+  inherited;
   ReceiveBuffer := TBinarySerializer.Create;
   ReceiveBuffer.List := TListByte.Create;
@@ -53 +54 @@
   RawDataPin := TCommPin.Create;
   RawDataPin.OnReceive := RawDataReceive;
+  RawDataPin.Node := Self;
   FrameDataPin := TCommPin.Create;
   FrameDataPin.OnReceive := FrameDataReceive;
+  FrameDataPin.Node := Self;
   PacketLoss := 0;
   SpecialChar := $fe;