Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2024-06-01 02:41:34 +00:00
Code Issues Projects Releases Wiki Activity

camera reset

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-14 17:16:22 +10:00
parent af237b74d5
commit 51363b1e1e
3 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
backup/main.lfm
View File

@ -6077,6 +6077,13 @@ object GUIForm: TGUIForm
Caption = 'Alternate Controls'
OnClick = miCameraAlternateControlsClick
end
object N15: TMenuItem
Caption = '-'
end
object miCameraReset: TMenuItem
Caption = 'Reset Camera'
OnClick = miCameraResetClick
end
end
end
object Input: TMenuItem

8
backup/main.pas
View File

@ -27,6 +27,8 @@ type
btnHide: TButton;
Label1: TLabel;
Label2: TLabel;
miCameraReset: TMenuItem;
N15: TMenuItem;
miPRFReboot: TMenuItem;
N14: TMenuItem;
miCameraMouseControl: TMenuItem;
@ -378,6 +380,7 @@ type
procedure miCameraAlternateControlsClick(Sender: TObject);
procedure miCameraClick(Sender: TObject);
procedure miCameraMouseControlClick(Sender: TObject);
procedure miCameraResetClick(Sender: TObject);
procedure miColorDotsClick(Sender: TObject);
procedure miColorRasterClick(Sender: TObject);
procedure miColorVoxelsClick(Sender: TObject);
@ -896,6 +899,11 @@ begin
end;
end;
procedure TGUIForm.miCameraResetClick(Sender: TObject);
begin
SimpleGet(baseUrl+'/api/control/system/camera/reset');
end;
procedure TGUIForm.miColorDotsClick(Sender: TObject);
begin
UpdateConfig( 'video/init.video.hgrmode', '0', true );

2
main.pas
View File

@ -902,6 +902,8 @@ end;
procedure TGUIForm.miCameraResetClick(Sender: TObject);
begin
SimpleGet(baseUrl+'/api/control/system/camera/reset');
UpdateConfig('video/current.mousemovecamera.enabled', '0', false)
UpdateConfig('video/current.mousemovecamera.alternate', '0', false)
end;
procedure TGUIForm.miColorDotsClick(Sender: TObject);