Updated C demos

Demos/behaviours/Behaviours.groupproj

@@ -6,25 +6,25 @@
         <Projects Include="Torque\TorqueC.cbproj">
             <Dependencies/>
         </Projects>
-        <Projects Include="Torque\TorqueD.dproj">
+        <Projects Include="Torque\Torque.dproj">
             <Dependencies/>
         </Projects>
         <Projects Include="PathControl\PathControlC.cbproj">
             <Dependencies/>
         </Projects>
-        <Projects Include="PathControl\PathControlD.dproj">
+        <Projects Include="PathControl\PathControl.dproj">
             <Dependencies/>
         </Projects>
         <Projects Include="FPSMovement\FPSMovementC.cbproj">
             <Dependencies/>
         </Projects>
-        <Projects Include="FPSMovement\FPSMovementD.dproj">
+        <Projects Include="FPSMovement\FPSMovement.dproj">
             <Dependencies/>
         </Projects>
         <Projects Include="DCEDemo\DceDemoC.cbproj">
             <Dependencies/>
         </Projects>
-        <Projects Include="DCEDemo\DceDemoD.dproj">
+        <Projects Include="DCEDemo\DceDemo.dproj">
             <Dependencies/>
         </Projects>
     </ItemGroup>
@@ -44,14 +44,14 @@
     <Target Name="TorqueC:Make">
         <MSBuild Projects="Torque\TorqueC.cbproj" Targets="Make"/>
     </Target>
-    <Target Name="TorqueD">
-        <MSBuild Projects="Torque\TorqueD.dproj"/>
+    <Target Name="Torque">
+        <MSBuild Projects="Torque\Torque.dproj"/>
     </Target>
-    <Target Name="TorqueD:Clean">
-        <MSBuild Projects="Torque\TorqueD.dproj" Targets="Clean"/>
+    <Target Name="Torque:Clean">
+        <MSBuild Projects="Torque\Torque.dproj" Targets="Clean"/>
     </Target>
-    <Target Name="TorqueD:Make">
-        <MSBuild Projects="Torque\TorqueD.dproj" Targets="Make"/>
+    <Target Name="Torque:Make">
+        <MSBuild Projects="Torque\Torque.dproj" Targets="Make"/>
     </Target>
     <Target Name="PathControlC">
         <MSBuild Projects="PathControl\PathControlC.cbproj"/>
@@ -62,14 +62,14 @@
     <Target Name="PathControlC:Make">
         <MSBuild Projects="PathControl\PathControlC.cbproj" Targets="Make"/>
     </Target>
-    <Target Name="PathControlD">
-        <MSBuild Projects="PathControl\PathControlD.dproj"/>
+    <Target Name="PathControl">
+        <MSBuild Projects="PathControl\PathControl.dproj"/>
     </Target>
-    <Target Name="PathControlD:Clean">
-        <MSBuild Projects="PathControl\PathControlD.dproj" Targets="Clean"/>
+    <Target Name="PathControl:Clean">
+        <MSBuild Projects="PathControl\PathControl.dproj" Targets="Clean"/>
     </Target>
-    <Target Name="PathControlD:Make">
-        <MSBuild Projects="PathControl\PathControlD.dproj" Targets="Make"/>
+    <Target Name="PathControl:Make">
+        <MSBuild Projects="PathControl\PathControl.dproj" Targets="Make"/>
     </Target>
     <Target Name="FPSMovementC">
         <MSBuild Projects="FPSMovement\FPSMovementC.cbproj"/>
@@ -80,14 +80,14 @@
     <Target Name="FPSMovementC:Make">
         <MSBuild Projects="FPSMovement\FPSMovementC.cbproj" Targets="Make"/>
     </Target>
-    <Target Name="FPSMovementD">
-        <MSBuild Projects="FPSMovement\FPSMovementD.dproj"/>
+    <Target Name="FPSMovement">
+        <MSBuild Projects="FPSMovement\FPSMovement.dproj"/>
     </Target>
-    <Target Name="FPSMovementD:Clean">
-        <MSBuild Projects="FPSMovement\FPSMovementD.dproj" Targets="Clean"/>
+    <Target Name="FPSMovement:Clean">
+        <MSBuild Projects="FPSMovement\FPSMovement.dproj" Targets="Clean"/>
     </Target>
-    <Target Name="FPSMovementD:Make">
-        <MSBuild Projects="FPSMovement\FPSMovementD.dproj" Targets="Make"/>
+    <Target Name="FPSMovement:Make">
+        <MSBuild Projects="FPSMovement\FPSMovement.dproj" Targets="Make"/>
     </Target>
     <Target Name="DceDemoC">
         <MSBuild Projects="DCEDemo\DceDemoC.cbproj"/>
@@ -98,23 +98,23 @@
     <Target Name="DceDemoC:Make">
         <MSBuild Projects="DCEDemo\DceDemoC.cbproj" Targets="Make"/>
     </Target>
-    <Target Name="DceDemoD">
-        <MSBuild Projects="DCEDemo\DceDemoD.dproj"/>
+    <Target Name="DceDemo">
+        <MSBuild Projects="DCEDemo\DceDemo.dproj"/>
     </Target>
-    <Target Name="DceDemoD:Clean">
-        <MSBuild Projects="DCEDemo\DceDemoD.dproj" Targets="Clean"/>
+    <Target Name="DceDemo:Clean">
+        <MSBuild Projects="DCEDemo\DceDemo.dproj" Targets="Clean"/>
     </Target>
-    <Target Name="DceDemoD:Make">
-        <MSBuild Projects="DCEDemo\DceDemoD.dproj" Targets="Make"/>
+    <Target Name="DceDemo:Make">
+        <MSBuild Projects="DCEDemo\DceDemo.dproj" Targets="Make"/>
     </Target>
     <Target Name="Build">
-        <CallTarget Targets="TorqueC;TorqueD;PathControlC;PathControlD;FPSMovementC;FPSMovementD;DceDemoC;DceDemoD"/>
+        <CallTarget Targets="TorqueC;Torque;PathControlC;PathControl;FPSMovementC;FPSMovement;DceDemoC;DceDemo"/>
     </Target>
     <Target Name="Clean">
-        <CallTarget Targets="TorqueC:Clean;TorqueD:Clean;PathControlC:Clean;PathControlD:Clean;FPSMovementC:Clean;FPSMovementD:Clean;DceDemoC:Clean;DceDemoD:Clean"/>
+        <CallTarget Targets="TorqueC:Clean;Torque:Clean;PathControlC:Clean;PathControl:Clean;FPSMovementC:Clean;FPSMovement:Clean;DceDemoC:Clean;DceDemo:Clean"/>
     </Target>
     <Target Name="Make">
-        <CallTarget Targets="TorqueC:Make;TorqueD:Make;PathControlC:Make;PathControlD:Make;FPSMovementC:Make;FPSMovementD:Make;DceDemoC:Make;DceDemoD:Make"/>
+        <CallTarget Targets="TorqueC:Make;Torque:Make;PathControlC:Make;PathControl:Make;FPSMovementC:Make;FPSMovement:Make;DceDemoC:Make;DceDemo:Make"/>
     </Target>
     <Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
 </Project>

Demos/behaviours/DCEDemo/DceDemoD.dpr → Demos/behaviours/DCEDemo/DceDemo.dpr

@@ -10,10 +10,10 @@
      for you. The only "real" code in this demo is inside the onProgress event
      of the cadencer, that takes care of input.
 *)
-program DceDemoD;
+program DceDemo;
 uses
   Forms,
-  fDceDemoD in 'fDceDemoD.pas' {FormDCE};
+  fDceDemo in 'fDceDemo.pas' {FormDCE};
 
 {$R *.res}
 

Demos/behaviours/DCEDemo/DceDemoD.dproj → Demos/behaviours/DCEDemo/DceDemo.dproj

@@ -1,7 +1,7 @@
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
     <PropertyGroup>
         <ProjectGuid>{FAB43D53-1C81-4C54-9AAB-0ED33D9611C3}</ProjectGuid>
-        <MainSource>DceDemoD.dpr</MainSource>
+        <MainSource>DceDemo.dpr</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
         <TargetedPlatforms>3</TargetedPlatforms>
@@ -66,7 +66,7 @@
         <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName=</VerInfo_Keys>
         <DCC_K>false</DCC_K>
         <DCC_E>false</DCC_E>
-        <SanitizedProjectName>DceDemoD</SanitizedProjectName>
+        <SanitizedProjectName>DceDemo</SanitizedProjectName>
         <DCC_F>false</DCC_F>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win32)'!=''">
@@ -144,7 +144,7 @@
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
-        <DCCReference Include="fDceDemoD.pas">
+        <DCCReference Include="fDceDemo.pas">
             <Form>FormDCE</Form>
         </DCCReference>
         <BuildConfiguration Include="Debug">
@@ -165,7 +165,7 @@
         <BorlandProject>
             <Delphi.Personality>
                 <Source>
-                    <Source Name="MainSource">DceDemoD.dpr</Source>
+                    <Source Name="MainSource">DceDemo.dpr</Source>
                 </Source>
                 <Excluded_Packages>
                     <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\21.0\Bpl\GLScene_Sounds_DT.bpl">GLScene Sound Managers</Excluded_Packages>
@@ -181,9 +181,9 @@
                 <Platform value="Win64">True</Platform>
             </Platforms>
             <Deployment Version="3">
-                <DeployFile LocalName="Win32\Debug\DceDemoD.exe" Configuration="Debug" Class="ProjectOutput">
+                <DeployFile LocalName="Win32\Debug\DceDemo.exe" Configuration="Debug" Class="ProjectOutput">
                     <Platform Name="Win32">
-                        <RemoteName>DceDemoD.exe</RemoteName>
+                        <RemoteName>DceDemo.exe</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>

Demos/behaviours/DCEDemo/fDceDemoD.pas → Demos/behaviours/DCEDemo/fDceDemo.pas

@@ -1,4 +1,4 @@
-unit fDceDemoD;
+unit fDceDemo;
 
 interface
 

Demos/behaviours/FPSMovement/FPSMovementD.dpr → Demos/behaviours/FPSMovement/FPSMovement.dpr

@@ -11,11 +11,11 @@
     Space: Move upwards
     Esc: Quit
 *)
-program FPSMovementD;
+program FPSMovement;
 
 uses
   Vcl.Forms,
-  fFPSMovementD in 'fFPSMovementD.pas' {FormFPSMovement};
+  fFPSMovement in 'fFPSMovement.pas' {FormFPSMovement};
 
 {$R *.res}
 

Demos/behaviours/FPSMovement/FPSMovementD.dproj → Demos/behaviours/FPSMovement/FPSMovement.dproj

@@ -1,7 +1,7 @@
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
     <PropertyGroup>
         <ProjectGuid>{C5877586-7C02-4F14-AE14-1795F2C4C4FF}</ProjectGuid>
-        <MainSource>FPSMovementD.dpr</MainSource>
+        <MainSource>FPSMovement.dpr</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
         <TargetedPlatforms>3</TargetedPlatforms>
@@ -60,7 +60,7 @@
         <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName=</VerInfo_Keys>
         <DCC_K>false</DCC_K>
         <DCC_E>false</DCC_E>
-        <SanitizedProjectName>FPSMovementD</SanitizedProjectName>
+        <SanitizedProjectName>FPSMovement</SanitizedProjectName>
         <DCC_F>false</DCC_F>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win32)'!=''">
@@ -128,7 +128,7 @@
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
-        <DCCReference Include="fFPSMovementD.pas">
+        <DCCReference Include="fFPSMovement.pas">
             <Form>FormFPSMovement</Form>
         </DCCReference>
         <BuildConfiguration Include="Debug">
@@ -149,7 +149,7 @@
         <BorlandProject>
             <Delphi.Personality>
                 <Source>
-                    <Source Name="MainSource">FPSMovementD.dpr</Source>
+                    <Source Name="MainSource">FPSMovement.dpr</Source>
                 </Source>
                 <Excluded_Packages>
                     <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\21.0\Bpl\GLScene_Sounds_DT.bpl">GLScene Sound Managers</Excluded_Packages>
@@ -165,9 +165,9 @@
                 <Platform value="Win64">True</Platform>
             </Platforms>
             <Deployment Version="3">
-                <DeployFile LocalName="Win32\Debug\FPSMovementD.exe" Configuration="Debug" Class="ProjectOutput">
+                <DeployFile LocalName="Win32\Debug\FPSMovement.exe" Configuration="Debug" Class="ProjectOutput">
                     <Platform Name="Win32">
-                        <RemoteName>FPSMovementD.exe</RemoteName>
+                        <RemoteName>FPSMovement.exe</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>

Demos/behaviours/FPSMovement/fFPSMovementD.pas → Demos/behaviours/FPSMovement/fFPSMovement.pas

@@ -1,4 +1,4 @@
-unit fFPSMovementD;
+unit fFPSMovement;
 
 interface
 

Demos/behaviours/PathControl/PathControlD.dpr → Demos/behaviours/PathControl/PathControl.dpr

@@ -3,11 +3,11 @@
    You can modified the Looped property of the path to enable the path-looping.
    Set ShowPath property to turn on or turn off the path-displaying
 }
-program PathControlD;
+program PathControl;
 
 uses
   Forms,
-  fPathControlD in 'fPathControlD.pas' {FormPathControl};
+  fPathControl in 'fPathControl.pas' {FormPathControl};
 
 {$R *.RES}
 

Demos/behaviours/PathControl/PathControlD.dproj → Demos/behaviours/PathControl/PathControl.dproj

@@ -1,7 +1,7 @@
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
     <PropertyGroup>
         <ProjectGuid>{DC289D01-30B9-4978-84C6-3E0CC2769071}</ProjectGuid>
-        <MainSource>PathControlD.dpr</MainSource>
+        <MainSource>PathControl.dpr</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
         <TargetedPlatforms>3</TargetedPlatforms>
@@ -60,7 +60,7 @@
         <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName=</VerInfo_Keys>
         <DCC_K>false</DCC_K>
         <DCC_E>false</DCC_E>
-        <SanitizedProjectName>PathControlD</SanitizedProjectName>
+        <SanitizedProjectName>PathControl</SanitizedProjectName>
         <DCC_F>false</DCC_F>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win32)'!=''">
@@ -128,7 +128,7 @@
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
-        <DCCReference Include="fPathControlD.pas">
+        <DCCReference Include="fPathControl.pas">
             <Form>FormPathControl</Form>
         </DCCReference>
         <BuildConfiguration Include="Debug">
@@ -149,7 +149,7 @@
         <BorlandProject>
             <Delphi.Personality>
                 <Source>
-                    <Source Name="MainSource">PathControlD.dpr</Source>
+                    <Source Name="MainSource">PathControl.dpr</Source>
                 </Source>
                 <Excluded_Packages>
                     <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\21.0\Bpl\GLScene_Sounds_DT.bpl">GLScene Sound Managers</Excluded_Packages>
@@ -165,9 +165,9 @@
                 <Platform value="Win64">True</Platform>
             </Platforms>
             <Deployment Version="3">
-                <DeployFile LocalName="Win32\Debug\PathControlD.exe" Configuration="Debug" Class="ProjectOutput">
+                <DeployFile LocalName="Win32\Debug\PathControl.exe" Configuration="Debug" Class="ProjectOutput">
                     <Platform Name="Win32">
-                        <RemoteName>PathControlD.exe</RemoteName>
+                        <RemoteName>PathControl.exe</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>

Demos/behaviours/PathControl/fPathControlD.pas → Demos/behaviours/PathControl/fPathControl.pas

@@ -1,4 +1,4 @@
-unit fPathControlD;
+unit fPathControl;
 
 interface
 

Demos/behaviours/Torque/TorqueD.dpr → Demos/behaviours/Torque/Torque.dpr

@@ -17,11 +17,11 @@
 	since it will automatically add an inertia behaviour to our object if it
 	doesn't have one.
 *)
-program TorqueD;
+program Torque;
 
 uses
   Forms,
-  fTorqueD in 'fTorqueD.pas' {FormTorque};
+  fTorque in 'fTorque.pas' {FormTorque};
 
 {$R *.RES}
 

Demos/behaviours/Torque/TorqueD.dproj → Demos/behaviours/Torque/Torque.dproj

@@ -1,7 +1,7 @@
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
     <PropertyGroup>
         <ProjectGuid>{5461A80C-FA24-42D4-89AF-DC7F6A5F4F60}</ProjectGuid>
-        <MainSource>TorqueD.dpr</MainSource>
+        <MainSource>Torque.dpr</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
         <TargetedPlatforms>3</TargetedPlatforms>
@@ -60,7 +60,7 @@
         <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName=</VerInfo_Keys>
         <DCC_K>false</DCC_K>
         <DCC_E>false</DCC_E>
-        <SanitizedProjectName>TorqueD</SanitizedProjectName>
+        <SanitizedProjectName>Torque</SanitizedProjectName>
         <DCC_F>false</DCC_F>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win32)'!=''">
@@ -131,7 +131,7 @@
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
-        <DCCReference Include="fTorqueD.pas">
+        <DCCReference Include="fTorque.pas">
             <Form>FormTorque</Form>
         </DCCReference>
         <BuildConfiguration Include="Debug">
@@ -152,7 +152,7 @@
         <BorlandProject>
             <Delphi.Personality>
                 <Source>
-                    <Source Name="MainSource">TorqueD.dpr</Source>
+                    <Source Name="MainSource">Torque.dpr</Source>
                 </Source>
                 <Excluded_Packages>
                     <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\21.0\Bpl\GLScene_Sounds_DT.bpl">GLScene Sound Managers</Excluded_Packages>
@@ -168,9 +168,9 @@
                 <Platform value="Win64">True</Platform>
             </Platforms>
             <Deployment Version="3">
-                <DeployFile LocalName="Win32\Debug\TorqueD.exe" Configuration="Debug" Class="ProjectOutput">
+                <DeployFile LocalName="Win32\Debug\Torque.exe" Configuration="Debug" Class="ProjectOutput">
                     <Platform Name="Win32">
-                        <RemoteName>TorqueD.exe</RemoteName>
+                        <RemoteName>Torque.exe</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>

Demos/behaviours/Torque/fTorqueD.pas → Demos/behaviours/Torque/fTorque.pas

@@ -1,4 +1,4 @@
-unit fTorqueD;
+unit fTorque;
 
 interface
 

Demos/bench/bench.groupproj

@@ -3,22 +3,40 @@
         <ProjectGuid>{503B7578-1619-4BE5-ABDF-7CA291825FFD}</ProjectGuid>
     </PropertyGroup>
     <ItemGroup>
-        <Projects Include="canvas\Canvas.cbproj">
+        <Projects Include="canvas\CanvasC.cbproj">
             <Dependencies/>
         </Projects>
-        <Projects Include="megacube\MegaCube.cbproj">
+        <Projects Include="canvas\Canvas.dproj">
             <Dependencies/>
         </Projects>
-        <Projects Include="megaglasscube\MegaGlassCube.cbproj">
+        <Projects Include="megacube\MegaCubeC.cbproj">
             <Dependencies/>
         </Projects>
-        <Projects Include="smoking\Smoking.cbproj">
+        <Projects Include="megacube\Megacube.dproj">
             <Dependencies/>
         </Projects>
-        <Projects Include="volcano\Volcano.cbproj">
+        <Projects Include="megaglasscube\MegaGlassCubeC.cbproj">
             <Dependencies/>
         </Projects>
-        <Projects Include="whirlwind\Whirlwind.cbproj">
+        <Projects Include="megaglasscube\Megaglasscube.dproj">
+            <Dependencies/>
+        </Projects>
+        <Projects Include="smoking\SmokingC.cbproj">
+            <Dependencies/>
+        </Projects>
+        <Projects Include="smoking\Smoking.dproj">
+            <Dependencies/>
+        </Projects>
+        <Projects Include="volcano\VolcanoC.cbproj">
+            <Dependencies/>
+        </Projects>
+        <Projects Include="volcano\Volcano.dproj">
+            <Dependencies/>
+        </Projects>
+        <Projects Include="whirlwind\WhirlwindC.cbproj">
+            <Dependencies/>
+        </Projects>
+        <Projects Include="whirlwind\Whirlwind.dproj">
             <Dependencies/>
         </Projects>
     </ItemGroup>
@@ -29,68 +47,122 @@
             <Default.Personality/>
         </BorlandProject>
     </ProjectExtensions>
+    <Target Name="CanvasC">
+        <MSBuild Projects="canvas\CanvasC.cbproj"/>
+    </Target>
+    <Target Name="CanvasC:Clean">
+        <MSBuild Projects="canvas\CanvasC.cbproj" Targets="Clean"/>
+    </Target>
+    <Target Name="CanvasC:Make">
+        <MSBuild Projects="canvas\CanvasC.cbproj" Targets="Make"/>
+    </Target>
     <Target Name="Canvas">
-        <MSBuild Projects="canvas\Canvas.cbproj"/>
+        <MSBuild Projects="canvas\Canvas.dproj"/>
     </Target>
     <Target Name="Canvas:Clean">
-        <MSBuild Projects="canvas\Canvas.cbproj" Targets="Clean"/>
+        <MSBuild Projects="canvas\Canvas.dproj" Targets="Clean"/>
     </Target>
     <Target Name="Canvas:Make">
-        <MSBuild Projects="canvas\Canvas.cbproj" Targets="Make"/>
+        <MSBuild Projects="canvas\Canvas.dproj" Targets="Make"/>
     </Target>
-    <Target Name="MegaCube">
-        <MSBuild Projects="megacube\MegaCube.cbproj"/>
+    <Target Name="MegaCubeC">
+        <MSBuild Projects="megacube\MegaCubeC.cbproj"/>
     </Target>
-    <Target Name="MegaCube:Clean">
-        <MSBuild Projects="megacube\MegaCube.cbproj" Targets="Clean"/>
+    <Target Name="MegaCubeC:Clean">
+        <MSBuild Projects="megacube\MegaCubeC.cbproj" Targets="Clean"/>
     </Target>
-    <Target Name="MegaCube:Make">
-        <MSBuild Projects="megacube\MegaCube.cbproj" Targets="Make"/>
+    <Target Name="MegaCubeC:Make">
+        <MSBuild Projects="megacube\MegaCubeC.cbproj" Targets="Make"/>
     </Target>
-    <Target Name="MegaGlassCube">
-        <MSBuild Projects="megaglasscube\MegaGlassCube.cbproj"/>
+    <Target Name="Megacube">
+        <MSBuild Projects="megacube\Megacube.dproj"/>
     </Target>
-    <Target Name="MegaGlassCube:Clean">
-        <MSBuild Projects="megaglasscube\MegaGlassCube.cbproj" Targets="Clean"/>
+    <Target Name="Megacube:Clean">
+        <MSBuild Projects="megacube\Megacube.dproj" Targets="Clean"/>
     </Target>
-    <Target Name="MegaGlassCube:Make">
-        <MSBuild Projects="megaglasscube\MegaGlassCube.cbproj" Targets="Make"/>
+    <Target Name="Megacube:Make">
+        <MSBuild Projects="megacube\Megacube.dproj" Targets="Make"/>
+    </Target>
+    <Target Name="MegaGlassCubeC">
+        <MSBuild Projects="megaglasscube\MegaGlassCubeC.cbproj"/>
+    </Target>
+    <Target Name="MegaGlassCubeC:Clean">
+        <MSBuild Projects="megaglasscube\MegaGlassCubeC.cbproj" Targets="Clean"/>
+    </Target>
+    <Target Name="MegaGlassCubeC:Make">
+        <MSBuild Projects="megaglasscube\MegaGlassCubeC.cbproj" Targets="Make"/>
+    </Target>
+    <Target Name="Megaglasscube">
+        <MSBuild Projects="megaglasscube\Megaglasscube.dproj"/>
+    </Target>
+    <Target Name="Megaglasscube:Clean">
+        <MSBuild Projects="megaglasscube\Megaglasscube.dproj" Targets="Clean"/>
+    </Target>
+    <Target Name="Megaglasscube:Make">
+        <MSBuild Projects="megaglasscube\Megaglasscube.dproj" Targets="Make"/>
+    </Target>
+    <Target Name="SmokingC">
+        <MSBuild Projects="smoking\SmokingC.cbproj"/>
+    </Target>
+    <Target Name="SmokingC:Clean">
+        <MSBuild Projects="smoking\SmokingC.cbproj" Targets="Clean"/>
+    </Target>
+    <Target Name="SmokingC:Make">
+        <MSBuild Projects="smoking\SmokingC.cbproj" Targets="Make"/>
     </Target>
     <Target Name="Smoking">
-        <MSBuild Projects="smoking\Smoking.cbproj"/>
+        <MSBuild Projects="smoking\Smoking.dproj"/>
     </Target>
     <Target Name="Smoking:Clean">
-        <MSBuild Projects="smoking\Smoking.cbproj" Targets="Clean"/>
+        <MSBuild Projects="smoking\Smoking.dproj" Targets="Clean"/>
     </Target>
     <Target Name="Smoking:Make">
-        <MSBuild Projects="smoking\Smoking.cbproj" Targets="Make"/>
+        <MSBuild Projects="smoking\Smoking.dproj" Targets="Make"/>
+    </Target>
+    <Target Name="VolcanoC">
+        <MSBuild Projects="volcano\VolcanoC.cbproj"/>
+    </Target>
+    <Target Name="VolcanoC:Clean">
+        <MSBuild Projects="volcano\VolcanoC.cbproj" Targets="Clean"/>
+    </Target>
+    <Target Name="VolcanoC:Make">
+        <MSBuild Projects="volcano\VolcanoC.cbproj" Targets="Make"/>
     </Target>
     <Target Name="Volcano">
-        <MSBuild Projects="volcano\Volcano.cbproj"/>
+        <MSBuild Projects="volcano\Volcano.dproj"/>
     </Target>
     <Target Name="Volcano:Clean">
-        <MSBuild Projects="volcano\Volcano.cbproj" Targets="Clean"/>
+        <MSBuild Projects="volcano\Volcano.dproj" Targets="Clean"/>
     </Target>
     <Target Name="Volcano:Make">
-        <MSBuild Projects="volcano\Volcano.cbproj" Targets="Make"/>
+        <MSBuild Projects="volcano\Volcano.dproj" Targets="Make"/>
+    </Target>
+    <Target Name="WhirlwindC">
+        <MSBuild Projects="whirlwind\WhirlwindC.cbproj"/>
+    </Target>
+    <Target Name="WhirlwindC:Clean">
+        <MSBuild Projects="whirlwind\WhirlwindC.cbproj" Targets="Clean"/>
+    </Target>
+    <Target Name="WhirlwindC:Make">
+        <MSBuild Projects="whirlwind\WhirlwindC.cbproj" Targets="Make"/>
     </Target>
     <Target Name="Whirlwind">
-        <MSBuild Projects="whirlwind\Whirlwind.cbproj"/>
+        <MSBuild Projects="whirlwind\Whirlwind.dproj"/>
     </Target>
     <Target Name="Whirlwind:Clean">
-        <MSBuild Projects="whirlwind\Whirlwind.cbproj" Targets="Clean"/>
+        <MSBuild Projects="whirlwind\Whirlwind.dproj" Targets="Clean"/>
     </Target>
     <Target Name="Whirlwind:Make">
-        <MSBuild Projects="whirlwind\Whirlwind.cbproj" Targets="Make"/>
+        <MSBuild Projects="whirlwind\Whirlwind.dproj" Targets="Make"/>
     </Target>
     <Target Name="Build">
-        <CallTarget Targets="Canvas;MegaCube;MegaGlassCube;Smoking;Volcano;Whirlwind"/>
+        <CallTarget Targets="CanvasC;Canvas;MegaCubeC;Megacube;MegaGlassCubeC;Megaglasscube;SmokingC;Smoking;VolcanoC;Volcano;WhirlwindC;Whirlwind"/>
     </Target>
     <Target Name="Clean">
-        <CallTarget Targets="Canvas:Clean;MegaCube:Clean;MegaGlassCube:Clean;Smoking:Clean;Volcano:Clean;Whirlwind:Clean"/>
+        <CallTarget Targets="CanvasC:Clean;Canvas:Clean;MegaCubeC:Clean;Megacube:Clean;MegaGlassCubeC:Clean;Megaglasscube:Clean;SmokingC:Clean;Smoking:Clean;VolcanoC:Clean;Volcano:Clean;WhirlwindC:Clean;Whirlwind:Clean"/>
     </Target>
     <Target Name="Make">
-        <CallTarget Targets="Canvas:Make;MegaCube:Make;MegaGlassCube:Make;Smoking:Make;Volcano:Make;Whirlwind:Make"/>
+        <CallTarget Targets="CanvasC:Make;Canvas:Make;MegaCubeC:Make;Megacube:Make;MegaGlassCubeC:Make;Megaglasscube:Make;SmokingC:Make;Smoking:Make;VolcanoC:Make;Volcano:Make;WhirlwindC:Make;Whirlwind:Make"/>
     </Target>
     <Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
 </Project>

Demos/bench/megacube/Megacube.dpr

@@ -49,7 +49,9 @@ program Megacube;
 
 uses
   Forms,
-  MegacubeFm in 'MegacubeFm.pas';
+  fMegaCube in 'fMegaCube.pas' {;
+
+{$R *.RES};
 
 {$R *.RES}
 

Demos/bench/megacube/Megacube.dproj

@@ -123,7 +123,7 @@
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
-        <DCCReference Include="MegacubeFm.pas">
+        <DCCReference Include="fMegaCube.pas">
             <Form>;
 
 {$R *.RES</Form>

Demos/bench/megacube/MegacubeFm.pas → Demos/bench/megacube/fMegaCube.pas

@@ -1,4 +1,4 @@
-unit MegacubeFm;
+unit fMegaCube;
 
 interface
 

Demos/bench/megaglasscube/Megaglasscube.dpr

@@ -23,7 +23,7 @@ program Megaglasscube;
 
 uses
   Forms,
-  MegaglassCubeFm in 'MegaglassCubeFm.pas' {FormMegaglasscube};
+  fMegaGlassCube in 'fMegaGlassCube.pas' {FormMegaglasscube};
 
 {$R *.RES}
 

Demos/bench/megaglasscube/Megaglasscube.dproj

@@ -123,7 +123,7 @@
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
-        <DCCReference Include="MegaglassCubeFm.pas">
+        <DCCReference Include="fMegaGlassCube.pas">
             <Form>FormMegaglasscube</Form>
         </DCCReference>
         <BuildConfiguration Include="Debug">

Demos/bench/megaglasscube/MegaglassCubeFm.pas → Demos/bench/megaglasscube/fMegaGlassCube.pas

@@ -1,4 +1,4 @@
-unit MegaglassCubeFm;
+unit fMegaGlassCube;
 
 interface
 

Demos/bench/smoking/Smoking.dpr

@@ -10,7 +10,7 @@ program Smoking;
 
 uses
   Forms,
-  SmokingFm in 'SmokingFm.pas' {Form1};
+  fSmoking in 'fSmoking.pas' {Form1};
 
 {$R *.res}
 

Demos/bench/smoking/Smoking.dproj

@@ -123,7 +123,7 @@
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
-        <DCCReference Include="SmokingFm.pas">
+        <DCCReference Include="fSmoking.pas">
             <Form>Form1</Form>
         </DCCReference>
         <BuildConfiguration Include="Debug">

Demos/bench/smoking/SmokingFm.pas → Demos/bench/smoking/fSmoking.pas

@@ -1,4 +1,4 @@
-unit SmokingFm;
+unit fSmoking;
 
 interface
 

Demos/bench/volcano/Volcano.dpr

@@ -25,7 +25,7 @@ program Volcano;
 
 uses
   Forms,
-  VolcanoFm in 'VolcanoFm.pas' {FormVolcano};
+  fVolcano in 'fVolcano.pas' {FormVolcano};
 
 {$R *.res}
 

Demos/bench/volcano/Volcano.dproj

@@ -119,7 +119,7 @@
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
-        <DCCReference Include="VolcanoFm.pas">
+        <DCCReference Include="fVolcano.pas">
             <Form>FormVolcano</Form>
         </DCCReference>
         <BuildConfiguration Include="Debug">

Demos/bench/volcano/VolcanoFm.pas → Demos/bench/volcano/fVolcano.pas

@@ -1,4 +1,4 @@
-unit VolcanoFm;
+unit fVolcano;
 
 interface
 

Demos/bench/whirlwind/WhirlwindD.dpr → Demos/bench/whirlwind/Whirlwind.dpr

@@ -1,8 +1,8 @@
-program WhirlwindD;
+program Whirlwind;
 
 uses
   Vcl.Forms,
-  fWhirlD in 'fWhirlD.pas' {FormWhirlD};
+  fWhirl in 'fWhirl.pas' {FormWhirlD};
 
 {$R *.res}
 

Demos/bench/whirlwind/WhirlwindD.dproj → Demos/bench/whirlwind/Whirlwind.dproj

@@ -1,7 +1,7 @@
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
     <PropertyGroup>
         <ProjectGuid>{BBA25918-30E3-445F-947F-359039607BCD}</ProjectGuid>
-        <MainSource>WhirlwindD.dpr</MainSource>
+        <MainSource>Whirlwind.dpr</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
         <TargetedPlatforms>3</TargetedPlatforms>
@@ -56,7 +56,7 @@
         <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName=</VerInfo_Keys>
         <VerInfo_Locale>1049</VerInfo_Locale>
         <DCC_K>false</DCC_K>
-        <SanitizedProjectName>WhirlwindD</SanitizedProjectName>
+        <SanitizedProjectName>Whirlwind</SanitizedProjectName>
         <DCC_E>false</DCC_E>
         <DCC_N>false</DCC_N>
         <DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
@@ -123,7 +123,7 @@
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
-        <DCCReference Include="fWhirlD.pas">
+        <DCCReference Include="fWhirl.pas">
             <Form>FormWhirlD</Form>
         </DCCReference>
         <BuildConfiguration Include="Debug">
@@ -144,7 +144,7 @@
         <BorlandProject>
             <Delphi.Personality>
                 <Source>
-                    <Source Name="MainSource">WhirlwindD.dpr</Source>
+                    <Source Name="MainSource">Whirlwind.dpr</Source>
                 </Source>
                 <Excluded_Packages>
                     <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\21.0\Bpl\GLScene_Physics_DT.bpl">GLScene Physics Managers</Excluded_Packages>
@@ -160,9 +160,9 @@
                 <Platform value="Win64">True</Platform>
             </Platforms>
             <Deployment Version="3">
-                <DeployFile LocalName="Win32\Debug\WhirlwindD.exe" Configuration="Debug" Class="ProjectOutput">
+                <DeployFile LocalName="Win32\Debug\Whirlwind.exe" Configuration="Debug" Class="ProjectOutput">
                     <Platform Name="Win32">
-                        <RemoteName>WhirlwindD.exe</RemoteName>
+                        <RemoteName>Whirlwind.exe</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>

Demos/bench/whirlwind/fWhirlD.pas → Demos/bench/whirlwind/fWhirl.pas

@@ -1,4 +1,4 @@
-unit fWhirlD;
+unit fWhirl;
 
 interface
 

Demos/cgshaders/CGBombShader/CGBombShader.cbproj

@@ -1,1115 +0,0 @@
-<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-    <PropertyGroup>
-        <ProjectGuid>{A4E3012C-F239-4F92-95E0-9E18A667A067}</ProjectGuid>
-        <ProjectVersion>18.7</ProjectVersion>
-        <FrameworkType>VCL</FrameworkType>
-        <AppType>Application</AppType>
-        <MainSource>CGBombShader.cpp</MainSource>
-        <Base>True</Base>
-        <Config Condition="'$(Config)'==''">Debug</Config>
-        <Platform Condition="'$(Platform)'==''">Win32</Platform>
-        <TargetedPlatforms>1</TargetedPlatforms>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
-        <Base_Win32>true</Base_Win32>
-        <CfgParent>Base</CfgParent>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
-        <Base_Win64>true</Base_Win64>
-        <CfgParent>Base</CfgParent>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
-        <Cfg_1>true</Cfg_1>
-        <CfgParent>Base</CfgParent>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
-        <Cfg_1_Win32>true</Cfg_1_Win32>
-        <CfgParent>Cfg_1</CfgParent>
-        <Cfg_1>true</Cfg_1>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win64)'!=''">
-        <Cfg_1_Win64>true</Cfg_1_Win64>
-        <CfgParent>Cfg_1</CfgParent>
-        <Cfg_1>true</Cfg_1>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
-        <Cfg_2>true</Cfg_2>
-        <CfgParent>Base</CfgParent>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
-        <Cfg_2_Win32>true</Cfg_2_Win32>
-        <CfgParent>Cfg_2</CfgParent>
-        <Cfg_2>true</Cfg_2>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
-        <Cfg_2_Win64>true</Cfg_2_Win64>
-        <CfgParent>Cfg_2</CfgParent>
-        <Cfg_2>true</Cfg_2>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Base)'!=''">
-        <SanitizedProjectName>CGBombShader</SanitizedProjectName>
-        <Icon_MainIcon>$(BDS)\bin\cbuilder_PROJECTICON.ico</Icon_MainIcon>
-        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
-        <Multithreaded>true</Multithreaded>
-        <ProjectType>CppVCLApplication</ProjectType>
-        <AllPackageLibs>rtl.lib;vcl.lib;fmx.lib;xmlrtl.lib;vclimg.lib;GLScene_RT.lib;GLScene_Cg_RT.lib</AllPackageLibs>
-        <_TCHARMapping>wchar_t</_TCHARMapping>
-        <DCC_CBuilderOutput>JPHNE</DCC_CBuilderOutput>
-        <DynamicRTL>true</DynamicRTL>
-        <UsePackages>true</UsePackages>
-        <IntermediateOutputDir>.\$(Platform)\$(Config)</IntermediateOutputDir>
-        <FinalOutputDir>.\$(Platform)\$(Config)</FinalOutputDir>
-        <BCC_wpar>false</BCC_wpar>
-        <BCC_OptimizeForSpeed>true</BCC_OptimizeForSpeed>
-        <BCC_ExtendedErrorInfo>true</BCC_ExtendedErrorInfo>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Base_Win32)'!=''">
-        <UWP_CppLogo150>$(BDS)\bin\Artwork\Windows\UWP\cppreg_UwpDefault_150.png</UWP_CppLogo150>
-        <UWP_CppLogo44>$(BDS)\bin\Artwork\Windows\UWP\cppreg_UwpDefault_44.png</UWP_CppLogo44>
-        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
-        <VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(ModuleName);FileDescription=$(ModuleName);ProductName=$(ModuleName)</VerInfo_Keys>
-        <IncludePath>$(BDSINCLUDE)\windows\vcl;$(IncludePath)</IncludePath>
-        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
-        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
-        <PackageImports>IndyIPClient;GLScene_Sounds_RT;frx17;fs17;GLScene_Physics_RT;GLScene_Cg_RT;bindcompfmx;GR32_RSXE3;DBXSqliteDriver;vcldbx;GLScene_Physics_RT;fmx;rtl;dbrtl;DbxClientDriver;IndySystem;TeeDB;bindcomp;inetdb;inetdbbde;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapCommon;DBXOdbcDriver;DataSnapServer;Tee;GLScene_RT;DataSnapProviderClient;xmlrtl;DBXSybaseASEDriver;ibxpress;DbxCommonDriver;vclimg;GLScene_Sounds_RT;IndyProtocols;DBXMySQLDriver;dbxcds;MetropolisUILiveTile;bindengine;vclactnband;vcldb;soaprtl;bindcompdbx;vcldsnap;bindcompvcl;FMXTee;TeeUI;vclie;GR32_DSGN_RSXE3;DBXDb2Driver;vcltouch;bcbsmp;websnap;DBXOracleDriver;CustomIPTransport;vclribbon;VclSmp;dsnap;DBXInformixDriver;IndyIPServer;fmxase;vcl;DataSnapConnectors;IndyCore;GLScene_Sounds_RT;DBXMSSQLDriver;CodeSiteExpressPkg;CloudService;DBXFirebirdDriver;dsnapcon;frxDB17;inet;fsDB17;fmxobj;IndyIPCommon;FmxTeeUI;vclx;frxe17;inetdbxpress;webdsnap;DBXSybaseASADriver;fmxdae;bdertl;dbexpress;DataSnapIndy10ServerTransport;adortl;bcbie;$(PackageImports)</PackageImports>
-        <VerInfo_Locale>1033</VerInfo_Locale>
-        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Base_Win64)'!=''">
-        <UWP_CppLogo150>$(BDS)\bin\Artwork\Windows\UWP\cppreg_UwpDefault_150.png</UWP_CppLogo150>
-        <UWP_CppLogo44>$(BDS)\bin\Artwork\Windows\UWP\cppreg_UwpDefault_44.png</UWP_CppLogo44>
-        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
-        <VerInfo_Locale>1033</VerInfo_Locale>
-        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
-        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
-        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
-        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
-        <PackageImports>IndyIPClient;GLScene_Sounds_RT;frx17;fs17;GLScene_Physics_RT;GLScene_Cg_RT;bindcompfmx;GR32_RSXE3;DBXSqliteDriver;vcldbx;GLScene_Physics_RT;fmx;rtl;dbrtl;DbxClientDriver;IndySystem;TeeDB;bindcomp;inetdb;inetdbbde;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapCommon;DBXOdbcDriver;DataSnapServer;Tee;GLScene_RT;DataSnapProviderClient;xmlrtl;DBXSybaseASEDriver;ibxpress;DbxCommonDriver;vclimg;GLScene_Sounds_RT;IndyProtocols;DBXMySQLDriver;dbxcds;MetropolisUILiveTile;bindengine;vclactnband;vcldb;soaprtl;bindcompdbx;vcldsnap;bindcompvcl;FMXTee;TeeUI;vclie;GR32_DSGN_RSXE3;DBXDb2Driver;vcltouch;bcbsmp;websnap;DBXOracleDriver;CustomIPTransport;vclribbon;VclSmp;dsnap;DBXInformixDriver;IndyIPServer;fmxase;vcl;DataSnapConnectors;IndyCore;GLScene_Sounds_RT;DBXMSSQLDriver;CodeSiteExpressPkg;CloudService;DBXFirebirdDriver;dsnapcon;frxDB17;inet;fsDB17;fmxobj;IndyIPCommon;FmxTeeUI;vclx;frxe17;inetdbxpress;webdsnap;DBXSybaseASADriver;fmxdae;bdertl;dbexpress;DataSnapIndy10ServerTransport;adortl;bcbie;$(PackageImports)</PackageImports>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Cfg_1)'!=''">
-        <BCC_OptimizeForSpeed>false</BCC_OptimizeForSpeed>
-        <BCC_DisableOptimizations>true</BCC_DisableOptimizations>
-        <DCC_Optimize>false</DCC_Optimize>
-        <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
-        <BCC_InlineFunctionExpansion>false</BCC_InlineFunctionExpansion>
-        <BCC_UseRegisterVariables>None</BCC_UseRegisterVariables>
-        <DCC_Define>DEBUG</DCC_Define>
-        <BCC_DebugLineNumbers>true</BCC_DebugLineNumbers>
-        <TASM_DisplaySourceLines>true</TASM_DisplaySourceLines>
-        <BCC_StackFrames>true</BCC_StackFrames>
-        <ILINK_FullDebugInfo>true</ILINK_FullDebugInfo>
-        <TASM_Debugging>Full</TASM_Debugging>
-        <BCC_SourceDebuggingOn>true</BCC_SourceDebuggingOn>
-        <BCC_EnableCPPExceptions>true</BCC_EnableCPPExceptions>
-        <BCC_DisableFramePtrElimOpt>true</BCC_DisableFramePtrElimOpt>
-        <BCC_DisableSpellChecking>true</BCC_DisableSpellChecking>
-        <CLANG_UnwindTables>true</CLANG_UnwindTables>
-        <ILINK_LibraryPath>$(BDSLIB)\$(PLATFORM)\debug;$(ILINK_LibraryPath)</ILINK_LibraryPath>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
-        <BT_BuildType>Debug</BT_BuildType>
-        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
-        <VerInfo_Locale>1033</VerInfo_Locale>
-        <ILINK_LibraryPath>$(BDSCOMMONDIR)\Dcp;$(ILINK_LibraryPath)</ILINK_LibraryPath>
-        <Defines>_DEBUG;$(Defines)</Defines>
-        <LinkPackageImports>rtl.bpi;vcl.bpi;fmx.bpi;xmlrtl.bpi;vclimg.bpi;GLScene_RT.bpi;GLScene_Cg_RT.bpi</LinkPackageImports>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
-        <Defines>_DEBUG;$(Defines)</Defines>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Cfg_2)'!=''">
-        <TASM_Debugging>None</TASM_Debugging>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
-        <Defines>NDEBUG;$(Defines)</Defines>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
-        <Defines>NDEBUG;$(Defines)</Defines>
-    </PropertyGroup>
-    <ItemGroup>
-        <CppCompile Include="CGBombShader.cpp">
-            <BuildOrder>0</BuildOrder>
-        </CppCompile>
-        <CppCompile Include="Unit1.cpp">
-            <Form>Form1</Form>
-            <FormType>dfm</FormType>
-            <DependentOn>Unit1.h</DependentOn>
-            <BuildOrder>2</BuildOrder>
-        </CppCompile>
-        <FormResources Include="Unit1.dfm"/>
-        <BuildConfiguration Include="Release">
-            <Key>Cfg_2</Key>
-            <CfgParent>Base</CfgParent>
-        </BuildConfiguration>
-        <BuildConfiguration Include="Base">
-            <Key>Base</Key>
-        </BuildConfiguration>
-        <BuildConfiguration Include="Debug">
-            <Key>Cfg_1</Key>
-            <CfgParent>Base</CfgParent>
-        </BuildConfiguration>
-    </ItemGroup>
-    <ProjectExtensions>
-        <Borland.Personality>CPlusPlusBuilder.Personality.12</Borland.Personality>
-        <Borland.ProjectType>CppVCLApplication</Borland.ProjectType>
-        <BorlandProject>
-            <CPlusPlusBuilder.Personality>
-                <Source>
-                    <Source Name="MainSource">CGBombShader.cpp</Source>
-                </Source>
-                <VersionInfo>
-                    <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
-                    <VersionInfo Name="AutoIncBuild">False</VersionInfo>
-                    <VersionInfo Name="MajorVer">1</VersionInfo>
-                    <VersionInfo Name="MinorVer">0</VersionInfo>
-                    <VersionInfo Name="Release">0</VersionInfo>
-                    <VersionInfo Name="Build">0</VersionInfo>
-                    <VersionInfo Name="Debug">False</VersionInfo>
-                    <VersionInfo Name="PreRelease">False</VersionInfo>
-                    <VersionInfo Name="Special">False</VersionInfo>
-                    <VersionInfo Name="Private">False</VersionInfo>
-                    <VersionInfo Name="DLL">False</VersionInfo>
-                    <VersionInfo Name="Locale">1049</VersionInfo>
-                    <VersionInfo Name="CodePage">1251</VersionInfo>
-                </VersionInfo>
-                <VersionInfoKeys>
-                    <VersionInfoKeys Name="CompanyName"/>
-                    <VersionInfoKeys Name="FileDescription"/>
-                    <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
-                    <VersionInfoKeys Name="InternalName"/>
-                    <VersionInfoKeys Name="LegalCopyright"/>
-                    <VersionInfoKeys Name="LegalTrademarks"/>
-                    <VersionInfoKeys Name="OriginalFilename"/>
-                    <VersionInfoKeys Name="ProductName"/>
-                    <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
-                    <VersionInfoKeys Name="Comments"/>
-                    <VersionInfoKeys Name="CFBundleName"/>
-                    <VersionInfoKeys Name="CFBundleDisplayName"/>
-                    <VersionInfoKeys Name="CFBundleIdentifier"/>
-                    <VersionInfoKeys Name="CFBundleVersion"/>
-                    <VersionInfoKeys Name="CFBundlePackageType"/>
-                    <VersionInfoKeys Name="CFBundleSignature"/>
-                    <VersionInfoKeys Name="CFBundleAllowMixedLocalizations"/>
-                    <VersionInfoKeys Name="CFBundleExecutable"/>
-                </VersionInfoKeys>
-                <ProjectProperties>
-                    <ProjectProperties Name="AutoShowDeps">False</ProjectProperties>
-                    <ProjectProperties Name="ManagePaths">True</ProjectProperties>
-                    <ProjectProperties Name="VerifyPackages">False</ProjectProperties>
-                    <ProjectProperties Name="IndexFiles">False</ProjectProperties>
-                </ProjectProperties>
-                <Excluded_Packages>
-                    <Excluded_Packages Name="$(BDSBIN)\bcboffice2k210.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages>
-                    <Excluded_Packages Name="$(BDSBIN)\bcbofficexp210.bpl">Embarcadero C++Builder Office XP Servers Package</Excluded_Packages>
-                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k210.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
-                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp210.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
-                </Excluded_Packages>
-            </CPlusPlusBuilder.Personality>
-            <Deployment Version="3">
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin\cc32c260.dll" Class="DependencyModule">
-                    <Platform Name="Win32">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin\cc32c240mt.dll" Class="DependencyModule">
-                    <Platform Name="Win32">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin\cc32230.dll" Class="DependencyModule">
-                    <Platform Name="Win32">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin\cc32260.dll" Class="DependencyModule">
-                    <Platform Name="Win32">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin64\cc64160.dll" Class="DependencyModule">
-                    <Platform Name="Win64">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin64\cc64260mt.dll" Class="DependencyModule">
-                    <Platform Name="Win64">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin\cc32240mt.dll" Class="DependencyModule">
-                    <Platform Name="Win32">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin64\cc64240.dll" Class="DependencyModule">
-                    <Platform Name="Win64">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin64\cc64240mt.dll" Class="DependencyModule">
-                    <Platform Name="Win64">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin64\cc64230.dll" Class="DependencyModule">
-                    <Platform Name="Win64">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin\cc32c240.dll" Class="DependencyModule">
-                    <Platform Name="Win32">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin\cc32160mt.dll" Class="DependencyModule">
-                    <Platform Name="Win32">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(UsingDelphiRTL)'=='true'" LocalName="$(BDS)\bin64\borlndmm.dll" Class="DependencyModule">
-                    <Platform Name="Win64">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true'" LocalName="$(BDS)\Redist\osx32\libcgcrtl.dylib" Class="DependencyModule">
-                    <Platform Name="OSX32">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(UsingDelphiRTL)'=='true'" LocalName="$(BDS)\bin\borlndmm.dll" Class="DependencyModule">
-                    <Platform Name="Win32">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true'" LocalName="$(BDS)\Redist\osx64\libcgstl.dylib" Class="DependencyModule">
-                    <Platform Name="OSX64">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true'" LocalName="$(BDS)\Redist\osx32\libcgstl.dylib" Class="DependencyModule">
-                    <Platform Name="OSX32">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin\cc32230mt.dll" Class="DependencyModule">
-                    <Platform Name="Win32">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin\cc32260mt.dll" Class="DependencyModule">
-                    <Platform Name="Win32">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile LocalName=".\Win32\Debug\CGBombShader.exe" Configuration="Debug" Class="ProjectOutput">
-                    <Platform Name="Win32">
-                        <RemoteName>CGBombShader.exe</RemoteName>
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile LocalName=".\Win32\Debug\CGBombShader.tds" Configuration="Debug" Class="DebugSymbols">
-                    <Platform Name="Win32">
-                        <RemoteName>CGBombShader.tds</RemoteName>
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin\cc32160.dll" Class="DependencyModule">
-                    <Platform Name="Win32">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin\cc32240.dll" Class="DependencyModule">
-                    <Platform Name="Win32">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin64\cc64160mt.dll" Class="DependencyModule">
-                    <Platform Name="Win64">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin\cc32c260mt.dll" Class="DependencyModule">
-                    <Platform Name="Win32">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin64\cc64260.dll" Class="DependencyModule">
-                    <Platform Name="Win64">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin64\cc64230mt.dll" Class="DependencyModule">
-                    <Platform Name="Win64">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true'" LocalName="$(BDS)\Redist\osx64\libcgcrtl.dylib" Class="DependencyModule">
-                    <Platform Name="OSX64">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployClass Name="AdditionalDebugSymbols">
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="OSX32">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="Win32">
-                        <Operation>0</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="AndroidClassesDexFile">
-                    <Platform Name="Android">
-                        <RemoteDir>classes</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="AndroidFileProvider">
-                    <Platform Name="Android">
-                        <RemoteDir>res\xml</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="AndroidGDBServer">
-                    <Platform Name="Android">
-                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="AndroidLibnativeArmeabiFile">
-                    <Platform Name="Android">
-                        <RemoteDir>library\lib\armeabi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="AndroidLibnativeMipsFile">
-                    <Platform Name="Android">
-                        <RemoteDir>library\lib\mips</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="AndroidLibnativeX86File"/>
-                <DeployClass Name="AndroidServiceOutput">
-                    <Platform Name="Android">
-                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="AndroidSplashImageDef">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="AndroidSplashStyles">
-                    <Platform Name="Android">
-                        <RemoteDir>res\values</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="AndroidSplashStylesV21">
-                    <Platform Name="Android">
-                        <RemoteDir>res\values-v21</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_Colors">
-                    <Platform Name="Android">
-                        <RemoteDir>res\values</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_DefaultAppIcon">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_LauncherIcon144">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_LauncherIcon36">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-ldpi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_LauncherIcon48">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-mdpi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_LauncherIcon72">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-hdpi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_LauncherIcon96">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_NotificationIcon24">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-mdpi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_NotificationIcon36">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-hdpi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_NotificationIcon48">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_NotificationIcon72">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_NotificationIcon96">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_SplashImage426">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-small</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_SplashImage470">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-normal</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_SplashImage640">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-large</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_SplashImage960">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-xlarge</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_Strings">
-                    <Platform Name="Android">
-                        <RemoteDir>res\values</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="DebugSymbols">
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="OSX32">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="Win32">
-                        <Operation>0</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="DependencyFramework">
-                    <Platform Name="OSX32">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                        <Extensions>.framework</Extensions>
-                    </Platform>
-                    <Platform Name="OSX64">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                        <Extensions>.framework</Extensions>
-                    </Platform>
-                    <Platform Name="Win32">
-                        <Operation>0</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="DependencyModule">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="OSX32">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="OSX64">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="Win32">
-                        <Operation>0</Operation>
-                        <Extensions>.dll;.bpl</Extensions>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Required="true" Name="DependencyPackage">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="OSX32">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="OSX64">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="Win32">
-                        <Operation>0</Operation>
-                        <Extensions>.bpl</Extensions>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="File">
-                    <Platform Name="Android">
-                        <Operation>0</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice32">
-                        <Operation>0</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>0</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>0</Operation>
-                    </Platform>
-                    <Platform Name="OSX32">
-                        <RemoteDir>Contents\Resources\StartUp\</RemoteDir>
-                        <Operation>0</Operation>
-                    </Platform>
-                    <Platform Name="OSX64">
-                        <RemoteDir>Contents\Resources\StartUp\</RemoteDir>
-                        <Operation>0</Operation>
-                    </Platform>
-                    <Platform Name="Win32">
-                        <Operation>0</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch1024">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch1024x768">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch1536">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch1536x2048">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch1668">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch1668x2388">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch2048">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch2048x1536">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch2048x2732">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch2224">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch2388x1668">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch2732x2048">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch768">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch768x1024">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch1125">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch1136x640">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch1242">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch1242x2688">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch1334">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch1792">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch2208">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch2436">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch2688x1242">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch320">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch640">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch640x1136">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch750">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch828">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectAndroidManifest">
-                    <Platform Name="Android">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectiOSDeviceDebug">
-                    <Platform Name="iOSDevice32">
-                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectiOSDeviceResourceRules">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectiOSEntitlements">
-                    <Platform Name="iOSDevice32">
-                        <RemoteDir>..\</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <RemoteDir>..\</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectiOSInfoPList">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectiOSResource">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectOSXDebug">
-                    <Platform Name="OSX64">
-                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectOSXEntitlements">
-                    <Platform Name="OSX32">
-                        <RemoteDir>..\</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="OSX64">
-                        <RemoteDir>..\</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectOSXInfoPList">
-                    <Platform Name="OSX32">
-                        <RemoteDir>Contents</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="OSX64">
-                        <RemoteDir>Contents</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectOSXResource">
-                    <Platform Name="OSX32">
-                        <RemoteDir>Contents\Resources</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="OSX64">
-                        <RemoteDir>Contents\Resources</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Required="true" Name="ProjectOutput">
-                    <Platform Name="Android">
-                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="Linux64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="OSX32">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="OSX64">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="Win32">
-                        <Operation>0</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectUWPManifest">
-                    <Platform Name="Win32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="Win64">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="UWP_CppLogo150">
-                    <Platform Name="Win32">
-                        <RemoteDir>Assets</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="Win64">
-                        <RemoteDir>Assets</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="UWP_CppLogo44">
-                    <Platform Name="Win32">
-                        <RemoteDir>Assets</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="Win64">
-                        <RemoteDir>Assets</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
-                <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
-                <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
-                <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
-                <ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
-                <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
-                <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
-                <ProjectRoot Platform="OSX64" Name="$(PROJECTNAME).app"/>
-                <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
-            </Deployment>
-            <Platforms>
-                <Platform value="Win32">True</Platform>
-                <Platform value="Win64">False</Platform>
-            </Platforms>
-        </BorlandProject>
-        <ProjectFileVersion>12</ProjectFileVersion>
-    </ProjectExtensions>
-    <Import Project="$(BDS)\Bin\CodeGear.Cpp.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Cpp.Targets')"/>
-    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
-    <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
-</Project>

Demos/cgshaders/CGBombShader/CGBombShaderC.cpp

@@ -0,0 +1,35 @@
+//---------------------------------------------------------------------------
+
+#include <vcl.h>
+#pragma hdrstop
+#include <tchar.h>
+//---------------------------------------------------------------------------
+USEFORM("fCgBombShaderC.cpp", Form1);
+//---------------------------------------------------------------------------
+int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
+{
+	try
+	{
+		Application->Initialize();
+		Application->MainFormOnTaskBar = true;
+		Application->CreateForm(__classid(TForm1), &Form1);
+		Application->Run();
+	}
+	catch (Exception &exception)
+	{
+		Application->ShowException(&exception);
+	}
+	catch (...)
+	{
+		try
+		{
+			throw Exception("");
+		}
+		catch (Exception &exception)
+		{
+			Application->ShowException(&exception);
+		}
+	}
+	return 0;
+}
+//---------------------------------------------------------------------------

Demos/cgshaders/CGBombShader/CgBombShader.dpr

@@ -11,7 +11,7 @@ program CgBombShader;
 
 uses
   Forms,
-  CgBombShaderFm in 'CgBombShaderFm.pas' {FormCgBombShader};
+  fCgBombShader in 'fCgBombShader.pas' {FormCgBombShader};
 
 {$R *.res}
 

Demos/cgshaders/CGBombShader/CgBombShader.dproj

@@ -122,7 +122,7 @@
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
-        <DCCReference Include="CgBombShaderFm.pas">
+        <DCCReference Include="fCgBombShader.pas">
             <Form>FormCgBombShader</Form>
         </DCCReference>
         <BuildConfiguration Include="Debug">

Demos/cgshaders/CGBombShader/CgBombShaderFm.pas → Demos/cgshaders/CGBombShader/fCgBombShader.pas

@@ -1,4 +1,4 @@
-unit CgBombShaderFm;
+unit fCgBombShader;
 
 interface
 

Demos/cgshaders/CGBombShader/Unit1.cpp → Demos/cgshaders/CGBombShader/fCgBombShaderC.cpp

@@ -3,7 +3,7 @@
 #include <tchar.h>
 #pragma hdrstop
 
-#include "Unit1.h"
+#include "fCgBombShaderC.h"
 //---------------------------------------------------------------------------
 #pragma package(smart_init)
 #pragma link "GLS.BaseClasses"

Demos/cgshaders/CGBombShader/Unit1.h → Demos/cgshaders/CGBombShader/fCgBombShaderC.h

@@ -1,7 +1,7 @@
 //---------------------------------------------------------------------------
 
-#ifndef Unit1H
-#define Unit1H
+#ifndef fCgBombShaderCH
+#define fCgBombShaderCH
 //---------------------------------------------------------------------------
 #include <System.Classes.hpp>
 #include <System.Math.hpp>

Demos/cgshaders/cellshading/CgCellShader.dpr

@@ -22,7 +22,7 @@ program CgCellShader;
 
 uses
   Forms,
-  CgCellShaderFm in 'CgCellShaderFm.pas' {FormCellShading};
+  fCgCellShader in 'fCgCellShader.pas' {FormCellShading};
 
 {$R *.res}
 

Demos/cgshaders/cellshading/CgCellShader.dproj

@@ -121,7 +121,7 @@
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
-        <DCCReference Include="CgCellShaderFm.pas">
+        <DCCReference Include="fCgCellShader.pas">
             <Form>FormCellShading</Form>
         </DCCReference>
         <None Include="D:\media\Shaders\cellshading_fp.cg"/>
@@ -158,9 +158,9 @@
                 <Platform value="Win64">False</Platform>
             </Platforms>
             <Deployment Version="3">
-                <DeployFile LocalName="..\..\..\..\media\Shaders\cellshading_vp.cg" Configuration="Debug" Class="ProjectFile">
-                    <Platform Name="Win32">
-                        <RemoteDir>.\</RemoteDir>
+                <DeployFile LocalName="Win64\Debug\CgCellShader.exe" Configuration="Debug" Class="ProjectOutput">
+                    <Platform Name="Win64">
+                        <RemoteName>CgCellShader.exe</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
@@ -188,9 +188,9 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName="Win64\Debug\CgCellShader.exe" Configuration="Debug" Class="ProjectOutput">
-                    <Platform Name="Win64">
-                        <RemoteName>CgCellShader.exe</RemoteName>
+                <DeployFile LocalName="..\..\..\..\media\Shaders\cellshading_vp.cg" Configuration="Debug" Class="ProjectFile">
+                    <Platform Name="Win32">
+                        <RemoteDir>.\</RemoteDir>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>

Demos/cgshaders/cellshading/Celshading.cbproj → Demos/cgshaders/cellshading/CgCellShaderC.cbproj

@@ -4,7 +4,7 @@
         <ProjectVersion>18.7</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
         <AppType>Application</AppType>
-        <MainSource>Celshading.cpp</MainSource>
+        <MainSource>CgCellShaderC.cpp</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
@@ -58,7 +58,7 @@
         <Base>true</Base>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base)'!=''">
-        <SanitizedProjectName>Celshading</SanitizedProjectName>
+        <SanitizedProjectName>CgCellShaderC</SanitizedProjectName>
         <IncludePath>D:\GLScene\Samples\CPP\Demos\cgshaders\celshading\;$(IncludePath)</IncludePath>
         <Icon_MainIcon>$(BDS)\bin\cbuilder_PROJECTICON.ico</Icon_MainIcon>
         <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
@@ -142,18 +142,18 @@
         <Defines>NDEBUG;$(Defines)</Defines>
     </PropertyGroup>
     <ItemGroup>
-        <CppCompile Include="Celshading.cpp">
+        <CppCompile Include="CgCellShaderC.cpp">
             <BuildOrder>0</BuildOrder>
         </CppCompile>
-        <CppCompile Include="Unit1.cpp">
+        <CppCompile Include="fCelShadingC.cpp">
             <Form>Form1</Form>
             <FormType>dfm</FormType>
-            <DependentOn>Unit1.h</DependentOn>
+            <DependentOn>fCelShadingC.h</DependentOn>
             <BuildOrder>2</BuildOrder>
         </CppCompile>
         <None Include="D:\media\Shaders\cellshading_fp.cg"/>
         <None Include="D:\media\Shaders\cellshading_vp.cg"/>
-        <FormResources Include="Unit1.dfm"/>
+        <FormResources Include="fCelShadingC.dfm"/>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>
@@ -172,7 +172,7 @@
         <BorlandProject>
             <CPlusPlusBuilder.Personality>
                 <Source>
-                    <Source Name="MainSource">Celshading.cpp</Source>
+                    <Source Name="MainSource">CgCellShaderC.cpp</Source>
                 </Source>
                 <VersionInfo>
                     <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
@@ -243,12 +243,12 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin64\cc64260mt.dll" Class="DependencyModule">
+                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin64\cc64160.dll" Class="DependencyModule">
                     <Platform Name="Win64">
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin64\cc64160.dll" Class="DependencyModule">
+                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin64\cc64260mt.dll" Class="DependencyModule">
                     <Platform Name="Win64">
                         <Overwrite>true</Overwrite>
                     </Platform>
@@ -274,6 +274,12 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
+                <DeployFile LocalName="D:\media\Shaders\cellshading_vp.cg" Configuration="Debug" Class="ProjectFile">
+                    <Platform Name="Win32">
+                        <RemoteDir>.\</RemoteDir>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin64\cc64230.dll" Class="DependencyModule">
                     <Platform Name="Win64">
                         <Overwrite>true</Overwrite>
@@ -310,9 +316,9 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName=".\Win32\Debug\Celshading.tds" Configuration="Debug" Class="DebugSymbols">
+                <DeployFile LocalName=".\Win32\Debug\CgCellShaderC.tds" Configuration="Debug" Class="DebugSymbols">
                     <Platform Name="Win32">
-                        <RemoteName>Celshading.tds</RemoteName>
+                        <RemoteName>CgCellShaderC.tds</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
@@ -336,6 +342,12 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
+                <DeployFile LocalName="D:\media\Shaders\cellshading_fp.cg" Configuration="Debug" Class="ProjectFile">
+                    <Platform Name="Win32">
+                        <RemoteDir>.\</RemoteDir>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin\cc32160.dll" Class="DependencyModule">
                     <Platform Name="Win32">
                         <Overwrite>true</Overwrite>
@@ -351,9 +363,9 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName=".\Win32\Debug\Celshading.exe" Configuration="Debug" Class="ProjectOutput">
+                <DeployFile LocalName=".\Win32\Debug\CgCellShaderC.exe" Configuration="Debug" Class="ProjectOutput">
                     <Platform Name="Win32">
-                        <RemoteName>Celshading.exe</RemoteName>
+                        <RemoteName>CgCellShaderC.exe</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>

Demos/cgshaders/cellshading/CgCellShaderC.cpp

@@ -0,0 +1,35 @@
+//---------------------------------------------------------------------------
+
+#include <vcl.h>
+#pragma hdrstop
+#include <tchar.h>
+//---------------------------------------------------------------------------
+USEFORM("fCelShadingC.cpp", Form1);
+//---------------------------------------------------------------------------
+int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
+{
+	try
+	{
+		Application->Initialize();
+		Application->MainFormOnTaskBar = true;
+		Application->CreateForm(__classid(TForm1), &Form1);
+		Application->Run();
+	}
+	catch (Exception &exception)
+	{
+		Application->ShowException(&exception);
+	}
+	catch (...)
+	{
+		try
+		{
+			throw Exception("");
+		}
+		catch (Exception &exception)
+		{
+			Application->ShowException(&exception);
+		}
+	}
+	return 0;
+}
+//---------------------------------------------------------------------------

Demos/cgshaders/cellshading/CgCellShadingC.cpp

@@ -0,0 +1,35 @@
+//---------------------------------------------------------------------------
+
+#include <vcl.h>
+#pragma hdrstop
+#include <tchar.h>
+//---------------------------------------------------------------------------
+USEFORM("fCelShadingC.cpp", Form1);
+//---------------------------------------------------------------------------
+int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
+{
+	try
+	{
+		Application->Initialize();
+		Application->MainFormOnTaskBar = true;
+		Application->CreateForm(__classid(TForm1), &Form1);
+		Application->Run();
+	}
+	catch (Exception &exception)
+	{
+		Application->ShowException(&exception);
+	}
+	catch (...)
+	{
+		try
+		{
+			throw Exception("");
+		}
+		catch (Exception &exception)
+		{
+			Application->ShowException(&exception);
+		}
+	}
+	return 0;
+}
+//---------------------------------------------------------------------------

Demos/cgshaders/cellshading/Unit1.cpp → Demos/cgshaders/cellshading/fCelShadingC.cpp

@@ -4,7 +4,7 @@
 #include <tchar.h>
 #pragma hdrstop
 
-#include "Unit1.h"
+#include "fCelShadingC.h"
 //---------------------------------------------------------------------------
 #pragma package(smart_init)
 #pragma link "GLS.AsyncTimer"

Demos/cgshaders/cellshading/Unit1.h → Demos/cgshaders/cellshading/fCelShadingC.h

@@ -1,7 +1,7 @@
 //---------------------------------------------------------------------------
 
-#ifndef Unit1H
-#define Unit1H
+#ifndef fCelShadingCH
+#define fCelShadingCH
 //---------------------------------------------------------------------------
 #include <System.Classes.hpp>
 #include <Vcl.Controls.hpp>

Demos/cgshaders/cellshading/CgCellShaderFm.pas → Demos/cgshaders/cellshading/fCgCellShader.pas

@@ -1,4 +1,4 @@
-unit CgCellShaderFm;
+unit fCgCellShader;
 
 interface
 

Demos/cgshaders/cgshaders.groupproj

@@ -3,16 +3,28 @@
         <ProjectGuid>{18365A3F-D138-4D4B-BF35-F39B0AAA8663}</ProjectGuid>
     </PropertyGroup>
     <ItemGroup>
-        <Projects Include="celshading\Celshading.cbproj">
+        <Projects Include="cellshading\CgCellShader.dproj">
             <Dependencies/>
         </Projects>
-        <Projects Include="CGBombShader\CGBombShader.cbproj">
+        <Projects Include="cellshading\CgCellShaderC.cbproj">
             <Dependencies/>
         </Projects>
-        <Projects Include="simple\CgSimple.cbproj">
+        <Projects Include="CGBombShader\CgBombShader.dproj">
             <Dependencies/>
         </Projects>
-        <Projects Include="texturing\Texturing.cbproj">
+        <Projects Include="CGBombShader\CGBombShaderC.cbproj">
+            <Dependencies/>
+        </Projects>
+        <Projects Include="simple\CgSimple.dproj">
+            <Dependencies/>
+        </Projects>
+        <Projects Include="simple\CgSimpleC.cbproj">
+            <Dependencies/>
+        </Projects>
+        <Projects Include="texturing\CgTextureC.cbproj">
+            <Dependencies/>
+        </Projects>
+        <Projects Include="texturing\CgTexture.dproj">
             <Dependencies/>
         </Projects>
     </ItemGroup>
@@ -23,50 +35,86 @@
             <Default.Personality/>
         </BorlandProject>
     </ProjectExtensions>
-    <Target Name="Celshading">
-        <MSBuild Projects="celshading\Celshading.cbproj"/>
+    <Target Name="CgCellShader">
+        <MSBuild Projects="cellshading\CgCellShader.dproj"/>
+    </Target>
+    <Target Name="CgCellShader:Clean">
+        <MSBuild Projects="cellshading\CgCellShader.dproj" Targets="Clean"/>
+    </Target>
+    <Target Name="CgCellShader:Make">
+        <MSBuild Projects="cellshading\CgCellShader.dproj" Targets="Make"/>
     </Target>
-    <Target Name="Celshading:Clean">
-        <MSBuild Projects="celshading\Celshading.cbproj" Targets="Clean"/>
+    <Target Name="CgCellShaderC">
+        <MSBuild Projects="cellshading\CgCellShaderC.cbproj"/>
     </Target>
-    <Target Name="Celshading:Make">
-        <MSBuild Projects="celshading\Celshading.cbproj" Targets="Make"/>
+    <Target Name="CgCellShaderC:Clean">
+        <MSBuild Projects="cellshading\CgCellShaderC.cbproj" Targets="Clean"/>
     </Target>
-    <Target Name="CGBombShader">
-        <MSBuild Projects="CGBombShader\CGBombShader.cbproj"/>
+    <Target Name="CgCellShaderC:Make">
+        <MSBuild Projects="cellshading\CgCellShaderC.cbproj" Targets="Make"/>
     </Target>
-    <Target Name="CGBombShader:Clean">
-        <MSBuild Projects="CGBombShader\CGBombShader.cbproj" Targets="Clean"/>
+    <Target Name="CgBombShader">
+        <MSBuild Projects="CGBombShader\CgBombShader.dproj"/>
     </Target>
-    <Target Name="CGBombShader:Make">
-        <MSBuild Projects="CGBombShader\CGBombShader.cbproj" Targets="Make"/>
+    <Target Name="CgBombShader:Clean">
+        <MSBuild Projects="CGBombShader\CgBombShader.dproj" Targets="Clean"/>
+    </Target>
+    <Target Name="CgBombShader:Make">
+        <MSBuild Projects="CGBombShader\CgBombShader.dproj" Targets="Make"/>
+    </Target>
+    <Target Name="CGBombShaderC">
+        <MSBuild Projects="CGBombShader\CGBombShaderC.cbproj"/>
+    </Target>
+    <Target Name="CGBombShaderC:Clean">
+        <MSBuild Projects="CGBombShader\CGBombShaderC.cbproj" Targets="Clean"/>
+    </Target>
+    <Target Name="CGBombShaderC:Make">
+        <MSBuild Projects="CGBombShader\CGBombShaderC.cbproj" Targets="Make"/>
     </Target>
     <Target Name="CgSimple">
-        <MSBuild Projects="simple\CgSimple.cbproj"/>
+        <MSBuild Projects="simple\CgSimple.dproj"/>
     </Target>
     <Target Name="CgSimple:Clean">
-        <MSBuild Projects="simple\CgSimple.cbproj" Targets="Clean"/>
+        <MSBuild Projects="simple\CgSimple.dproj" Targets="Clean"/>
     </Target>
     <Target Name="CgSimple:Make">
-        <MSBuild Projects="simple\CgSimple.cbproj" Targets="Make"/>
+        <MSBuild Projects="simple\CgSimple.dproj" Targets="Make"/>
+    </Target>
+    <Target Name="CgSimpleC">
+        <MSBuild Projects="simple\CgSimpleC.cbproj"/>
+    </Target>
+    <Target Name="CgSimpleC:Clean">
+        <MSBuild Projects="simple\CgSimpleC.cbproj" Targets="Clean"/>
+    </Target>
+    <Target Name="CgSimpleC:Make">
+        <MSBuild Projects="simple\CgSimpleC.cbproj" Targets="Make"/>
+    </Target>
+    <Target Name="CgTextureC">
+        <MSBuild Projects="texturing\CgTextureC.cbproj"/>
+    </Target>
+    <Target Name="CgTextureC:Clean">
+        <MSBuild Projects="texturing\CgTextureC.cbproj" Targets="Clean"/>
+    </Target>
+    <Target Name="CgTextureC:Make">
+        <MSBuild Projects="texturing\CgTextureC.cbproj" Targets="Make"/>
     </Target>
-    <Target Name="Texturing">
-        <MSBuild Projects="texturing\Texturing.cbproj"/>
+    <Target Name="CgTexture">
+        <MSBuild Projects="texturing\CgTexture.dproj"/>
     </Target>
-    <Target Name="Texturing:Clean">
-        <MSBuild Projects="texturing\Texturing.cbproj" Targets="Clean"/>
+    <Target Name="CgTexture:Clean">
+        <MSBuild Projects="texturing\CgTexture.dproj" Targets="Clean"/>
     </Target>
-    <Target Name="Texturing:Make">
-        <MSBuild Projects="texturing\Texturing.cbproj" Targets="Make"/>
+    <Target Name="CgTexture:Make">
+        <MSBuild Projects="texturing\CgTexture.dproj" Targets="Make"/>
     </Target>
     <Target Name="Build">
-        <CallTarget Targets="Celshading;CGBombShader;CgSimple;Texturing"/>
+        <CallTarget Targets="CgCellShader;CgCellShaderC;CgBombShader;CGBombShaderC;CgSimple;CgSimpleC;CgTextureC;CgTexture"/>
     </Target>
     <Target Name="Clean">
-        <CallTarget Targets="Celshading:Clean;CGBombShader:Clean;CgSimple:Clean;Texturing:Clean"/>
+        <CallTarget Targets="CgCellShader:Clean;CgCellShaderC:Clean;CgBombShader:Clean;CGBombShaderC:Clean;CgSimple:Clean;CgSimpleC:Clean;CgTextureC:Clean;CgTexture:Clean"/>
     </Target>
     <Target Name="Make">
-        <CallTarget Targets="Celshading:Make;CGBombShader:Make;CgSimple:Make;Texturing:Make"/>
+        <CallTarget Targets="CgCellShader:Make;CgCellShaderC:Make;CgBombShader:Make;CGBombShaderC:Make;CgSimple:Make;CgSimpleC:Make;CgTextureC:Make;CgTexture:Make"/>
     </Target>
     <Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
 </Project>

Demos/cgshaders/simple/CgSimple.dpr

@@ -11,7 +11,7 @@ program CgSimple;
 
 uses
   Forms,
-  CgSimpleFm in 'CgSimpleFm.pas' {FormCgSimple};
+  fCgSimple in 'fCgSimple.pas' {FormCgSimple};
 
 {$R *.res}
 

Demos/cgshaders/simple/CgSimple.dproj

@@ -122,7 +122,7 @@
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
-        <DCCReference Include="CgSimpleFm.pas">
+        <DCCReference Include="fCgSimple.pas">
             <Form>FormCgSimple</Form>
         </DCCReference>
         <None Include="..\..\..\media\Shaders\Simple_fp.cg"/>
@@ -159,19 +159,19 @@
                 <Platform value="Win64">False</Platform>
             </Platforms>
             <Deployment Version="3">
-                <DeployFile LocalName="..\..\..\media\Shaders\Simple_fp.cg" Configuration="Debug" Class="ProjectFile">
+                <DeployFile LocalName="Win32\Debug\CgSimple.exe" Configuration="Debug" Class="ProjectOutput">
                     <Platform Name="Win32">
-                        <RemoteDir>.\</RemoteDir>
+                        <RemoteName>CgSimple.exe</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName="Win32\Debug\CgSimple.exe" Configuration="Debug" Class="ProjectOutput">
+                <DeployFile LocalName="..\..\..\media\Shaders\Simple_vp.cg" Configuration="Debug" Class="ProjectFile">
                     <Platform Name="Win32">
-                        <RemoteName>CgSimple.exe</RemoteName>
+                        <RemoteDir>.\</RemoteDir>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName="..\..\..\media\Shaders\Simple_vp.cg" Configuration="Debug" Class="ProjectFile">
+                <DeployFile LocalName="..\..\..\media\Shaders\Simple_fp.cg" Configuration="Debug" Class="ProjectFile">
                     <Platform Name="Win32">
                         <RemoteDir>.\</RemoteDir>
                         <Overwrite>true</Overwrite>

Demos/cgshaders/simple/CgSimple.cbproj → Demos/cgshaders/simple/CgSimpleC.cbproj

@@ -4,7 +4,7 @@
         <ProjectVersion>18.7</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
         <AppType>Application</AppType>
-        <MainSource>CgSimple.cpp</MainSource>
+        <MainSource>CgSimpleC.cpp</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
@@ -58,7 +58,7 @@
         <Base>true</Base>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base)'!=''">
-        <SanitizedProjectName>CgSimple</SanitizedProjectName>
+        <SanitizedProjectName>CgSimpleC</SanitizedProjectName>
         <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
         <IncludePath>D:\GLScene\Samples\CPP\Demos\cgshaders\simple\;$(IncludePath)</IncludePath>
         <AllPackageLibs>rtl.lib;vcl.lib;fmx.lib;xmlrtl.lib;vclimg.lib;GLScene_RT.lib;GLScene_Cg_RT.lib</AllPackageLibs>
@@ -141,18 +141,18 @@
         <Defines>NDEBUG;$(Defines)</Defines>
     </PropertyGroup>
     <ItemGroup>
-        <CppCompile Include="CgSimple.cpp">
+        <CppCompile Include="CgSimpleC.cpp">
             <BuildOrder>0</BuildOrder>
         </CppCompile>
-        <CppCompile Include="Unit1.cpp">
+        <CppCompile Include="fCgSimpleC.cpp">
             <Form>Form1</Form>
             <FormType>dfm</FormType>
-            <DependentOn>Unit1.h</DependentOn>
+            <DependentOn>fCgSimpleC.h</DependentOn>
             <BuildOrder>2</BuildOrder>
         </CppCompile>
-        <None Include="..\..\..\..\media\Shaders\Simple_fp.cg"/>
-        <None Include="..\..\..\..\media\Shaders\Simple_vp.cg"/>
-        <FormResources Include="Unit1.dfm"/>
+        <None Include="D:\media\Shaders\Simple_fp.cg"/>
+        <None Include="D:\media\Shaders\Simple_vp.cg"/>
+        <FormResources Include="fCgSimpleC.dfm"/>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>
@@ -171,7 +171,7 @@
         <BorlandProject>
             <CPlusPlusBuilder.Personality>
                 <Source>
-                    <Source Name="MainSource">CgSimple.cpp</Source>
+                    <Source Name="MainSource">CgSimpleC.cpp</Source>
                 </Source>
                 <VersionInfo>
                     <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
@@ -274,6 +274,12 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
+                <DeployFile LocalName="D:\media\Shaders\Simple_fp.cg" Configuration="Debug" Class="ProjectFile">
+                    <Platform Name="Win32">
+                        <RemoteDir>.\</RemoteDir>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin64\cc64230.dll" Class="DependencyModule">
                     <Platform Name="Win64">
                         <Overwrite>true</Overwrite>
@@ -289,9 +295,9 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName=".\CgSimple.exe" Configuration="Debug" Class="ProjectOutput">
+                <DeployFile LocalName=".\CgSimpleC.exe" Configuration="Debug" Class="ProjectOutput">
                     <Platform Name="Win32">
-                        <RemoteName>CgSimple.exe</RemoteName>
+                        <RemoteName>CgSimpleC.exe</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
@@ -315,9 +321,9 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName=".\CgSimple.tds" Configuration="Debug" Class="DebugSymbols">
+                <DeployFile LocalName=".\CgSimpleC.tds" Configuration="Debug" Class="DebugSymbols">
                     <Platform Name="Win32">
-                        <RemoteName>CgSimple.tds</RemoteName>
+                        <RemoteName>CgSimpleC.tds</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
@@ -336,6 +342,12 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
+                <DeployFile LocalName="D:\media\Shaders\Simple_vp.cg" Configuration="Debug" Class="ProjectFile">
+                    <Platform Name="Win32">
+                        <RemoteDir>.\</RemoteDir>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin\cc32160.dll" Class="DependencyModule">
                     <Platform Name="Win32">
                         <Overwrite>true</Overwrite>

Demos/cgshaders/simple/CgSimpleC.cpp

@@ -0,0 +1,35 @@
+//---------------------------------------------------------------------------
+
+#include <vcl.h>
+#pragma hdrstop
+#include <tchar.h>
+//---------------------------------------------------------------------------
+USEFORM("fCgSimpleC.cpp", Form1);
+//---------------------------------------------------------------------------
+int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
+{
+	try
+	{
+		Application->Initialize();
+		Application->MainFormOnTaskBar = true;
+		Application->CreateForm(__classid(TForm1), &Form1);
+		Application->Run();
+	}
+	catch (Exception &exception)
+	{
+		Application->ShowException(&exception);
+	}
+	catch (...)
+	{
+		try
+		{
+			throw Exception("");
+		}
+		catch (Exception &exception)
+		{
+			Application->ShowException(&exception);
+		}
+	}
+	return 0;
+}
+//---------------------------------------------------------------------------

Demos/cgshaders/simple/CgSimpleFm.dfm → Demos/cgshaders/simple/fCgSimple.dfm

@@ -51,10 +51,6 @@ object FormCgSimple: TFormCgSimple
       TabOrder = 0
       object TabSheet1: TTabSheet
         Caption = 'Vertex Program'
-        ExplicitLeft = 0
-        ExplicitTop = 0
-        ExplicitWidth = 0
-        ExplicitHeight = 0
         object Splitter3: TSplitter
           Left = 0
           Top = 301

Demos/cgshaders/simple/CgSimpleFm.pas → Demos/cgshaders/simple/fCgSimple.pas

@@ -1,4 +1,4 @@
-unit CgSimpleFm;
+unit fCgSimple;
 
 interface
 

Demos/cgshaders/simple/Unit1.cpp → Demos/cgshaders/simple/fCgSimpleC.cpp

@@ -4,7 +4,7 @@
 #include <tchar.h>
 #pragma hdrstop
 
-#include "Unit1.h"
+#include "fCgSimpleC.h"
 //---------------------------------------------------------------------------
 #pragma package(smart_init)
 #pragma link "GLS.BaseClasses"

Demos/cgshaders/simple/Unit1.dfm → Demos/cgshaders/simple/fCgSimpleC.dfm

@@ -50,6 +50,10 @@ object Form1: TForm1
       TabOrder = 0
       object TabSheet1: TTabSheet
         Caption = 'Vertex Program'
+        ExplicitLeft = 0
+        ExplicitTop = 0
+        ExplicitWidth = 0
+        ExplicitHeight = 0
         object Splitter3: TSplitter
           Left = 0
           Top = 283
@@ -214,6 +218,10 @@ object Form1: TForm1
       object TabSheet2: TTabSheet
         Caption = 'Fragment Program'
         ImageIndex = 1
+        ExplicitLeft = 0
+        ExplicitTop = 0
+        ExplicitWidth = 0
+        ExplicitHeight = 0
         object Splitter2: TSplitter
           Left = 0
           Top = 283

Demos/cgshaders/simple/Unit1.h → Demos/cgshaders/simple/fCgSimpleC.h

@@ -1,7 +1,7 @@
 //---------------------------------------------------------------------------
 
-#ifndef Unit1H
-#define Unit1H
+#ifndef fCgSimpleCH
+#define fCgSimpleCH
 //---------------------------------------------------------------------------
 #include <System.Classes.hpp>
 #include <Vcl.Controls.hpp>

Demos/cgshaders/texturing/CgTexture.dpr

@@ -11,7 +11,7 @@ program CgTexture;
 
 uses
   Forms,
-  CgTextureFm in 'CgTextureFm.pas' {FormCgTexture};
+  fCgTexture in 'fCgTexture.pas' {FormCgTexture};
 
 {$R *.res}
 

Demos/cgshaders/texturing/CgTexture.dproj

@@ -124,7 +124,7 @@
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
-        <DCCReference Include="CgTextureFm.pas">
+        <DCCReference Include="fCgTexture.pas">
             <Form>FormCgTexture</Form>
         </DCCReference>
         <None Include="..\..\..\media\Shaders\cg_texture_fp.cg"/>

Demos/cgshaders/texturing/Texturing.cbproj → Demos/cgshaders/texturing/CgTextureC.cbproj

@@ -4,7 +4,7 @@
         <ProjectVersion>18.7</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
         <AppType>Application</AppType>
-        <MainSource>Texturing.cpp</MainSource>
+        <MainSource>CgTextureC.cpp</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
@@ -58,7 +58,7 @@
         <Base>true</Base>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base)'!=''">
-        <SanitizedProjectName>Texturing</SanitizedProjectName>
+        <SanitizedProjectName>CgTextureC</SanitizedProjectName>
         <IncludePath>D:\GLScene\Samples\CPP\Demos\cgshaders\texturing\;$(IncludePath)</IncludePath>
         <Icon_MainIcon>$(BDS)\bin\cbuilder_PROJECTICON.ico</Icon_MainIcon>
         <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
@@ -143,18 +143,18 @@
         <Defines>NDEBUG;$(Defines)</Defines>
     </PropertyGroup>
     <ItemGroup>
-        <CppCompile Include="Texturing.cpp">
+        <CppCompile Include="CgTextureC.cpp">
             <BuildOrder>0</BuildOrder>
         </CppCompile>
-        <CppCompile Include="Unit1.cpp">
+        <CppCompile Include="fCgTextureC.cpp">
             <Form>Form1</Form>
             <FormType>dfm</FormType>
-            <DependentOn>Unit1.h</DependentOn>
+            <DependentOn>fCgTextureC.h</DependentOn>
             <BuildOrder>2</BuildOrder>
         </CppCompile>
-        <None Include="..\..\..\..\media\Shaders\cg_texture_fp.cg"/>
-        <None Include="..\..\..\..\media\Shaders\cg_texture_vp.cg"/>
-        <FormResources Include="Unit1.dfm"/>
+        <None Include="D:\media\Shaders\cg_texture_fp.cg"/>
+        <None Include="D:\media\Shaders\cg_texture_vp.cg"/>
+        <FormResources Include="fCgTextureC.dfm"/>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>
@@ -173,7 +173,7 @@
         <BorlandProject>
             <CPlusPlusBuilder.Personality>
                 <Source>
-                    <Source Name="MainSource">Texturing.cpp</Source>
+                    <Source Name="MainSource">CgTextureC.cpp</Source>
                 </Source>
                 <VersionInfo>
                     <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
@@ -249,9 +249,9 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName=".\Texturing.exe" Configuration="Debug" Class="ProjectOutput">
+                <DeployFile LocalName=".\CgTextureC.exe" Configuration="Debug" Class="ProjectOutput">
                     <Platform Name="Win32">
-                        <RemoteName>Texturing.exe</RemoteName>
+                        <RemoteName>CgTextureC.exe</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
@@ -275,9 +275,9 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName=".\Texturing.tds" Configuration="Debug" Class="DebugSymbols">
+                <DeployFile LocalName=".\CgTextureC.tds" Configuration="Debug" Class="DebugSymbols">
                     <Platform Name="Win32">
-                        <RemoteName>Texturing.tds</RemoteName>
+                        <RemoteName>CgTextureC.tds</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
@@ -291,6 +291,12 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
+                <DeployFile LocalName="D:\media\Shaders\cg_texture_fp.cg" Configuration="Debug" Class="ProjectFile">
+                    <Platform Name="Win32">
+                        <RemoteDir>.\</RemoteDir>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin\cc32160mt.dll" Class="DependencyModule">
                     <Platform Name="Win32">
                         <Overwrite>true</Overwrite>
@@ -368,6 +374,12 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
+                <DeployFile LocalName="D:\media\Shaders\cg_texture_vp.cg" Configuration="Debug" Class="ProjectFile">
+                    <Platform Name="Win32">
+                        <RemoteDir>.\</RemoteDir>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin64\cc64230mt.dll" Class="DependencyModule">
                     <Platform Name="Win64">
                         <Overwrite>true</Overwrite>

Demos/cgshaders/texturing/CgTextureC.cpp

@@ -0,0 +1,35 @@
+//---------------------------------------------------------------------------
+
+#include <vcl.h>
+#pragma hdrstop
+#include <tchar.h>
+//---------------------------------------------------------------------------
+USEFORM("fCgTextureC.cpp", Form1);
+//---------------------------------------------------------------------------
+int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
+{
+	try
+	{
+		Application->Initialize();
+		Application->MainFormOnTaskBar = true;
+		Application->CreateForm(__classid(TForm1), &Form1);
+		Application->Run();
+	}
+	catch (Exception &exception)
+	{
+		Application->ShowException(&exception);
+	}
+	catch (...)
+	{
+		try
+		{
+			throw Exception("");
+		}
+		catch (Exception &exception)
+		{
+			Application->ShowException(&exception);
+		}
+	}
+	return 0;
+}
+//---------------------------------------------------------------------------

Demos/cgshaders/texturing/CgTextureFm.dfm → Demos/cgshaders/texturing/fCgTexture.dfm

@@ -34,7 +34,6 @@ object FormCgTexture: TFormCgTexture
     BevelInner = bvRaised
     BevelOuter = bvLowered
     TabOrder = 0
-    ExplicitHeight = 395
     object PageControl1: TPageControl
       Left = 2
       Top = 2
@@ -49,9 +48,11 @@ object FormCgTexture: TFormCgTexture
       Font.Style = []
       ParentFont = False
       TabOrder = 0
-      ExplicitHeight = 391
       object TabSheet1: TTabSheet
         Caption = 'Vertex Program'
+        ExplicitLeft = 0
+        ExplicitTop = 0
+        ExplicitWidth = 0
         ExplicitHeight = 363
         object Splitter3: TSplitter
           Left = 0
@@ -223,6 +224,9 @@ object FormCgTexture: TFormCgTexture
       object TabSheet2: TTabSheet
         Caption = 'Fragment Program'
         ImageIndex = 1
+        ExplicitLeft = 0
+        ExplicitTop = 0
+        ExplicitWidth = 0
         ExplicitHeight = 363
         object Splitter2: TSplitter
           Left = 0
@@ -388,7 +392,6 @@ object FormCgTexture: TFormCgTexture
       object TabSheet3: TTabSheet
         Caption = 'Controls'
         ImageIndex = 2
-        ExplicitHeight = 363
         DesignSize = (
           301
           289)
@@ -672,8 +675,6 @@ object FormCgTexture: TFormCgTexture
     Font.Style = [fsBold]
     ParentFont = False
     TabOrder = 1
-    ExplicitWidth = 626
-    ExplicitHeight = 395
     object PanelFPS: TPanel
       Left = 1
       Top = 1
@@ -688,7 +689,6 @@ object FormCgTexture: TFormCgTexture
       Font.Style = []
       ParentFont = False
       TabOrder = 0
-      ExplicitWidth = 624
     end
     object GLSceneViewer1: TGLSceneViewer
       Left = 1
@@ -704,8 +704,6 @@ object FormCgTexture: TFormCgTexture
       OnMouseDown = GLSceneViewer1MouseDown
       OnMouseMove = GLSceneViewer1MouseMove
       TabOrder = 1
-      ExplicitWidth = 397
-      ExplicitHeight = 294
     end
   end
   object GLScene1: TGLScene

Demos/cgshaders/texturing/CgTextureFm.pas → Demos/cgshaders/texturing/fCgTexture.pas

@@ -1,4 +1,4 @@
-unit CgTextureFm;
+unit fCgTexture;
 
 interface
 

Demos/cgshaders/texturing/Unit1.cpp → Demos/cgshaders/texturing/fCgTextureC.cpp

@@ -4,7 +4,7 @@
 #include <tchar.h>
 #pragma hdrstop
 
-#include "Unit1.h"
+#include "fCgTextureC.h"
 //---------------------------------------------------------------------------
 #pragma package(smart_init)
 #pragma link "GLS.BaseClasses"

Demos/cgshaders/texturing/Unit1.dfm → Demos/cgshaders/texturing/fCgTextureC.dfm

@@ -50,6 +50,10 @@ object Form1: TForm1
       TabOrder = 0
       object TabSheet1: TTabSheet
         Caption = 'Vertex Program'
+        ExplicitLeft = 0
+        ExplicitTop = 0
+        ExplicitWidth = 0
+        ExplicitHeight = 0
         object Splitter3: TSplitter
           Left = 0
           Top = 289
@@ -216,6 +220,10 @@ object Form1: TForm1
       object TabSheet2: TTabSheet
         Caption = 'Fragment Program'
         ImageIndex = 1
+        ExplicitLeft = 0
+        ExplicitTop = 0
+        ExplicitWidth = 0
+        ExplicitHeight = 0
         object Splitter2: TSplitter
           Left = 0
           Top = 289
@@ -376,6 +384,10 @@ object Form1: TForm1
       object TabSheet3: TTabSheet
         Caption = 'Controls'
         ImageIndex = 2
+        ExplicitLeft = 0
+        ExplicitTop = 0
+        ExplicitWidth = 0
+        ExplicitHeight = 0
         DesignSize = (
           301
           382)

Demos/cgshaders/texturing/Unit1.h → Demos/cgshaders/texturing/fCgTextureC.h

@@ -1,7 +1,7 @@
 //---------------------------------------------------------------------------
 
-#ifndef Unit1H
-#define Unit1H
+#ifndef fCgTextureCH
+#define fCgTextureCH
 //---------------------------------------------------------------------------
 #include <System.Classes.hpp>
 #include <Vcl.Controls.hpp>

Demos/cgshaders/texturing/fTexturingC.dfm

@@ -0,0 +1,788 @@
+object Form1: TForm1
+  Left = 0
+  Top = 0
+  Caption = 'Cg Multi Texturing'
+  ClientHeight = 414
+  ClientWidth = 995
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  OnKeyPress = FormKeyPress
+  OnMouseWheel = FormMouseWheel
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Splitter1: TSplitter
+    Left = 313
+    Top = 0
+    Height = 414
+    Color = clBtnShadow
+    ParentColor = False
+    ExplicitTop = -4
+    ExplicitHeight = 395
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 313
+    Height = 414
+    Align = alLeft
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 0
+    object PageControl1: TPageControl
+      Left = 2
+      Top = 2
+      Width = 309
+      Height = 410
+      ActivePage = TabSheet3
+      Align = alClient
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 0
+      object TabSheet1: TTabSheet
+        Caption = 'Vertex Program'
+        ExplicitLeft = 0
+        ExplicitTop = 0
+        ExplicitWidth = 0
+        ExplicitHeight = 0
+        object Splitter3: TSplitter
+          Left = 0
+          Top = 289
+          Width = 301
+          Height = 3
+          Cursor = crVSplit
+          Align = alBottom
+          Color = clBtnShadow
+          ParentColor = False
+          ExplicitTop = 276
+        end
+        object Panel2: TPanel
+          Left = 0
+          Top = 0
+          Width = 301
+          Height = 25
+          Align = alTop
+          BevelOuter = bvNone
+          TabOrder = 0
+          object LabelVertProfile: TLabel
+            Left = 88
+            Top = 5
+            Width = 63
+            Height = 13
+            Caption = 'Using profile:'
+          end
+          object CBVertexProgram: TCheckBox
+            Left = 6
+            Top = 4
+            Width = 59
+            Height = 17
+            Caption = 'Enabled'
+            Checked = True
+            Font.Charset = ANSI_CHARSET
+            Font.Color = clWindowText
+            Font.Height = -11
+            Font.Name = 'Tahoma'
+            Font.Style = []
+            ParentFont = False
+            State = cbChecked
+            TabOrder = 0
+            OnClick = CBVertexProgramClick
+          end
+        end
+        object Panel11: TPanel
+          Left = 0
+          Top = 25
+          Width = 301
+          Height = 264
+          Align = alClient
+          Caption = 'Panel6'
+          TabOrder = 1
+          object Panel12: TPanel
+            Left = 1
+            Top = 1
+            Width = 299
+            Height = 16
+            Align = alTop
+            BevelOuter = bvNone
+            Caption = 'Shader Code'
+            Color = clBtnHighlight
+            TabOrder = 0
+          end
+          object MemoVertCode: TMemo
+            Left = 1
+            Top = 17
+            Width = 299
+            Height = 221
+            Align = alClient
+            Font.Charset = ANSI_CHARSET
+            Font.Color = clWindowText
+            Font.Height = -11
+            Font.Name = 'Lucida Console'
+            Font.Style = []
+            ParentFont = False
+            ScrollBars = ssBoth
+            TabOrder = 1
+            WordWrap = False
+            OnChange = MemoVertCodeChange
+          end
+          object Panel13: TPanel
+            Left = 1
+            Top = 238
+            Width = 299
+            Height = 25
+            Align = alBottom
+            BevelOuter = bvNone
+            TabOrder = 2
+            DesignSize = (
+              299
+              25)
+            object ButtonApplyVP: TButton
+              Left = 224
+              Top = 2
+              Width = 67
+              Height = 20
+              Anchors = [akTop, akRight]
+              Caption = 'Apply'
+              Enabled = False
+              TabOrder = 0
+              OnClick = ButtonApplyVPClick
+            end
+          end
+        end
+        object Panel5: TPanel
+          Left = 0
+          Top = 292
+          Width = 301
+          Height = 90
+          Align = alBottom
+          TabOrder = 2
+          DesignSize = (
+            301
+            90)
+          object Label2: TLabel
+            Left = 228
+            Top = 5
+            Width = 30
+            Height = 13
+            Anchors = [akTop, akRight]
+            Caption = 'Show:'
+          end
+          object Memo1: TMemo
+            Left = 1
+            Top = 1
+            Width = 216
+            Height = 88
+            Align = alLeft
+            Anchors = [akLeft, akTop, akRight, akBottom]
+            Color = clBtnFace
+            Font.Charset = ANSI_CHARSET
+            Font.Color = clWindowText
+            Font.Height = -9
+            Font.Name = 'Lucida Console'
+            Font.Style = []
+            ParentFont = False
+            ReadOnly = True
+            ScrollBars = ssBoth
+            TabOrder = 0
+            WordWrap = False
+          end
+          object Button1: TButton
+            Left = 226
+            Top = 21
+            Width = 64
+            Height = 18
+            Anchors = [akTop, akRight]
+            Caption = 'Params'
+            TabOrder = 1
+            OnClick = Button1Click
+          end
+          object Button4: TButton
+            Left = 226
+            Top = 42
+            Width = 64
+            Height = 18
+            Anchors = [akTop, akRight]
+            Caption = 'Asm'
+            TabOrder = 2
+            OnClick = Button4Click
+          end
+        end
+      end
+      object TabSheet2: TTabSheet
+        Caption = 'Fragment Program'
+        ImageIndex = 1
+        ExplicitLeft = 0
+        ExplicitTop = 0
+        ExplicitWidth = 0
+        ExplicitHeight = 0
+        object Splitter2: TSplitter
+          Left = 0
+          Top = 289
+          Width = 301
+          Height = 3
+          Cursor = crVSplit
+          Align = alBottom
+          Color = clBtnShadow
+          ParentColor = False
+          ExplicitTop = 287
+        end
+        object Panel4: TPanel
+          Left = 0
+          Top = 0
+          Width = 301
+          Height = 25
+          Align = alTop
+          BevelOuter = bvNone
+          TabOrder = 0
+          object LabelFragProfile: TLabel
+            Left = 88
+            Top = 5
+            Width = 63
+            Height = 13
+            Caption = 'Using profile:'
+          end
+          object CBFragmentProgram: TCheckBox
+            Left = 6
+            Top = 4
+            Width = 67
+            Height = 17
+            Caption = 'Enabled'
+            Checked = True
+            State = cbChecked
+            TabOrder = 0
+            OnClick = CBFragmentProgramClick
+          end
+        end
+        object Panel6: TPanel
+          Left = 0
+          Top = 25
+          Width = 301
+          Height = 264
+          Align = alClient
+          Caption = 'Panel6'
+          TabOrder = 1
+          object Panel7: TPanel
+            Left = 1
+            Top = 1
+            Width = 299
+            Height = 16
+            Align = alTop
+            BevelOuter = bvNone
+            Caption = 'Shader Code'
+            Color = clBtnHighlight
+            TabOrder = 0
+          end
+          object MemoFragCode: TMemo
+            Left = 1
+            Top = 17
+            Width = 299
+            Height = 221
+            Align = alClient
+            Font.Charset = ANSI_CHARSET
+            Font.Color = clWindowText
+            Font.Height = -11
+            Font.Name = 'Lucida Console'
+            Font.Style = []
+            ParentFont = False
+            ScrollBars = ssBoth
+            TabOrder = 1
+            WordWrap = False
+            OnChange = MemoFragCodeChange
+          end
+          object Panel3: TPanel
+            Left = 1
+            Top = 238
+            Width = 299
+            Height = 25
+            Align = alBottom
+            BevelOuter = bvNone
+            TabOrder = 2
+            DesignSize = (
+              299
+              25)
+            object ButtonApplyFP: TButton
+              Left = 224
+              Top = 2
+              Width = 67
+              Height = 20
+              Anchors = [akTop, akRight]
+              Caption = 'Apply'
+              Enabled = False
+              TabOrder = 0
+              OnClick = ButtonApplyFPClick
+            end
+          end
+        end
+        object Panel8: TPanel
+          Left = 0
+          Top = 292
+          Width = 301
+          Height = 90
+          Align = alBottom
+          TabOrder = 2
+          DesignSize = (
+            301
+            90)
+          object Label1: TLabel
+            Left = 228
+            Top = 5
+            Width = 30
+            Height = 13
+            Anchors = [akTop, akRight]
+            Caption = 'Show:'
+          end
+          object Memo3: TMemo
+            Left = 1
+            Top = 1
+            Width = 216
+            Height = 88
+            Align = alLeft
+            Anchors = [akLeft, akTop, akRight, akBottom]
+            Color = clBtnFace
+            Font.Charset = ANSI_CHARSET
+            Font.Color = clWindowText
+            Font.Height = -11
+            Font.Name = 'Courier New'
+            Font.Style = []
+            ParentFont = False
+            ReadOnly = True
+            ScrollBars = ssBoth
+            TabOrder = 0
+            WordWrap = False
+          end
+          object Button2: TButton
+            Left = 226
+            Top = 21
+            Width = 64
+            Height = 18
+            Anchors = [akTop, akRight]
+            Caption = 'Params'
+            TabOrder = 1
+            OnClick = Button2Click
+          end
+          object Button3: TButton
+            Left = 226
+            Top = 42
+            Width = 64
+            Height = 18
+            Anchors = [akTop, akRight]
+            Caption = 'Asm'
+            TabOrder = 2
+            OnClick = Button3Click
+          end
+        end
+      end
+      object TabSheet3: TTabSheet
+        Caption = 'Controls'
+        ImageIndex = 2
+        ExplicitLeft = 0
+        ExplicitTop = 0
+        ExplicitWidth = 0
+        ExplicitHeight = 0
+        DesignSize = (
+          301
+          382)
+        object Label16: TLabel
+          Left = 8
+          Top = 272
+          Width = 282
+          Height = 13
+          Caption = 'Note: NV2x class hardware may not honor negative values'
+        end
+        object GroupBox1: TGroupBox
+          Left = 8
+          Top = 40
+          Width = 281
+          Height = 105
+          Anchors = [akLeft, akTop, akRight]
+          Caption = ' TexCoord. Shifts '
+          TabOrder = 0
+          DesignSize = (
+            281
+            105)
+          object Label18: TLabel
+            Left = 64
+            Top = 86
+            Width = 193
+            Height = 13
+            Alignment = taCenter
+            Anchors = [akLeft, akTop, akRight]
+            AutoSize = False
+            Caption = '0'
+          end
+          object Label3: TLabel
+            Left = 16
+            Top = 24
+            Width = 27
+            Height = 13
+            Caption = 'Tex 0'
+          end
+          object Label4: TLabel
+            Left = 16
+            Top = 40
+            Width = 27
+            Height = 13
+            Caption = 'Tex 1'
+          end
+          object Label5: TLabel
+            Left = 16
+            Top = 56
+            Width = 27
+            Height = 13
+            Caption = 'Tex 2'
+          end
+          object Label6: TLabel
+            Left = 16
+            Top = 72
+            Width = 27
+            Height = 13
+            Caption = 'Tex 3'
+          end
+          object Label11: TLabel
+            Left = 32
+            Top = 24
+            Width = 3
+            Height = 13
+          end
+          object Label12: TLabel
+            Left = 56
+            Top = 86
+            Width = 10
+            Height = 13
+            Caption = '-1'
+          end
+          object Label14: TLabel
+            Left = 252
+            Top = 86
+            Width = 6
+            Height = 13
+            Anchors = [akTop, akRight]
+            Caption = '1'
+          end
+          object TrackBar1: TTrackBar
+            Left = 56
+            Top = 24
+            Width = 206
+            Height = 15
+            Anchors = [akLeft, akTop, akRight]
+            Max = 100
+            Position = 50
+            TabOrder = 0
+            ThumbLength = 12
+            TickMarks = tmBoth
+            TickStyle = tsNone
+          end
+          object TrackBar2: TTrackBar
+            Left = 56
+            Top = 40
+            Width = 206
+            Height = 15
+            Anchors = [akLeft, akTop, akRight]
+            Max = 100
+            Position = 50
+            TabOrder = 1
+            ThumbLength = 12
+            TickMarks = tmBoth
+            TickStyle = tsNone
+          end
+          object TrackBar3: TTrackBar
+            Left = 56
+            Top = 56
+            Width = 206
+            Height = 15
+            Anchors = [akLeft, akTop, akRight]
+            Max = 100
+            Position = 50
+            TabOrder = 2
+            ThumbLength = 12
+            TickMarks = tmBoth
+            TickStyle = tsNone
+          end
+          object TrackBar4: TTrackBar
+            Left = 56
+            Top = 72
+            Width = 206
+            Height = 15
+            Anchors = [akLeft, akTop, akRight]
+            Max = 100
+            Position = 50
+            TabOrder = 3
+            ThumbLength = 12
+            TickMarks = tmBoth
+            TickStyle = tsNone
+          end
+        end
+        object GroupBox2: TGroupBox
+          Left = 8
+          Top = 160
+          Width = 281
+          Height = 105
+          Anchors = [akLeft, akTop, akRight]
+          Caption = ' Blending Weights '
+          TabOrder = 1
+          DesignSize = (
+            281
+            105)
+          object Label17: TLabel
+            Left = 64
+            Top = 86
+            Width = 193
+            Height = 13
+            Alignment = taCenter
+            Anchors = [akLeft, akTop, akRight]
+            AutoSize = False
+            Caption = '0'
+          end
+          object Label7: TLabel
+            Left = 16
+            Top = 24
+            Width = 27
+            Height = 13
+            Caption = 'Tex 0'
+          end
+          object Label8: TLabel
+            Left = 16
+            Top = 40
+            Width = 27
+            Height = 13
+            Caption = 'Tex 1'
+          end
+          object Label9: TLabel
+            Left = 16
+            Top = 56
+            Width = 27
+            Height = 13
+            Caption = 'Tex 2'
+          end
+          object Label10: TLabel
+            Left = 16
+            Top = 72
+            Width = 27
+            Height = 13
+            Caption = 'Tex 3'
+          end
+          object Label13: TLabel
+            Left = 252
+            Top = 86
+            Width = 6
+            Height = 13
+            Anchors = [akTop, akRight]
+            Caption = '1'
+          end
+          object Label15: TLabel
+            Left = 56
+            Top = 86
+            Width = 10
+            Height = 13
+            Caption = '-1'
+          end
+          object TrackBar5: TTrackBar
+            Left = 56
+            Top = 24
+            Width = 206
+            Height = 15
+            Anchors = [akLeft, akTop, akRight]
+            Max = 100
+            Position = 75
+            TabOrder = 0
+            ThumbLength = 12
+            TickMarks = tmBoth
+            TickStyle = tsNone
+          end
+          object TrackBar6: TTrackBar
+            Left = 56
+            Top = 40
+            Width = 206
+            Height = 15
+            Anchors = [akLeft, akTop, akRight]
+            Max = 100
+            Position = 75
+            TabOrder = 1
+            ThumbLength = 12
+            TickMarks = tmBoth
+            TickStyle = tsNone
+          end
+          object TrackBar7: TTrackBar
+            Left = 56
+            Top = 56
+            Width = 206
+            Height = 15
+            Anchors = [akLeft, akTop, akRight]
+            Max = 100
+            Position = 75
+            TabOrder = 2
+            ThumbLength = 12
+            TickMarks = tmBoth
+            TickStyle = tsNone
+          end
+          object TrackBar8: TTrackBar
+            Left = 56
+            Top = 72
+            Width = 206
+            Height = 15
+            Anchors = [akLeft, akTop, akRight]
+            Max = 100
+            Position = 65
+            TabOrder = 3
+            ThumbLength = 12
+            TickMarks = tmBoth
+            TickStyle = tsNone
+          end
+        end
+        object CheckBox2: TCheckBox
+          Left = 14
+          Top = 12
+          Width = 131
+          Height = 17
+          Caption = 'CgShader Enabled'
+          Checked = True
+          Font.Charset = ANSI_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'Tahoma'
+          Font.Style = []
+          ParentFont = False
+          State = cbChecked
+          TabOrder = 2
+          OnClick = CheckBox2Click
+        end
+      end
+    end
+  end
+  object Panel9: TPanel
+    Left = 316
+    Top = 0
+    Width = 679
+    Height = 414
+    Align = alClient
+    Font.Charset = ANSI_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -19
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 1
+    object PanelFPS: TPanel
+      Left = 1
+      Top = 1
+      Width = 677
+      Height = 48
+      Align = alTop
+      Caption = 'FPS'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -19
+      Font.Name = 'Trebuchet MS'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 0
+    end
+    object GLSceneViewer1: TGLSceneViewer
+      Left = 1
+      Top = 49
+      Width = 677
+      Height = 364
+      Camera = GLCamera1
+      Buffer.Lighting = False
+      Buffer.AntiAliasing = aa4xHQ
+      FieldOfView = 149.276763916015600000
+      PenAsTouch = False
+      Align = alClient
+      OnMouseDown = GLSceneViewer1MouseDown
+      OnMouseMove = GLSceneViewer1MouseMove
+      TabOrder = 1
+    end
+  end
+  object GLScene1: TGLScene
+    Left = 32
+    Top = 80
+    object GLXYZGrid1: TGLXYZGrid
+      Position.Coordinates = {000000006F12033B000000000000803F}
+      LineColor.Color = {938C0C3E938E0E3F938C0C3E0000803F}
+      XSamplingScale.Min = -2.000000000000000000
+      XSamplingScale.Max = 2.000000000000000000
+      XSamplingScale.Step = 0.100000001490116100
+      YSamplingScale.Step = 0.100000001490116100
+      ZSamplingScale.Min = -2.000000000000000000
+      ZSamplingScale.Max = 2.000000000000000000
+      ZSamplingScale.Step = 0.100000001490116100
+      Parts = [gpX, gpZ]
+    end
+    object GLPlane1: TGLPlane
+      Material.MaterialLibrary = GLMatLib
+      Material.LibMaterialName = 'LibMaterial'
+      Direction.Coordinates = {000000000000803F0000000000000000}
+      PitchAngle = 90.000000000000000000
+      Up.Coordinates = {0000000000000000000080BF00000000}
+      Height = 1.000000000000000000
+      Width = 1.000000000000000000
+    end
+    object GLCamera1: TGLCamera
+      DepthOfView = 100.000000000000000000
+      FocalLength = 50.000000000000000000
+      TargetObject = GLPlane1
+      CameraStyle = csInfinitePerspective
+      Position.Coordinates = {000000000000C03F0000803F0000803F}
+    end
+  end
+  object GLCadencer1: TGLCadencer
+    Scene = GLScene1
+    OnProgress = GLCadencer1Progress
+    Left = 32
+    Top = 144
+  end
+  object CgShader1: TCgShader
+    VertexProgram.OnApply = CgShader1ApplyVP
+    FragmentProgram.OnApply = CgShader1ApplyFP
+    FragmentProgram.OnUnApply = CgShader1UnApplyFP
+    OnApplyVP = CgShader1ApplyVP
+    OnApplyFP = CgShader1ApplyFP
+    OnUnApplyFP = CgShader1UnApplyFP
+    OnInitialize = CgShader1Initialize
+    Left = 168
+    Top = 80
+  end
+  object Timer1: TTimer
+    OnTimer = Timer1Timer
+    Left = 164
+    Top = 144
+  end
+  object GLMatLib: TGLMaterialLibrary
+    Materials = <
+      item
+        Name = 'LibMaterial'
+        Tag = 0
+        Material.Texture.Disabled = False
+        Material.MaterialLibrary = GLMatLib
+        Shader = CgShader1
+      end
+      item
+        Name = 'LibMaterial1'
+        Tag = 0
+        Material.Texture.Disabled = False
+        Material.MaterialLibrary = GLMatLib
+      end
+      item
+        Name = 'LibMaterial2'
+        Tag = 0
+        Material.MaterialLibrary = GLMatLib
+      end
+      item
+        Name = 'LibMaterial3'
+        Tag = 0
+        Material.MaterialLibrary = GLMatLib
+      end>
+    TexturePaths = '..\\..\\..\\media\\'
+    Left = 105
+    Top = 80
+  end
+end

Demos/cgshaders/texturing/fTexturingC.h

@@ -0,0 +1,134 @@
+//---------------------------------------------------------------------------
+
+#ifndef fTexturingCH
+#define fTexturingCH
+//---------------------------------------------------------------------------
+#include <System.Classes.hpp>
+#include <Vcl.Controls.hpp>
+#include <Vcl.StdCtrls.hpp>
+#include <Vcl.Forms.hpp>
+#include <Vcl.ComCtrls.hpp>
+#include <Vcl.ExtCtrls.hpp>
+#include "GLS.BaseClasses.hpp"
+#include "GLS.Cadencer.hpp"
+#include "GLS.Coordinates.hpp"
+
+#include "GLS.Graph.hpp"
+#include "GLS.Material.hpp"
+#include "GLS.Objects.hpp"
+#include "GLS.Scene.hpp"
+#include "GLS.SceneViewer.hpp"
+#include "Cg.Shader.hpp"
+#include "JPeg.hpp"
+#include "GLS.Utils.hpp"
+//---------------------------------------------------------------------------
+class TForm1 : public TForm
+{
+__published:	// IDE-managed Components
+	TSplitter *Splitter1;
+	TPanel *Panel1;
+	TPageControl *PageControl1;
+	TTabSheet *TabSheet1;
+	TSplitter *Splitter3;
+	TPanel *Panel2;
+	TLabel *LabelVertProfile;
+	TCheckBox *CBVertexProgram;
+	TPanel *Panel11;
+	TPanel *Panel12;
+	TMemo *MemoVertCode;
+	TPanel *Panel13;
+	TButton *ButtonApplyVP;
+	TPanel *Panel5;
+	TLabel *Label2;
+	TMemo *Memo1;
+	TButton *Button1;
+	TButton *Button4;
+	TTabSheet *TabSheet2;
+	TSplitter *Splitter2;
+	TPanel *Panel4;
+	TLabel *LabelFragProfile;
+	TCheckBox *CBFragmentProgram;
+	TPanel *Panel6;
+	TPanel *Panel7;
+	TMemo *MemoFragCode;
+	TPanel *Panel3;
+	TButton *ButtonApplyFP;
+	TPanel *Panel8;
+	TLabel *Label1;
+	TMemo *Memo3;
+	TButton *Button2;
+	TButton *Button3;
+	TTabSheet *TabSheet3;
+	TLabel *Label16;
+	TGroupBox *GroupBox1;
+	TLabel *Label18;
+	TLabel *Label3;
+	TLabel *Label4;
+	TLabel *Label5;
+	TLabel *Label6;
+	TLabel *Label11;
+	TLabel *Label12;
+	TLabel *Label14;
+	TTrackBar *TrackBar1;
+	TTrackBar *TrackBar2;
+	TTrackBar *TrackBar3;
+	TTrackBar *TrackBar4;
+	TGroupBox *GroupBox2;
+	TLabel *Label17;
+	TLabel *Label7;
+	TLabel *Label8;
+	TLabel *Label9;
+	TLabel *Label10;
+	TLabel *Label13;
+	TLabel *Label15;
+	TTrackBar *TrackBar5;
+	TTrackBar *TrackBar6;
+	TTrackBar *TrackBar7;
+	TTrackBar *TrackBar8;
+	TCheckBox *CheckBox2;
+	TPanel *Panel9;
+	TPanel *PanelFPS;
+	TGLSceneViewer *GLSceneViewer1;
+	TGLScene *GLScene1;
+	TGLXYZGrid *GLXYZGrid1;
+	TGLPlane *GLPlane1;
+	TGLCamera *GLCamera1;
+	TGLCadencer *GLCadencer1;
+	TCgShader *CgShader1;
+	TTimer *Timer1;
+	TGLMaterialLibrary *GLMatLib;
+	void __fastcall FormCreate(TObject *Sender);
+	void __fastcall CgShader1Initialize(TCustomCgShader *CgShader);
+	void __fastcall CgShader1ApplyVP(TCgProgram *CgProgram, TObject *Sender);
+	void __fastcall CgShader1ApplyFP(TCgProgram *CgProgram, TObject *Sender);
+	void __fastcall CgShader1UnApplyFP(TCgProgram *CgProgram);
+	void __fastcall CBVertexProgramClick(TObject *Sender);
+	void __fastcall CBFragmentProgramClick(TObject *Sender);
+	void __fastcall CheckBox2Click(TObject *Sender);
+	void __fastcall ButtonApplyFPClick(TObject *Sender);
+	void __fastcall ButtonApplyVPClick(TObject *Sender);
+	void __fastcall MemoFragCodeChange(TObject *Sender);
+	void __fastcall MemoVertCodeChange(TObject *Sender);
+	void __fastcall Button1Click(TObject *Sender);
+	void __fastcall Button2Click(TObject *Sender);
+	void __fastcall Button3Click(TObject *Sender);
+	void __fastcall Button4Click(TObject *Sender);
+	void __fastcall GLSceneViewer1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
+          int X, int Y);
+	void __fastcall GLSceneViewer1MouseMove(TObject *Sender, TShiftState Shift, int X,
+		  int Y);
+	void __fastcall GLCadencer1Progress(TObject *Sender, const double deltaTime, const double newTime);
+	void __fastcall FormMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta,
+          TPoint &MousePos, bool &Handled);
+	void __fastcall Timer1Timer(TObject *Sender);
+	void __fastcall FormKeyPress(TObject *Sender, System::WideChar &Key);
+
+private:	// User declarations
+    int mx,my;
+public:		// User declarations
+	__fastcall TForm1(TComponent* Owner);
+};
+//---------------------------------------------------------------------------
+extern PACKAGE TForm1 *Form1;
+//---------------------------------------------------------------------------
+#endif

Demos/collisions/BoxSphere/BoxSphere.dpr

@@ -7,7 +7,7 @@ program BoxSphere;
 
 uses
   Forms,
-  BoxSphereFm in 'BoxSphereFm.pas' {FormBoxSphere};
+  fBoxSphere in 'fBoxSphere.pas' {FormBoxSphere};
 
 {$R *.RES}
 

Demos/collisions/BoxSphere/BoxSphere.dproj

@@ -123,7 +123,7 @@
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
-        <DCCReference Include="BoxSphereFm.pas">
+        <DCCReference Include="fBoxSphere.pas">
             <Form>FormBoxSphere</Form>
         </DCCReference>
         <BuildConfiguration Include="Debug">

Demos/collisions/BoxSphere/BoxSphereFm.pas → Demos/collisions/BoxSphere/fBoxSphere.pas

@@ -1,4 +1,4 @@
-unit BoxSphereFm;
+unit fBoxSphere;
 
 interface
 

Demos/collisions/OcclusionQuery/OcclusionQuery.cpp

@@ -1,35 +0,0 @@
-//---------------------------------------------------------------------------
-
-#include <vcl.h>
-#pragma hdrstop
-#include <tchar.h>
-//---------------------------------------------------------------------------
-USEFORM("Unit1.cpp", Form1);
-//---------------------------------------------------------------------------
-int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
-{
-	try
-	{
-		Application->Initialize();
-		Application->MainFormOnTaskBar = true;
-		Application->CreateForm(__classid(TForm1), &Form1);
-		Application->Run();
-	}
-	catch (Exception &exception)
-	{
-		Application->ShowException(&exception);
-	}
-	catch (...)
-	{
-		try
-		{
-			throw Exception("");
-		}
-		catch (Exception &exception)
-		{
-			Application->ShowException(&exception);
-		}
-	}
-	return 0;
-}
-//---------------------------------------------------------------------------

Demos/collisions/OcclusionQuery/OcclusionQuery.dpr

@@ -17,7 +17,7 @@ program OcclusionQuery;
 
 uses
   Forms,
-  OcclusionQueryFm in 'OcclusionQueryFm.pas' {FormOcclusionQuery};
+  fOcclusionQuery in 'fOcclusionQuery.pas' {FormOcclusionQuery};
 
 {$R *.res}
 

Demos/collisions/OcclusionQuery/OcclusionQuery.dproj

@@ -122,7 +122,7 @@
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
-        <DCCReference Include="OcclusionQueryFm.pas">
+        <DCCReference Include="fOcclusionQuery.pas">
             <Form>FormOcclusionQuery</Form>
         </DCCReference>
         <BuildConfiguration Include="Debug">

Demos/collisions/OcclusionQuery/OcclusionQuery.cbproj → Demos/collisions/OcclusionQuery/OcclusionQueryC.cbproj

@@ -4,7 +4,7 @@
         <ProjectVersion>19.0</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
         <AppType>Application</AppType>
-        <MainSource>OcclusionQuery.cpp</MainSource>
+        <MainSource>OcclusionQueryC.cpp</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
@@ -58,7 +58,7 @@
         <Base>true</Base>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base)'!=''">
-        <SanitizedProjectName>OcclusionQuery</SanitizedProjectName>
+        <SanitizedProjectName>OcclusionQueryC</SanitizedProjectName>
         <_TCHARMapping>wchar_t</_TCHARMapping>
         <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
         <Icon_MainIcon>$(BDS)\bin\cbuilder_PROJECTICON.ico</Icon_MainIcon>
@@ -141,16 +141,16 @@
         <Defines>NDEBUG;$(Defines)</Defines>
     </PropertyGroup>
     <ItemGroup>
-        <CppCompile Include="OcclusionQuery.cpp">
-            <BuildOrder>0</BuildOrder>
-        </CppCompile>
-        <CppCompile Include="Unit1.cpp">
+        <CppCompile Include="fOcclusionQueryC.cpp">
             <Form>Form1</Form>
             <FormType>dfm</FormType>
-            <DependentOn>Unit1.h</DependentOn>
+            <DependentOn>fOcclusionQueryC.h</DependentOn>
             <BuildOrder>2</BuildOrder>
         </CppCompile>
-        <FormResources Include="Unit1.dfm"/>
+        <CppCompile Include="OcclusionQueryC.cpp">
+            <BuildOrder>0</BuildOrder>
+        </CppCompile>
+        <FormResources Include="fOcclusionQueryC.dfm"/>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>
@@ -169,7 +169,7 @@
         <BorlandProject>
             <CPlusPlusBuilder.Personality>
                 <Source>
-                    <Source Name="MainSource">OcclusionQuery.cpp</Source>
+                    <Source Name="MainSource">OcclusionQueryC.cpp</Source>
                 </Source>
                 <VersionInfo>
                     <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
@@ -230,19 +230,35 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin64\cc64160.dll" Class="DependencyModule"/>
+                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin\cc32c270mt.dll" Class="DependencyModule">
+                    <Platform Name="Win32">
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName=".\Win32\Debug\OcclusionQueryC.tds" Configuration="Debug" Class="DebugSymbols">
+                    <Platform Name="Win32">
+                        <RemoteName>OcclusionQueryC.tds</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin\cc32260.dll" Class="DependencyModule">
                     <Platform Name="Win32">
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin\cc32160mt.dll" Class="DependencyModule"/>
                 <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin64\cc64260mt.dll" Class="DependencyModule">
                     <Platform Name="Win64">
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
+                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin\cc32160mt.dll" Class="DependencyModule"/>
                 <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin\cc32160.dll" Class="DependencyModule"/>
+                <DeployFile LocalName=".\Win32\Debug\OcclusionQueryC.exe" Configuration="Debug" Class="ProjectOutput">
+                    <Platform Name="Win32">
+                        <RemoteName>OcclusionQueryC.exe</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin64\cc64230mt.dll" Class="DependencyModule"/>
                 <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin64\cc64270.dll" Class="DependencyModule">
                     <Platform Name="Win64">
@@ -309,17 +325,13 @@
                 </DeployFile>
                 <DeployFile LocalName=".\Win32\Debug\OcclusionQuery.tds" Configuration="Debug" Class="DebugSymbols"/>
                 <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin\cc32230mt.dll" Class="DependencyModule"/>
+                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin64\cc64160.dll" Class="DependencyModule"/>
                 <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin64\cc64160mt.dll" Class="DependencyModule"/>
                 <DeployFile Condition="'$(DynamicRTL)'=='true'" LocalName="$(BDS)\Redist\osx64\libcgcrtl.dylib" Class="DependencyModule">
                     <Platform Name="OSX64">
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin\cc32c270mt.dll" Class="DependencyModule">
-                    <Platform Name="Win32">
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
                 <DeployClass Name="AdditionalDebugSymbols">
                     <Platform Name="iOSSimulator">
                         <Operation>1</Operation>

Demos/collisions/OcclusionQuery/OcclusionQueryC.cpp

@@ -0,0 +1,35 @@
+//---------------------------------------------------------------------------
+
+#include <vcl.h>
+#pragma hdrstop
+#include <tchar.h>
+//---------------------------------------------------------------------------
+USEFORM("fOcclusionQueryC.cpp", Form1);
+//---------------------------------------------------------------------------
+int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
+{
+	try
+	{
+		Application->Initialize();
+		Application->MainFormOnTaskBar = true;
+		Application->CreateForm(__classid(TForm1), &Form1);
+		Application->Run();
+	}
+	catch (Exception &exception)
+	{
+		Application->ShowException(&exception);
+	}
+	catch (...)
+	{
+		try
+		{
+			throw Exception("");
+		}
+		catch (Exception &exception)
+		{
+			Application->ShowException(&exception);
+		}
+	}
+	return 0;
+}
+//---------------------------------------------------------------------------

Demos/collisions/OcclusionQuery/OcclusionQueryFm.pas → Demos/collisions/OcclusionQuery/fOcclusionQuery.pas

@@ -1,4 +1,4 @@
-unit OcclusionQueryFm;
+unit fOcclusionQuery;
 
 interface
 

Demos/collisions/OcclusionQuery/Unit1.cpp → Demos/collisions/OcclusionQuery/fOcclusionQueryC.cpp

@@ -5,7 +5,7 @@
 
 #pragma hdrstop
 
-#include "Unit1.h"
+#include "fOcclusionQueryC.h"
 //---------------------------------------------------------------------------
 #pragma package(smart_init)
 #pragma link "GLS.BaseClasses"

Demos/collisions/OcclusionQuery/Unit1.h → Demos/collisions/OcclusionQuery/fOcclusionQueryC.h

@@ -1,7 +1,7 @@
 //---------------------------------------------------------------------------
 
-#ifndef Unit1H
-#define Unit1H
+#ifndef fOcclusionQueryCH
+#define fOcclusionQueryCH
 //---------------------------------------------------------------------------
 #include <System.Classes.hpp>
 #include <Vcl.Controls.hpp>

Demos/collisions/RayBox/RayBox.cpp

@@ -1,35 +0,0 @@
-//---------------------------------------------------------------------------
-
-#include <vcl.h>
-#pragma hdrstop
-#include <tchar.h>
-//---------------------------------------------------------------------------
-USEFORM("Unit1.cpp", Form1);
-//---------------------------------------------------------------------------
-int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
-{
-	try
-	{
-		Application->Initialize();
-		Application->MainFormOnTaskBar = true;
-		Application->CreateForm(__classid(TForm1), &Form1);
-		Application->Run();
-	}
-	catch (Exception &exception)
-	{
-		Application->ShowException(&exception);
-	}
-	catch (...)
-	{
-		try
-		{
-			throw Exception("");
-		}
-		catch (Exception &exception)
-		{
-			Application->ShowException(&exception);
-		}
-	}
-	return 0;
-}
-//---------------------------------------------------------------------------

Demos/collisions/RayBox/RayBox.dpr

@@ -7,7 +7,7 @@ program RayBox;
 
 uses
   Forms,
-  RayBoxFm in 'RayBoxFm.pas' {FormRayBox};
+  fRayBox in 'fRayBox.pas' {FormRayBox};
 
 {$R *.RES}
 

Demos/collisions/RayBox/RayBox.dproj

@@ -123,7 +123,7 @@
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
-        <DCCReference Include="RayBoxFm.pas">
+        <DCCReference Include="fRayBox.pas">
             <Form>FormRayBox</Form>
         </DCCReference>
         <BuildConfiguration Include="Debug">

Demos/collisions/RayBox/RayBox.cbproj → Demos/collisions/RayBox/RayBoxC.cbproj

@@ -4,7 +4,7 @@
         <ProjectVersion>19.0</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
         <AppType>Application</AppType>
-        <MainSource>RayBox.cpp</MainSource>
+        <MainSource>RayBoxC.cpp</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
@@ -58,7 +58,7 @@
         <Base>true</Base>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base)'!=''">
-        <SanitizedProjectName>RayBox</SanitizedProjectName>
+        <SanitizedProjectName>RayBoxC</SanitizedProjectName>
         <_TCHARMapping>wchar_t</_TCHARMapping>
         <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
         <Icon_MainIcon>$(BDS)\bin\cbuilder_PROJECTICON.ico</Icon_MainIcon>
@@ -140,16 +140,16 @@
         <Defines>NDEBUG;$(Defines)</Defines>
     </PropertyGroup>
     <ItemGroup>
-        <CppCompile Include="RayBox.cpp">
-            <BuildOrder>0</BuildOrder>
-        </CppCompile>
-        <CppCompile Include="Unit1.cpp">
+        <CppCompile Include="fRayBoxC.cpp">
             <Form>Form1</Form>
             <FormType>dfm</FormType>
-            <DependentOn>Unit1.h</DependentOn>
+            <DependentOn>fRayBoxC.h</DependentOn>
             <BuildOrder>2</BuildOrder>
         </CppCompile>
-        <FormResources Include="Unit1.dfm"/>
+        <CppCompile Include="RayBoxC.cpp">
+            <BuildOrder>0</BuildOrder>
+        </CppCompile>
+        <FormResources Include="fRayBoxC.dfm"/>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>
@@ -168,7 +168,7 @@
         <BorlandProject>
             <CPlusPlusBuilder.Personality>
                 <Source>
-                    <Source Name="MainSource">RayBox.cpp</Source>
+                    <Source Name="MainSource">RayBoxC.cpp</Source>
                 </Source>
                 <VersionInfo>
                     <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
@@ -229,8 +229,8 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin\cc32c270mt.dll" Class="DependencyModule">
-                    <Platform Name="Win32">
+                <DeployFile Condition="'$(DynamicRTL)'=='true'" LocalName="$(BDS)\Redist\osx64\libcgcrtl.dylib" Class="DependencyModule">
+                    <Platform Name="OSX64">
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
@@ -245,6 +245,12 @@
                     </Platform>
                 </DeployFile>
                 <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin\cc32160mt.dll" Class="DependencyModule"/>
+                <DeployFile LocalName=".\Win32\Debug\RayBoxC.exe" Configuration="Debug" Class="ProjectOutput">
+                    <Platform Name="Win32">
+                        <RemoteName>RayBoxC.exe</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin\cc32160.dll" Class="DependencyModule"/>
                 <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin64\cc64230mt.dll" Class="DependencyModule"/>
                 <DeployFile LocalName=".\Win32\Debug\RayBox.exe" Configuration="Debug" Class="ProjectOutput"/>
@@ -299,6 +305,12 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
+                <DeployFile LocalName=".\Win32\Debug\RayBoxC.tds" Configuration="Debug" Class="DebugSymbols">
+                    <Platform Name="Win32">
+                        <RemoteName>RayBoxC.tds</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin64\cc64230.dll" Class="DependencyModule"/>
                 <DeployFile LocalName=".\Win32\Debug\RayBox.tds" Configuration="Debug" Class="DebugSymbols"/>
                 <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin64\cc64260.dll" Class="DependencyModule">
@@ -313,12 +325,12 @@
                 </DeployFile>
                 <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin\cc32230mt.dll" Class="DependencyModule"/>
                 <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin64\cc64160mt.dll" Class="DependencyModule"/>
-                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin64\cc64160.dll" Class="DependencyModule"/>
-                <DeployFile Condition="'$(DynamicRTL)'=='true'" LocalName="$(BDS)\Redist\osx64\libcgcrtl.dylib" Class="DependencyModule">
-                    <Platform Name="OSX64">
+                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'=='true'" LocalName="$(BDS)\bin\cc32c270mt.dll" Class="DependencyModule">
+                    <Platform Name="Win32">
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
+                <DeployFile Condition="'$(DynamicRTL)'=='true' And '$(Multithreaded)'!='true'" LocalName="$(BDS)\bin64\cc64160.dll" Class="DependencyModule"/>
                 <DeployClass Name="AdditionalDebugSymbols">
                     <Platform Name="iOSSimulator">
                         <Operation>1</Operation>

Demos/collisions/RayBox/RayBoxC.cpp

@@ -0,0 +1,35 @@
+//---------------------------------------------------------------------------
+
+#include <vcl.h>
+#pragma hdrstop
+#include <tchar.h>
+//---------------------------------------------------------------------------
+USEFORM("fRayBoxC.cpp", Form1);
+//---------------------------------------------------------------------------
+int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
+{
+	try
+	{
+		Application->Initialize();
+		Application->MainFormOnTaskBar = true;
+		Application->CreateForm(__classid(TForm1), &Form1);
+		Application->Run();
+	}
+	catch (Exception &exception)
+	{
+		Application->ShowException(&exception);
+	}
+	catch (...)
+	{
+		try
+		{
+			throw Exception("");
+		}
+		catch (Exception &exception)
+		{
+			Application->ShowException(&exception);
+		}
+	}
+	return 0;
+}
+//---------------------------------------------------------------------------

Demos/collisions/RayBox/RayBoxFm.pas → Demos/collisions/RayBox/fRayBox.pas

@@ -1,4 +1,4 @@
-unit RayBoxFm;
+unit fRayBox;
 
 interface
 

Demos/collisions/RayBox/Unit1.cpp → Demos/collisions/RayBox/fRayBoxC.cpp

@@ -5,7 +5,7 @@
 
 #pragma hdrstop
 
-#include "Unit1.h"
+#include "fRayBoxC.h"
 //---------------------------------------------------------------------------
 #pragma package(smart_init)
 #pragma link "GLS.BaseClasses"