suppress VK_SHIFT to prevent issue with proterm

This commit is contained in:
April Ayres-Griffiths 2019-04-19 10:04:22 +10:00
parent 8d6662d6ae
commit 73affdeb6a
6 changed files with 267 additions and 271 deletions

View File

@ -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

View File

@ -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);

View File

@ -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>

View File

@ -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

View File

@ -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);

384
poc.lps
View File

@ -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>