diff --git a/backup/main.pas b/backup/main.pas index 9424e78..13a3d81 100644 --- a/backup/main.pas +++ b/backup/main.pas @@ -3174,8 +3174,8 @@ end; procedure TGUIForm.FSTimerTimer(Sender: TObject); begin isFS := (GetConfig( 'video/current.fullscreen' ) = '1'); - - SimpleGet(baseUrl+'/api/control/system/heartbeat'); + if not hidden then + SimpleGet(baseUrl+'/api/control/system/heartbeat'); end; procedure TGUIForm.InputClick(Sender: TObject); diff --git a/lib/x86_64-win64/main.o b/lib/x86_64-win64/main.o index fd92f7e..7ef337c 100644 Binary files a/lib/x86_64-win64/main.o and b/lib/x86_64-win64/main.o differ diff --git a/lib/x86_64-win64/main.ppu b/lib/x86_64-win64/main.ppu index 11ab0ea..a5954ab 100644 Binary files a/lib/x86_64-win64/main.ppu and b/lib/x86_64-win64/main.ppu differ diff --git a/lib/x86_64-win64/poc.obj b/lib/x86_64-win64/poc.obj index 917fb9b..72a9af0 100644 Binary files a/lib/x86_64-win64/poc.obj and b/lib/x86_64-win64/poc.obj differ diff --git a/main.pas b/main.pas index 13a3d81..281435d 100644 --- a/main.pas +++ b/main.pas @@ -3175,7 +3175,12 @@ procedure TGUIForm.FSTimerTimer(Sender: TObject); begin isFS := (GetConfig( 'video/current.fullscreen' ) = '1'); if not hidden then + begin + Caption := 'microM8 GUI'; SimpleGet(baseUrl+'/api/control/system/heartbeat'); + end + else + Caption := 'microM8 GUI (hide)'; end; procedure TGUIForm.InputClick(Sender: TObject);