This commit is contained in:
April Ayres-Griffiths 2019-04-12 19:28:52 +10:00
parent 2bc51773e8
commit 743f44efa8
6 changed files with 237 additions and 73 deletions

View File

@ -1,5 +1,5 @@
object GUIForm: TGUIForm
Left = 2271
Left = 2270
Height = 574
Top = 247
Width = 945
@ -182,7 +182,9 @@ object GUIForm: TGUIForm
Width = 64
OnChange = tbMasterVolumeChange
Position = 0
TickStyle = tsNone
ScalePos = trBottom
TickMarks = tmBoth
TickStyle = tsManual
OnKeyDown = FormKeyDown
OnKeyUp = FormKeyUp
TabOrder = 0
@ -215,7 +217,9 @@ object GUIForm: TGUIForm
Max = 4
OnChange = TrackBar2Change
Position = 0
TickStyle = tsNone
ScalePos = trBottom
TickMarks = tmBoth
TickStyle = tsManual
OnKeyDown = FormKeyDown
OnKeyUp = FormKeyUp
TabOrder = 1
@ -5423,6 +5427,50 @@ object GUIForm: TGUIForm
OnClick = miIntLOGOClick
end
end
object miVM: TMenuItem
Caption = 'VM'
OnClick = miVMClick
object miVM1: TMenuItem
Caption = '1'
ShortCut = 24625
OnClick = miVM1Click
end
object miVM2: TMenuItem
Caption = '2'
ShortCut = 24626
OnClick = miVM1Click
end
object miVM3: TMenuItem
Caption = '3'
ShortCut = 24627
OnClick = miVM1Click
end
object miVM4: TMenuItem
Caption = '4'
ShortCut = 24628
OnClick = miVM1Click
end
object miVM5: TMenuItem
Caption = '5'
ShortCut = 24629
OnClick = miVM1Click
end
object miVM6: TMenuItem
Caption = '6'
ShortCut = 24630
OnClick = miVM1Click
end
object miVM7: TMenuItem
Caption = '7'
ShortCut = 24631
OnClick = miVM1Click
end
object miVM8: TMenuItem
Caption = '8'
ShortCut = 24632
OnClick = miVM1Click
end
end
object N7: TMenuItem
Caption = '-'
end

View File

@ -24,6 +24,15 @@ type
MenuItem14: TMenuItem;
MenuItem17: TMenuItem;
MenuItem18: TMenuItem;
miVM8: TMenuItem;
miVM7: TMenuItem;
miVM6: TMenuItem;
miVM5: TMenuItem;
miVM4: TMenuItem;
miVM3: TMenuItem;
miVM2: TMenuItem;
miVM1: TMenuItem;
miVM: TMenuItem;
miApps816Paint: TMenuItem;
miAppsPrintShop: TMenuItem;
miAppsTerminal: TMenuItem;
@ -405,6 +414,8 @@ type
procedure miVCRClick(Sender: TObject);
procedure miVD1Click(Sender: TObject);
procedure miVDClick(Sender: TObject);
procedure miVM1Click(Sender: TObject);
procedure miVMClick(Sender: TObject);
procedure miWarp25Click(Sender: TObject);
procedure MouseTimerTimer(Sender: TObject);
procedure sidecarPanelResize(Sender: TObject);
@ -1499,6 +1510,25 @@ begin
end;
end;
procedure TGUIForm.miVM1Click(Sender: TObject);
begin
SimpleGet(baseUrl+'/api/control/vm/'+TMenuItem(sender).Caption);
end;
procedure TGUIForm.miVMClick(Sender: TObject);
begin
case SimpleGet( baseUrl+'/api/control/vm' ) of
'1': miVM1.Checked := true;
'2': miVM2.Checked := true;
'3': miVM3.Checked := true;
'4': miVM4.Checked := true;
'5': miVM5.Checked := true;
'6': miVM6.Checked := true;
'7': miVM7.Checked := true;
'8': miVM8.Checked := true;
end;
end;
procedure TGUIForm.miWarp25Click(Sender: TObject);
begin
UpdateConfig( 'hardware/current.cpu.warp', TMenuItem(sender).Caption, false);

View File

@ -21,8 +21,8 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<TopLine Value="498"/>
<CursorPos X="63" Y="513"/>
<TopLine Value="1512"/>
<CursorPos X="3" Y="1514"/>
<UsageCount Value="323"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -36,136 +36,136 @@
<EditorIndex Value="-1"/>
<TopLine Value="3"/>
<CursorPos X="26" Y="25"/>
<UsageCount Value="158"/>
<UsageCount Value="206"/>
</Unit2>
<Unit3>
<Filename Value="C:\lazarus\lcl\include\picture.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="576"/>
<CursorPos X="49" Y="591"/>
<UsageCount Value="121"/>
<UsageCount Value="115"/>
</Unit3>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="main.pas"/>
<Caret Line="969" Column="14" TopLine="938"/>
<Caret Line="1291" Column="18" TopLine="1260"/>
</Position1>
<Position2>
<Filename Value="main.pas"/>
<Caret Line="974" Column="14" TopLine="943"/>
<Caret Line="1371" Column="16" TopLine="1340"/>
</Position2>
<Position3>
<Filename Value="main.pas"/>
<Caret Line="1068" Column="16" TopLine="1037"/>
<Caret Line="1439" Column="12" TopLine="1408"/>
</Position3>
<Position4>
<Filename Value="main.pas"/>
<Caret Line="1073" Column="15" TopLine="1042"/>
<Caret Line="1717" Column="17" TopLine="1686"/>
</Position4>
<Position5>
<Filename Value="main.pas"/>
<Caret Line="1078" Column="15" TopLine="1047"/>
<Caret Line="1725" Column="17" TopLine="1694"/>
</Position5>
<Position6>
<Filename Value="main.pas"/>
<Caret Line="1083" Column="14" TopLine="1052"/>
<Caret Line="1740" Column="17" TopLine="1709"/>
</Position6>
<Position7>
<Filename Value="main.pas"/>
<Caret Line="1100" Column="17" TopLine="1069"/>
<Caret Line="1751" Column="17" TopLine="1720"/>
</Position7>
<Position8>
<Filename Value="main.pas"/>
<Caret Line="1156" Column="12" TopLine="1125"/>
<Caret Line="1859" Column="28" TopLine="1828"/>
</Position8>
<Position9>
<Filename Value="main.pas"/>
<Caret Line="1161" Column="13" TopLine="1130"/>
<Caret Line="1891" Column="6" TopLine="1865"/>
</Position9>
<Position10>
<Filename Value="main.pas"/>
<Caret Line="1166" Column="14" TopLine="1135"/>
<Caret Line="544" Column="10" TopLine="512"/>
</Position10>
<Position11>
<Filename Value="main.pas"/>
<Caret Line="1171" Column="13" TopLine="1140"/>
<Caret Line="523" Column="22" TopLine="502"/>
</Position11>
<Position12>
<Filename Value="main.pas"/>
<Caret Line="1176" Column="12" TopLine="1145"/>
<Caret Line="504" Column="9" TopLine="495"/>
</Position12>
<Position13>
<Filename Value="main.pas"/>
<Caret Line="1181" Column="12" TopLine="1150"/>
<Caret Line="502" Column="44" TopLine="485"/>
</Position13>
<Position14>
<Filename Value="main.pas"/>
<Caret Line="1291" Column="18" TopLine="1260"/>
<Caret Line="507" Column="29" TopLine="484"/>
</Position14>
<Position15>
<Filename Value="main.pas"/>
<Caret Line="1371" Column="16" TopLine="1340"/>
<Caret Line="519" Column="19" TopLine="497"/>
</Position15>
<Position16>
<Filename Value="main.pas"/>
<Caret Line="1439" Column="12" TopLine="1408"/>
<Caret Line="457" Column="29" TopLine="448"/>
</Position16>
<Position17>
<Filename Value="main.pas"/>
<Caret Line="1717" Column="17" TopLine="1686"/>
<Caret Line="17"/>
</Position17>
<Position18>
<Filename Value="main.pas"/>
<Caret Line="1725" Column="17" TopLine="1694"/>
<Caret Line="521" Column="11" TopLine="498"/>
</Position18>
<Position19>
<Filename Value="main.pas"/>
<Caret Line="1740" Column="17" TopLine="1709"/>
<Caret Line="1596" Column="30" TopLine="1582"/>
</Position19>
<Position20>
<Filename Value="main.pas"/>
<Caret Line="1751" Column="17" TopLine="1720"/>
<Caret Line="2458" Column="3" TopLine="2430"/>
</Position20>
<Position21>
<Filename Value="main.pas"/>
<Caret Line="1859" Column="28" TopLine="1828"/>
<Caret Line="2459" Column="3" TopLine="2431"/>
</Position21>
<Position22>
<Filename Value="main.pas"/>
<Caret Line="1891" Column="6" TopLine="1865"/>
<Caret Line="2460" Column="3" TopLine="2432"/>
</Position22>
<Position23>
<Filename Value="main.pas"/>
<Caret Line="544" Column="10" TopLine="512"/>
<Caret Line="2461" Column="3" TopLine="2433"/>
</Position23>
<Position24>
<Filename Value="main.pas"/>
<Caret Line="523" Column="22" TopLine="502"/>
<Caret Line="2462" Column="3" TopLine="2434"/>
</Position24>
<Position25>
<Filename Value="main.pas"/>
<Caret Line="504" Column="9" TopLine="495"/>
<Caret Line="2463" Column="3" TopLine="2435"/>
</Position25>
<Position26>
<Filename Value="main.pas"/>
<Caret Line="502" Column="44" TopLine="485"/>
<Caret Line="2464" Column="3" TopLine="2436"/>
</Position26>
<Position27>
<Filename Value="main.pas"/>
<Caret Line="507" Column="29" TopLine="484"/>
<Caret Line="2465" Column="3" TopLine="2437"/>
</Position27>
<Position28>
<Filename Value="main.pas"/>
<Caret Line="519" Column="19" TopLine="497"/>
<Caret Line="2466" Column="3" TopLine="2438"/>
</Position28>
<Position29>
<Filename Value="main.pas"/>
<Caret Line="457" Column="29" TopLine="448"/>
<Caret Line="2473" Column="3" TopLine="2445"/>
</Position29>
<Position30>
<Filename Value="main.pas"/>
<Caret Line="17"/>
<Caret Line="1514" Column="67" TopLine="1512"/>
</Position30>
</JumpHistory>
<RunParams>

View File

@ -182,7 +182,9 @@ object GUIForm: TGUIForm
Width = 64
OnChange = tbMasterVolumeChange
Position = 0
TickStyle = tsNone
ScalePos = trBottom
TickMarks = tmBoth
TickStyle = tsManual
OnKeyDown = FormKeyDown
OnKeyUp = FormKeyUp
TabOrder = 0
@ -215,7 +217,9 @@ object GUIForm: TGUIForm
Max = 4
OnChange = TrackBar2Change
Position = 0
TickStyle = tsNone
ScalePos = trBottom
TickMarks = tmBoth
TickStyle = tsManual
OnKeyDown = FormKeyDown
OnKeyUp = FormKeyUp
TabOrder = 1
@ -5423,6 +5427,58 @@ object GUIForm: TGUIForm
OnClick = miIntLOGOClick
end
end
object miVM: TMenuItem
Caption = 'VM'
OnClick = miVMClick
object miVM1: TMenuItem
Caption = '1'
RadioItem = True
ShortCut = 24625
OnClick = miVM1Click
end
object miVM2: TMenuItem
Caption = '2'
RadioItem = True
ShortCut = 24626
OnClick = miVM1Click
end
object miVM3: TMenuItem
Caption = '3'
RadioItem = True
ShortCut = 24627
OnClick = miVM1Click
end
object miVM4: TMenuItem
Caption = '4'
RadioItem = True
ShortCut = 24628
OnClick = miVM1Click
end
object miVM5: TMenuItem
Caption = '5'
RadioItem = True
ShortCut = 24629
OnClick = miVM1Click
end
object miVM6: TMenuItem
Caption = '6'
RadioItem = True
ShortCut = 24630
OnClick = miVM1Click
end
object miVM7: TMenuItem
Caption = '7'
RadioItem = True
ShortCut = 24631
OnClick = miVM1Click
end
object miVM8: TMenuItem
Caption = '8'
RadioItem = True
ShortCut = 24632
OnClick = miVM1Click
end
end
object N7: TMenuItem
Caption = '-'
end

View File

@ -24,6 +24,15 @@ type
MenuItem14: TMenuItem;
MenuItem17: TMenuItem;
MenuItem18: TMenuItem;
miVM8: TMenuItem;
miVM7: TMenuItem;
miVM6: TMenuItem;
miVM5: TMenuItem;
miVM4: TMenuItem;
miVM3: TMenuItem;
miVM2: TMenuItem;
miVM1: TMenuItem;
miVM: TMenuItem;
miApps816Paint: TMenuItem;
miAppsPrintShop: TMenuItem;
miAppsTerminal: TMenuItem;
@ -405,6 +414,8 @@ type
procedure miVCRClick(Sender: TObject);
procedure miVD1Click(Sender: TObject);
procedure miVDClick(Sender: TObject);
procedure miVM1Click(Sender: TObject);
procedure miVMClick(Sender: TObject);
procedure miWarp25Click(Sender: TObject);
procedure MouseTimerTimer(Sender: TObject);
procedure sidecarPanelResize(Sender: TObject);
@ -1499,6 +1510,25 @@ begin
end;
end;
procedure TGUIForm.miVM1Click(Sender: TObject);
begin
SimpleGet(baseUrl+'/api/control/vm/'+TMenuItem(sender).Caption);
end;
procedure TGUIForm.miVMClick(Sender: TObject);
begin
case SimpleGet( baseUrl+'/api/control/vm' ) of
'1': miVM1.Checked := true;
'2': miVM2.Checked := true;
'3': miVM3.Checked := true;
'4': miVM4.Checked := true;
'5': miVM5.Checked := true;
'6': miVM6.Checked := true;
'7': miVM7.Checked := true;
'8': miVM8.Checked := true;
end;
end;
procedure TGUIForm.miWarp25Click(Sender: TObject);
begin
UpdateConfig( 'hardware/current.cpu.warp', TMenuItem(sender).Caption, false);

68
poc.lps
View File

@ -21,8 +21,8 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<TopLine Value="498"/>
<CursorPos X="17" Y="498"/>
<TopLine Value="1513"/>
<CursorPos X="13" Y="1528"/>
<UsageCount Value="323"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -36,136 +36,136 @@
<EditorIndex Value="-1"/>
<TopLine Value="3"/>
<CursorPos X="26" Y="25"/>
<UsageCount Value="162"/>
<UsageCount Value="206"/>
</Unit2>
<Unit3>
<Filename Value="C:\lazarus\lcl\include\picture.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="576"/>
<CursorPos X="49" Y="591"/>
<UsageCount Value="120"/>
<UsageCount Value="115"/>
</Unit3>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="main.pas"/>
<Caret Line="969" Column="14" TopLine="938"/>
<Caret Line="1371" Column="16" TopLine="1340"/>
</Position1>
<Position2>
<Filename Value="main.pas"/>
<Caret Line="974" Column="14" TopLine="943"/>
<Caret Line="1439" Column="12" TopLine="1408"/>
</Position2>
<Position3>
<Filename Value="main.pas"/>
<Caret Line="1068" Column="16" TopLine="1037"/>
<Caret Line="1717" Column="17" TopLine="1686"/>
</Position3>
<Position4>
<Filename Value="main.pas"/>
<Caret Line="1073" Column="15" TopLine="1042"/>
<Caret Line="1725" Column="17" TopLine="1694"/>
</Position4>
<Position5>
<Filename Value="main.pas"/>
<Caret Line="1078" Column="15" TopLine="1047"/>
<Caret Line="1740" Column="17" TopLine="1709"/>
</Position5>
<Position6>
<Filename Value="main.pas"/>
<Caret Line="1083" Column="14" TopLine="1052"/>
<Caret Line="1751" Column="17" TopLine="1720"/>
</Position6>
<Position7>
<Filename Value="main.pas"/>
<Caret Line="1100" Column="17" TopLine="1069"/>
<Caret Line="1859" Column="28" TopLine="1828"/>
</Position7>
<Position8>
<Filename Value="main.pas"/>
<Caret Line="1156" Column="12" TopLine="1125"/>
<Caret Line="1891" Column="6" TopLine="1865"/>
</Position8>
<Position9>
<Filename Value="main.pas"/>
<Caret Line="1161" Column="13" TopLine="1130"/>
<Caret Line="544" Column="10" TopLine="512"/>
</Position9>
<Position10>
<Filename Value="main.pas"/>
<Caret Line="1166" Column="14" TopLine="1135"/>
<Caret Line="523" Column="22" TopLine="502"/>
</Position10>
<Position11>
<Filename Value="main.pas"/>
<Caret Line="1171" Column="13" TopLine="1140"/>
<Caret Line="504" Column="9" TopLine="495"/>
</Position11>
<Position12>
<Filename Value="main.pas"/>
<Caret Line="1176" Column="12" TopLine="1145"/>
<Caret Line="502" Column="44" TopLine="485"/>
</Position12>
<Position13>
<Filename Value="main.pas"/>
<Caret Line="1181" Column="12" TopLine="1150"/>
<Caret Line="507" Column="29" TopLine="484"/>
</Position13>
<Position14>
<Filename Value="main.pas"/>
<Caret Line="1291" Column="18" TopLine="1260"/>
<Caret Line="519" Column="19" TopLine="497"/>
</Position14>
<Position15>
<Filename Value="main.pas"/>
<Caret Line="1371" Column="16" TopLine="1340"/>
<Caret Line="457" Column="29" TopLine="448"/>
</Position15>
<Position16>
<Filename Value="main.pas"/>
<Caret Line="1439" Column="12" TopLine="1408"/>
<Caret Line="17"/>
</Position16>
<Position17>
<Filename Value="main.pas"/>
<Caret Line="1717" Column="17" TopLine="1686"/>
<Caret Line="521" Column="11" TopLine="498"/>
</Position17>
<Position18>
<Filename Value="main.pas"/>
<Caret Line="1725" Column="17" TopLine="1694"/>
<Caret Line="1596" Column="30" TopLine="1582"/>
</Position18>
<Position19>
<Filename Value="main.pas"/>
<Caret Line="1740" Column="17" TopLine="1709"/>
<Caret Line="2458" Column="3" TopLine="2430"/>
</Position19>
<Position20>
<Filename Value="main.pas"/>
<Caret Line="1751" Column="17" TopLine="1720"/>
<Caret Line="2459" Column="3" TopLine="2431"/>
</Position20>
<Position21>
<Filename Value="main.pas"/>
<Caret Line="1859" Column="28" TopLine="1828"/>
<Caret Line="2460" Column="3" TopLine="2432"/>
</Position21>
<Position22>
<Filename Value="main.pas"/>
<Caret Line="1891" Column="6" TopLine="1865"/>
<Caret Line="2461" Column="3" TopLine="2433"/>
</Position22>
<Position23>
<Filename Value="main.pas"/>
<Caret Line="544" Column="10" TopLine="512"/>
<Caret Line="2462" Column="3" TopLine="2434"/>
</Position23>
<Position24>
<Filename Value="main.pas"/>
<Caret Line="523" Column="22" TopLine="502"/>
<Caret Line="2463" Column="3" TopLine="2435"/>
</Position24>
<Position25>
<Filename Value="main.pas"/>
<Caret Line="504" Column="9" TopLine="495"/>
<Caret Line="2464" Column="3" TopLine="2436"/>
</Position25>
<Position26>
<Filename Value="main.pas"/>
<Caret Line="502" Column="44" TopLine="485"/>
<Caret Line="2465" Column="3" TopLine="2437"/>
</Position26>
<Position27>
<Filename Value="main.pas"/>
<Caret Line="507" Column="29" TopLine="484"/>
<Caret Line="2466" Column="3" TopLine="2438"/>
</Position27>
<Position28>
<Filename Value="main.pas"/>
<Caret Line="519" Column="19" TopLine="497"/>
<Caret Line="2473" Column="3" TopLine="2445"/>
</Position28>
<Position29>
<Filename Value="main.pas"/>
<Caret Line="457" Column="29" TopLine="448"/>
<Caret Line="1514" Column="67" TopLine="1512"/>
</Position29>
<Position30>
<Filename Value="main.pas"/>
<Caret Line="17"/>
<Caret Line="1515" Column="3" TopLine="1513"/>
</Position30>
</JumpHistory>
<RunParams>