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 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+