Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2025-01-15 01:32:45 +00:00
Code Issues Projects Releases Wiki Activity

focus check visual

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-13 12:00:56 +10:00
parent 63181240c5
commit b346d2d76f
5 changed files with 4 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
backup/main.pas
View File

@ -2047,10 +2047,6 @@ end;
function TGUIForm.SimpleGet(url:string): string;
begin
result := '0';
if not MicroM8Process.Active then
exit;
try
result := self.httpc.Get(url)
except
@ -2063,10 +2059,6 @@ end;
function TGUIForm.SimpleGetInt(url:string): integer;
begin
result := 0;
if not MicroM8Process.Active then
exit;
try
result := StrToInt(self.httpc.Get(url))
except
@ -2078,10 +2070,6 @@ end;
procedure TGUIForm.SimpleGetStream(url:string; var S: TMemoryStream);
begin
if not MicroM8Process.Active then
exit;
try
self.httpc.Get(url, S)
except
@ -2094,8 +2082,6 @@ end;
procedure TGUIForm.SimpleFormPost( url: string; body: string; var resp: TStringStream );
begin
if not MicroM8Process.Active then
exit;
try
self.httpc.SimpleFormPost(url,body,resp)
except
@ -2312,12 +2298,13 @@ begin
if GetTitleOfActiveWindow = 'microM8' then
begin
{$IFNDEF WINDOWS}
{$IFDEF WINDOWS}
if IsMouseBtnDown then
exit;
{$ENDIF}
//Application.Restore;
StatusBar1.SimpleText := 'trying to focus';
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.

3
main.pas
View File

@ -2298,12 +2298,13 @@ begin
if GetTitleOfActiveWindow = 'microM8' then
begin
{$IFNDEF WINDOWS}
{$IFDEF WINDOWS}
if IsMouseBtnDown then
exit;
{$ENDIF}
//Application.Restore;
StatusBar1.SimpleText := 'trying to focus '+DateTimeToStr(Now);
Application.BringToFront;
{$IFDEF WINDOWS}
SetForegroundWindow(Application.MainForm.Handle);