Changeset 414 for PinConnection/UCommPin.pas

Timestamp:

Aug 17, 2012, 9:53:11 AM (12 years ago)

Author:

chronos

Message:

• Fixed: Use parent TCommNode Active property instead custom in PinConnection package.

File:

• PinConnection/UCommPin.pas (modified) (2 diffs)

PinConnection/UCommPin.pas

@@ -58 +58 @@
   TCommNode = class(TComponent)
   private
+  protected
     FActive: Boolean;
-  protected
-    procedure SetActive(AValue: Boolean); virtual;
+    procedure SetActive(const AValue: Boolean); virtual;
   public
     property Active: Boolean read FActive write SetActive;
@@ -70 +70 @@
 { TCommNode }
 
-procedure TCommNode.SetActive(AValue: Boolean);
+procedure TCommNode.SetActive(const AValue: Boolean);
 begin
   if FActive = AValue then Exit;