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

PinConnection/UCommMark.pas

@@ -12 +12 @@
   { TCommMark }
 
-  TCommMark = class
+  TCommMark = class(TCommNode)
   private
     FActive: Boolean;
@@ -27 +27 @@
     Mark: TListByte;
     procedure Reset;
-    constructor Create;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     property Active: Boolean read FActive write SetActive;
@@ -88 +88 @@
 end;
 
-constructor TCommMark.Create;
+constructor TCommMark.Create(AOwner: TComponent);
 begin
+  inherited;
   PinRaw := TCommPin.Create;
   PinRaw.OnReceive := RawDataReceive;
   PinRaw.OnSetSatus := RawSetStatus;
+  PinRaw.Node := Self;
   PinFrame := TCommPin.Create;
   PinFrame.OnReceive := FrameDataReceive;
   PinFrame.OnSetSatus := FrameSetStatus;
+  PinFrame.Node := Self;
   Mark := TListByte.Create;
   FMarkIndex := 0;