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

PinConnection/UCommMark.pas

@@ -14 +14 @@
   TCommMark = class(TCommNode)
   private
-    FActive: Boolean;
     FMarkIndex: Integer;
     FFrameData: TListByte;
@@ -21 +20 @@
     procedure FrameDataReceive(Sender: TCommPin; Stream: TListByte);
     procedure FrameSetStatus(Sender: TCommPin; Status: Integer);
-    procedure SetActive(AValue: Boolean);
+  protected
+    procedure SetActive(const AValue: Boolean); override;
   public
     PinRaw: TCommPin;
@@ -29 +29 @@
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
-    property Active: Boolean read FActive write SetActive;
   end;
 
@@ -75 +74 @@
 end;
 
-procedure TCommMark.SetActive(AValue: Boolean);
+procedure TCommMark.SetActive(const AValue: Boolean);
 begin
   if FActive = AValue then Exit;
   FActive := AValue;
   if FActive then Reset;
+  inherited;
 end;