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

send osd messages

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-14 16:39:40 +10:00
parent 6e8807ccbb
commit 3c03c55dce
8 changed files with 26 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
backup/main.lfm
View File

@ -1,7 +1,7 @@
object GUIForm: TGUIForm
Left = 2087
Left = 102
Height = 668
Top = 207
Top = 82
Width = 1014
AlphaBlendValue = 128
Caption = 'microM8 GUI'

11
backup/main.pas
View File

@ -532,6 +532,7 @@ type
function IsMouseBtnDown: Boolean;
function IsMicroM8Active: boolean;
procedure WaitReposTimer(Sender: TObject);
procedure SendOSDMessage(msg: string);
private
lx, ly, lw, lh: integer;
lastShowTime: TDateTime;
@ -2741,6 +2742,13 @@ begin
//log.Lines.Add('mouse button up at '+IntToStr(x)+', '+IntToStr(y));
end;
procedure TGUIForm.SendOSDMessage(msg: string);
var
Respo: TStringStream;
begin
SimpleFormPost( baseUrl+'/api/control/osd/send', msg, Respo);
end;
procedure TGUIForm.FormResize(Sender: TObject);
var
h: double;
@ -2802,8 +2810,9 @@ begin
'0': begin
UpdateConfig('video/current.fullscreen', '1', false);
isFS := true;
SendOSDMessage('Alt/Option Enter to leave fullscreen');
end;
'1': begin:
'1': begin
UpdateConfig('video/current.fullscreen', '0', false);
isFS := false;
end;

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

@ -1,7 +1,7 @@
object GUIForm: TGUIForm
Left = 2087
Left = 102
Height = 668
Top = 207
Top = 82
Width = 1014
AlphaBlendValue = 128
Caption = 'microM8 GUI'

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.

4
main.lfm
View File

@ -1,7 +1,7 @@
object GUIForm: TGUIForm
Left = 2087
Left = 102
Height = 668
Top = 207
Top = 82
Width = 1014
AlphaBlendValue = 128
Caption = 'microM8 GUI'

10
main.pas
View File

@ -532,6 +532,7 @@ type
function IsMouseBtnDown: Boolean;
function IsMicroM8Active: boolean;
procedure WaitReposTimer(Sender: TObject);
procedure SendOSDMessage(msg: string);
private
lx, ly, lw, lh: integer;
lastShowTime: TDateTime;
@ -751,6 +752,7 @@ begin
end;
2: begin
SimpleGet(baseUrl + '/api/control/hardware/disk/swap');
SendOSDMessage('Swapped disks in Drive 1 & 2');
end;
3: begin
@ -2741,6 +2743,13 @@ begin
//log.Lines.Add('mouse button up at '+IntToStr(x)+', '+IntToStr(y));
end;
procedure TGUIForm.SendOSDMessage(msg: string);
var
Respo: TStringStream;
begin
SimpleFormPost( baseUrl+'/api/control/osd/send', msg, Respo);
end;
procedure TGUIForm.FormResize(Sender: TObject);
var
h: double;
@ -2802,6 +2811,7 @@ begin
'0': begin
UpdateConfig('video/current.fullscreen', '1', false);
isFS := true;
SendOSDMessage('Alt/Option Enter to leave fullscreen');
end;
'1': begin
UpdateConfig('video/current.fullscreen', '0', false);