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

PinConnection/UCommPin.pas

@@ -10 +10 @@
 type
   TCommPin = class;
+  TCommNode = class;
 
   TDataDiretion = (ddReceive, ddSend);
@@ -35 +36 @@
   public
     RemotePin: TCommPin;
+    Node: TCommNode;
     constructor Create;
     destructor Destroy; override;
@@ -52 +54 @@
   end;
 
+  { TCommNode }
+
+  TCommNode = class(TComponent)
+  private
+    FActive: Boolean;
+  protected
+    procedure SetActive(AValue: Boolean); virtual;
+  public
+    property Active: Boolean read FActive write SetActive;
+  end;
+
 
 implementation
+
+{ TCommNode }
+
+procedure TCommNode.SetActive(AValue: Boolean);
+begin
+  if FActive = AValue then Exit;
+  FActive := AValue;
+end;
 
 { TCommPin }