branch | qmlfrontend |
changeset 11451 | 6e9b12864856 |
parent 11446 | 321d0ce43568 |
child 11454 | 3c5d99013baf |
11450:0c75fa9ce340 | 11451:6e9b12864856 |
---|---|
51 |
51 |
52 procedure handler_ML; |
52 procedure handler_ML; |
53 var cmd: TCmdParamL; |
53 var cmd: TCmdParamL; |
54 f: boolean; |
54 f: boolean; |
55 begin |
55 begin |
56 writeln('handler_ML'); |
|
57 sendUI(mtNetData, @state.cmd, sizeof(state.cmd)); |
56 sendUI(mtNetData, @state.cmd, sizeof(state.cmd)); |
58 cmd.cmd:= Succ(state.cmd); |
57 cmd.cmd:= Succ(state.cmd); |
59 |
58 |
60 repeat |
59 repeat |
61 cmd.str1:= getLongString; |
60 cmd.str1:= getLongString; |