diff --git a/backup/main.lfm b/backup/main.lfm index 0701a5c..ddeea18 100644 --- a/backup/main.lfm +++ b/backup/main.lfm @@ -6066,6 +6066,7 @@ object GUIForm: TGUIForm end object miDisableScanlines: TMenuItem Caption = 'Disable Scanlines' + OnClick = miDisableScanlinesClick end object N4: TMenuItem Caption = '-' diff --git a/backup/main.pas b/backup/main.pas index c2c0559..ccd672e 100644 --- a/backup/main.pas +++ b/backup/main.pas @@ -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' ); diff --git a/lib/x86_64-win64/main.o b/lib/x86_64-win64/main.o index f80e960..b93c030 100644 Binary files a/lib/x86_64-win64/main.o and b/lib/x86_64-win64/main.o differ diff --git a/lib/x86_64-win64/main.ppu b/lib/x86_64-win64/main.ppu index 95ee57f..750b078 100644 Binary files a/lib/x86_64-win64/main.ppu and b/lib/x86_64-win64/main.ppu differ diff --git a/lib/x86_64-win64/poc.obj b/lib/x86_64-win64/poc.obj index 3e1c1c9..c05c9f7 100644 Binary files a/lib/x86_64-win64/poc.obj and b/lib/x86_64-win64/poc.obj differ diff --git a/main.pas b/main.pas index ccd672e..c9f69eb 100644 --- a/main.pas +++ b/main.pas @@ -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;