Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2025-02-18 07:31:07 +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}
//Application.Restore;
StatusBar1.SimpleText := 'trying to focus';
StatusBar1.SimpleText := 'trying to focus '+DateTimeToStr(Now);
Application.BringToFront;
{$IFDEF WINDOWS}
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
begin
{$IFDEF WINDOWS}
if IsMouseBtnDown then
exit;
{$ENDIF}
//Application.Restore;
StatusBar1.SimpleText := 'trying to focus '+DateTimeToStr(Now);