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

fullscreen toggle

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-14 15:48:02 +10:00
parent 5c52a1d6e6
commit 6e8807ccbb
8 changed files with 27 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
backup/main.lfm
View File

@ -1,7 +1,7 @@
object GUIForm: TGUIForm
Left = 228
Left = 2087
Height = 668
Top = 132
Top = 207
Width = 1014
AlphaBlendValue = 128
Caption = 'microM8 GUI'

14
backup/main.pas
View File

@ -2424,7 +2424,7 @@ end;
procedure TGUIForm.btnHideClick(Sender: TObject);
begin
pnlMemory.Visible := false;
ReposWindow;
WaitRepos.Enabled := true;
end;
procedure TGUIForm.btnReadClick(Sender: TObject);
@ -2798,8 +2798,16 @@ end;
procedure TGUIForm.MenuItem14Click(Sender: TObject);
begin
{ do fullscreen here }
UpdateConfig('video/current.fullscreen', '1', false);
isFS := true;
case GetConfig( 'video/current.fullscreen' ) of
'0': begin
UpdateConfig('video/current.fullscreen', '1', false);
isFS := true;
end;
'1': begin:
UpdateConfig('video/current.fullscreen', '0', false);
isFS := false;
end;
end;
end;
procedure TGUIForm.MenuItem15Click(Sender: TObject);

4
lib/x86_64-win64/main.lfm
View File

@ -1,7 +1,7 @@
object GUIForm: TGUIForm
Left = 228
Left = 2087
Height = 668
Top = 132
Top = 207
Width = 1014
AlphaBlendValue = 128
Caption = 'microM8 GUI'

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.

4
main.lfm
View File

@ -1,7 +1,7 @@
object GUIForm: TGUIForm
Left = 228
Left = 2087
Height = 668
Top = 132
Top = 207
Width = 1014
AlphaBlendValue = 128
Caption = 'microM8 GUI'

12
main.pas
View File

@ -2798,8 +2798,16 @@ end;
procedure TGUIForm.MenuItem14Click(Sender: TObject);
begin
{ do fullscreen here }
UpdateConfig('video/current.fullscreen', '1', false);
isFS := true;
case GetConfig( 'video/current.fullscreen' ) of
'0': begin
UpdateConfig('video/current.fullscreen', '1', false);
isFS := true;
end;
'1': begin
UpdateConfig('video/current.fullscreen', '0', false);
isFS := false;
end;
end;
end;
procedure TGUIForm.MenuItem15Click(Sender: TObject);