Opravit parsovani prazdneho menu.

kmzbrnoI · Nov 27, 2020 · 24eed31 · 24eed31
1 parent c91d819
commit 24eed31
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 5 deletions.
diff --git a/src/hJOPpanel.dproj b/src/hJOPpanel.dproj
@@ -184,7 +184,7 @@
 						<VersionInfo Name="AutoIncBuild">True</VersionInfo>
 						<VersionInfo Name="MajorVer">1</VersionInfo>
 						<VersionInfo Name="MinorVer">14</VersionInfo>
-						<VersionInfo Name="Release">7</VersionInfo>
+						<VersionInfo Name="Release">8</VersionInfo>
 						<VersionInfo Name="Build">0</VersionInfo>
 						<VersionInfo Name="Debug">False</VersionInfo>
 						<VersionInfo Name="PreRelease">False</VersionInfo>
@@ -197,7 +197,7 @@
 					<VersionInfoKeys>
 						<VersionInfoKeys Name="CompanyName"/>
 						<VersionInfoKeys Name="FileDescription">Panel stanice hJOP</VersionInfoKeys>
-						<VersionInfoKeys Name="FileVersion">1.14.7.0</VersionInfoKeys>
+						<VersionInfoKeys Name="FileVersion">1.14.8.0</VersionInfoKeys>
 						<VersionInfoKeys Name="InternalName">hJOPpanel.exe</VersionInfoKeys>
 						<VersionInfoKeys Name="LegalCopyright">Jan Horáček</VersionInfoKeys>
 						<VersionInfoKeys Name="LegalTrademarks">Jan Horáček</VersionInfoKeys>

diff --git a/src/net/TCPClientPanel.pas b/src/net/TCPClientPanel.pas
@@ -601,10 +601,13 @@ procedure TPanelTCPClient.ParseOR();
  end else if (parsed[1] = 'SHP') then
    Relief.ORHlaseniMsg(parsed[0], parsed)
 
- else if (parsed[1] = 'MENU') then
-   Relief.ORDkShowMenu(parsed[0], parsed[2], parsed[3])
+ else if (parsed[1] = 'MENU') then begin
+   if (parsed.Count > 3) then
+     Relief.ORDkShowMenu(parsed[0], parsed[2], parsed[3])
+   else
+     Relief.ORDkShowMenu(parsed[0], parsed[2], '');
 
- else if (parsed[1] = 'HV') then
+ end else if (parsed[1] = 'HV') then
   begin
    if (parsed[2] = 'ADD') then
      F_HVEdit.ServerAddResp(parsed)