remove web debugger launch from ui

This commit is contained in:
April Ayres-Griffiths 2019-04-19 17:23:11 +10:00
parent 67f290f0a9
commit 92a5f7dc13
5 changed files with 255 additions and 278 deletions

View File

@ -1820,6 +1820,7 @@ end;
procedure TGUIForm.miToolsWebDebuggerClick(Sender: TObject); procedure TGUIForm.miToolsWebDebuggerClick(Sender: TObject);
begin begin
disableFocusStealing:= true;
SimpleGet( baseUrl + '/api/control/debug/attach' ); SimpleGet( baseUrl + '/api/control/debug/attach' );
end; end;
@ -2876,7 +2877,7 @@ var
begin begin
//StatusBar1.SimpleText := IntToStr(sbButton) + ':' + FileNames[0]; //StatusBar1.SimpleText := IntToStr(sbButton) + ':' + FileNames[0];
filename := FileNames[0]; filename := FileNames[0];
ext := ExtractFileExt(filename); ext := LowerCase(ExtractFileExt(filename));
case sbButton of case sbButton of
0, 1: begin 0, 1: begin
case ext of case ext of

View File

@ -1,194 +1,190 @@
<?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="6"> <Units Count="6">
<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="871"/> <TopLine Value="871"/>
<CursorPos X="4" Y="873"/> <CursorPos X="33" Y="874"/>
<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="96"/> <UsageCount Value="96"/>
</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="1"/> <UsageCount Value="1"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="images\memory.pas"/> <Filename Value="images\memory.pas"/>
<ComponentName Value="memform"/> <ComponentName Value="memform"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="40"/> <TopLine Value="40"/>
<CursorPos X="17" Y="44"/> <CursorPos X="17" Y="44"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit5> </Unit5>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="29" HistoryIndex="28">
<Position1> <Position1>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2998" Column="6" TopLine="2978"/> <Caret Line="2998" Column="6" TopLine="2978"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3039" Column="26" TopLine="3026"/> <Caret Line="3039" Column="26" TopLine="3026"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3035" Column="34" TopLine="3024"/> <Caret Line="3035" Column="34" TopLine="3024"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="335" Column="59" TopLine="318"/> <Caret Line="335" Column="59" TopLine="318"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3046" Column="36" TopLine="3032"/> <Caret Line="3046" Column="36" TopLine="3032"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2882" Column="27" TopLine="2867"/> <Caret Line="2882" Column="27" TopLine="2867"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2888" Column="23" TopLine="2877"/> <Caret Line="2888" Column="23" TopLine="2877"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="706" Column="34" TopLine="732"/> <Caret Line="2752" Column="28" TopLine="2729"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2752" Column="28" TopLine="2729"/> <Caret Line="1788" Column="61" TopLine="1785"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1788" Column="61" TopLine="1785"/> <Caret Line="2341" Column="6" TopLine="2313"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2341" Column="6" TopLine="2313"/> <Caret Line="1801" Column="28" TopLine="1786"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1801" Column="28" TopLine="1786"/> <Caret Line="2900" Column="14" TopLine="2888"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2900" Column="14" TopLine="2888"/> <Caret Line="1897" Column="16" TopLine="1894"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1897" Column="16" TopLine="1894"/> <Caret Line="426" Column="15" TopLine="408"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="426" Column="15" TopLine="408"/> <Caret Line="1183" TopLine="1178"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1183" TopLine="1178"/> <Caret Line="1923" Column="42" TopLine="1895"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1923" Column="42" TopLine="1895"/> <Caret Line="2892" Column="43" TopLine="2879"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2892" Column="43" TopLine="2879"/> <Caret Line="2899" Column="43" TopLine="2886"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2899" Column="43" TopLine="2886"/> <Caret Line="1833" Column="87" TopLine="1829"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1833" Column="87" TopLine="1829"/> <Caret Line="1839" Column="38" TopLine="1820"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1839" Column="38" TopLine="1820"/> <Caret Line="1098" Column="15" TopLine="1092"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1098" Column="15" TopLine="1092"/> <Caret Line="1925" Column="3" TopLine="1923"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1925" Column="3" TopLine="1923"/> <Caret Line="3205" Column="13" TopLine="3198"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3205" Column="13" TopLine="3198"/> <Caret Line="3279" Column="24" TopLine="3223"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3279" Column="24" TopLine="3223"/> <Caret Line="581" Column="11" TopLine="563"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="581" Column="11" TopLine="563"/> <Caret Line="2250" Column="17" TopLine="2231"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2250" Column="17" TopLine="2231"/> <Caret Line="2255" Column="14" TopLine="2231"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2255" Column="14" TopLine="2231"/> <Caret Line="2265" Column="21" TopLine="2234"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2265" Column="21" TopLine="2234"/> <Caret Line="3202" Column="9" TopLine="3174"/>
</Position29> </Position29>
<Position30> </JumpHistory>
<Filename Value="main.pas"/> <RunParams>
<Caret Line="3202" Column="9" TopLine="3174"/> <FormatVersion Value="2"/>
</Position30> <Modes Count="0" ActiveMode=""/>
</JumpHistory> </RunParams>
<RunParams> </ProjectSession>
<FormatVersion Value="2"/> </CONFIG>
<Modes Count="0" ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>

View File

@ -60,7 +60,7 @@ object GUIForm: TGUIForm
end end
object tbRMVoxels: TToolButton object tbRMVoxels: TToolButton
Tag = 1 Tag = 1
Left = 613 Left = 577
Hint = 'Voxel Render' Hint = 'Voxel Render'
Top = 2 Top = 2
Caption = 'Voxels' Caption = 'Voxels'
@ -74,7 +74,7 @@ object GUIForm: TGUIForm
Style = tbsCheck Style = tbsCheck
end end
object tbRMDots: TToolButton object tbRMDots: TToolButton
Left = 649 Left = 613
Hint = 'Dot Render' Hint = 'Dot Render'
Top = 2 Top = 2
Caption = 'Dots' Caption = 'Dots'
@ -87,7 +87,7 @@ object GUIForm: TGUIForm
end end
object tbRMRaster: TToolButton object tbRMRaster: TToolButton
Tag = 2 Tag = 2
Left = 685 Left = 649
Hint = 'Raster Render' Hint = 'Raster Render'
Top = 2 Top = 2
Caption = 'Raster' Caption = 'Raster'
@ -99,7 +99,7 @@ object GUIForm: TGUIForm
Style = tbsCheck Style = tbsCheck
end end
object tbRMColor: TToolButton object tbRMColor: TToolButton
Left = 721 Left = 685
Hint = 'Toggle Color/Mono' Hint = 'Toggle Color/Mono'
Top = 2 Top = 2
Caption = 'tbRMColor' Caption = 'tbRMColor'
@ -109,7 +109,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object tbRECState: TToolButton object tbRECState: TToolButton
Left = 789 Left = 753
Hint = 'Start Recording' Hint = 'Start Recording'
Top = 2 Top = 2
Caption = 'tbRECState' Caption = 'tbRECState'
@ -119,7 +119,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 825 Left = 789
Hint = 'Rewind' Hint = 'Rewind'
Top = 2 Top = 2
Caption = 'ToolButton5' Caption = 'ToolButton5'
@ -129,7 +129,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 861 Left = 825
Hint = 'Forwards' Hint = 'Forwards'
Top = 2 Top = 2
Caption = 'ToolButton6' Caption = 'ToolButton6'
@ -139,7 +139,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 897 Left = 861
Hint = 'Resume' Hint = 'Resume'
Top = 2 Top = 2
Caption = 'ToolButton7' Caption = 'ToolButton7'
@ -149,7 +149,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 933 Left = 897
Hint = 'Stop Recording' Hint = 'Stop Recording'
Top = 2 Top = 2
Caption = 'ToolButton8' Caption = 'ToolButton8'
@ -159,7 +159,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 969 Left = 933
Hint = 'Pause' Hint = 'Pause'
Top = 2 Top = 2
Caption = 'ToolButton9' Caption = 'ToolButton9'
@ -169,7 +169,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton10: TToolButton object ToolButton10: TToolButton
Left = 757 Left = 721
Top = 2 Top = 2
Caption = 'ToolButton10' Caption = 'ToolButton10'
Enabled = False Enabled = False
@ -206,24 +206,14 @@ object GUIForm: TGUIForm
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
end end
object tbWebDebugger: TToolButton
Left = 145
Hint = 'Web Debugger'
Top = 2
Caption = 'tbWebDebugger'
ImageIndex = 28
OnClick = miToolsWebDebuggerClick
ParentShowHint = False
ShowHint = True
end
object ToolButton15: TToolButton object ToolButton15: TToolButton
Left = 181 Left = 145
Top = 2 Top = 2
Caption = 'ToolButton15' Caption = 'ToolButton15'
Enabled = False Enabled = False
end end
object tbVolDown: TToolButton object tbVolDown: TToolButton
Left = 213 Left = 177
Hint = 'Volume Down' Hint = 'Volume Down'
Top = 2 Top = 2
Caption = 'tbVolDown' Caption = 'tbVolDown'
@ -233,7 +223,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object tbMasterVolume: TTrackBar object tbMasterVolume: TTrackBar
Left = 249 Left = 213
Height = 38 Height = 38
Top = 2 Top = 2
Width = 96 Width = 96
@ -251,7 +241,7 @@ object GUIForm: TGUIForm
TabOrder = 0 TabOrder = 0
end end
object tbVolUp: TToolButton object tbVolUp: TToolButton
Left = 345 Left = 309
Hint = 'Volume Up' Hint = 'Volume Up'
Top = 2 Top = 2
Caption = 'tbVolUp' Caption = 'tbVolUp'
@ -261,13 +251,13 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 381 Left = 345
Top = 2 Top = 2
Caption = 'ToolButton3' Caption = 'ToolButton3'
Enabled = False Enabled = False
end end
object tbSpeedDown: TToolButton object tbSpeedDown: TToolButton
Left = 413 Left = 377
Hint = 'CPU Speed Down' Hint = 'CPU Speed Down'
Top = 2 Top = 2
Caption = 'tbSpeedDown' Caption = 'tbSpeedDown'
@ -277,7 +267,7 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object TrackBar2: TTrackBar object TrackBar2: TTrackBar
Left = 449 Left = 413
Height = 38 Height = 38
Top = 2 Top = 2
Width = 96 Width = 96
@ -295,7 +285,7 @@ object GUIForm: TGUIForm
TabOrder = 1 TabOrder = 1
end end
object tbSpeedUp: TToolButton object tbSpeedUp: TToolButton
Left = 545 Left = 509
Hint = 'CPU Speed Up' Hint = 'CPU Speed Up'
Top = 2 Top = 2
Caption = 'tbSpeedUp' Caption = 'tbSpeedUp'
@ -305,19 +295,19 @@ object GUIForm: TGUIForm
ShowHint = True ShowHint = True
end end
object ToolButton18: TToolButton object ToolButton18: TToolButton
Left = 581 Left = 545
Top = 2 Top = 2
Caption = 'ToolButton18' Caption = 'ToolButton18'
Enabled = False Enabled = False
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 1005 Left = 969
Top = 2 Top = 2
Caption = 'ToolButton1' Caption = 'ToolButton1'
Enabled = False Enabled = False
end end
object tbFullscreen: TToolButton object tbFullscreen: TToolButton
Left = 1037 Left = 1001
Hint = 'Fullscreen' Hint = 'Fullscreen'
Top = 2 Top = 2
Caption = 'tbFullscreen' Caption = 'tbFullscreen'
@ -6584,11 +6574,6 @@ object GUIForm: TGUIForm
Caption = 'microTracker' Caption = 'microTracker'
OnClick = miToolsTrackerClick OnClick = miToolsTrackerClick
end end
object miToolsWebDebugger: TMenuItem
Caption = 'Web Debugger'
ShortCut = 24642
OnClick = miToolsWebDebuggerClick
end
object miMemoryEdit: TMenuItem object miMemoryEdit: TMenuItem
Caption = 'Read/Write Memory' Caption = 'Read/Write Memory'
OnClick = miMemoryEditClick OnClick = miMemoryEditClick

View File

@ -75,7 +75,6 @@ type
miApps816Paint: TMenuItem; miApps816Paint: TMenuItem;
miAppsPrintShop: TMenuItem; miAppsPrintShop: TMenuItem;
miAppsTerminal: TMenuItem; miAppsTerminal: TMenuItem;
miToolsWebDebugger: TMenuItem;
miToolsTracker: TMenuItem; miToolsTracker: TMenuItem;
miTools: TMenuItem; miTools: TMenuItem;
miApps: TMenuItem; miApps: TMenuItem;
@ -223,7 +222,6 @@ type
tbJoystickAxisSwitch: TToolButton; tbJoystickAxisSwitch: TToolButton;
tbCapsMode: TToolButton; tbCapsMode: TToolButton;
tbScanlines: TToolButton; tbScanlines: TToolButton;
tbWebDebugger: TToolButton;
ToolButton15: TToolButton; ToolButton15: TToolButton;
tbSpeedDown: TToolButton; tbSpeedDown: TToolButton;
tbSpeedUp: TToolButton; tbSpeedUp: TToolButton;
@ -1820,6 +1818,7 @@ end;
procedure TGUIForm.miToolsWebDebuggerClick(Sender: TObject); procedure TGUIForm.miToolsWebDebuggerClick(Sender: TObject);
begin begin
disableFocusStealing:= true;
SimpleGet( baseUrl + '/api/control/debug/attach' ); SimpleGet( baseUrl + '/api/control/debug/attach' );
end; end;

84
poc.lps
View File

@ -4,7 +4,7 @@
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="11"/> <Version Value="11"/>
<BuildModes Active="Default"/> <BuildModes Active="Default"/>
<Units Count="6"> <Units Count="5">
<Unit0> <Unit0>
<Filename Value="poc.lpr"/> <Filename Value="poc.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -21,8 +21,8 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="871"/> <TopLine Value="1819"/>
<CursorPos X="33" Y="874"/> <CursorPos X="56" Y="1825"/>
<UsageCount Value="323"/> <UsageCount Value="323"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -43,17 +43,9 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="576"/> <TopLine Value="576"/>
<CursorPos X="49" Y="591"/> <CursorPos X="49" Y="591"/>
<UsageCount Value="96"/> <UsageCount Value="94"/>
</Unit3> </Unit3>
<Unit4> <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"/> <Filename Value="images\memory.pas"/>
<ComponentName Value="memform"/> <ComponentName Value="memform"/>
<HasResources Value="True"/> <HasResources Value="True"/>
@ -61,126 +53,130 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="40"/> <TopLine Value="40"/>
<CursorPos X="17" Y="44"/> <CursorPos X="17" Y="44"/>
<UsageCount Value="10"/> <UsageCount Value="8"/>
</Unit5> </Unit4>
</Units> </Units>
<JumpHistory Count="29" HistoryIndex="28"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2998" Column="6" TopLine="2978"/> <Caret Line="2502" Column="34" TopLine="2471"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3039" Column="26" TopLine="3026"/> <Caret Line="2521" Column="34" TopLine="2490"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3035" Column="34" TopLine="3024"/> <Caret Line="2561" Column="34" TopLine="2531"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="335" Column="59" TopLine="318"/> <Caret Line="2577" Column="34" TopLine="2546"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3046" Column="36" TopLine="3032"/> <Caret Line="2636" Column="34" TopLine="2605"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2882" Column="27" TopLine="2867"/> <Caret Line="2654" Column="34" TopLine="2623"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2888" Column="23" TopLine="2877"/> <Caret Line="2662" Column="27" TopLine="2631"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2752" Column="28" TopLine="2729"/> <Caret Line="2669" Column="26" TopLine="2638"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1788" Column="61" TopLine="1785"/> <Caret Line="2803" Column="29" TopLine="2772"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2341" Column="6" TopLine="2313"/> <Caret Line="2808" Column="29" TopLine="2777"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1801" Column="28" TopLine="1786"/> <Caret Line="2868" Column="26" TopLine="2846"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2900" Column="14" TopLine="2888"/> <Caret Line="2877" Column="26" TopLine="2846"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1897" Column="16" TopLine="1894"/> <Caret Line="3128" Column="38" TopLine="3098"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="426" Column="15" TopLine="408"/> <Caret Line="3174" Column="26" TopLine="3143"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1183" TopLine="1178"/> <Caret Line="3189" Column="26" TopLine="3158"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1923" Column="42" TopLine="1895"/> <Caret Line="3294" Column="26" TopLine="3263"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2892" Column="43" TopLine="2879"/> <Caret Line="3314" Column="26" TopLine="3283"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2899" Column="43" TopLine="2886"/> <Caret Line="694" Column="29" TopLine="675"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1833" Column="87" TopLine="1829"/> <Caret Line="773" Column="33" TopLine="742"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1839" Column="38" TopLine="1820"/> <Caret Line="1194" Column="26" TopLine="1163"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1098" Column="15" TopLine="1092"/> <Caret Line="1266" Column="26" TopLine="1235"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="1925" Column="3" TopLine="1923"/> <Caret Line="1409" Column="29" TopLine="1378"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3205" Column="13" TopLine="3198"/> <Caret Line="1588" Column="26" TopLine="1557"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3279" Column="24" TopLine="3223"/> <Caret Line="1638" Column="26" TopLine="1607"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="581" Column="11" TopLine="563"/> <Caret Line="1896" Column="36" TopLine="1873"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2250" Column="17" TopLine="2231"/> <Caret Line="2903" Column="30" TopLine="2872"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2255" Column="14" TopLine="2231"/> <Caret Line="1823" Column="30" TopLine="1821"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="2265" Column="21" TopLine="2234"/> <Caret Line="1827" Column="56" TopLine="1821"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<Caret Line="3202" Column="9" TopLine="3174"/> <Caret Line="1826" Column="56" TopLine="1820"/>
</Position29> </Position29>
<Position30>
<Filename Value="main.pas"/>
<Caret Line="1825" Column="56" TopLine="1819"/>
</Position30>
</JumpHistory> </JumpHistory>
<RunParams> <RunParams>
<FormatVersion Value="2"/> <FormatVersion Value="2"/>