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

PinConnection/UCommSerialPort.pas

@@ -19 +19 @@
     procedure ReceiveData(Stream: TListByte);
   protected
-    procedure SetActive(AValue: Boolean); override;
+    procedure SetActive(const AValue: Boolean); override;
   public
     SerialPort: TSerialPort;
@@ -39 +39 @@
 end;
 
-procedure TCommSerialPort.SetActive(AValue: Boolean);
+procedure TCommSerialPort.SetActive(const AValue: Boolean);
 begin
-  inherited SetActive(AValue);
+  inherited;
   SerialPort.Active := AValue;
 end;