Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2025-02-18 07:31:07 +00:00
Code Issues Projects Releases Wiki Activity

confirmation on reboot/profile reboots

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-14 11:54:55 +10:00
parent 5cd1e5ccb8
commit d7d5a1d45e
6 changed files with 79 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
backup/main.lfm
View File

@ -10435,7 +10435,7 @@ object GUIForm: TGUIForm
end
object CheckTimer: TTimer
Enabled = False
Interval = 125
Interval = 50
OnTimer = CheckTimerTimer
left = 168
top = 104

44
backup/main.pas
View File

@ -654,7 +654,7 @@ begin
else
begin
lastFocusLostTime:=Now();
StatusBar1.SimpleText:='focus';
//StatusBar1.SimpleText:='focus';
// send fake mouse button state change
SimpleGet( baseUrl + '/api/control/mouse/buttonstate/1' );
end;
@ -692,7 +692,7 @@ procedure TGUIForm.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
p, q: TPoint;
py, bi: integer;
py, bi, reply: integer;
begin
if inPopup then
exit;
@ -771,7 +771,12 @@ begin
end
else
begin
SimpleGet(baseUrl + '/api/control/system/reboot');
RepaintWindow;
HideM8;
reply := Application.MessageBox('Reboot the VM?', 'Reboot', MB_ICONQUESTION + MB_YESNO );
if reply = idYes then
SimpleGet(baseUrl + '/api/control/system/reboot');
ShowM8;
end;
end;
@ -1267,23 +1272,50 @@ begin
end;
procedure TGUIForm.miPRFIIeClick(Sender: TObject);
var
reply: integer;
begin
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2e' );
RepaintWindow;
HideM8;
reply := Application.MessageBox('Reboot the VM?', 'Reboot', MB_ICONQUESTION + MB_YESNO );
if reply = idYes then
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2e' );
ShowM8;
end;
procedure TGUIForm.miPRFIIeEnhancedClick(Sender: TObject);
var
reply: integer;
begin
RepaintWindow;
HideM8;
reply := Application.MessageBox('Reboot the VM?', 'Reboot', MB_ICONQUESTION + MB_YESNO );
if reply = idYes then
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2e-en' );
ShowM8;
end;
procedure TGUIForm.miPRFIIeEnhancedSoftcardClick(Sender: TObject);
var
reply: integer;
begin
RepaintWindow;
HideM8;
reply := Application.MessageBox('Reboot the VM?', 'Reboot', MB_ICONQUESTION + MB_YESNO );
if reply = idYes then
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2e-en-cpm' );
ShowM8;
end;
procedure TGUIForm.miPRFIIplusClick(Sender: TObject);
begin
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2-plus' );
RepaintWindow;
HideM8;
reply := Application.MessageBox('Reboot the VM?', 'Reboot', MB_ICONQUESTION + MB_YESNO );
if reply = idYes then
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2-plus' );
ShowM8;
end;
procedure TGUIForm.miPrinterPDFClick(Sender: TObject);
@ -2470,7 +2502,7 @@ begin
SimpleGet( baseUrl + '/api/control/mouse/buttonstate/0' );
//Application.Restore;
StatusBar1.SimpleText := 'trying to focus '+DateTimeToStr(Now);
//StatusBar1.SimpleText := 'trying to focus '+DateTimeToStr(Now);
Application.BringToFront;
{$IFDEF WINDOWS}
SetForegroundWindow(Application.MainForm.Handle);

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.

46
main.pas
View File

@ -654,7 +654,7 @@ begin
else
begin
lastFocusLostTime:=Now();
StatusBar1.SimpleText:='focus';
//StatusBar1.SimpleText:='focus';
// send fake mouse button state change
SimpleGet( baseUrl + '/api/control/mouse/buttonstate/1' );
end;
@ -692,7 +692,7 @@ procedure TGUIForm.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
p, q: TPoint;
py, bi: integer;
py, bi, reply: integer;
begin
if inPopup then
exit;
@ -771,7 +771,12 @@ begin
end
else
begin
SimpleGet(baseUrl + '/api/control/system/reboot');
RepaintWindow;
HideM8;
reply := Application.MessageBox('Reboot the VM?', 'Reboot', MB_ICONQUESTION + MB_YESNO );
if reply = idYes then
SimpleGet(baseUrl + '/api/control/system/reboot');
ShowM8;
end;
end;
@ -1267,23 +1272,52 @@ begin
end;
procedure TGUIForm.miPRFIIeClick(Sender: TObject);
var
reply: integer;
begin
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2e' );
RepaintWindow;
HideM8;
reply := Application.MessageBox('Reboot the VM?', 'Reboot', MB_ICONQUESTION + MB_YESNO );
if reply = idYes then
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2e' );
ShowM8;
end;
procedure TGUIForm.miPRFIIeEnhancedClick(Sender: TObject);
var
reply: integer;
begin
RepaintWindow;
HideM8;
reply := Application.MessageBox('Reboot the VM?', 'Reboot', MB_ICONQUESTION + MB_YESNO );
if reply = idYes then
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2e-en' );
ShowM8;
end;
procedure TGUIForm.miPRFIIeEnhancedSoftcardClick(Sender: TObject);
var
reply: integer;
begin
RepaintWindow;
HideM8;
reply := Application.MessageBox('Reboot the VM?', 'Reboot', MB_ICONQUESTION + MB_YESNO );
if reply = idYes then
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2e-en-cpm' );
ShowM8;
end;
procedure TGUIForm.miPRFIIplusClick(Sender: TObject);
var
reply: integer;
begin
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2-plus' );
RepaintWindow;
HideM8;
reply := Application.MessageBox('Reboot the VM?', 'Reboot', MB_ICONQUESTION + MB_YESNO );
if reply = idYes then
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2-plus' );
ShowM8;
end;
procedure TGUIForm.miPrinterPDFClick(Sender: TObject);
@ -2470,7 +2504,7 @@ begin
SimpleGet( baseUrl + '/api/control/mouse/buttonstate/0' );
//Application.Restore;
StatusBar1.SimpleText := 'trying to focus '+DateTimeToStr(Now);
//StatusBar1.SimpleText := 'trying to focus '+DateTimeToStr(Now);
Application.BringToFront;
{$IFDEF WINDOWS}
SetForegroundWindow(Application.MainForm.Handle);