Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2025-02-20 07:28:55 +00:00
Code Issues Projects Releases Wiki Activity

fix mousebuttonstate api

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-13 12:31:34 +10:00
parent b346d2d76f
commit 6806f92640
5 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
backup/main.pas
View File

@ -2304,7 +2304,7 @@ begin
{$ENDIF} {$ENDIF}
//Application.Restore; //Application.Restore;
StatusBar1.SimpleText := 'trying to focus'; StatusBar1.SimpleText := 'trying to focus '+DateTimeToStr(Now);
Application.BringToFront; Application.BringToFront;
{$IFDEF WINDOWS} {$IFDEF WINDOWS}
SetForegroundWindow(Application.MainForm.Handle); SetForegroundWindow(Application.MainForm.Handle);

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.

2
main.pas
View File

@ -2298,10 +2298,8 @@ begin
if GetTitleOfActiveWindow = 'microM8' then if GetTitleOfActiveWindow = 'microM8' then
begin begin
{$IFDEF WINDOWS}
if IsMouseBtnDown then if IsMouseBtnDown then
exit; exit;
{$ENDIF}
//Application.Restore; //Application.Restore;
StatusBar1.SimpleText := 'trying to focus '+DateTimeToStr(Now); StatusBar1.SimpleText := 'trying to focus '+DateTimeToStr(Now);