Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2025-02-20 07:28:55 +00:00
Code Issues Projects Releases Wiki Activity

hide in caption if hidden

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-18 18:23:07 +10:00
parent b15be38134
commit ca9cb0ef68
5 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
backup/main.pas
View File

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

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.

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