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

PinConnection/UCommThread.pas

@@ -28 +28 @@
   { TCommThread }
 
-  TCommThread = class
+  TCommThread = class(TCommNode)
   private
     FActive: Boolean;
@@ -47 +47 @@
     Pin: TCommPin;
     property Active: Boolean read FActive write SetActive;
-    constructor Create;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
   end;
@@ -103 +103 @@
 end;
 
-constructor TCommThread.Create;
+constructor TCommThread.Create(AOwner: TComponent);
 begin
-  inherited Create;
+  inherited;
   FInputBuffer := TBinarySerializer.Create;
   FInputBuffer.List := TListByte.Create;
@@ -113 +113 @@
   Ext.OnReceive := ExtReceiveData;
   Ext.OnSetSatus := ExtSetStatus;
+  Ext.Node := Self;
   Pin := TCommPin.Create;
   Pin.OnReceive := PinReceiveData;
   Pin.OnSetSatus := PinSetStatus;
+  Pin.Node := Self;
   FDataAvailable := TSimpleEvent.Create;
   FStatusEvent := TSimpleEvent.Create;