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

PinConnection/UCommDelay.pas

@@ -33 +33 @@
   { TCommDelay }
 
-  TCommDelay = class
+  TCommDelay = class(TCommNode)
   private
     FActive: Boolean;
@@ -49 +49 @@
     Pin1: TCommPin;
     Pin2: TCommPin;
-    constructor Create;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     property Delay: TDateTime read FDelay write FDelay;
@@ -169 +169 @@
 end;
 
-constructor TCommDelay.Create;
+constructor TCommDelay.Create(AOwner: TComponent);
 begin
+  inherited;
   Lock1 := TCriticalSection.Create;
   Lock2 := TCriticalSection.Create;
@@ -177 +178 @@
   Pin1 := TCommPin.Create;
   Pin1.OnReceive := ReceiveData1;
+  Pin1.Node := Self;
   Pin2 := TCommPin.Create;
   Pin2.OnReceive := ReceiveData2;
+  Pin2.Node := Self;
 end;