mirror of
https://github.com/paleotronic/microm8-gui.git
synced 2024-06-16 07:29:29 +00:00
heartbeat support
This commit is contained in:
parent
41946ba7e5
commit
b15be38134
|
@ -3174,6 +3174,8 @@ end;
|
||||||
procedure TGUIForm.FSTimerTimer(Sender: TObject);
|
procedure TGUIForm.FSTimerTimer(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
isFS := (GetConfig( 'video/current.fullscreen' ) = '1');
|
isFS := (GetConfig( 'video/current.fullscreen' ) = '1');
|
||||||
|
|
||||||
|
SimpleGet(baseUrl+'/api/control/system/heartbeat');
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.InputClick(Sender: TObject);
|
procedure TGUIForm.InputClick(Sender: TObject);
|
||||||
|
@ -3288,11 +3290,8 @@ begin
|
||||||
exit;
|
exit;
|
||||||
if MicroM8Process.Active then
|
if MicroM8Process.Active then
|
||||||
exit;
|
exit;
|
||||||
{ okay not running and we want to start it }
|
{ okay not running and we want to quit }
|
||||||
MicroM8Process.Active := true;
|
Application.Terminate;
|
||||||
Sleep(1000);
|
|
||||||
lx := -1;
|
|
||||||
ReposWindow;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|
Binary file not shown.
Binary file not shown.
Binary file not shown.
2
main.pas
2
main.pas
|
@ -3174,6 +3174,8 @@ end;
|
||||||
procedure TGUIForm.FSTimerTimer(Sender: TObject);
|
procedure TGUIForm.FSTimerTimer(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
isFS := (GetConfig( 'video/current.fullscreen' ) = '1');
|
isFS := (GetConfig( 'video/current.fullscreen' ) = '1');
|
||||||
|
if not hidden then
|
||||||
|
SimpleGet(baseUrl+'/api/control/system/heartbeat');
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TGUIForm.InputClick(Sender: TObject);
|
procedure TGUIForm.InputClick(Sender: TObject);
|
||||||
|
|
Loading…
Reference in New Issue
Block a user