Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2024-11-25 17:42:21 +00:00
Code Issues Projects Releases Wiki Activity

if Shift+Ctrl+X keys

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
backup/main.pas
View File

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

368
backup/poc.lps
View File

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

BIN
lib/x86_64-win64/main.o
View File

Binary file not shown.

BIN
lib/x86_64-win64/main.ppu
View File

Binary file not shown.

BIN
lib/x86_64-win64/poc.obj
View File

Binary file not shown.

8
main.pas
View File

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

368
poc.lps
View File

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