diff --git a/src/hJOPpanel.dproj b/src/hJOPpanel.dproj index aa989e1..993cd33 100644 --- a/src/hJOPpanel.dproj +++ b/src/hJOPpanel.dproj @@ -184,7 +184,7 @@ True 1 14 - 7 + 8 0 False False @@ -197,7 +197,7 @@ Panel stanice hJOP - 1.14.7.0 + 1.14.8.0 hJOPpanel.exe Jan Horáček Jan Horáček diff --git a/src/net/TCPClientPanel.pas b/src/net/TCPClientPanel.pas index b1fcbbd..5e71e1c 100644 --- 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)