no fake mouse pos on fullscreen

2024-06-07 09:29:32 +00:00 · 2019-04-13 18:36:17 +10:00 · 2019-04-13 18:36:17 +10:00 · be63b3fe96
commit be63b3fe96
parent 26fd303630
5 changed files with 6 additions and 2 deletions
--- a/backup/main.lfm
+++ b/backup/main.lfm
@ -1,7 +1,7 @@
 object GUIForm: TGUIForm
-  Left = 2040
+  Left = 2434
  Height = 668
-  Top = 171
+  Top = 239
  Width = 1014
  AlphaBlendValue = 128
  Caption = 'microM8 GUI'
--- a/backup/main.pas
+++ b/backup/main.pas
@ -2313,8 +2313,10 @@ begin
  if GetTitleOfActiveWindow = 'microM8' then
   begin

+     {$IFDEF WINDOWS}
     if IsMouseBtnDown then
      exit;
+     {$ENDIF}

     // another hack: disable mouse buttons on refocus
     SimpleGet( baseUrl + '/api/control/mouse/buttonstate/0' );
--- a/lib/x86_64-win64/main.o
+++ b/lib/x86_64-win64/main.o
--- a/lib/x86_64-win64/main.ppu
+++ b/lib/x86_64-win64/main.ppu
--- a/main.pas
+++ b/main.pas
@ -1630,6 +1630,8 @@ var
  x, y: longint;
  p, q: TPoint;
 begin
+     if isFS then
+       exit;
     x := Mouse.CursorPos.x;
     y := Mouse.CursorPos.y;
     if (x <> lastMouseX) or (y <> lastMouseY) then