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

PinConnection/UCommConcentrator.pas

@@ -26 +26 @@
   { TCommConcentrator }
 
-  TCommConcentrator = class
+  TCommConcentrator = class(TCommNode)
   private
     FActive: Boolean;
@@ -36 +36 @@
     procedure SetStatus(Sender: TCommPin; Status: Integer);
   public
-    constructor Create;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     property Pins: TPinList read FPins write FPins;
@@ -57 +57 @@
 begin
   Result := TCommPin(Items[Add(TCommPin.Create)]);
+  Result.Node := Concentrator;
 end;
 
@@ -109 +110 @@
 end;
 
-constructor TCommConcentrator.Create;
+constructor TCommConcentrator.Create(AOwner: TComponent);
 begin
+  inherited;
   FPins := TPinList.Create;
   FPins.Concentrator := Self;