Changeset 283 for PinConnection/USerialPort.pas

Timestamp:

Oct 10, 2011, 1:34:34 PM (13 years ago)

Author:

george

Message:

• Fixed: Changing serial port name.

File:

• PinConnection/USerialPort.pas (modified) (1 diff)

PinConnection/USerialPort.pas

@@ -109 +109 @@
 
 procedure TSerialPort.SetName(const AValue: string);
-begin
+var
+  LastState: Boolean;
+begin
+  if FName = AValue then Exit;
+  LastState := FActive;
+  Active := False;
   FName := AValue;
+  Active := LastState;
 end;