From 73affdeb6a997f488f4285d09ef545ec2e7ee63a Mon Sep 17 00:00:00 2001
From: April Ayres-Griffiths <aag6581@gmail.com>
Date: Fri, 19 Apr 2019 10:04:22 +1000
Subject: [PATCH] suppress VK_SHIFT to prevent issue with proterm

---
 backup/main.lfm |  40 ++---
 backup/main.pas |   2 +-
 backup/poc.lps  |  70 ++++-----
 main.lfm        |  40 ++---
 main.pas        |   2 +-
 poc.lps         | 384 ++++++++++++++++++++++++------------------------
 6 files changed, 267 insertions(+), 271 deletions(-)

diff --git a/backup/main.lfm b/backup/main.lfm
index 35dc168..564b9c5 100644
--- a/backup/main.lfm
+++ b/backup/main.lfm
@@ -6,7 +6,7 @@ object GUIForm: TGUIForm
   AllowDropFiles = True
   AlphaBlendValue = 128
   Caption = 'microM8 GUI'
-  ClientHeight = 630
+  ClientHeight = 625
   ClientWidth = 1078
   Constraints.MinWidth = 1078
   DoubleBuffered = False
@@ -31,8 +31,8 @@ object GUIForm: TGUIForm
   LCLVersion = '2.0.0.4'
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 23
-    Top = 607
+    Height = 19
+    Top = 606
     Width = 1078
     Panels = <>
   end
@@ -234,7 +234,7 @@ object GUIForm: TGUIForm
     end
     object tbMasterVolume: TTrackBar
       Left = 249
-      Height = 32
+      Height = 38
       Top = 2
       Width = 96
       OnChange = tbMasterVolumeChange
@@ -278,7 +278,7 @@ object GUIForm: TGUIForm
     end
     object TrackBar2: TTrackBar
       Left = 449
-      Height = 32
+      Height = 38
       Top = 2
       Width = 96
       Max = 4
@@ -329,31 +329,31 @@ object GUIForm: TGUIForm
   end
   object pnlContainer: TPanel
     Left = 0
-    Height = 571
+    Height = 570
     Top = 36
     Width = 1078
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 571
+    ClientHeight = 570
     ClientWidth = 1078
     ParentColor = False
     TabOrder = 2
     object sidecarPanel: TPanel
       Left = 908
-      Height = 534
+      Height = 533
       Top = 0
       Width = 170
       Align = alRight
       BevelOuter = bvNone
       Caption = 'sidecarPanel'
-      ClientHeight = 534
+      ClientHeight = 533
       ClientWidth = 170
       Color = clBlack
       ParentColor = False
       TabOrder = 0
       object Image1: TImage
         Left = 0
-        Height = 534
+        Height = 533
         Top = 0
         Width = 170
         Align = alClient
@@ -5447,12 +5447,12 @@ object GUIForm: TGUIForm
     end
     object embedPanel: TPanel
       Left = 0
-      Height = 534
+      Height = 533
       Top = 0
       Width = 908
       Align = alClient
       BevelOuter = bvNone
-      ClientHeight = 534
+      ClientHeight = 533
       ClientWidth = 908
       Color = clBlack
       Font.Color = clWhite
@@ -5464,7 +5464,7 @@ object GUIForm: TGUIForm
       OnMouseUp = FormMouseUp
       object backdrop: TImage
         Left = 0
-        Height = 534
+        Height = 533
         Top = 0
         Width = 908
         Align = alClient
@@ -5477,7 +5477,7 @@ object GUIForm: TGUIForm
     object pnlMemory: TPanel
       Left = 0
       Height = 37
-      Top = 534
+      Top = 533
       Width = 1078
       Align = alBottom
       ClientHeight = 37
@@ -5488,7 +5488,7 @@ object GUIForm: TGUIForm
       OnResize = pnlMemoryResize
       object txtAddress: TEdit
         Left = 136
-        Height = 23
+        Height = 29
         Top = 8
         Width = 80
         OnKeyPress = txtAddressKeyPress
@@ -5498,23 +5498,23 @@ object GUIForm: TGUIForm
       end
       object Label1: TLabel
         Left = 9
-        Height = 15
+        Height = 17
         Top = 10
-        Width = 122
+        Width = 130
         Caption = 'Memory Address (hex):'
         ParentColor = False
       end
       object Label2: TLabel
         Left = 240
-        Height = 15
+        Height = 17
         Top = 10
-        Width = 60
+        Width = 65
         Caption = 'Value (hex):'
         ParentColor = False
       end
       object txtValue: TEdit
         Left = 312
-        Height = 23
+        Height = 29
         Top = 8
         Width = 80
         OnKeyPress = txtValueKeyPress
diff --git a/backup/main.pas b/backup/main.pas
index edc07fa..35efb2b 100644
--- a/backup/main.pas
+++ b/backup/main.pas
@@ -3171,7 +3171,7 @@ begin
   code := MapKeyCode(Key,Shift,false);
   if code <> 0 then
      SendKey( code, 0, 1, MapShiftState(Key, Shift) );
-  StatusBar1.SimpleText := IntToStr(code) + ' ' + keydesc;
+  //StatusBar1.SimpleText := IntToStr(code) + ' ' + keydesc;
 end;
 
 procedure TGUIForm.FormKeyPress(Sender: TObject; var Key: char);
diff --git a/backup/poc.lps b/backup/poc.lps
index 1c96fab..99f2a1a 100644
--- a/backup/poc.lps
+++ b/backup/poc.lps
@@ -21,8 +21,8 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="1923"/>
-        <CursorPos X="61" Y="1927"/>
+        <TopLine Value="871"/>
+        <CursorPos X="4" Y="873"/>
         <UsageCount Value="323"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -43,7 +43,7 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="576"/>
         <CursorPos X="49" Y="591"/>
-        <UsageCount Value="99"/>
+        <UsageCount Value="96"/>
       </Unit3>
       <Unit4>
         <Filename Value="C:\lazarus\components\lazutils\utf8process.pp"/>
@@ -51,7 +51,7 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="636"/>
         <CursorPos Y="654"/>
-        <UsageCount Value="4"/>
+        <UsageCount Value="1"/>
       </Unit4>
       <Unit5>
         <Filename Value="images\memory.pas"/>
@@ -61,129 +61,129 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="40"/>
         <CursorPos X="17" Y="44"/>
-        <UsageCount Value="13"/>
+        <UsageCount Value="10"/>
       </Unit5>
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="main.pas"/>
-        <Caret Line="978" Column="38" TopLine="961"/>
+        <Caret Line="2998" Column="6" TopLine="2978"/>
       </Position1>
       <Position2>
         <Filename Value="main.pas"/>
-        <Caret Line="2868" Column="26" TopLine="2848"/>
+        <Caret Line="3039" Column="26" TopLine="3026"/>
       </Position2>
       <Position3>
         <Filename Value="main.pas"/>
-        <Caret Line="593" Column="38" TopLine="572"/>
+        <Caret Line="3035" Column="34" TopLine="3024"/>
       </Position3>
       <Position4>
         <Filename Value="main.pas"/>
-        <Caret Line="2987" Column="48" TopLine="2978"/>
+        <Caret Line="335" Column="59" TopLine="318"/>
       </Position4>
       <Position5>
         <Filename Value="main.pas"/>
-        <Caret Line="582" Column="20" TopLine="572"/>
+        <Caret Line="3046" Column="36" TopLine="3032"/>
       </Position5>
       <Position6>
         <Filename Value="main.pas"/>
-        <Caret Line="2809" Column="66" TopLine="2788"/>
+        <Caret Line="2882" Column="27" TopLine="2867"/>
       </Position6>
       <Position7>
         <Filename Value="main.pas"/>
-        <Caret Line="2998" Column="6" TopLine="2978"/>
+        <Caret Line="2888" Column="23" TopLine="2877"/>
       </Position7>
       <Position8>
         <Filename Value="main.pas"/>
-        <Caret Line="3039" Column="26" TopLine="3026"/>
+        <Caret Line="706" Column="34" TopLine="732"/>
       </Position8>
       <Position9>
         <Filename Value="main.pas"/>
-        <Caret Line="3035" Column="34" TopLine="3024"/>
+        <Caret Line="2752" Column="28" TopLine="2729"/>
       </Position9>
       <Position10>
         <Filename Value="main.pas"/>
-        <Caret Line="335" Column="59" TopLine="318"/>
+        <Caret Line="1788" Column="61" TopLine="1785"/>
       </Position10>
       <Position11>
         <Filename Value="main.pas"/>
-        <Caret Line="3046" Column="36" TopLine="3032"/>
+        <Caret Line="2341" Column="6" TopLine="2313"/>
       </Position11>
       <Position12>
         <Filename Value="main.pas"/>
-        <Caret Line="2882" Column="27" TopLine="2867"/>
+        <Caret Line="1801" Column="28" TopLine="1786"/>
       </Position12>
       <Position13>
         <Filename Value="main.pas"/>
-        <Caret Line="2888" Column="23" TopLine="2877"/>
+        <Caret Line="2900" Column="14" TopLine="2888"/>
       </Position13>
       <Position14>
         <Filename Value="main.pas"/>
-        <Caret Line="706" Column="34" TopLine="732"/>
+        <Caret Line="1897" Column="16" TopLine="1894"/>
       </Position14>
       <Position15>
         <Filename Value="main.pas"/>
-        <Caret Line="2752" Column="28" TopLine="2729"/>
+        <Caret Line="426" Column="15" TopLine="408"/>
       </Position15>
       <Position16>
         <Filename Value="main.pas"/>
-        <Caret Line="1788" Column="61" TopLine="1785"/>
+        <Caret Line="1183" TopLine="1178"/>
       </Position16>
       <Position17>
         <Filename Value="main.pas"/>
-        <Caret Line="2341" Column="6" TopLine="2313"/>
+        <Caret Line="1923" Column="42" TopLine="1895"/>
       </Position17>
       <Position18>
         <Filename Value="main.pas"/>
-        <Caret Line="1801" Column="28" TopLine="1786"/>
+        <Caret Line="2892" Column="43" TopLine="2879"/>
       </Position18>
       <Position19>
         <Filename Value="main.pas"/>
-        <Caret Line="2900" Column="14" TopLine="2888"/>
+        <Caret Line="2899" Column="43" TopLine="2886"/>
       </Position19>
       <Position20>
         <Filename Value="main.pas"/>
-        <Caret Line="1897" Column="16" TopLine="1894"/>
+        <Caret Line="1833" Column="87" TopLine="1829"/>
       </Position20>
       <Position21>
         <Filename Value="main.pas"/>
-        <Caret Line="426" Column="15" TopLine="408"/>
+        <Caret Line="1839" Column="38" TopLine="1820"/>
       </Position21>
       <Position22>
         <Filename Value="main.pas"/>
-        <Caret Line="1183" TopLine="1178"/>
+        <Caret Line="1098" Column="15" TopLine="1092"/>
       </Position22>
       <Position23>
         <Filename Value="main.pas"/>
-        <Caret Line="1923" Column="42" TopLine="1895"/>
+        <Caret Line="1925" Column="3" TopLine="1923"/>
       </Position23>
       <Position24>
         <Filename Value="main.pas"/>
-        <Caret Line="2892" Column="43" TopLine="2879"/>
+        <Caret Line="3205" Column="13" TopLine="3198"/>
       </Position24>
       <Position25>
         <Filename Value="main.pas"/>
-        <Caret Line="2899" Column="43" TopLine="2886"/>
+        <Caret Line="3279" Column="24" TopLine="3223"/>
       </Position25>
       <Position26>
         <Filename Value="main.pas"/>
-        <Caret Line="1833" Column="87" TopLine="1829"/>
+        <Caret Line="581" Column="11" TopLine="563"/>
       </Position26>
       <Position27>
         <Filename Value="main.pas"/>
-        <Caret Line="1839" Column="38" TopLine="1820"/>
+        <Caret Line="2250" Column="17" TopLine="2231"/>
       </Position27>
       <Position28>
         <Filename Value="main.pas"/>
-        <Caret Line="1098" Column="15" TopLine="1092"/>
+        <Caret Line="2255" Column="14" TopLine="2231"/>
       </Position28>
       <Position29>
         <Filename Value="main.pas"/>
-        <Caret Line="1925" Column="3" TopLine="1923"/>
+        <Caret Line="2265" Column="21" TopLine="2234"/>
       </Position29>
       <Position30>
         <Filename Value="main.pas"/>
-        <Caret Line="3205" Column="13" TopLine="3198"/>
+        <Caret Line="3202" Column="9" TopLine="3174"/>
       </Position30>
     </JumpHistory>
     <RunParams>
diff --git a/main.lfm b/main.lfm
index 35dc168..564b9c5 100644
--- a/main.lfm
+++ b/main.lfm
@@ -6,7 +6,7 @@ object GUIForm: TGUIForm
   AllowDropFiles = True
   AlphaBlendValue = 128
   Caption = 'microM8 GUI'
-  ClientHeight = 630
+  ClientHeight = 625
   ClientWidth = 1078
   Constraints.MinWidth = 1078
   DoubleBuffered = False
@@ -31,8 +31,8 @@ object GUIForm: TGUIForm
   LCLVersion = '2.0.0.4'
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 23
-    Top = 607
+    Height = 19
+    Top = 606
     Width = 1078
     Panels = <>
   end
@@ -234,7 +234,7 @@ object GUIForm: TGUIForm
     end
     object tbMasterVolume: TTrackBar
       Left = 249
-      Height = 32
+      Height = 38
       Top = 2
       Width = 96
       OnChange = tbMasterVolumeChange
@@ -278,7 +278,7 @@ object GUIForm: TGUIForm
     end
     object TrackBar2: TTrackBar
       Left = 449
-      Height = 32
+      Height = 38
       Top = 2
       Width = 96
       Max = 4
@@ -329,31 +329,31 @@ object GUIForm: TGUIForm
   end
   object pnlContainer: TPanel
     Left = 0
-    Height = 571
+    Height = 570
     Top = 36
     Width = 1078
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 571
+    ClientHeight = 570
     ClientWidth = 1078
     ParentColor = False
     TabOrder = 2
     object sidecarPanel: TPanel
       Left = 908
-      Height = 534
+      Height = 533
       Top = 0
       Width = 170
       Align = alRight
       BevelOuter = bvNone
       Caption = 'sidecarPanel'
-      ClientHeight = 534
+      ClientHeight = 533
       ClientWidth = 170
       Color = clBlack
       ParentColor = False
       TabOrder = 0
       object Image1: TImage
         Left = 0
-        Height = 534
+        Height = 533
         Top = 0
         Width = 170
         Align = alClient
@@ -5447,12 +5447,12 @@ object GUIForm: TGUIForm
     end
     object embedPanel: TPanel
       Left = 0
-      Height = 534
+      Height = 533
       Top = 0
       Width = 908
       Align = alClient
       BevelOuter = bvNone
-      ClientHeight = 534
+      ClientHeight = 533
       ClientWidth = 908
       Color = clBlack
       Font.Color = clWhite
@@ -5464,7 +5464,7 @@ object GUIForm: TGUIForm
       OnMouseUp = FormMouseUp
       object backdrop: TImage
         Left = 0
-        Height = 534
+        Height = 533
         Top = 0
         Width = 908
         Align = alClient
@@ -5477,7 +5477,7 @@ object GUIForm: TGUIForm
     object pnlMemory: TPanel
       Left = 0
       Height = 37
-      Top = 534
+      Top = 533
       Width = 1078
       Align = alBottom
       ClientHeight = 37
@@ -5488,7 +5488,7 @@ object GUIForm: TGUIForm
       OnResize = pnlMemoryResize
       object txtAddress: TEdit
         Left = 136
-        Height = 23
+        Height = 29
         Top = 8
         Width = 80
         OnKeyPress = txtAddressKeyPress
@@ -5498,23 +5498,23 @@ object GUIForm: TGUIForm
       end
       object Label1: TLabel
         Left = 9
-        Height = 15
+        Height = 17
         Top = 10
-        Width = 122
+        Width = 130
         Caption = 'Memory Address (hex):'
         ParentColor = False
       end
       object Label2: TLabel
         Left = 240
-        Height = 15
+        Height = 17
         Top = 10
-        Width = 60
+        Width = 65
         Caption = 'Value (hex):'
         ParentColor = False
       end
       object txtValue: TEdit
         Left = 312
-        Height = 23
+        Height = 29
         Top = 8
         Width = 80
         OnKeyPress = txtValueKeyPress
diff --git a/main.pas b/main.pas
index 35efb2b..fa5e101 100644
--- a/main.pas
+++ b/main.pas
@@ -3000,7 +3000,7 @@ begin
            else
               Result := 0;
       end;
-  //VK_SHIFT: Result := 0;
+  VK_SHIFT: Result := 0;
   VK_CAPITAL: begin
                  {$IFDEF DARWIN}
                  Caps := (not KeyUp);
diff --git a/poc.lps b/poc.lps
index 99f2a1a..72b9023 100644
--- a/poc.lps
+++ b/poc.lps
@@ -1,194 +1,190 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<CONFIG>
-  <ProjectSession>
-    <PathDelim Value="\"/>
-    <Version Value="11"/>
-    <BuildModes Active="Default"/>
-    <Units Count="6">
-      <Unit0>
-        <Filename Value="poc.lpr"/>
-        <IsPartOfProject Value="True"/>
-        <EditorIndex Value="-1"/>
-        <WindowIndex Value="-1"/>
-        <TopLine Value="-1"/>
-        <CursorPos X="-1" Y="-1"/>
-        <UsageCount Value="323"/>
-      </Unit0>
-      <Unit1>
-        <Filename Value="main.pas"/>
-        <IsPartOfProject Value="True"/>
-        <ComponentName Value="GUIForm"/>
-        <HasResources Value="True"/>
-        <ResourceBaseClass Value="Form"/>
-        <IsVisibleTab Value="True"/>
-        <TopLine Value="871"/>
-        <CursorPos X="4" Y="873"/>
-        <UsageCount Value="323"/>
-        <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
-      </Unit1>
-      <Unit2>
-        <Filename Value="mixer.pas"/>
-        <IsPartOfProject Value="True"/>
-        <ComponentName Value="frmMixer"/>
-        <HasResources Value="True"/>
-        <ResourceBaseClass Value="Form"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="3"/>
-        <CursorPos X="26" Y="25"/>
-        <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="96"/>
-      </Unit3>
-      <Unit4>
-        <Filename Value="C:\lazarus\components\lazutils\utf8process.pp"/>
-        <UnitName Value="UTF8Process"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="636"/>
-        <CursorPos Y="654"/>
-        <UsageCount Value="1"/>
-      </Unit4>
-      <Unit5>
-        <Filename Value="images\memory.pas"/>
-        <ComponentName Value="memform"/>
-        <HasResources Value="True"/>
-        <ResourceBaseClass Value="Form"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="40"/>
-        <CursorPos X="17" Y="44"/>
-        <UsageCount Value="10"/>
-      </Unit5>
-    </Units>
-    <JumpHistory Count="30" HistoryIndex="29">
-      <Position1>
-        <Filename Value="main.pas"/>
-        <Caret Line="2998" Column="6" TopLine="2978"/>
-      </Position1>
-      <Position2>
-        <Filename Value="main.pas"/>
-        <Caret Line="3039" Column="26" TopLine="3026"/>
-      </Position2>
-      <Position3>
-        <Filename Value="main.pas"/>
-        <Caret Line="3035" Column="34" TopLine="3024"/>
-      </Position3>
-      <Position4>
-        <Filename Value="main.pas"/>
-        <Caret Line="335" Column="59" TopLine="318"/>
-      </Position4>
-      <Position5>
-        <Filename Value="main.pas"/>
-        <Caret Line="3046" Column="36" TopLine="3032"/>
-      </Position5>
-      <Position6>
-        <Filename Value="main.pas"/>
-        <Caret Line="2882" Column="27" TopLine="2867"/>
-      </Position6>
-      <Position7>
-        <Filename Value="main.pas"/>
-        <Caret Line="2888" Column="23" TopLine="2877"/>
-      </Position7>
-      <Position8>
-        <Filename Value="main.pas"/>
-        <Caret Line="706" Column="34" TopLine="732"/>
-      </Position8>
-      <Position9>
-        <Filename Value="main.pas"/>
-        <Caret Line="2752" Column="28" TopLine="2729"/>
-      </Position9>
-      <Position10>
-        <Filename Value="main.pas"/>
-        <Caret Line="1788" Column="61" TopLine="1785"/>
-      </Position10>
-      <Position11>
-        <Filename Value="main.pas"/>
-        <Caret Line="2341" Column="6" TopLine="2313"/>
-      </Position11>
-      <Position12>
-        <Filename Value="main.pas"/>
-        <Caret Line="1801" Column="28" TopLine="1786"/>
-      </Position12>
-      <Position13>
-        <Filename Value="main.pas"/>
-        <Caret Line="2900" Column="14" TopLine="2888"/>
-      </Position13>
-      <Position14>
-        <Filename Value="main.pas"/>
-        <Caret Line="1897" Column="16" TopLine="1894"/>
-      </Position14>
-      <Position15>
-        <Filename Value="main.pas"/>
-        <Caret Line="426" Column="15" TopLine="408"/>
-      </Position15>
-      <Position16>
-        <Filename Value="main.pas"/>
-        <Caret Line="1183" TopLine="1178"/>
-      </Position16>
-      <Position17>
-        <Filename Value="main.pas"/>
-        <Caret Line="1923" Column="42" TopLine="1895"/>
-      </Position17>
-      <Position18>
-        <Filename Value="main.pas"/>
-        <Caret Line="2892" Column="43" TopLine="2879"/>
-      </Position18>
-      <Position19>
-        <Filename Value="main.pas"/>
-        <Caret Line="2899" Column="43" TopLine="2886"/>
-      </Position19>
-      <Position20>
-        <Filename Value="main.pas"/>
-        <Caret Line="1833" Column="87" TopLine="1829"/>
-      </Position20>
-      <Position21>
-        <Filename Value="main.pas"/>
-        <Caret Line="1839" Column="38" TopLine="1820"/>
-      </Position21>
-      <Position22>
-        <Filename Value="main.pas"/>
-        <Caret Line="1098" Column="15" TopLine="1092"/>
-      </Position22>
-      <Position23>
-        <Filename Value="main.pas"/>
-        <Caret Line="1925" Column="3" TopLine="1923"/>
-      </Position23>
-      <Position24>
-        <Filename Value="main.pas"/>
-        <Caret Line="3205" Column="13" TopLine="3198"/>
-      </Position24>
-      <Position25>
-        <Filename Value="main.pas"/>
-        <Caret Line="3279" Column="24" TopLine="3223"/>
-      </Position25>
-      <Position26>
-        <Filename Value="main.pas"/>
-        <Caret Line="581" Column="11" TopLine="563"/>
-      </Position26>
-      <Position27>
-        <Filename Value="main.pas"/>
-        <Caret Line="2250" Column="17" TopLine="2231"/>
-      </Position27>
-      <Position28>
-        <Filename Value="main.pas"/>
-        <Caret Line="2255" Column="14" TopLine="2231"/>
-      </Position28>
-      <Position29>
-        <Filename Value="main.pas"/>
-        <Caret Line="2265" Column="21" TopLine="2234"/>
-      </Position29>
-      <Position30>
-        <Filename Value="main.pas"/>
-        <Caret Line="3202" Column="9" TopLine="3174"/>
-      </Position30>
-    </JumpHistory>
-    <RunParams>
-      <FormatVersion Value="2"/>
-      <Modes Count="0" ActiveMode=""/>
-    </RunParams>
-  </ProjectSession>
-</CONFIG>
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <ProjectSession>
+    <PathDelim Value="\"/>
+    <Version Value="11"/>
+    <BuildModes Active="Default"/>
+    <Units Count="6">
+      <Unit0>
+        <Filename Value="poc.lpr"/>
+        <IsPartOfProject Value="True"/>
+        <EditorIndex Value="-1"/>
+        <WindowIndex Value="-1"/>
+        <TopLine Value="-1"/>
+        <CursorPos X="-1" Y="-1"/>
+        <UsageCount Value="323"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="main.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="GUIForm"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+        <IsVisibleTab Value="True"/>
+        <TopLine Value="871"/>
+        <CursorPos X="33" Y="874"/>
+        <UsageCount Value="323"/>
+        <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
+      </Unit1>
+      <Unit2>
+        <Filename Value="mixer.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="frmMixer"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+        <EditorIndex Value="-1"/>
+        <TopLine Value="3"/>
+        <CursorPos X="26" Y="25"/>
+        <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="96"/>
+      </Unit3>
+      <Unit4>
+        <Filename Value="C:\lazarus\components\lazutils\utf8process.pp"/>
+        <UnitName Value="UTF8Process"/>
+        <EditorIndex Value="-1"/>
+        <TopLine Value="636"/>
+        <CursorPos Y="654"/>
+        <UsageCount Value="1"/>
+      </Unit4>
+      <Unit5>
+        <Filename Value="images\memory.pas"/>
+        <ComponentName Value="memform"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+        <EditorIndex Value="-1"/>
+        <TopLine Value="40"/>
+        <CursorPos X="17" Y="44"/>
+        <UsageCount Value="10"/>
+      </Unit5>
+    </Units>
+    <JumpHistory Count="29" HistoryIndex="28">
+      <Position1>
+        <Filename Value="main.pas"/>
+        <Caret Line="2998" Column="6" TopLine="2978"/>
+      </Position1>
+      <Position2>
+        <Filename Value="main.pas"/>
+        <Caret Line="3039" Column="26" TopLine="3026"/>
+      </Position2>
+      <Position3>
+        <Filename Value="main.pas"/>
+        <Caret Line="3035" Column="34" TopLine="3024"/>
+      </Position3>
+      <Position4>
+        <Filename Value="main.pas"/>
+        <Caret Line="335" Column="59" TopLine="318"/>
+      </Position4>
+      <Position5>
+        <Filename Value="main.pas"/>
+        <Caret Line="3046" Column="36" TopLine="3032"/>
+      </Position5>
+      <Position6>
+        <Filename Value="main.pas"/>
+        <Caret Line="2882" Column="27" TopLine="2867"/>
+      </Position6>
+      <Position7>
+        <Filename Value="main.pas"/>
+        <Caret Line="2888" Column="23" TopLine="2877"/>
+      </Position7>
+      <Position8>
+        <Filename Value="main.pas"/>
+        <Caret Line="2752" Column="28" TopLine="2729"/>
+      </Position8>
+      <Position9>
+        <Filename Value="main.pas"/>
+        <Caret Line="1788" Column="61" TopLine="1785"/>
+      </Position9>
+      <Position10>
+        <Filename Value="main.pas"/>
+        <Caret Line="2341" Column="6" TopLine="2313"/>
+      </Position10>
+      <Position11>
+        <Filename Value="main.pas"/>
+        <Caret Line="1801" Column="28" TopLine="1786"/>
+      </Position11>
+      <Position12>
+        <Filename Value="main.pas"/>
+        <Caret Line="2900" Column="14" TopLine="2888"/>
+      </Position12>
+      <Position13>
+        <Filename Value="main.pas"/>
+        <Caret Line="1897" Column="16" TopLine="1894"/>
+      </Position13>
+      <Position14>
+        <Filename Value="main.pas"/>
+        <Caret Line="426" Column="15" TopLine="408"/>
+      </Position14>
+      <Position15>
+        <Filename Value="main.pas"/>
+        <Caret Line="1183" TopLine="1178"/>
+      </Position15>
+      <Position16>
+        <Filename Value="main.pas"/>
+        <Caret Line="1923" Column="42" TopLine="1895"/>
+      </Position16>
+      <Position17>
+        <Filename Value="main.pas"/>
+        <Caret Line="2892" Column="43" TopLine="2879"/>
+      </Position17>
+      <Position18>
+        <Filename Value="main.pas"/>
+        <Caret Line="2899" Column="43" TopLine="2886"/>
+      </Position18>
+      <Position19>
+        <Filename Value="main.pas"/>
+        <Caret Line="1833" Column="87" TopLine="1829"/>
+      </Position19>
+      <Position20>
+        <Filename Value="main.pas"/>
+        <Caret Line="1839" Column="38" TopLine="1820"/>
+      </Position20>
+      <Position21>
+        <Filename Value="main.pas"/>
+        <Caret Line="1098" Column="15" TopLine="1092"/>
+      </Position21>
+      <Position22>
+        <Filename Value="main.pas"/>
+        <Caret Line="1925" Column="3" TopLine="1923"/>
+      </Position22>
+      <Position23>
+        <Filename Value="main.pas"/>
+        <Caret Line="3205" Column="13" TopLine="3198"/>
+      </Position23>
+      <Position24>
+        <Filename Value="main.pas"/>
+        <Caret Line="3279" Column="24" TopLine="3223"/>
+      </Position24>
+      <Position25>
+        <Filename Value="main.pas"/>
+        <Caret Line="581" Column="11" TopLine="563"/>
+      </Position25>
+      <Position26>
+        <Filename Value="main.pas"/>
+        <Caret Line="2250" Column="17" TopLine="2231"/>
+      </Position26>
+      <Position27>
+        <Filename Value="main.pas"/>
+        <Caret Line="2255" Column="14" TopLine="2231"/>
+      </Position27>
+      <Position28>
+        <Filename Value="main.pas"/>
+        <Caret Line="2265" Column="21" TopLine="2234"/>
+      </Position28>
+      <Position29>
+        <Filename Value="main.pas"/>
+        <Caret Line="3202" Column="9" TopLine="3174"/>
+      </Position29>
+    </JumpHistory>
+    <RunParams>
+      <FormatVersion Value="2"/>
+      <Modes Count="0" ActiveMode=""/>
+    </RunParams>
+  </ProjectSession>
+</CONFIG>