Apple-2-Tools
/
microm8-gui
mirror of https://github.com/paleotronic/microm8-gui.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

remove heartbeat

This commit is contained in:
April Ayres-Griffiths 2019-04-18 18:30:57 +10:00
parent ca9cb0ef68
commit 581d3bb7f5
2 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
backup/main.pas
View File

@ -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);

14
main.pas
View File

@ -3174,13 +3174,13 @@ end;
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)';
//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);