Opravit editaci spojky.

Author: malinajan

src/bloky/TBlokVyhybka.pas

@@ -432,13 +432,12 @@ procedure TBlkVyhybka.SetSettings(data:TBlkVyhSettings);
     end;
   end else begin
    // odebereme spojku z druhe vyhybky
-
-   // pokud uz nebyla, neni co odebirat
-   if (spojka_old = -1) then Exit();
-
-   Blky.GetBlkByID(spojka_old, Blk);
-   if ((Blk <> nil) and (Blk.typ = _BLK_VYH)) then
-     (Blk as TBlkVyhybka).SetSpojkaNoPropag(-1);
+   if (spojka_old <> -1) then
+    begin
+     Blky.GetBlkByID(spojka_old, Blk);
+     if ((Blk <> nil) and (Blk.typ = _BLK_VYH)) then
+       (Blk as TBlkVyhybka).SetSpojkaNoPropag(-1);
+    end;
   end;
 
  if (data.RCSAddrs <> Self.VyhSettings.RCSAddrs) then

src/hJOPserver.dproj

@@ -293,7 +293,7 @@
 						<VersionInfo Name="AutoIncBuild">True</VersionInfo>
 						<VersionInfo Name="MajorVer">4</VersionInfo>
 						<VersionInfo Name="MinorVer">16</VersionInfo>
-						<VersionInfo Name="Release">3</VersionInfo>
+						<VersionInfo Name="Release">4</VersionInfo>
 						<VersionInfo Name="Build">0</VersionInfo>
 						<VersionInfo Name="Debug">False</VersionInfo>
 						<VersionInfo Name="PreRelease">False</VersionInfo>
@@ -306,7 +306,7 @@
 					<VersionInfoKeys>
 						<VersionInfoKeys Name="CompanyName">Jan Horáček</VersionInfoKeys>
 						<VersionInfoKeys Name="FileDescription">hJOP technologicky server</VersionInfoKeys>
-						<VersionInfoKeys Name="FileVersion">4.16.3.0</VersionInfoKeys>
+						<VersionInfoKeys Name="FileVersion">4.16.4.0</VersionInfoKeys>
 						<VersionInfoKeys Name="InternalName">hJOPserver</VersionInfoKeys>
 						<VersionInfoKeys Name="LegalCopyright">Jan Horáček 2008-2019</VersionInfoKeys>
 						<VersionInfoKeys Name="LegalTrademarks"/>