From 743f44efa8a9620d4995daefa23ce7f1254435e9 Mon Sep 17 00:00:00 2001
From: April Ayres-Griffiths <aag6581@gmail.com>
Date: Fri, 12 Apr 2019 19:28:52 +1000
Subject: [PATCH] vm mmune

---
 backup/main.lfm | 54 ++++++++++++++++++++++++++++++++++++---
 backup/main.pas | 30 ++++++++++++++++++++++
 backup/poc.lps  | 68 ++++++++++++++++++++++++-------------------------
 main.lfm        | 60 +++++++++++++++++++++++++++++++++++++++++--
 main.pas        | 30 ++++++++++++++++++++++
 poc.lps         | 68 ++++++++++++++++++++++++-------------------------
 6 files changed, 237 insertions(+), 73 deletions(-)

diff --git a/backup/main.lfm b/backup/main.lfm
index bc5ac3a..e18f375 100644
--- a/backup/main.lfm
+++ b/backup/main.lfm
@@ -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
diff --git a/backup/main.pas b/backup/main.pas
index 550aa31..d2e420f 100644
--- a/backup/main.pas
+++ b/backup/main.pas
@@ -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);
diff --git a/backup/poc.lps b/backup/poc.lps
index d418b77..1d34234 100644
--- a/backup/poc.lps
+++ b/backup/poc.lps
@@ -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>
diff --git a/main.lfm b/main.lfm
index 3eab31f..cdd6f1e 100644
--- a/main.lfm
+++ b/main.lfm
@@ -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
diff --git a/main.pas b/main.pas
index 550aa31..d2e420f 100644
--- a/main.pas
+++ b/main.pas
@@ -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);
diff --git a/poc.lps b/poc.lps
index 288cf57..a647d7d 100644
--- a/poc.lps
+++ b/poc.lps
@@ -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>