Apple-2-Tools
/
microm8-gui
mirror of https://github.com/paleotronic/microm8-gui.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

persist disable scanlines from menu

This commit is contained in:
April Ayres-Griffiths 2019-04-18 13:45:38 +10:00
parent 21abee59bf
commit a754997996
8 changed files with 41 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
backup/main.lfm
View File

@ -6009,6 +6009,7 @@ object GUIForm: TGUIForm
end
object miVideo: TMenuItem
Caption = 'Video'
OnClick = miVideoClick
object miScanLineInt: TMenuItem
Caption = 'Scanline Intensity'
OnClick = miScanLineIntClick
@ -6063,6 +6064,9 @@ object GUIForm: TGUIForm
OnClick = miSLIClick
end
end
object miDisableScanlines: TMenuItem
Caption = 'Disable Scanlines'
end
object N4: TMenuItem
Caption = '-'
end

12
backup/main.pas
View File

@ -25,6 +25,7 @@ type
btnRead: TButton;
btnWrite: TButton;
btnHide: TButton;
miDisableScanlines: TMenuItem;
miIssue: TMenuItem;
SPMenu: TPopupMenu;
Label1: TLabel;
@ -492,6 +493,7 @@ type
procedure miVCRClick(Sender: TObject);
procedure miVD1Click(Sender: TObject);
procedure miVDClick(Sender: TObject);
procedure miVideoClick(Sender: TObject);
procedure miVideoScreenshotClick(Sender: TObject);
procedure miVM1Click(Sender: TObject);
procedure miVMClick(Sender: TObject);
@ -1825,6 +1827,12 @@ begin
end;
end;
procedure TGUIForm.miVideoClick(Sender: TObject);
begin
{ disable scanlines }
miDisableScanlines.Checked := ( GetConfig('video/init.video.scanlinedisable') <> '0' );
end;
procedure TGUIForm.miVideoScreenshotClick(Sender: TObject);
begin
SendKey( $e092, $e092, 1, 0 );
@ -2925,9 +2933,7 @@ begin
keydesc := 'Caps Off';
Result := 0;
{$ELSE}
{$IFDEF WINDOWS}
{$ELSE}
{$IFDEF LINUX}
if KeyUp then
begin
Caps := (not Caps);

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

@ -6009,6 +6009,7 @@ object GUIForm: TGUIForm
end
object miVideo: TMenuItem
Caption = 'Video'
OnClick = miVideoClick
object miScanLineInt: TMenuItem
Caption = 'Scanline Intensity'
OnClick = miScanLineIntClick
@ -6063,6 +6064,10 @@ object GUIForm: TGUIForm
OnClick = miSLIClick
end
end
object miDisableScanlines: TMenuItem
Caption = 'Disable Scanlines'
OnClick = miDisableScanlinesClick
end
object N4: TMenuItem
Caption = '-'
end

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.lfm
View File

@ -6009,6 +6009,7 @@ object GUIForm: TGUIForm
end
object miVideo: TMenuItem
Caption = 'Video'
OnClick = miVideoClick
object miScanLineInt: TMenuItem
Caption = 'Scanline Intensity'
OnClick = miScanLineIntClick
@ -6063,6 +6064,10 @@ object GUIForm: TGUIForm
OnClick = miSLIClick
end
end
object miDisableScanlines: TMenuItem
Caption = 'Disable Scanlines'
OnClick = miDisableScanlinesClick
end
object N4: TMenuItem
Caption = '-'
end

18
main.pas
View File

@ -25,6 +25,7 @@ type
btnRead: TButton;
btnWrite: TButton;
btnHide: TButton;
miDisableScanlines: TMenuItem;
miIssue: TMenuItem;
SPMenu: TPopupMenu;
Label1: TLabel;
@ -410,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);
@ -492,6 +494,7 @@ type
procedure miVCRClick(Sender: TObject);
procedure miVD1Click(Sender: TObject);
procedure miVDClick(Sender: TObject);
procedure miVideoClick(Sender: TObject);
procedure miVideoScreenshotClick(Sender: TObject);
procedure miVM1Click(Sender: TObject);
procedure miVMClick(Sender: TObject);
@ -1086,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' );
@ -1825,6 +1837,12 @@ begin
end;
end;
procedure TGUIForm.miVideoClick(Sender: TObject);
begin
{ disable scanlines }
miDisableScanlines.Checked := ( GetConfig('video/init.video.scanlinedisable') <> '0' );
end;
procedure TGUIForm.miVideoScreenshotClick(Sender: TObject);
begin
SendKey( $e092, $e092, 1, 0 );