Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2024-06-08 16:29:33 +00:00
Code Issues Projects Releases Wiki Activity

camera reset

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-14 17:15:21 +10:00
parent 9d0c8fb688
commit af237b74d5
10 changed files with 130 additions and 113 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
backup/main.lfm
View File

@ -10583,6 +10583,13 @@ object GUIForm: TGUIForm
Caption = 'Apple ][+' Caption = 'Apple ][+'
OnClick = miPRFIIplusClick OnClick = miPRFIIplusClick
end end
object N14: TMenuItem
Caption = '-'
end
object miPRFReboot: TMenuItem
Caption = 'Reboot'
OnClick = miPRFRebootClick
end
end end
object WaitRepos: TTimer object WaitRepos: TTimer
Enabled = False Enabled = False

35
backup/main.pas
View File

@ -27,6 +27,8 @@ type
btnHide: TButton; btnHide: TButton;
Label1: TLabel; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
miPRFReboot: TMenuItem;
N14: TMenuItem;
miCameraMouseControl: TMenuItem; miCameraMouseControl: TMenuItem;
miCameraAlternateControls: TMenuItem; miCameraAlternateControls: TMenuItem;
miCamera: TMenuItem; miCamera: TMenuItem;
@ -438,6 +440,7 @@ type
procedure miPRFIIeEnhancedClick(Sender: TObject); procedure miPRFIIeEnhancedClick(Sender: TObject);
procedure miPRFIIeEnhancedSoftcardClick(Sender: TObject); procedure miPRFIIeEnhancedSoftcardClick(Sender: TObject);
procedure miPRFIIplusClick(Sender: TObject); procedure miPRFIIplusClick(Sender: TObject);
procedure miPRFRebootClick(Sender: TObject);
procedure miPrinterPDFClick(Sender: TObject); procedure miPrinterPDFClick(Sender: TObject);
procedure miProfilesClick(Sender: TObject); procedure miProfilesClick(Sender: TObject);
procedure miPSG0m100Click(Sender: TObject); procedure miPSG0m100Click(Sender: TObject);
@ -875,8 +878,8 @@ end;
procedure TGUIForm.miCameraClick(Sender: TObject); procedure TGUIForm.miCameraClick(Sender: TObject);
begin begin
miCameraMouseControl := GetConfig('video/current.mousemovecamera.enabled') = '1'; miCameraMouseControl.Checked := GetConfig('video/current.mousemovecamera.enabled') = '1';
miCameraAlternateControls := GetConfig('video/current.mousemovecamera.alternate') = '1'; miCameraAlternateControls.Checked := GetConfig('video/current.mousemovecamera.alternate') = '1';
end; end;
procedure TGUIForm.miCameraMouseControlClick(Sender: TObject); procedure TGUIForm.miCameraMouseControlClick(Sender: TObject);
@ -1327,49 +1330,33 @@ procedure TGUIForm.miPRFIIeClick(Sender: TObject);
var var
reply: integer; reply: integer;
begin begin
RepaintWindow;
HideM8;
reply := Application.MessageBox('Reboot the VM?', 'Reboot', MB_ICONQUESTION + MB_YESNO );
if reply = idYes then
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2e' ); SimpleGet( baseUrl+'/api/control/system/profile/set/apple2e' );
ShowM8;
end; end;
procedure TGUIForm.miPRFIIeEnhancedClick(Sender: TObject); procedure TGUIForm.miPRFIIeEnhancedClick(Sender: TObject);
var var
reply: integer; reply: integer;
begin begin
RepaintWindow;
HideM8;
reply := Application.MessageBox('Reboot the VM?', 'Reboot', MB_ICONQUESTION + MB_YESNO );
if reply = idYes then
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2e-en' ); SimpleGet( baseUrl+'/api/control/system/profile/set/apple2e-en' );
ShowM8;
end; end;
procedure TGUIForm.miPRFIIeEnhancedSoftcardClick(Sender: TObject); procedure TGUIForm.miPRFIIeEnhancedSoftcardClick(Sender: TObject);
var var
reply: integer; reply: integer;
begin begin
RepaintWindow;
HideM8;
reply := Application.MessageBox('Reboot the VM?', 'Reboot', MB_ICONQUESTION + MB_YESNO );
if reply = idYes then
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2e-en-cpm' ); SimpleGet( baseUrl+'/api/control/system/profile/set/apple2e-en-cpm' );
ShowM8;
end; end;
procedure TGUIForm.miPRFIIplusClick(Sender: TObject); procedure TGUIForm.miPRFIIplusClick(Sender: TObject);
var var
reply: integer; reply: integer;
begin begin
RepaintWindow; SimpleGet( baseUrl+'/api/control/system/profile/set/apple2-plus' );
HideM8; end;
reply := Application.MessageBox('Reboot the VM?', 'Reboot', MB_ICONQUESTION + MB_YESNO );
if reply = idYes then procedure TGUIForm.miPRFRebootClick(Sender: TObject);
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2-plus' ); begin
ShowM8; SimpleGet( baseUrl+'/api/control/system/reboot' );
end; end;
procedure TGUIForm.miPrinterPDFClick(Sender: TObject); procedure TGUIForm.miPrinterPDFClick(Sender: TObject);

70
backup/poc.lps
View File

@ -21,8 +21,8 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="1771"/> <TopLine Value="859"/>
<CursorPos X="15" Y="1773"/> <CursorPos X="8" Y="862"/>
<UsageCount Value="323"/> <UsageCount Value="323"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -43,7 +43,7 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="576"/> <TopLine Value="576"/>
<CursorPos X="49" Y="591"/> <CursorPos X="49" Y="591"/>
<UsageCount Value="109"/> <UsageCount Value="108"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="C:\lazarus\components\lazutils\utf8process.pp"/> <Filename Value="C:\lazarus\components\lazutils\utf8process.pp"/>
@ -51,7 +51,7 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="636"/> <TopLine Value="636"/>
<CursorPos Y="654"/> <CursorPos Y="654"/>
<UsageCount Value="4"/> <UsageCount Value="3"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="images\memory.pas"/> <Filename Value="images\memory.pas"/>
@ -61,129 +61,129 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="40"/> <TopLine Value="40"/>
<CursorPos X="17" Y="44"/> <CursorPos X="17" Y="44"/>
<UsageCount Value="24"/> <UsageCount Value="23"/>
</Unit5> </Unit5>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2361" Column="14" TopLine="2337"/> <Caret Line="2087" Column="42" TopLine="2078"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2362" Column="13" TopLine="623"/> <Caret Line="2467" Column="38" TopLine="2452"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2414" Column="26" TopLine="2404"/> <Caret Line="35" Column="19" TopLine="16"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2415" Column="26" TopLine="2405"/> <Caret Line="392" Column="29" TopLine="362"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1623" Column="23" TopLine="1620"/> <Caret Line="537" Column="14" TopLine="507"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1177" Column="48" TopLine="1175"/> <Caret Line="542" Column="17" TopLine="512"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1999" Column="28" TopLine="1995"/> <Caret Line="635" Column="54" TopLine="604"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="531" Column="15" TopLine="664"/> <Caret Line="656" Column="22" TopLine="625"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2472" Column="33" TopLine="2480"/> <Caret Line="657" Column="15" TopLine="626"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2449" Column="3" TopLine="2447"/> <Caret Line="672" Column="6" TopLine="670"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1738" Column="15" TopLine="1736"/> <Caret Line="766" Column="45" TopLine="743"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1734" Column="4" TopLine="1716"/> <Caret Line="1280" Column="6" TopLine="1278"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1738" Column="3" TopLine="1706"/> <Caret Line="786" Column="46" TopLine="761"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1192" Column="15" TopLine="1189"/> <Caret Line="1280" Column="65" TopLine="1259"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2397" Column="3" TopLine="2381"/> <Caret Line="1324" Column="31" TopLine="1307"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2087" Column="42" TopLine="2078"/> <Caret Line="1685" Column="63" TopLine="1663"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2467" Column="38" TopLine="2452"/> <Caret Line="2109" Column="33" TopLine="2099"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="35" Column="19" TopLine="16"/> <Caret Line="2116" Column="33" TopLine="2106"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="392" Column="29" TopLine="362"/> <Caret Line="638" Column="15" TopLine="634"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="537" Column="14" TopLine="507"/> <Caret Line="1206" TopLine="1203"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="542" Column="17" TopLine="512"/> <Caret Line="2427" Column="3" TopLine="2424"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="635" Column="54" TopLine="604"/> <Caret Line="2808" Column="26" TopLine="2798"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="656" Column="22" TopLine="625"/> <Caret Line="535" Column="15" TopLine="530"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="657" Column="15" TopLine="626"/> <Caret Line="2813" Column="13" TopLine="2805"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="672" Column="6" TopLine="670"/> <Caret Line="757" Column="53" TopLine="747"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="766" Column="45" TopLine="743"/> <Caret Line="758" Column="53" TopLine="748"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1280" Column="6" TopLine="1278"/> <Caret Line="759" Column="53" TopLine="749"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="786" Column="46" TopLine="761"/> <Caret Line="760" Column="53" TopLine="750"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1280" Column="65" TopLine="1259"/> <Caret Line="762" Column="53" TopLine="752"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1324" Column="31" TopLine="1307"/> <Caret Line="862" TopLine="859"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
<RunParams> <RunParams>

14
lib/x86_64-win64/main.lfm
View File

@ -6077,6 +6077,13 @@ object GUIForm: TGUIForm
Caption = 'Alternate Controls' Caption = 'Alternate Controls'
OnClick = miCameraAlternateControlsClick OnClick = miCameraAlternateControlsClick
end end
object N15: TMenuItem
Caption = '-'
end
object miCameraReset: TMenuItem
Caption = 'Reset Camera'
OnClick = miCameraResetClick
end
end end
end end
object Input: TMenuItem object Input: TMenuItem
@ -10583,6 +10590,13 @@ object GUIForm: TGUIForm
Caption = 'Apple ][+' Caption = 'Apple ][+'
OnClick = miPRFIIplusClick OnClick = miPRFIIplusClick
end end
object N14: TMenuItem
Caption = '-'
end
object miPRFReboot: TMenuItem
Caption = 'Reboot'
OnClick = miPRFRebootClick
end
end end
object WaitRepos: TTimer object WaitRepos: TTimer
Enabled = False Enabled = False

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.

14
main.lfm
View File

@ -6077,6 +6077,13 @@ object GUIForm: TGUIForm
Caption = 'Alternate Controls' Caption = 'Alternate Controls'
OnClick = miCameraAlternateControlsClick OnClick = miCameraAlternateControlsClick
end end
object N15: TMenuItem
Caption = '-'
end
object miCameraReset: TMenuItem
Caption = 'Reset Camera'
OnClick = miCameraResetClick
end
end end
end end
object Input: TMenuItem object Input: TMenuItem
@ -10583,6 +10590,13 @@ object GUIForm: TGUIForm
Caption = 'Apple ][+' Caption = 'Apple ][+'
OnClick = miPRFIIplusClick OnClick = miPRFIIplusClick
end end
object N14: TMenuItem
Caption = '-'
end
object miPRFReboot: TMenuItem
Caption = 'Reboot'
OnClick = miPRFRebootClick
end
end end
object WaitRepos: TTimer object WaitRepos: TTimer
Enabled = False Enabled = False

39
main.pas
View File

@ -27,6 +27,10 @@ type
btnHide: TButton; btnHide: TButton;
Label1: TLabel; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
miCameraReset: TMenuItem;
N15: TMenuItem;
miPRFReboot: TMenuItem;
N14: TMenuItem;
miCameraMouseControl: TMenuItem; miCameraMouseControl: TMenuItem;
miCameraAlternateControls: TMenuItem; miCameraAlternateControls: TMenuItem;
miCamera: TMenuItem; miCamera: TMenuItem;
@ -376,6 +380,7 @@ type
procedure miCameraAlternateControlsClick(Sender: TObject); procedure miCameraAlternateControlsClick(Sender: TObject);
procedure miCameraClick(Sender: TObject); procedure miCameraClick(Sender: TObject);
procedure miCameraMouseControlClick(Sender: TObject); procedure miCameraMouseControlClick(Sender: TObject);
procedure miCameraResetClick(Sender: TObject);
procedure miColorDotsClick(Sender: TObject); procedure miColorDotsClick(Sender: TObject);
procedure miColorRasterClick(Sender: TObject); procedure miColorRasterClick(Sender: TObject);
procedure miColorVoxelsClick(Sender: TObject); procedure miColorVoxelsClick(Sender: TObject);
@ -438,6 +443,7 @@ type
procedure miPRFIIeEnhancedClick(Sender: TObject); procedure miPRFIIeEnhancedClick(Sender: TObject);
procedure miPRFIIeEnhancedSoftcardClick(Sender: TObject); procedure miPRFIIeEnhancedSoftcardClick(Sender: TObject);
procedure miPRFIIplusClick(Sender: TObject); procedure miPRFIIplusClick(Sender: TObject);
procedure miPRFRebootClick(Sender: TObject);
procedure miPrinterPDFClick(Sender: TObject); procedure miPrinterPDFClick(Sender: TObject);
procedure miProfilesClick(Sender: TObject); procedure miProfilesClick(Sender: TObject);
procedure miPSG0m100Click(Sender: TObject); procedure miPSG0m100Click(Sender: TObject);
@ -893,6 +899,11 @@ begin
end; end;
end; end;
procedure TGUIForm.miCameraResetClick(Sender: TObject);
begin
SimpleGet(baseUrl+'/api/control/system/camera/reset');
end;
procedure TGUIForm.miColorDotsClick(Sender: TObject); procedure TGUIForm.miColorDotsClick(Sender: TObject);
begin begin
UpdateConfig( 'video/init.video.hgrmode', '0', true ); UpdateConfig( 'video/init.video.hgrmode', '0', true );
@ -1327,49 +1338,33 @@ procedure TGUIForm.miPRFIIeClick(Sender: TObject);
var var
reply: integer; reply: integer;
begin begin
RepaintWindow;
HideM8;
reply := Application.MessageBox('Reboot the VM?', 'Reboot', MB_ICONQUESTION + MB_YESNO );
if reply = idYes then
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2e' ); SimpleGet( baseUrl+'/api/control/system/profile/set/apple2e' );
ShowM8;
end; end;
procedure TGUIForm.miPRFIIeEnhancedClick(Sender: TObject); procedure TGUIForm.miPRFIIeEnhancedClick(Sender: TObject);
var var
reply: integer; reply: integer;
begin begin
RepaintWindow;
HideM8;
reply := Application.MessageBox('Reboot the VM?', 'Reboot', MB_ICONQUESTION + MB_YESNO );
if reply = idYes then
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2e-en' ); SimpleGet( baseUrl+'/api/control/system/profile/set/apple2e-en' );
ShowM8;
end; end;
procedure TGUIForm.miPRFIIeEnhancedSoftcardClick(Sender: TObject); procedure TGUIForm.miPRFIIeEnhancedSoftcardClick(Sender: TObject);
var var
reply: integer; reply: integer;
begin begin
RepaintWindow;
HideM8;
reply := Application.MessageBox('Reboot the VM?', 'Reboot', MB_ICONQUESTION + MB_YESNO );
if reply = idYes then
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2e-en-cpm' ); SimpleGet( baseUrl+'/api/control/system/profile/set/apple2e-en-cpm' );
ShowM8;
end; end;
procedure TGUIForm.miPRFIIplusClick(Sender: TObject); procedure TGUIForm.miPRFIIplusClick(Sender: TObject);
var var
reply: integer; reply: integer;
begin begin
RepaintWindow; SimpleGet( baseUrl+'/api/control/system/profile/set/apple2-plus' );
HideM8; end;
reply := Application.MessageBox('Reboot the VM?', 'Reboot', MB_ICONQUESTION + MB_YESNO );
if reply = idYes then procedure TGUIForm.miPRFRebootClick(Sender: TObject);
SimpleGet( baseUrl+'/api/control/system/profile/set/apple2-plus' ); begin
ShowM8; SimpleGet( baseUrl+'/api/control/system/reboot' );
end; end;
procedure TGUIForm.miPrinterPDFClick(Sender: TObject); procedure TGUIForm.miPrinterPDFClick(Sender: TObject);

64
poc.lps
View File

@ -21,8 +21,8 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="859"/> <TopLine Value="716"/>
<CursorPos X="8" Y="862"/> <CursorPos X="6" Y="716"/>
<UsageCount Value="323"/> <UsageCount Value="323"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -67,123 +67,123 @@
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2087" Column="42" TopLine="2078"/> <Caret Line="635" Column="54" TopLine="604"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2467" Column="38" TopLine="2452"/> <Caret Line="656" Column="22" TopLine="625"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="35" Column="19" TopLine="16"/> <Caret Line="657" Column="15" TopLine="626"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="392" Column="29" TopLine="362"/> <Caret Line="672" Column="6" TopLine="670"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="537" Column="14" TopLine="507"/> <Caret Line="766" Column="45" TopLine="743"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="542" Column="17" TopLine="512"/> <Caret Line="1280" Column="6" TopLine="1278"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="635" Column="54" TopLine="604"/> <Caret Line="786" Column="46" TopLine="761"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="656" Column="22" TopLine="625"/> <Caret Line="1280" Column="65" TopLine="1259"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="657" Column="15" TopLine="626"/> <Caret Line="1324" Column="31" TopLine="1307"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="672" Column="6" TopLine="670"/> <Caret Line="1685" Column="63" TopLine="1663"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="766" Column="45" TopLine="743"/> <Caret Line="2109" Column="33" TopLine="2099"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1280" Column="6" TopLine="1278"/> <Caret Line="2116" Column="33" TopLine="2106"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="786" Column="46" TopLine="761"/> <Caret Line="638" Column="15" TopLine="634"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1280" Column="65" TopLine="1259"/> <Caret Line="1206" TopLine="1203"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1324" Column="31" TopLine="1307"/> <Caret Line="2427" Column="3" TopLine="2424"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1685" Column="63" TopLine="1663"/> <Caret Line="2808" Column="26" TopLine="2798"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2109" Column="33" TopLine="2099"/> <Caret Line="535" Column="15" TopLine="530"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2116" Column="33" TopLine="2106"/> <Caret Line="2813" Column="13" TopLine="2805"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="638" Column="15" TopLine="634"/> <Caret Line="757" Column="53" TopLine="747"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1206" TopLine="1203"/> <Caret Line="758" Column="53" TopLine="748"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2427" Column="3" TopLine="2424"/> <Caret Line="759" Column="53" TopLine="749"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2808" Column="26" TopLine="2798"/> <Caret Line="760" Column="53" TopLine="750"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="535" Column="15" TopLine="530"/> <Caret Line="762" Column="53" TopLine="752"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2813" Column="13" TopLine="2805"/> <Caret Line="862" Column="52" TopLine="859"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="757" Column="53" TopLine="747"/> <Caret Line="864" Column="82" TopLine="860"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="758" Column="53" TopLine="748"/> <Caret Line="875" TopLine="861"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="759" Column="53" TopLine="749"/> <Caret Line="871" Column="60" TopLine="861"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="760" Column="53" TopLine="750"/> <Caret Line="883" Column="39" TopLine="859"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="762" Column="53" TopLine="752"/> <Caret Line="714" Column="6" TopLine="777"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="862" TopLine="859"/> <Caret Line="715" Column="6" TopLine="715"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
<RunParams> <RunParams>