if Shift+Ctrl+X keys

This commit is contained in:
April Ayres-Griffiths 2019-04-13 10:19:15 +10:00
parent 9056ed6555
commit d25ff669cb
7 changed files with 380 additions and 378 deletions

View File

@ -1549,13 +1549,7 @@ begin
end;
procedure TGUIForm.miVideoScreenshotClick(Sender: TObject);
var
s: string;
begin
s := SimpleGet(baseUrl+'/api/control/window/screenshot');
if s <> '' then
StatusBar1.SimpleText := 'Screenshot saved: ' + s;
SendKey( $e092, $e092, 1, 0 );
end;
@ -2331,6 +2325,7 @@ const
CSR_UP = $e002;
CSR_DOWN = $e003;
CTRL_A = $e041;
SHIFT_CTRL_A = $e071;
begin
case Key of
219:
@ -2413,7 +2408,10 @@ begin
VK_A..VK_Z:
begin
if (ssCtrl in Shift) and (ssShift in Shift) then
Result := Integer(Key)
begin
StatusBar1.SimpleText := 'Shift+Ctrl+'+char(Key);
Result := (Integer(Key) - 65) + SHIFT_CTRL_A;
end
else if ssShift in Shift then
Result := Integer(Key)
else if ssCtrl in Shift then
@ -2421,7 +2419,7 @@ begin
if Key = 67 then
Result := 3
else
Result := CTRL_A + Integer(Key-64);
Result := CTRL_A + Integer(Key-65);
end
else
Result := Integer(Key)+32;

View File

@ -1,184 +1,184 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="11"/>
<BuildModes Active="Default"/>
<Units Count="5">
<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="1745"/>
<CursorPos X="51" Y="1772"/>
<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="114"/>
</Unit3>
<Unit4>
<Filename Value="C:\lazarus\components\lazutils\utf8process.pp"/>
<UnitName Value="UTF8Process"/>
<EditorIndex Value="-1"/>
<TopLine Value="636"/>
<CursorPos Y="654"/>
<UsageCount Value="10"/>
</Unit4>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="main.pas"/>
<Caret Line="2463" Column="3" TopLine="2435"/>
</Position1>
<Position2>
<Filename Value="main.pas"/>
<Caret Line="2464" Column="3" TopLine="2436"/>
</Position2>
<Position3>
<Filename Value="main.pas"/>
<Caret Line="2465" Column="3" TopLine="2437"/>
</Position3>
<Position4>
<Filename Value="main.pas"/>
<Caret Line="2466" Column="3" TopLine="2438"/>
</Position4>
<Position5>
<Filename Value="main.pas"/>
<Caret Line="2473" Column="3" TopLine="2445"/>
</Position5>
<Position6>
<Filename Value="main.pas"/>
<Caret Line="1514" Column="67" TopLine="1512"/>
</Position6>
<Position7>
<Filename Value="main.pas"/>
<Caret Line="1515" Column="3" TopLine="1513"/>
</Position7>
<Position8>
<Filename Value="main.pas"/>
<Caret Line="1528" Column="32" TopLine="1513"/>
</Position8>
<Position9>
<Filename Value="main.pas"/>
<Caret Line="1529" Column="32" TopLine="1514"/>
</Position9>
<Position10>
<Filename Value="main.pas"/>
<Caret Line="1531" Column="32" TopLine="1516"/>
</Position10>
<Position11>
<Filename Value="main.pas"/>
<Caret Line="1579" Column="35" TopLine="1577"/>
</Position11>
<Position12>
<Filename Value="main.pas"/>
<Caret Line="2440" TopLine="2437"/>
</Position12>
<Position13>
<Filename Value="main.pas"/>
<Caret Line="1580" Column="22" TopLine="1577"/>
</Position13>
<Position14>
<Filename Value="main.pas"/>
<Caret Line="2242" Column="62" TopLine="2215"/>
</Position14>
<Position15>
<Filename Value="main.pas"/>
<Caret Line="2240" Column="57" TopLine="2221"/>
</Position15>
<Position16>
<Filename Value="main.pas"/>
<Caret Line="1477" Column="3" TopLine="1475"/>
</Position16>
<Position17>
<Filename Value="main.pas"/>
<Caret Line="1478" Column="3" TopLine="1476"/>
</Position17>
<Position18>
<Filename Value="main.pas"/>
<Caret Line="1485" Column="3" TopLine="1483"/>
</Position18>
<Position19>
<Filename Value="main.pas"/>
<Caret Line="1057" Column="8" TopLine="1055"/>
</Position19>
<Position20>
<Filename Value="main.pas"/>
<Caret Line="902" Column="5" TopLine="900"/>
</Position20>
<Position21>
<Filename Value="main.pas"/>
<Caret Line="1062" Column="28" TopLine="1055"/>
</Position21>
<Position22>
<Filename Value="main.pas"/>
<Caret Line="2256" Column="14" TopLine="2244"/>
</Position22>
<Position23>
<Filename Value="main.pas"/>
<Caret Line="2396" Column="47" TopLine="2393"/>
</Position23>
<Position24>
<Filename Value="main.pas"/>
<Caret Line="2390" Column="17" TopLine="2378"/>
</Position24>
<Position25>
<Filename Value="main.pas"/>
<Caret Line="2406" Column="17" TopLine="2378"/>
</Position25>
<Position26>
<Filename Value="main.pas"/>
<Caret Line="2363" Column="37" TopLine="2349"/>
</Position26>
<Position27>
<Filename Value="main.pas"/>
<Caret Line="2364" Column="37" TopLine="2350"/>
</Position27>
<Position28>
<Filename Value="main.pas"/>
<Caret Line="2365" Column="37" TopLine="2351"/>
</Position28>
<Position29>
<Filename Value="main.pas"/>
<Caret Line="2366" Column="37" TopLine="2352"/>
</Position29>
<Position30>
<Filename Value="main.pas"/>
<Caret Line="480" Column="15" TopLine="465"/>
</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="5">
<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="1745"/>
<CursorPos X="51" Y="1772"/>
<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="114"/>
</Unit3>
<Unit4>
<Filename Value="C:\lazarus\components\lazutils\utf8process.pp"/>
<UnitName Value="UTF8Process"/>
<EditorIndex Value="-1"/>
<TopLine Value="636"/>
<CursorPos Y="654"/>
<UsageCount Value="10"/>
</Unit4>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="main.pas"/>
<Caret Line="2463" Column="3" TopLine="2435"/>
</Position1>
<Position2>
<Filename Value="main.pas"/>
<Caret Line="2464" Column="3" TopLine="2436"/>
</Position2>
<Position3>
<Filename Value="main.pas"/>
<Caret Line="2465" Column="3" TopLine="2437"/>
</Position3>
<Position4>
<Filename Value="main.pas"/>
<Caret Line="2466" Column="3" TopLine="2438"/>
</Position4>
<Position5>
<Filename Value="main.pas"/>
<Caret Line="2473" Column="3" TopLine="2445"/>
</Position5>
<Position6>
<Filename Value="main.pas"/>
<Caret Line="1514" Column="67" TopLine="1512"/>
</Position6>
<Position7>
<Filename Value="main.pas"/>
<Caret Line="1515" Column="3" TopLine="1513"/>
</Position7>
<Position8>
<Filename Value="main.pas"/>
<Caret Line="1528" Column="32" TopLine="1513"/>
</Position8>
<Position9>
<Filename Value="main.pas"/>
<Caret Line="1529" Column="32" TopLine="1514"/>
</Position9>
<Position10>
<Filename Value="main.pas"/>
<Caret Line="1531" Column="32" TopLine="1516"/>
</Position10>
<Position11>
<Filename Value="main.pas"/>
<Caret Line="1579" Column="35" TopLine="1577"/>
</Position11>
<Position12>
<Filename Value="main.pas"/>
<Caret Line="2440" TopLine="2437"/>
</Position12>
<Position13>
<Filename Value="main.pas"/>
<Caret Line="1580" Column="22" TopLine="1577"/>
</Position13>
<Position14>
<Filename Value="main.pas"/>
<Caret Line="2242" Column="62" TopLine="2215"/>
</Position14>
<Position15>
<Filename Value="main.pas"/>
<Caret Line="2240" Column="57" TopLine="2221"/>
</Position15>
<Position16>
<Filename Value="main.pas"/>
<Caret Line="1477" Column="3" TopLine="1475"/>
</Position16>
<Position17>
<Filename Value="main.pas"/>
<Caret Line="1478" Column="3" TopLine="1476"/>
</Position17>
<Position18>
<Filename Value="main.pas"/>
<Caret Line="1485" Column="3" TopLine="1483"/>
</Position18>
<Position19>
<Filename Value="main.pas"/>
<Caret Line="1057" Column="8" TopLine="1055"/>
</Position19>
<Position20>
<Filename Value="main.pas"/>
<Caret Line="902" Column="5" TopLine="900"/>
</Position20>
<Position21>
<Filename Value="main.pas"/>
<Caret Line="1062" Column="28" TopLine="1055"/>
</Position21>
<Position22>
<Filename Value="main.pas"/>
<Caret Line="2256" Column="14" TopLine="2244"/>
</Position22>
<Position23>
<Filename Value="main.pas"/>
<Caret Line="2396" Column="47" TopLine="2393"/>
</Position23>
<Position24>
<Filename Value="main.pas"/>
<Caret Line="2390" Column="17" TopLine="2378"/>
</Position24>
<Position25>
<Filename Value="main.pas"/>
<Caret Line="2406" Column="17" TopLine="2378"/>
</Position25>
<Position26>
<Filename Value="main.pas"/>
<Caret Line="2363" Column="37" TopLine="2349"/>
</Position26>
<Position27>
<Filename Value="main.pas"/>
<Caret Line="2364" Column="37" TopLine="2350"/>
</Position27>
<Position28>
<Filename Value="main.pas"/>
<Caret Line="2365" Column="37" TopLine="2351"/>
</Position28>
<Position29>
<Filename Value="main.pas"/>
<Caret Line="2366" Column="37" TopLine="2352"/>
</Position29>
<Position30>
<Filename Value="main.pas"/>
<Caret Line="480" Column="15" TopLine="465"/>
</Position30>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0" ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -2325,6 +2325,7 @@ const
CSR_UP = $e002;
CSR_DOWN = $e003;
CTRL_A = $e041;
SHIFT_CTRL_A = $e071;
begin
case Key of
219:
@ -2407,7 +2408,10 @@ begin
VK_A..VK_Z:
begin
if (ssCtrl in Shift) and (ssShift in Shift) then
Result := Integer(Key)
begin
//StatusBar1.SimpleText := 'Shift+Ctrl+'+char(Key);
Result := (Integer(Key) - 65) + SHIFT_CTRL_A;
end
else if ssShift in Shift then
Result := Integer(Key)
else if ssCtrl in Shift then
@ -2415,7 +2419,7 @@ begin
if Key = 67 then
Result := 3
else
Result := CTRL_A + Integer(Key-64);
Result := CTRL_A + Integer(Key-65);
end
else
Result := Integer(Key)+32;

368
poc.lps
View File

@ -1,184 +1,184 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="11"/>
<BuildModes Active="Default"/>
<Units Count="5">
<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="1750"/>
<CursorPos X="51" Y="1777"/>
<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="114"/>
</Unit3>
<Unit4>
<Filename Value="C:\lazarus\components\lazutils\utf8process.pp"/>
<UnitName Value="UTF8Process"/>
<EditorIndex Value="-1"/>
<TopLine Value="636"/>
<CursorPos Y="654"/>
<UsageCount Value="10"/>
</Unit4>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="main.pas"/>
<Caret Line="1514" Column="67" TopLine="1512"/>
</Position1>
<Position2>
<Filename Value="main.pas"/>
<Caret Line="1515" Column="3" TopLine="1513"/>
</Position2>
<Position3>
<Filename Value="main.pas"/>
<Caret Line="1528" Column="32" TopLine="1513"/>
</Position3>
<Position4>
<Filename Value="main.pas"/>
<Caret Line="1529" Column="32" TopLine="1514"/>
</Position4>
<Position5>
<Filename Value="main.pas"/>
<Caret Line="1531" Column="32" TopLine="1516"/>
</Position5>
<Position6>
<Filename Value="main.pas"/>
<Caret Line="1579" Column="35" TopLine="1577"/>
</Position6>
<Position7>
<Filename Value="main.pas"/>
<Caret Line="2440" TopLine="2437"/>
</Position7>
<Position8>
<Filename Value="main.pas"/>
<Caret Line="1580" Column="22" TopLine="1577"/>
</Position8>
<Position9>
<Filename Value="main.pas"/>
<Caret Line="2242" Column="62" TopLine="2215"/>
</Position9>
<Position10>
<Filename Value="main.pas"/>
<Caret Line="2240" Column="57" TopLine="2221"/>
</Position10>
<Position11>
<Filename Value="main.pas"/>
<Caret Line="1477" Column="3" TopLine="1475"/>
</Position11>
<Position12>
<Filename Value="main.pas"/>
<Caret Line="1478" Column="3" TopLine="1476"/>
</Position12>
<Position13>
<Filename Value="main.pas"/>
<Caret Line="1485" Column="3" TopLine="1483"/>
</Position13>
<Position14>
<Filename Value="main.pas"/>
<Caret Line="1057" Column="8" TopLine="1055"/>
</Position14>
<Position15>
<Filename Value="main.pas"/>
<Caret Line="902" Column="5" TopLine="900"/>
</Position15>
<Position16>
<Filename Value="main.pas"/>
<Caret Line="1062" Column="28" TopLine="1055"/>
</Position16>
<Position17>
<Filename Value="main.pas"/>
<Caret Line="2256" Column="14" TopLine="2244"/>
</Position17>
<Position18>
<Filename Value="main.pas"/>
<Caret Line="2396" Column="47" TopLine="2393"/>
</Position18>
<Position19>
<Filename Value="main.pas"/>
<Caret Line="2390" Column="17" TopLine="2378"/>
</Position19>
<Position20>
<Filename Value="main.pas"/>
<Caret Line="2406" Column="17" TopLine="2378"/>
</Position20>
<Position21>
<Filename Value="main.pas"/>
<Caret Line="2363" Column="37" TopLine="2349"/>
</Position21>
<Position22>
<Filename Value="main.pas"/>
<Caret Line="2364" Column="37" TopLine="2350"/>
</Position22>
<Position23>
<Filename Value="main.pas"/>
<Caret Line="2365" Column="37" TopLine="2351"/>
</Position23>
<Position24>
<Filename Value="main.pas"/>
<Caret Line="2366" Column="37" TopLine="2352"/>
</Position24>
<Position25>
<Filename Value="main.pas"/>
<Caret Line="480" Column="15" TopLine="465"/>
</Position25>
<Position26>
<Filename Value="main.pas"/>
<Caret Line="1772" Column="51" TopLine="1745"/>
</Position26>
<Position27>
<Filename Value="main.pas"/>
<Caret Line="1773" Column="51" TopLine="1746"/>
</Position27>
<Position28>
<Filename Value="main.pas"/>
<Caret Line="1774" Column="51" TopLine="1747"/>
</Position28>
<Position29>
<Filename Value="main.pas"/>
<Caret Line="1775" Column="51" TopLine="1748"/>
</Position29>
<Position30>
<Filename Value="main.pas"/>
<Caret Line="1776" Column="51" TopLine="1749"/>
</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="5">
<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="1750"/>
<CursorPos X="51" Y="1777"/>
<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="114"/>
</Unit3>
<Unit4>
<Filename Value="C:\lazarus\components\lazutils\utf8process.pp"/>
<UnitName Value="UTF8Process"/>
<EditorIndex Value="-1"/>
<TopLine Value="636"/>
<CursorPos Y="654"/>
<UsageCount Value="10"/>
</Unit4>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="main.pas"/>
<Caret Line="1514" Column="67" TopLine="1512"/>
</Position1>
<Position2>
<Filename Value="main.pas"/>
<Caret Line="1515" Column="3" TopLine="1513"/>
</Position2>
<Position3>
<Filename Value="main.pas"/>
<Caret Line="1528" Column="32" TopLine="1513"/>
</Position3>
<Position4>
<Filename Value="main.pas"/>
<Caret Line="1529" Column="32" TopLine="1514"/>
</Position4>
<Position5>
<Filename Value="main.pas"/>
<Caret Line="1531" Column="32" TopLine="1516"/>
</Position5>
<Position6>
<Filename Value="main.pas"/>
<Caret Line="1579" Column="35" TopLine="1577"/>
</Position6>
<Position7>
<Filename Value="main.pas"/>
<Caret Line="2440" TopLine="2437"/>
</Position7>
<Position8>
<Filename Value="main.pas"/>
<Caret Line="1580" Column="22" TopLine="1577"/>
</Position8>
<Position9>
<Filename Value="main.pas"/>
<Caret Line="2242" Column="62" TopLine="2215"/>
</Position9>
<Position10>
<Filename Value="main.pas"/>
<Caret Line="2240" Column="57" TopLine="2221"/>
</Position10>
<Position11>
<Filename Value="main.pas"/>
<Caret Line="1477" Column="3" TopLine="1475"/>
</Position11>
<Position12>
<Filename Value="main.pas"/>
<Caret Line="1478" Column="3" TopLine="1476"/>
</Position12>
<Position13>
<Filename Value="main.pas"/>
<Caret Line="1485" Column="3" TopLine="1483"/>
</Position13>
<Position14>
<Filename Value="main.pas"/>
<Caret Line="1057" Column="8" TopLine="1055"/>
</Position14>
<Position15>
<Filename Value="main.pas"/>
<Caret Line="902" Column="5" TopLine="900"/>
</Position15>
<Position16>
<Filename Value="main.pas"/>
<Caret Line="1062" Column="28" TopLine="1055"/>
</Position16>
<Position17>
<Filename Value="main.pas"/>
<Caret Line="2256" Column="14" TopLine="2244"/>
</Position17>
<Position18>
<Filename Value="main.pas"/>
<Caret Line="2396" Column="47" TopLine="2393"/>
</Position18>
<Position19>
<Filename Value="main.pas"/>
<Caret Line="2390" Column="17" TopLine="2378"/>
</Position19>
<Position20>
<Filename Value="main.pas"/>
<Caret Line="2406" Column="17" TopLine="2378"/>
</Position20>
<Position21>
<Filename Value="main.pas"/>
<Caret Line="2363" Column="37" TopLine="2349"/>
</Position21>
<Position22>
<Filename Value="main.pas"/>
<Caret Line="2364" Column="37" TopLine="2350"/>
</Position22>
<Position23>
<Filename Value="main.pas"/>
<Caret Line="2365" Column="37" TopLine="2351"/>
</Position23>
<Position24>
<Filename Value="main.pas"/>
<Caret Line="2366" Column="37" TopLine="2352"/>
</Position24>
<Position25>
<Filename Value="main.pas"/>
<Caret Line="480" Column="15" TopLine="465"/>
</Position25>
<Position26>
<Filename Value="main.pas"/>
<Caret Line="1772" Column="51" TopLine="1745"/>
</Position26>
<Position27>
<Filename Value="main.pas"/>
<Caret Line="1773" Column="51" TopLine="1746"/>
</Position27>
<Position28>
<Filename Value="main.pas"/>
<Caret Line="1774" Column="51" TopLine="1747"/>
</Position28>
<Position29>
<Filename Value="main.pas"/>
<Caret Line="1775" Column="51" TopLine="1748"/>
</Position29>
<Position30>
<Filename Value="main.pas"/>
<Caret Line="1776" Column="51" TopLine="1749"/>
</Position30>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0" ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>