paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-24 22:09:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed removing or mark-sent of commands

Browse Source
This commit is contained in:
martin 2021-04-12 23:56:19 +02:00 committed by Michael Van Canneyt
parent 36cb79dfb3
commit 90e966751d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
demo/webwidget/nativedesign/webideintf.pp
View File

@ -394,14 +394,14 @@ begin
C:=TJSONObject.Create; C:=TJSONObject.Create;
Cmd.ToJSON(C); Cmd.ToJSON(C);
A.Add(C); A.Add(C);
L2.Add(C); L2.Add(CMD);
end; end;
end; end;
SendJSONResponse(J,aResponse); SendJSONResponse(J,aResponse);
// Remove sent from list // Remove sent from list
for I:=0 to L2.Count-1 do for I:=0 to L2.Count-1 do
begin begin
Cmd:=TIDECommand(L[i]); Cmd:=TIDECommand(L2[i]);
if Cmd.NeedsConfirmation then if Cmd.NeedsConfirmation then
Cmd.Sent:=True Cmd.Sent:=True
else else