Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2024-11-25 17:42:21 +00:00
Code Issues Projects Releases Wiki Activity

osd on button fullscreen

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-18 14:27:31 +10:00
parent a754997996
commit 47dc64a2c2
6 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
backup/main.lfm
View File

@ -6066,6 +6066,7 @@ object GUIForm: TGUIForm
end
object miDisableScanlines: TMenuItem
Caption = 'Disable Scanlines'
OnClick = miDisableScanlinesClick
end
object N4: TMenuItem
Caption = '-'

10
backup/main.pas
View File

@ -411,6 +411,7 @@ type
procedure miDHRMonoRasterClick(Sender: TObject);
procedure miDHRMonoVoxelsClick(Sender: TObject);
procedure miDisableFocusStealingClick(Sender: TObject);
procedure miDisableScanlinesClick(Sender: TObject);
procedure miDisk1WPToggleClick(Sender: TObject);
procedure miDisk2WPToggleClick(Sender: TObject);
procedure miDiskMenuBlankClick(Sender: TObject);
@ -1088,6 +1089,15 @@ begin
disableFocusStealing:=(not disableFocusStealing);
end;
procedure TGUIForm.miDisableScanlinesClick(Sender: TObject);
begin
miDisableScanlines.Checked := (not miDisableScanlines.Checked);
if miDisableScanlines.Checked then
UpdateConfig('video/init.video.scanlinedisable', '1', true)
else
UpdateConfig('video/init.video.scanlinedisable', '0', true);
end;
procedure TGUIForm.miDisk1WPToggleClick(Sender: TObject);
begin
SimpleGet( baseUrl + '/api/control/hardware/disk/wp/0/toggle' );

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.

1
main.pas
View File

@ -1924,6 +1924,7 @@ procedure TGUIForm.tbFullscreenClick(Sender: TObject);
begin
UpdateConfig('video/current.fullscreen', '1', false);
isFS := true;
SendOSDMessage('Alt/Option Enter to leave fullscreen');
end;
procedure TGUIForm.UpdateAllCaps;