diff --git a/backup/main.lfm b/backup/main.lfm index 5c58338..c214531 100644 --- a/backup/main.lfm +++ b/backup/main.lfm @@ -6063,6 +6063,21 @@ object GUIForm: TGUIForm Caption = 'Copy Text Screen' OnClick = miCopyTextClick end + object N13: TMenuItem + Caption = '-' + end + object miCamera: TMenuItem + Caption = 'Camera' + OnClick = miCameraClick + object miCameraMouseControl: TMenuItem + Caption = 'Mouse Control' + OnClick = miCameraMouseControlClick + end + object miCameraAlternateControls: TMenuItem + Caption = 'Alternate Controls' + OnClick = miCameraAlternateControlsClick + end + end end object Input: TMenuItem Caption = 'Input' diff --git a/backup/main.pas b/backup/main.pas index 474cfd8..2dc263e 100644 --- a/backup/main.pas +++ b/backup/main.pas @@ -27,6 +27,10 @@ type btnHide: TButton; Label1: TLabel; Label2: TLabel; + miCameraMouseControl: TMenuItem; + miCameraAlternateControls: TMenuItem; + miCamera: TMenuItem; + N13: TMenuItem; miMemoryEdit: TMenuItem; miCopyText: TMenuItem; miPasteText: TMenuItem; @@ -369,6 +373,9 @@ type procedure miAR100Click(Sender: TObject); procedure miARClick(Sender: TObject); procedure miAudioClick(Sender: TObject); + procedure miCameraAlternateControlsClick(Sender: TObject); + procedure miCameraClick(Sender: TObject); + procedure miCameraMouseControlClick(Sender: TObject); procedure miColorDotsClick(Sender: TObject); procedure miColorRasterClick(Sender: TObject); procedure miColorVoxelsClick(Sender: TObject); @@ -752,6 +759,7 @@ begin end; 2: begin SimpleGet(baseUrl + '/api/control/hardware/disk/swap'); + SendOSDMessage('Swapped disks in Drive 1 & 2'); end; 3: begin @@ -851,6 +859,40 @@ begin miSNDMuted.Checked := GetConfig('audio/init.master.mute') = '1'; end; +procedure TGUIForm.miCameraAlternateControlsClick(Sender: TObject); +begin + if GetConfig('video/current.mousemovecamera.alternate') = '1' then + begin + UpdateConfig('video/current.mousemovecamera.alternate', '0', false); + SendOSDMessage('Alternate Camera Mouse control disabled'); + end + else + begin + UpdateConfig('video/current.mousemovecamera.alternate', '1', false); + SendOSDMessage('Alternate Camera Mouse control enabled'); + end; +end; + +procedure TGUIForm.miCameraClick(Sender: TObject); +begin + miCameraMouseControl := GetConfig('video/current.mousemovecamera.enabled') = '1'; + miCameraAlternateControls := GetConfig('video/current.mousemovecamera.alternate') = '1'; +end; + +procedure TGUIForm.miCameraMouseControlClick(Sender: TObject); +begin + if GetConfig('video/current.mousemovecamera.enabled') = '1' then + begin + UpdateConfig('video/current.mousemovecamera.enabled', '0', false); + SendOSDMessage('Camera Mouse control disabled'); + end + else + begin + UpdateConfig('video/current.mousemovecamera.enabled', '1', false); + SendOSDMessage('Camera Mouse control enabled'); + end; +end; + procedure TGUIForm.miColorDotsClick(Sender: TObject); begin UpdateConfig( 'video/init.video.hgrmode', '0', true ); diff --git a/backup/poc.lps b/backup/poc.lps index c6ae763..81cace9 100644 --- a/backup/poc.lps +++ b/backup/poc.lps @@ -21,8 +21,8 @@ - - + + @@ -64,123 +64,127 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + + + + + diff --git a/lib/x86_64-win64/main.lfm b/lib/x86_64-win64/main.lfm index 5c58338..c214531 100644 --- a/lib/x86_64-win64/main.lfm +++ b/lib/x86_64-win64/main.lfm @@ -6063,6 +6063,21 @@ object GUIForm: TGUIForm Caption = 'Copy Text Screen' OnClick = miCopyTextClick end + object N13: TMenuItem + Caption = '-' + end + object miCamera: TMenuItem + Caption = 'Camera' + OnClick = miCameraClick + object miCameraMouseControl: TMenuItem + Caption = 'Mouse Control' + OnClick = miCameraMouseControlClick + end + object miCameraAlternateControls: TMenuItem + Caption = 'Alternate Controls' + OnClick = miCameraAlternateControlsClick + end + end end object Input: TMenuItem Caption = 'Input' diff --git a/lib/x86_64-win64/main.o b/lib/x86_64-win64/main.o index 7141654..3a9d350 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 101bec2..64a5c12 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 1b3d5b2..830c19d 100644 Binary files a/lib/x86_64-win64/poc.obj and b/lib/x86_64-win64/poc.obj differ diff --git a/main.lfm b/main.lfm index 5c58338..c214531 100644 --- a/main.lfm +++ b/main.lfm @@ -6063,6 +6063,21 @@ object GUIForm: TGUIForm Caption = 'Copy Text Screen' OnClick = miCopyTextClick end + object N13: TMenuItem + Caption = '-' + end + object miCamera: TMenuItem + Caption = 'Camera' + OnClick = miCameraClick + object miCameraMouseControl: TMenuItem + Caption = 'Mouse Control' + OnClick = miCameraMouseControlClick + end + object miCameraAlternateControls: TMenuItem + Caption = 'Alternate Controls' + OnClick = miCameraAlternateControlsClick + end + end end object Input: TMenuItem Caption = 'Input' diff --git a/main.pas b/main.pas index 41ad092..d413651 100644 --- a/main.pas +++ b/main.pas @@ -27,6 +27,10 @@ type btnHide: TButton; Label1: TLabel; Label2: TLabel; + miCameraMouseControl: TMenuItem; + miCameraAlternateControls: TMenuItem; + miCamera: TMenuItem; + N13: TMenuItem; miMemoryEdit: TMenuItem; miCopyText: TMenuItem; miPasteText: TMenuItem; @@ -369,6 +373,9 @@ type procedure miAR100Click(Sender: TObject); procedure miARClick(Sender: TObject); procedure miAudioClick(Sender: TObject); + procedure miCameraAlternateControlsClick(Sender: TObject); + procedure miCameraClick(Sender: TObject); + procedure miCameraMouseControlClick(Sender: TObject); procedure miColorDotsClick(Sender: TObject); procedure miColorRasterClick(Sender: TObject); procedure miColorVoxelsClick(Sender: TObject); @@ -852,6 +859,40 @@ begin miSNDMuted.Checked := GetConfig('audio/init.master.mute') = '1'; end; +procedure TGUIForm.miCameraAlternateControlsClick(Sender: TObject); +begin + if GetConfig('video/current.mousemovecamera.alternate') = '1' then + begin + UpdateConfig('video/current.mousemovecamera.alternate', '0', false); + SendOSDMessage('Alternate Camera Mouse control disabled'); + end + else + begin + UpdateConfig('video/current.mousemovecamera.alternate', '1', false); + SendOSDMessage('Alternate Camera Mouse control enabled'); + end; +end; + +procedure TGUIForm.miCameraClick(Sender: TObject); +begin + miCameraMouseControl.Checked := GetConfig('video/current.mousemovecamera.enabled') = '1'; + miCameraAlternateControls.Checked := GetConfig('video/current.mousemovecamera.alternate') = '1'; +end; + +procedure TGUIForm.miCameraMouseControlClick(Sender: TObject); +begin + if GetConfig('video/current.mousemovecamera.enabled') = '1' then + begin + UpdateConfig('video/current.mousemovecamera.enabled', '0', false); + SendOSDMessage('Camera Mouse control disabled'); + end + else + begin + UpdateConfig('video/current.mousemovecamera.enabled', '1', false); + SendOSDMessage('Camera Mouse control enabled'); + end; +end; + procedure TGUIForm.miColorDotsClick(Sender: TObject); begin UpdateConfig( 'video/init.video.hgrmode', '0', true ); diff --git a/poc.lps b/poc.lps index 81cace9..9048c03 100644 --- a/poc.lps +++ b/poc.lps @@ -21,8 +21,8 @@ - - + + @@ -43,7 +43,7 @@ - + @@ -51,7 +51,7 @@ - + @@ -61,129 +61,129 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - +