ver.1.1.1

carloBarazzetta · carloBarazzetta · commit a678279ac122 · 2024-06-08T10:34:18.000+02:00
Packages for Delphi 12.1
diff --git a/Images/ShellControlsDemoMini.jpg b/Images/ShellControlsDemoMini.jpg
diff --git a/Images/SupportingDelphi.jpg b/Images/SupportingDelphi.jpg
diff --git a/Packages/D10_1/dclshlctrls.dproj b/Packages/D10_1/dclshlctrls.dproj
@@ -147,5 +147,4 @@
         </BorlandProject>
         <ProjectFileVersion>12</ProjectFileVersion>
     </ProjectExtensions>
-    <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
 </Project>
diff --git a/Packages/D10_2/dclshlctrls.dproj b/Packages/D10_2/dclshlctrls.dproj
@@ -147,5 +147,4 @@
         </BorlandProject>
         <ProjectFileVersion>12</ProjectFileVersion>
     </ProjectExtensions>
-    <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
 </Project>
diff --git a/Packages/D10_3/dclshlctrls.dproj b/Packages/D10_3/dclshlctrls.dproj
@@ -147,5 +147,4 @@
         </BorlandProject>
         <ProjectFileVersion>12</ProjectFileVersion>
     </ProjectExtensions>
-    <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
 </Project>
diff --git a/Packages/D10_4/dclshlctrls.dproj b/Packages/D10_4/dclshlctrls.dproj
@@ -147,5 +147,4 @@
         </BorlandProject>
         <ProjectFileVersion>12</ProjectFileVersion>
     </ProjectExtensions>
-    <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
 </Project>
diff --git a/Packages/D11/dclshlctrls.dproj b/Packages/D11/dclshlctrls.dproj
@@ -147,5 +147,4 @@
         </BorlandProject>
         <ProjectFileVersion>12</ProjectFileVersion>
     </ProjectExtensions>
-    <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
 </Project>
diff --git a/Packages/D12/dclshlctrls.dproj b/Packages/D12/dclshlctrls.dproj
@@ -11,6 +11,7 @@
         <FrameworkType>VCL</FrameworkType>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
         <TargetedPlatforms>1</TargetedPlatforms>
+        <ProjectName Condition="'$(ProjectName)'==''">dclshlctrls</ProjectName>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
         <Base>true</Base>
@@ -20,6 +21,11 @@
         <CfgParent>Base</CfgParent>
         <Base>true</Base>
     </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64x' and '$(Base)'=='true') or '$(Base_Win64x)'!=''">
+        <Base_Win64x>true</Base_Win64x>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
     <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
         <Cfg_1>true</Cfg_1>
         <CfgParent>Base</CfgParent>
@@ -57,6 +63,11 @@
         <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
         <DCC_UsePackage>vcl;rtl;vclactnband;vclx;vclshlctrls;$(DCC_UsePackage)</DCC_UsePackage>
     </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win64x)'!=''">
+        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
+        <BT_BuildType>Debug</BT_BuildType>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+    </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1)'!=''">
         <Version>7.0</Version>
         <DCC_DebugInformation>0</DCC_DebugInformation>
@@ -139,10 +150,13 @@
                     <Source Name="MainSource">dclshlctrls.dpk</Source>
                 </Source>
                 <Excluded_Packages/>
+                <WelcomePageFile Path="..\..\ReadMe.htm"/>
+                <WelcomePageFolder/>
             </Delphi.Personality>
             <Platforms>
                 <Platform value="Win32">True</Platform>
                 <Platform value="Win64">False</Platform>
+                <Platform value="Win64x">False</Platform>
             </Platforms>
         </BorlandProject>
         <ProjectFileVersion>12</ProjectFileVersion>
diff --git a/Packages/D12/dclshlctrls.res b/Packages/D12/dclshlctrls.res
diff --git a/Packages/D12/vclshlctrls.dproj b/Packages/D12/vclshlctrls.dproj
@@ -11,6 +11,7 @@
         <FrameworkType>VCL</FrameworkType>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
         <TargetedPlatforms>3</TargetedPlatforms>
+        <ProjectName Condition="'$(ProjectName)'==''">vclshlctrls</ProjectName>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
         <Base>true</Base>
@@ -25,6 +26,11 @@
         <CfgParent>Base</CfgParent>
         <Base>true</Base>
     </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64x' and '$(Base)'=='true') or '$(Base_Win64x)'!=''">
+        <Base_Win64x>true</Base_Win64x>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
     <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
         <Cfg_1>true</Cfg_1>
         <CfgParent>Base</CfgParent>
@@ -65,6 +71,11 @@
         <BT_BuildType>Debug</BT_BuildType>
         <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
     </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win64x)'!=''">
+        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
+        <BT_BuildType>Debug</BT_BuildType>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+    </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1)'!=''">
         <Version>7.0</Version>
         <DCC_DebugInformation>0</DCC_DebugInformation>
@@ -141,10 +152,13 @@
                     <Source Name="MainSource">vclshlctrls.dpk</Source>
                 </Source>
                 <Excluded_Packages/>
+                <WelcomePageFile Path="..\..\ReadMe.htm"/>
+                <WelcomePageFolder/>
             </Delphi.Personality>
             <Platforms>
                 <Platform value="Win32">True</Platform>
                 <Platform value="Win64">True</Platform>
+                <Platform value="Win64x">False</Platform>
             </Platforms>
         </BorlandProject>
         <ProjectFileVersion>12</ProjectFileVersion>
diff --git a/Packages/D12/vclshlctrls.res b/Packages/D12/vclshlctrls.res
diff --git a/Packages/XE10/dclshlctrls.dproj b/Packages/XE10/dclshlctrls.dproj
@@ -144,8 +144,7 @@
                 <Source>
                     <Source Name="MainSource">dclshlctrls.dpk</Source>
                 </Source>
-                <Excluded_Packages>
-                </Excluded_Packages>
+                <Excluded_Packages/>
             </Delphi.Personality>
             <Platforms>
                 <Platform value="Win32">True</Platform>
@@ -154,5 +153,4 @@
         </BorlandProject>
         <ProjectFileVersion>12</ProjectFileVersion>
     </ProjectExtensions>
-    <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
 </Project>
diff --git a/Packages/XE6/dclshlctrls.dproj b/Packages/XE6/dclshlctrls.dproj
@@ -144,8 +144,7 @@
                 <Source>
                     <Source Name="MainSource">dclshlctrls.dpk</Source>
                 </Source>
-                <Excluded_Packages>
-                </Excluded_Packages>
+                <Excluded_Packages/>
             </Delphi.Personality>
             <Platforms>
                 <Platform value="Win32">True</Platform>
@@ -154,5 +153,4 @@
         </BorlandProject>
         <ProjectFileVersion>12</ProjectFileVersion>
     </ProjectExtensions>
-    <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
 </Project>
diff --git a/Packages/XE8/dclshlctrls.dproj b/Packages/XE8/dclshlctrls.dproj
@@ -144,8 +144,7 @@
                 <Source>
                     <Source Name="MainSource">dclshlctrls.dpk</Source>
                 </Source>
-                <Excluded_Packages>
-                </Excluded_Packages>
+                <Excluded_Packages/>
             </Delphi.Personality>
             <Platforms>
                 <Platform value="Win32">True</Platform>
@@ -154,5 +153,4 @@
         </BorlandProject>
         <ProjectFileVersion>12</ProjectFileVersion>
     </ProjectExtensions>
-    <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
 </Project>
diff --git a/README.md b/README.md
@@ -1,12 +1,16 @@
 ﻿# Shell Controls Packages and Utils [![License](https://img.shields.io/badge/License-Apache%202.0-yellowgreen.svg)](https://opensource.org/licenses/Apache-2.0)
 
-**Latest Version 1.1.0 - 27 Oct 2023**
+**Latest Version 1.1.1 - 08 Jun 2024**
 
 ** Packages, demo and Utility of Delphi ShellControl Components (missing by Embarcadero)
 
 Delphi version supported: XE6, XE8, XE10, D10.1, D10.2, D10.3, D10.4, D11, D12
 
-### Components
+For other versions, please add a request in the [Issue section](https://github.com/EtheaDev/DelphiShellControlsPackages/issues) of the project.
+
+![Supporting Delphi 12](./Images/SupportingDelphi.jpg)
+
+## Components
 Vcl.Shell.ShellCtrls.pas and Vcl.Shell.ShellConsts.pas are not distributed here, because they are distributed by Embarcadero inside Delphi!
 
 ## Installation Notes
@@ -33,6 +37,9 @@ A simple demo that explain the use of those components is located under:
 
 ## Release Notes
 
+08 Jun 2024: ver. 1.1.1
+- Updated packages of ShellControls for Delphi 12.1
+
 27 Oct 2023: ver. 1.1.0
 - Added packages of ShellControls for Delphi 12
 
@@ -43,7 +50,7 @@ A simple demo that explain the use of those components is located under:
 
 ## License
 
-Licensed under the [Apache License, Version 2.0][9] (the "License");
+Licensed under the [Apache License, Version 2.0] (the "License");
 Unless required by applicable law or agreed to in writing, software distributed under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the License for the specific language governing permissions and limitations under the License.
 
 Original Copyright (c) 1995-2010 Embarcadero Technologies, Inc.
diff --git a/ReadMe.htm b/ReadMe.htm
@@ -0,0 +1,79 @@
+<style type="text/css">
+code{
+  font-family: "Consolas", monospace;
+}
+pre{
+  border: 1px solid #ddd;
+  border-left: 3px solid #f36d33;
+  overflow: auto;
+  padding: 1em 1.5em;
+  display: block;
+}
+Blockquote{
+  border-left: 3px solid #d0d0d0;
+  padding-left: 0.5em;
+  margin-left:1em;
+}
+Blockquote p{
+  margin: 0;
+}
+table{
+  border:1px solid;
+  border-collapse:collapse;
+}
+th{  padding:5px;
+  border:1px solid;
+}
+td{
+  padding:5px;
+  border:1px solid;
+}
+</style>
+<h1>Shell Controls Packages and Utils <a href="https://opensource.org/licenses/Apache-2.0"><img src="https://img.shields.io/badge/License-Apache%202.0-yellowgreen.svg" alt="License"/></a></h1>
+<p><strong>Latest Version 1.1.1 - 08 Jun 2024</strong></p>
+<p>** Packages, demo and Utility of Delphi ShellControl Components (missing by Embarcadero)</p>
+<p>Delphi version supported: XE6, XE8, XE10, D10.1, D10.2, D10.3, D10.4, D11, D12</p>
+<p>For other versions, please add a request in the <a href="https://github.com/EtheaDev/DelphiShellControlsPackages/issues">Issue section</a> of the project.</p>
+<p><img src="./Images/SupportingDelphi.jpg" alt="Supporting Delphi 12"/></p>
+<h2>Components</h2>
+<p>Vcl.Shell.ShellCtrls.pas and Vcl.Shell.ShellConsts.pas are not distributed here, because they are distributed by Embarcadero inside Delphi!</p>
+<h2>Installation Notes</h2>
+<ul>
+<li>Open the Vcl.Shell.Controls.groupproj file from Packages[DelphiVersion] folder.</li>
+<li>Build: vclshlctrls.dpk</li>
+<li>Build and Install: dclshlctrls.dpk</li>
+</ul>
+<p>Then you can use those visual components at Desing-time:</p>
+<ul>
+<li><strong>TShellComboBox</strong></li>
+<li><strong>TShellListView</strong></li>
+<li><strong>TShellTreeView</strong></li>
+</ul>
+<p>and the component <strong>TShellChangeNotifier</strong> to intercept changes to folders and files.</p>
+<p>A simple demo that explain the use of those components is located under:</p>
+<ul>
+<li>Demo\ShellControlsDemo\ShellControlsDemo.dproj</li>
+</ul>
+<h3>Preview of the Demo included:</h3>
+<p><img src="./Images/ShellControlsDemoDesktop.jpg" alt="Shell Controls Demo"/></p>
+<h2>Release Notes</h2>
+<p>08 Jun 2024: ver. 1.1.1</p>
+<ul>
+<li>Updated packages of ShellControls for Delphi 12.1</li>
+</ul>
+<p>27 Oct 2023: ver. 1.1.0</p>
+<ul>
+<li>Added packages of ShellControls for Delphi 12</li>
+</ul>
+<p>26 May 2023: ver. 1.0.0</p>
+<ul>
+<li>Added packages of ShellControls for many Delphi versions</li>
+<li>Fixed ShellEdit.pas to show the propery editor according to IDE style</li>
+<li>Added a simple Demo and a simple unit with some useful utilities</li>
+</ul>
+<h2>License</h2>
+<p>Licensed under the <a href="the" title="License">Apache License, Version 2.0</a>;
+Unless required by applicable law or agreed to in writing, software distributed under the License is distributed on an &ldquo;AS IS&rdquo; BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the License for the specific language governing permissions and limitations under the License.</p>
+<p>Original Copyright (c) 1995-2010 Embarcadero Technologies, Inc.
+You may only use this software if you are an authorized licensee of Delphi, C++Builder or RAD Studio (Embarcadero Products).
+This software is considered a Redistributable as defined under the software license agreement that comes with the Embarcadero Products and is subject to that software license agreement.</p>
