Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2024-06-13 18:29:32 +00:00
Code Issues Projects Releases Wiki Activity

fix backspace key

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-18 12:11:36 +10:00
parent 2d5cc156f0
commit 566cec6cc3
5 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
backup/main.pas
View File

@ -2338,7 +2338,7 @@ begin
Respo := TStringStream.Create('');
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
S := Respo.DataString;
//self.StatusBar1.SimpleText:=S;
self.StatusBar1.SimpleText:=S;
Respo.Destroy;
end;
@ -2750,9 +2750,6 @@ begin
{$ENDIF}
//StatusBar1.SimpleText := 'App is refocussing';
lastShowTime := Now();
lastFocusLostTime:=Now();
//SimpleGet( baseUrl + '/api/control/mouse/buttonclick' );
SendKey( $e05d, 0, 1, 0 );
end;
ReposWindow;

BIN
lib/x86_64-win64/main.o
View File

Binary file not shown.

BIN
lib/x86_64-win64/main.ppu
View File

Binary file not shown.

BIN
lib/x86_64-win64/poc.obj
View File

Binary file not shown.

5
main.pas
View File

@ -2338,7 +2338,7 @@ begin
Respo := TStringStream.Create('');
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
S := Respo.DataString;
//self.StatusBar1.SimpleText:=S;
self.StatusBar1.SimpleText:=S;
Respo.Destroy;
end;
@ -2898,9 +2898,6 @@ begin
end;
case Key of
VK_BACK:
if isCtrl and isShift then
Result := 0;
VK_RETURN: begin
if not isAlt then
Result := 13