Moved libraries to root folder, becasue lazarus uses also the same libraries.. so why add them twice in the source folder.

Added the Dxbx lazarus About screen logo.

Projects/Delphi/D14/Dxbx.dproj

@@ -25,7 +25,7 @@
 		<PropertyGroup Condition="'$(Base)'!=''">
 			<DCC_ExeOutput>..\..\..\Source\Delphi\Bin</DCC_ExeOutput>
 			<DCC_DcuOutput>..\..\..\Source\Delphi\Dcu</DCC_DcuOutput>
-			<DCC_UnitSearchPath>..\..\..\Source\Delphi\src\Include;..\..\..\Source\Delphi\Libraries\Jcl\include;..\..\..\Source\Delphi\Libraries\Jwapi\Win32API;..\..\..\Source\Delphi\Libraries\Jwapi\Includes;..\..\..\Source\Delphi\Libraries\Jcl\windows;..\..\..\Source\Delphi\Libraries\Jcl\Commen;..\..\..\Source\Delphi\Libraries\DirectX9;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_UnitSearchPath>..\..\..\Source\Delphi\src\Include;..\..\..\Libraries\Pascal\Jcl\include;..\..\..\Libraries\Pascal\Jwapi\Win32API;..\..\..\Libraries\Pascal\Jwapi\Includes;..\..\..\Libraries\Pascal\Jcl\windows;..\..\..\Libraries\Pascal\Jcl\Commen;..\..\..\Libraries\Pascal\DirectX9;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
 			<BRCC_CompilerToUse>rc</BRCC_CompilerToUse>
 			<DCC_RangeChecking>true</DCC_RangeChecking>
 			<DCC_Optimize>false</DCC_Optimize>

Projects/Delphi/D14/DxbxKrnl.dpr

@@ -38,10 +38,6 @@ library DxbxKrnl;
 uses
   Windows,
   SysUtils,
-  OpenGL1x in '..\..\..\Source\Delphi\Libraries\GLScene\OpenGL1x.pas',
-  OpenGLTokens in '..\..\..\Source\Delphi\Libraries\GLScene\OpenGLTokens.pas',
-  VectorTypes in '..\..\..\Source\Delphi\Libraries\GLScene\VectorTypes.pas',
-  XboxKrnl in '..\..\..\Source\Delphi\Libraries\OpenXDK\include\xboxkrnl\XboxKrnl.pas',
   uConvert in '..\..\..\Source\Delphi\src\DxbxKrnl\EmuD3D8\uConvert.pas',
   uMiniport in '..\..\..\Source\Delphi\src\DxbxKrnl\EmuD3D8\uMiniport.pas',
   uNV2A in '..\..\..\Source\Delphi\src\DxbxKrnl\EmuD3D8\uNV2A.pas',
@@ -119,7 +115,11 @@ uses
   uXDVDFS in '..\..\..\Source\Delphi\src\uXDVDFS.pas',
   VistaIconFix in '..\..\..\Source\Delphi\src\VistaIconFix.pas',
   uData in '..\..\..\Source\Delphi\src\uData.pas',
-  XbeHeaders in '..\..\..\Source\Delphi\src\Headers\XbeHeaders.pas';
+  XbeHeaders in '..\..\..\Source\Delphi\src\Headers\XbeHeaders.pas',
+  XboxKrnl in '..\..\..\Libraries\Pascal\OpenXDK\include\xboxkrnl\XboxKrnl.pas',
+  OpenGL1x in '..\..\..\Libraries\Pascal\GLScene\OpenGL1x.pas',
+  OpenGLTokens in '..\..\..\Libraries\Pascal\GLScene\OpenGLTokens.pas',
+  VectorTypes in '..\..\..\Libraries\Pascal\GLScene\VectorTypes.pas';
 
 {$IMAGEBASE $10000000}
 

Projects/Delphi/D14/DxbxKrnl.dproj

@@ -23,7 +23,7 @@
 			<Base>true</Base>
 		</PropertyGroup>
 		<PropertyGroup Condition="'$(Base)'!=''">
-			<DCC_UnitSearchPath>..\..\..\Source\Delphi\src\Include;..\..\..\Source\Delphi\Libraries\Jcl\include;..\..\..\Source\Delphi\Libraries\Jcl\Commen;..\..\..\Source\Delphi\Libraries\Jcl\Windows;..\..\..\Source\Delphi\Libraries\Jwapi\Win32API;..\..\..\Source\Delphi\Libraries\Jwapi\includes;..\..\..\Source\Delphi\Libraries\DirectX9;..\..\..\Source\Delphi\Libraries\BeaEngine;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_UnitSearchPath>..\..\..\Source\Delphi\src\Include;..\..\..\Libraries\Pascal\Jcl\include;..\..\..\Libraries\Pascal\Jcl\Commen;..\..\..\Libraries\Pascal\Jcl\Windows;..\..\..\Libraries\Pascal\Jwapi\Win32API;..\..\..\Libraries\Pascal\Jwapi\includes;..\..\..\Libraries\Pascal\DirectX9;..\..\..\Libraries\Pascal\BeaEngine;..\..\..\Libraries\Pascal\GlScene;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
 			<DCC_ExeOutput>..\..\..\Source\Delphi\Bin</DCC_ExeOutput>
 			<DCC_DcuOutput>..\..\..\Source\Delphi\Dcu</DCC_DcuOutput>
 			<DCC_Define>DXBX_DLL;$(DCC_Define)</DCC_Define>
@@ -32,18 +32,15 @@
 			<GenDll>true</GenDll>
 		</PropertyGroup>
 		<PropertyGroup Condition="'$(Cfg_1)'!=''">
-			<DCC_DependencyCheckOutputName>..\..\bin\DxbxKrnl.dll</DCC_DependencyCheckOutputName>
+			<DCC_UnitSearchPath>..\..\..\Libraries\Pascal\GlScene</DCC_UnitSearchPath>
 			<Version>7.0</Version>
 			<DCC_DebugInformation>False</DCC_DebugInformation>
 			<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
 			<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
 			<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
-			<DCC_UnitSearchPath>..\..\src\Include;..\..\Libraries\DirectX9;..\..\Libraries\Jcl\include;..\..\Libraries\Jcl\common;..\..\Libraries\Jcl\windows;..\..\Libraries\jwapi\Win32API;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
 			<DCC_ResourcePath>..\..\src\Include;..\..\Libraries\DirectX9;..\..\Libraries\Jcl\include;..\..\Libraries\Jcl\common;..\..\Libraries\Jcl\windows;..\..\Libraries\jwapi\Win32API;$(DCC_ResourcePath)</DCC_ResourcePath>
 			<DCC_ObjPath>..\..\src\Include;..\..\Libraries\DirectX9;..\..\Libraries\Jcl\include;..\..\Libraries\Jcl\common;..\..\Libraries\Jcl\windows;..\..\Libraries\jwapi\Win32API;$(DCC_ObjPath)</DCC_ObjPath>
 			<DCC_IncludePath>..\..\src\Include;..\..\Libraries\DirectX9;..\..\Libraries\Jcl\include;..\..\Libraries\Jcl\common;..\..\Libraries\Jcl\windows;..\..\Libraries\jwapi\Win32API;$(DCC_IncludePath)</DCC_IncludePath>
-			<DCC_ExeOutput>..\..\bin</DCC_ExeOutput>
-			<DCC_DcuOutput>..\..\dcu</DCC_DcuOutput>
 			<DCC_ObjOutput>..\..\dcu</DCC_ObjOutput>
 			<DCC_HppOutput>..\..\dcu</DCC_HppOutput>
 		</PropertyGroup>
@@ -51,11 +48,9 @@
 			<DCC_MapFile>3</DCC_MapFile>
 			<Version>7.0</Version>
 			<DCC_Define>DEBUG;_DEBUG_TRACE;$(DCC_Define)</DCC_Define>
-			<DCC_UnitSearchPath>..\..\src\Include;..\..\Libraries\DirectX9;..\..\Libraries\Jcl\include;..\..\Libraries\Jcl\common;..\..\Libraries\Jcl\windows;..\..\Libraries\jwapi\Includes;..\..\Libraries\jwapi\Win32API;..\..\Libraries\FastMM;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
 			<DCC_ResourcePath>..\..\src\Include;..\..\Libraries\DirectX9;..\..\Libraries\Jcl\include;..\..\Libraries\Jcl\common;..\..\Libraries\Jcl\windows;..\..\Libraries\jwapi\Includes;..\..\Libraries\jwapi\Win32API;$(DCC_ResourcePath)</DCC_ResourcePath>
 			<DCC_ObjPath>..\..\src\Include;..\..\Libraries\DirectX9;..\..\Libraries\Jcl\include;..\..\Libraries\Jcl\common;..\..\Libraries\Jcl\windows;..\..\Libraries\jwapi\Includes;..\..\Libraries\jwapi\Win32API;$(DCC_ObjPath)</DCC_ObjPath>
 			<DCC_IncludePath>..\..\src\Include;..\..\Libraries\DirectX9;..\..\Libraries\Jcl\include;..\..\Libraries\Jcl\common;..\..\Libraries\Jcl\windows;..\..\Libraries\jwapi\Includes;..\..\Libraries\jwapi\Win32API;$(DCC_IncludePath)</DCC_IncludePath>
-			<DCC_DcuOutput>..\..\..\Source\Delphi\Dcu</DCC_DcuOutput>
 			<DCC_ObjOutput>..\..\dcu\d11\</DCC_ObjOutput>
 			<DCC_HppOutput>..\..\dcu\d11\</DCC_HppOutput>
 		</PropertyGroup>
@@ -118,10 +113,6 @@
 				<ContainerId>RC</ContainerId>
 				<Form>SvnRevision.res</Form>
 			</RcCompile>
-			<DCCReference Include="..\..\..\Source\Delphi\Libraries\GLScene\OpenGL1x.pas"/>
-			<DCCReference Include="..\..\..\Source\Delphi\Libraries\GLScene\OpenGLTokens.pas"/>
-			<DCCReference Include="..\..\..\Source\Delphi\Libraries\GLScene\VectorTypes.pas"/>
-			<DCCReference Include="..\..\..\Source\Delphi\Libraries\OpenXDK\include\xboxkrnl\XboxKrnl.pas"/>
 			<DCCReference Include="..\..\..\Source\Delphi\src\DxbxKrnl\EmuD3D8\uConvert.pas"/>
 			<DCCReference Include="..\..\..\Source\Delphi\src\DxbxKrnl\EmuD3D8\uMiniport.pas"/>
 			<DCCReference Include="..\..\..\Source\Delphi\src\DxbxKrnl\EmuD3D8\uNV2A.pas"/>
@@ -211,6 +202,10 @@
 			<DCCReference Include="..\..\..\Source\Delphi\src\VistaIconFix.pas"/>
 			<DCCReference Include="..\..\..\Source\Delphi\src\uData.pas"/>
 			<DCCReference Include="..\..\..\Source\Delphi\src\Headers\XbeHeaders.pas"/>
+			<DCCReference Include="..\..\..\Libraries\Pascal\OpenXDK\include\xboxkrnl\XboxKrnl.pas"/>
+			<DCCReference Include="..\..\..\Libraries\Pascal\GLScene\OpenGL1x.pas"/>
+			<DCCReference Include="..\..\..\Libraries\Pascal\GLScene\OpenGLTokens.pas"/>
+			<DCCReference Include="..\..\..\Libraries\Pascal\GLScene\VectorTypes.pas"/>
 			<BuildConfiguration Include="Base">
 				<Key>Base</Key>
 			</BuildConfiguration>

Projects/Delphi/D14/PatternTrieBuilder.dproj

@@ -23,7 +23,7 @@
 			<Base>true</Base>
 		</PropertyGroup>
 		<PropertyGroup Condition="'$(Base)'!=''">
-			<DCC_UnitSearchPath>..\..\..\Source\Delphi\src\Include;..\..\..\Source\Delphi\Libraries\Jcl\include;..\..\..\Source\Delphi\Libraries\Jwapi\Win32API;..\..\..\Source\Delphi\Libraries\Jcl\Commen;..\..\..\Source\Delphi\Libraries\Jcl\windows;..\..\..\Source\Delphi\Libraries\Jwapi\Includes;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_UnitSearchPath>..\..\..\Source\Delphi\src\Include;..\..\..\Libraries\Pascal\Jcl\include;..\..\..\Libraries\Pascal\Jwapi\Win32API;..\..\..\Libraries\Pascal\Jcl\Commen;..\..\..\Libraries\Pascal\Jcl\windows;..\..\..\Libraries\Pascal\Jwapi\Includes;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
 			<DCC_ExeOutput>..\..\..\Source\Delphi\Bin\Tools\</DCC_ExeOutput>
 			<DCC_DcuOutput>..\..\..\Source\Delphi\Dcu</DCC_DcuOutput>
 			<DCC_DependencyCheckOutputName>..\..\..\Source\Delphi\Bin\Tools\PatternTrieBuilder.exe</DCC_DependencyCheckOutputName>

Projects/Delphi/D14/TranslationChecker.dproj

@@ -23,7 +23,7 @@
 			<Base>true</Base>
 		</PropertyGroup>
 		<PropertyGroup Condition="'$(Base)'!=''">
-			<DCC_UnitSearchPath>..\..\..\Source\Delphi\src\Include;..\..\..\Source\Delphi\Libraries\Jcl\include;..\..\..\Source\Delphi\Libraries\Jwapi\Win32API;..\..\..\Source\Delphi\Libraries\Jcl\Commen;..\..\..\Source\Delphi\Libraries\Jcl\windows;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_UnitSearchPath>..\..\..\Source\Delphi\src\Include;..\..\..\Libraries\Pascal\Jcl\include;..\..\..\Libraries\Pascal\Jwapi\Win32API;..\..\..\Libraries\Pascal\Jcl\Commen;..\..\..\Libraries\Pascal\Jcl\windows;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
 			<DCC_ExeOutput>..\..\..\Source\Delphi\Bin\Tools\</DCC_ExeOutput>
 			<DCC_DcuOutput>..\..\..\Source\Delphi\Dcu</DCC_DcuOutput>
 			<DCC_DependencyCheckOutputName>..\..\..\Source\Delphi\Bin\Tools\TranslationChecker.exe</DCC_DependencyCheckOutputName>

Projects/Delphi/D14/XBEExplorer.dpr

@@ -5,7 +5,6 @@ program XBEExplorer;
 uses
   Forms,
   SysUtils,
-  BeaEngine in '..\..\..\Source\Delphi\Libraries\BeaEngine\BeaEngine.pas',
   uDisassembleViewer in '..\..\..\Source\Delphi\src\Tools\XBEExplorer\uDisassembleViewer.pas',
   uExploreFileSystem in '..\..\..\Source\Delphi\src\Tools\XBEExplorer\uExploreFileSystem.pas' {frmExploreFileSystem},
   uHexViewer in '..\..\..\Source\Delphi\src\Tools\XBEExplorer\uHexViewer.pas',
@@ -26,7 +25,8 @@ uses
   uXDVDFS in '..\..\..\Source\Delphi\src\uXDVDFS.pas',
   uEmuD3D8Types in '..\..\..\Source\Delphi\src\DxbxKrnl\uEmuD3D8Types.pas',
   VistaIconFix in '..\..\..\Source\Delphi\src\VistaIconFix.pas',
-  XbeHeaders in '..\..\..\Source\Delphi\src\Headers\XbeHeaders.pas';
+  XbeHeaders in '..\..\..\Source\Delphi\src\Headers\XbeHeaders.pas',
+  BeaEngine in '..\..\..\Libraries\Pascal\BeaEngine\BeaEngine.pas';
 
 {$R *.res}
 

Projects/Delphi/D14/XBEExplorer.dproj

@@ -24,9 +24,9 @@
 		</PropertyGroup>
 		<PropertyGroup Condition="'$(Base)'!=''">
 			<DCC_UsePackage>vclx;vcl;vclimg;dbrtl;Rave77VCL;bdertl;rtl;vclactnband;vcldb;vcldbx;vcltouch;xmlrtl;dsnap;dsnapcon;TeeUI;TeeDB;Tee;vclib;ibxpress;adortl;IndyCore;IndySystem;IndyProtocols;inet;intrawebdb_100_140;Intraweb_100_140;VclSmp;vclie;inetdb;webdsnap;websnap;inetdbbde;inetdbxpress;soaprtl;vclribbon;DbxCommonDriver;DbxClientDriver;DBXInterBaseDriver;DBXMySQLDriver;dbexpress;dbxcds</DCC_UsePackage>
-			<DCC_UnitSearchPath>..\..\..\Source\Delphi\src\Include;..\..\..\Source\Delphi\Libraries\Jcl\include;..\..\..\Source\Delphi\Libraries\Jwapi\Win32API;..\..\..\Source\Delphi\Libraries\Jcl\Commen;..\..\..\Source\Delphi\Libraries\Jcl\windows;..\..\..\Source\Delphi\Libraries\Jwapi\Includes;..\..\..\Source\Delphi\src;..\..\..\Source\Delphi\Libraries\DirectX9;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_UnitSearchPath>..\..\..\Source\Delphi\src\Include;..\..\..\Libraries\Pascal\Jcl\include;..\..\..\Libraries\Pascal\Jwapi\Win32API;..\..\..\Libraries\Pascal\Jcl\Commen;..\..\..\Libraries\Pascal\Jcl\windows;..\..\..\Libraries\Pascal\Jwapi\Includes;..\..\..\Source\Delphi\src;..\..\..\Libraries\Pascal\DirectX9;..\..\..\Libraries\Pascal\BeaEngine;D:\Xbox\Dxbx\Libraries\Pascal\BeaEngine;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
 			<DCC_ExeOutput>..\..\..\Source\Delphi\Bin\Tools\</DCC_ExeOutput>
-			<DCC_DcuOutput>..\..\..\Source\Delphi\Dcu</DCC_DcuOutput>
+			<DCC_DcuOutput>..\..\..\Source\Delphi\Dcu\</DCC_DcuOutput>
 			<BRCC_CompilerToUse>rc</BRCC_CompilerToUse>
 			<DCC_DependencyCheckOutputName>..\..\..\Source\Delphi\Bin\Tools\XBEExplorer.exe</DCC_DependencyCheckOutputName>
 		</PropertyGroup>
@@ -103,7 +103,6 @@
 				<ContainerId>RC</ContainerId>
 				<Form>XBEExplorerResources.res</Form>
 			</RcCompile>
-			<DCCReference Include="..\..\..\Source\Delphi\Libraries\BeaEngine\BeaEngine.pas"/>
 			<DCCReference Include="..\..\..\Source\Delphi\src\Tools\XBEExplorer\uDisassembleViewer.pas"/>
 			<DCCReference Include="..\..\..\Source\Delphi\src\Tools\XBEExplorer\uExploreFileSystem.pas">
 				<Form>frmExploreFileSystem</Form>
@@ -129,6 +128,7 @@
 			<DCCReference Include="..\..\..\Source\Delphi\src\DxbxKrnl\uEmuD3D8Types.pas"/>
 			<DCCReference Include="..\..\..\Source\Delphi\src\VistaIconFix.pas"/>
 			<DCCReference Include="..\..\..\Source\Delphi\src\Headers\XbeHeaders.pas"/>
+			<DCCReference Include="..\..\..\Libraries\Pascal\BeaEngine\BeaEngine.pas"/>
 			<BuildConfiguration Include="Base">
 				<Key>Base</Key>
 			</BuildConfiguration>

Projects/Lazarus/Dxbx.lpi

@@ -34,12 +34,12 @@
         <PackageName Value="LCL"/>
       </Item1>
     </RequiredPackages>
-    <Units Count="2">
+    <Units Count="4">
       <Unit0>
         <Filename Value="Dxbx.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="Dxbx"/>
-        <UsageCount Value="22"/>
+        <UsageCount Value="25"/>
       </Unit0>
       <Unit1>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
@@ -47,136 +47,161 @@
         <ComponentName Value="Main"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="MainFrm"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
-        <CursorPos X="43" Y="5"/>
-        <UsageCount Value="22"/>
+        <CursorPos X="27" Y="84"/>
+        <UsageCount Value="25"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit1>
+      <Unit2>
+        <Filename Value="..\..\Source\Lazarus\Src\uDxbxUtils.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="uDxbxUtils"/>
+        <IsVisibleTab Value="True"/>
+        <EditorIndex Value="2"/>
+        <WindowIndex Value="0"/>
+        <TopLine Value="1"/>
+        <CursorPos X="22" Y="20"/>
+        <UsageCount Value="23"/>
+        <Loaded Value="True"/>
+      </Unit2>
+      <Unit3>
+        <Filename Value="..\..\Source\Lazarus\Src\aboutfrm.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="AboutFrm"/>
+        <ResourceBaseClass Value="Form"/>
+        <UnitName Value="aboutfrm"/>
+        <EditorIndex Value="1"/>
+        <WindowIndex Value="0"/>
+        <TopLine Value="1"/>
+        <CursorPos X="23" Y="31"/>
+        <UsageCount Value="21"/>
+        <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
+      </Unit3>
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="18" Column="1" TopLine="1"/>
+        <Caret Line="31" Column="1" TopLine="1"/>
       </Position1>
       <Position2>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="19" Column="1" TopLine="1"/>
+        <Caret Line="32" Column="1" TopLine="1"/>
       </Position2>
       <Position3>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="20" Column="1" TopLine="1"/>
+        <Caret Line="31" Column="1" TopLine="1"/>
       </Position3>
       <Position4>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="21" Column="1" TopLine="1"/>
+        <Caret Line="30" Column="1" TopLine="1"/>
       </Position4>
       <Position5>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="22" Column="1" TopLine="1"/>
+        <Caret Line="29" Column="1" TopLine="1"/>
       </Position5>
       <Position6>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="23" Column="1" TopLine="1"/>
+        <Caret Line="28" Column="1" TopLine="1"/>
       </Position6>
       <Position7>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="24" Column="1" TopLine="1"/>
+        <Caret Line="27" Column="1" TopLine="1"/>
       </Position7>
       <Position8>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="25" Column="1" TopLine="1"/>
+        <Caret Line="26" Column="1" TopLine="1"/>
       </Position8>
       <Position9>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="26" Column="1" TopLine="1"/>
+        <Caret Line="25" Column="1" TopLine="1"/>
       </Position9>
       <Position10>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="27" Column="1" TopLine="1"/>
+        <Caret Line="24" Column="1" TopLine="1"/>
       </Position10>
       <Position11>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="28" Column="1" TopLine="1"/>
+        <Caret Line="25" Column="1" TopLine="1"/>
       </Position11>
       <Position12>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="29" Column="1" TopLine="1"/>
+        <Caret Line="26" Column="1" TopLine="1"/>
       </Position12>
       <Position13>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="30" Column="1" TopLine="1"/>
+        <Caret Line="6" Column="24" TopLine="1"/>
       </Position13>
       <Position14>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="31" Column="1" TopLine="1"/>
+        <Caret Line="18" Column="16" TopLine="1"/>
       </Position14>
       <Position15>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="32" Column="1" TopLine="1"/>
+        <Caret Line="20" Column="16" TopLine="1"/>
       </Position15>
       <Position16>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="31" Column="1" TopLine="1"/>
+        <Caret Line="21" Column="16" TopLine="1"/>
       </Position16>
       <Position17>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="30" Column="1" TopLine="1"/>
+        <Caret Line="5" Column="43" TopLine="1"/>
       </Position17>
       <Position18>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="29" Column="1" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\uDxbxUtils.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position18>
       <Position19>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="28" Column="1" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\uDxbxUtils.pas"/>
+        <Caret Line="20" Column="10" TopLine="1"/>
       </Position19>
       <Position20>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="27" Column="1" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\uDxbxUtils.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position20>
       <Position21>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="26" Column="1" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\uDxbxUtils.pas"/>
+        <Caret Line="38" Column="22" TopLine="1"/>
       </Position21>
       <Position22>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="25" Column="1" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\uDxbxUtils.pas"/>
+        <Caret Line="34" Column="33" TopLine="1"/>
       </Position22>
       <Position23>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="24" Column="1" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\uDxbxUtils.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position23>
       <Position24>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="25" Column="1" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\uDxbxUtils.pas"/>
+        <Caret Line="37" Column="62" TopLine="1"/>
       </Position24>
       <Position25>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="26" Column="1" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\aboutfrm.pas"/>
+        <Caret Line="9" Column="19" TopLine="1"/>
       </Position25>
       <Position26>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="6" Column="24" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\aboutfrm.pas"/>
+        <Caret Line="10" Column="19" TopLine="1"/>
       </Position26>
       <Position27>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="18" Column="16" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\uDxbxUtils.pas"/>
+        <Caret Line="18" Column="17" TopLine="152"/>
       </Position27>
       <Position28>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="20" Column="16" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\aboutfrm.pas"/>
+        <Caret Line="18" Column="5" TopLine="1"/>
       </Position28>
       <Position29>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="21" Column="16" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\uDxbxUtils.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position29>
       <Position30>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="5" Column="43" TopLine="1"/>
+        <Caret Line="12" Column="3" TopLine="1"/>
       </Position30>
     </JumpHistory>
   </ProjectOptions>

Projects/Lazarus/Dxbx.lpr

@@ -7,7 +7,7 @@ uses
   cthreads,
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, MainFrm
+  Forms, MainFrm, uDxbxUtils, aboutfrm
   { you can add units after this };
 
 {$R *.res}
@@ -15,6 +15,7 @@ uses
 begin
   Application.Initialize;
   Application.CreateForm(TMain, Main);
+  Application.CreateForm(TAboutFrm, AboutFrm);
   Application.Run;
 end.
 

Projects/Lazarus/backup/Dxbx.lpi.bak

@@ -34,12 +34,12 @@
         <PackageName Value="LCL"/>
       </Item1>
     </RequiredPackages>
-    <Units Count="2">
+    <Units Count="4">
       <Unit0>
         <Filename Value="Dxbx.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="Dxbx"/>
-        <UsageCount Value="22"/>
+        <UsageCount Value="25"/>
       </Unit0>
       <Unit1>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
@@ -51,44 +51,69 @@
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
-        <CursorPos X="43" Y="5"/>
-        <UsageCount Value="22"/>
+        <CursorPos X="3" Y="12"/>
+        <UsageCount Value="25"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit1>
+      <Unit2>
+        <Filename Value="..\..\Source\Lazarus\Src\uDxbxUtils.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="uDxbxUtils"/>
+        <EditorIndex Value="2"/>
+        <WindowIndex Value="0"/>
+        <TopLine Value="1"/>
+        <CursorPos X="22" Y="20"/>
+        <UsageCount Value="23"/>
+        <Loaded Value="True"/>
+      </Unit2>
+      <Unit3>
+        <Filename Value="..\..\Source\Lazarus\Src\aboutfrm.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="AboutFrm"/>
+        <ResourceBaseClass Value="Form"/>
+        <UnitName Value="aboutfrm"/>
+        <EditorIndex Value="1"/>
+        <WindowIndex Value="0"/>
+        <TopLine Value="1"/>
+        <CursorPos X="23" Y="31"/>
+        <UsageCount Value="21"/>
+        <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
+      </Unit3>
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="18" Column="1" TopLine="1"/>
+        <Caret Line="30" Column="1" TopLine="1"/>
       </Position1>
       <Position2>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="19" Column="1" TopLine="1"/>
+        <Caret Line="31" Column="1" TopLine="1"/>
       </Position2>
       <Position3>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="20" Column="1" TopLine="1"/>
+        <Caret Line="32" Column="1" TopLine="1"/>
       </Position3>
       <Position4>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="21" Column="1" TopLine="1"/>
+        <Caret Line="31" Column="1" TopLine="1"/>
       </Position4>
       <Position5>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="22" Column="1" TopLine="1"/>
+        <Caret Line="30" Column="1" TopLine="1"/>
       </Position5>
       <Position6>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="23" Column="1" TopLine="1"/>
+        <Caret Line="29" Column="1" TopLine="1"/>
       </Position6>
       <Position7>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="24" Column="1" TopLine="1"/>
+        <Caret Line="28" Column="1" TopLine="1"/>
       </Position7>
       <Position8>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="25" Column="1" TopLine="1"/>
+        <Caret Line="27" Column="1" TopLine="1"/>
       </Position8>
       <Position9>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
@@ -96,87 +121,87 @@
       </Position9>
       <Position10>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="27" Column="1" TopLine="1"/>
+        <Caret Line="25" Column="1" TopLine="1"/>
       </Position10>
       <Position11>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="28" Column="1" TopLine="1"/>
+        <Caret Line="24" Column="1" TopLine="1"/>
       </Position11>
       <Position12>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="29" Column="1" TopLine="1"/>
+        <Caret Line="25" Column="1" TopLine="1"/>
       </Position12>
       <Position13>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="30" Column="1" TopLine="1"/>
+        <Caret Line="26" Column="1" TopLine="1"/>
       </Position13>
       <Position14>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="31" Column="1" TopLine="1"/>
+        <Caret Line="6" Column="24" TopLine="1"/>
       </Position14>
       <Position15>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="32" Column="1" TopLine="1"/>
+        <Caret Line="18" Column="16" TopLine="1"/>
       </Position15>
       <Position16>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="31" Column="1" TopLine="1"/>
+        <Caret Line="20" Column="16" TopLine="1"/>
       </Position16>
       <Position17>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="30" Column="1" TopLine="1"/>
+        <Caret Line="21" Column="16" TopLine="1"/>
       </Position17>
       <Position18>
         <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="29" Column="1" TopLine="1"/>
+        <Caret Line="5" Column="43" TopLine="1"/>
       </Position18>
       <Position19>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="28" Column="1" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\uDxbxUtils.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position19>
       <Position20>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="27" Column="1" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\uDxbxUtils.pas"/>
+        <Caret Line="20" Column="10" TopLine="1"/>
       </Position20>
       <Position21>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="26" Column="1" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\uDxbxUtils.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position21>
       <Position22>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="25" Column="1" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\uDxbxUtils.pas"/>
+        <Caret Line="38" Column="22" TopLine="1"/>
       </Position22>
       <Position23>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="24" Column="1" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\uDxbxUtils.pas"/>
+        <Caret Line="34" Column="33" TopLine="1"/>
       </Position23>
       <Position24>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="25" Column="1" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\uDxbxUtils.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position24>
       <Position25>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="26" Column="1" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\uDxbxUtils.pas"/>
+        <Caret Line="37" Column="62" TopLine="1"/>
       </Position25>
       <Position26>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="6" Column="24" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\aboutfrm.pas"/>
+        <Caret Line="9" Column="19" TopLine="1"/>
       </Position26>
       <Position27>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="18" Column="16" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\aboutfrm.pas"/>
+        <Caret Line="10" Column="19" TopLine="1"/>
       </Position27>
       <Position28>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="20" Column="16" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\uDxbxUtils.pas"/>
+        <Caret Line="18" Column="17" TopLine="152"/>
       </Position28>
       <Position29>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="21" Column="16" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\aboutfrm.pas"/>
+        <Caret Line="18" Column="5" TopLine="1"/>
       </Position29>
       <Position30>
-        <Filename Value="..\..\Source\Lazarus\Src\mainfrm.pas"/>
-        <Caret Line="5" Column="43" TopLine="1"/>
+        <Filename Value="..\..\Source\Lazarus\Src\uDxbxUtils.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position30>
     </JumpHistory>
   </ProjectOptions>

Source/Delphi/src/ufrm_About.pas

@@ -33,10 +33,8 @@ type
   Tfrm_About = class(TForm)
     Image1: TImage;
     procedure FormCreate(Sender: TObject);
-  private
-    { Private declarations }
   public
-    { Public declarations }
+    class function Execute: Boolean;
   end;
 
 type
@@ -44,9 +42,6 @@ type
     procedure LoadFromResourceName(Instance: THandle; const ResName: string);
   end;
 
-var
-  frm_About: Tfrm_About;
-
 function GetJPEGResource(const aResourceName: string): TJPEGImage;
 
 implementation
@@ -78,6 +73,18 @@ end;
 
 {$R *.dfm}
 
+class function Tfrm_About.Execute: Boolean;
+var
+  frm_About: Tfrm_About;
+begin
+  frm_About := Tfrm_About.Create(nil);
+  try
+    Result := (frm_About.ShowModal = mrOk);
+  finally
+    FreeAndNil({var}frm_About);
+  end;
+end;
+
 procedure Tfrm_About.FormCreate(Sender: TObject);
 var
   JPEGImage: TJPEGImage;

Source/Delphi/src/ufrm_Main.pas

@@ -366,34 +366,12 @@ var
 // Key messages can be trapped at the application level :
 procedure Tfrm_Main.AppMessage(var Msg: TMsg; var Handled: Boolean);
 begin
-//case Msg.message of WM_PAINT,WM_NCMOUSEMOVE..WM_NCXBUTTONDBLCLK, WM_COMMAND..WM_GESTURENOTIFY, WM_MOUSEFIRST..WM_MOUSELAST, WM_NCMOUSEHOVER..WM_MOUSELEAVE:; else
-//DbgPrintf('AppMessage() Msg.message = %d (%x)   LOWORD(Msg.wParam) = %d (%x)', [Msg.message, Msg.message, LOWORD(Msg.wParam), LOWORD(Msg.wParam)]);
-//end;
-
   // Dxbx : Protect against a loss of the child handle (otherwise, the GUI we would hang) :
   if not IsWindow(m_hwndChild) then
     m_hwndChild := HNULL;
 
   Handled := False;
   case Msg.message of
-//    WM_USER_PARENTNOTIFY,
-//    WM_PARENTNOTIFY:
-//      case LOWORD(Msg.wParam) of
-//        WM_CREATE:
-//        begin
-//          m_hwndChild := GetWindow(Msg.hwnd, GW_CHILD);
-//          UpdateTitleInformation;
-//          Handled := True;
-//        end;
-//
-//        WM_DESTROY:
-//        begin
-//          m_hwndChild := HNULL;
-//          UpdateTitleInformation;
-//          Handled := True;
-//        end;
-//      end;
-
     WM_SYSKEYDOWN:
       if m_hwndChild <> 0 then
       begin
@@ -1565,13 +1543,7 @@ end; // actFileDebugKernelExecute
 
 procedure Tfrm_Main.actAboutExecute(Sender: TObject);
 begin
-  frm_About := Tfrm_About.Create(Self);
-
-  if frm_About.ShowModal = mrOk then
-  begin
-  end;
-
-  FreeAndNil({var}frm_About);
+  Tfrm_About.Execute;
 end;
 
 procedure Tfrm_Main.actCleanSymbolCacheExecute(Sender: TObject);

Source/Lazarus/Src/mainfrm.pas

@@ -5,8 +5,12 @@ unit MainFrm;
 interface
 
 uses
+  // Lazarus
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ActnList, StdCtrls, Grids, ExtCtrls;
+  ActnList, StdCtrls, Grids, ExtCtrls//,
+  // Dxbx
+//  uDxbxUtils
+  ;
 
 type
 
@@ -74,6 +78,8 @@ type
 
 var
   Main: TMain;
+  KernelDebugMode: TDebugMode = dmNone;
+  KernelDebugFilePath: string = ''; // Just the default folder
 
 implementation
 
@@ -81,6 +87,43 @@ implementation
 
 { TMain }
 
+function BrowseDialogCallBack
+  (Wnd: HWND; uMsg: UINT; lParam, lpData: LPARAM):
+  integer stdcall;
+var
+  wa, rect: TRect;
+  dialogPT: TPoint;
+begin
+  //center in work area
+  if uMsg = BFFM_INITIALIZED then
+  begin
+    wa := Screen.WorkAreaRect;
+    GetWindowRect(Wnd, Rect);
+    dialogPT.X := ((wa.Right-wa.Left) div 2) -
+                  ((rect.Right-rect.Left) div 2);
+    dialogPT.Y := ((wa.Bottom-wa.Top) div 2) -
+                  ((rect.Bottom-rect.Top) div 2);
+    MoveWindow(Wnd,
+               dialogPT.X,
+               dialogPT.Y,
+               Rect.Right - Rect.Left,
+               Rect.Bottom - Rect.Top,
+               True);
+    SendMessage(wnd, BFFM_SETSELECTIONW, Longint(true), lpdata);
+  end;
+
+  Result := 0;
+end;
+
+function GetTitleSpecificKernelDebugFilePath: string;
+begin
+  // Was DXBX_KERNEL_DEBUG_FILENAME
+  if KernelDebugFilePath <> '' then
+    if LastChar(KernelDebugFilePath) <> '\' then
+      KernelDebugFilePath := KernelDebugFilePath + '\';
+
+  Result := KernelDebugFilePath + Format('DxbxKrnl %s (%d).txt', [TitleToNiceFilename(m_szAsciiTitle), SvnRevision])
+end;
 
 
 end.