Version 3.8.1

- Added support for Delphi 12 64bit IDE
- Fix storing default ImageMargins of StyledButtons

Author: carloBarazzetta

Images/SupportingDelphi.jpg

@@ -31,10 +31,10 @@
 </style>
 <h1>Delphi VCL StyledComponents <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>
 <h2>Components similar to Delphi VCL Buttons, Toolbar, DbNavigator, BindNavigator, ButtonGroup and CategoryButtons with Custom Graphic Styles, and an advanced, full-customizable TaskDialog, also with animations!</h2>
-<h3>Actual official version: 3.8.0</h3>
+<h3>Actual official version: 3.8.1</h3>
 <hr />
 <h2>New Setup for Installation of Components</h2>
-<p>From 3.8.0 version a new &ldquo;Installer&rdquo; read-to-use is located in the Release area: <a href="https://github.com/EtheaDev/StyledComponents/releases/latest/download/StyledComponents_Setup.exe">Download the Installer</a>.</p>
+<p>From 3.8.1 version a new &ldquo;Installer&rdquo; read-to-use is located in the Release area: <a href="https://github.com/EtheaDev/StyledComponents/releases/latest/download/StyledComponents_Setup.exe">Download the Installer</a>.</p>
 <p>The Installer automatically detect your Delphi versions, installa sources, build and installa packages and add source paths.</p>
 <p><img src="./Images/Setup.png" alt="Setup"/></p>
 <hr />
@@ -352,6 +352,11 @@ <h3>Available from Delphi XE6 to Delphi 12 (32bit and 64bit platforms)</h3>
 <p><img src="./Images/SupportingDelphi.jpg" alt="Delphi Support"/></p>
 <p>Related links: <a href="https://www.embarcadero.com">embarcadero.com</a> - <a href="https://learndelphi.org">learndelphi.org</a></p>
 <h3>RELEASE NOTES</h3>
+<p>12 Mar 2025 - Version 3.8.1</p>
+<ul>
+<li>Added support for Delphi 12 64bit IDE</li>
+<li>Fix storing default ImageMargins of StyledButtons</li>
+</ul>
 <p>18 Jan 2025: version 3.8.0</p>
 <ul>
 <li>Added example of Custom TaskDialog Form in Demo (for Delphi 12)</li>

README.htm

@@ -2,12 +2,12 @@
 
 ## Components similar to Delphi VCL Buttons, Toolbar, DbNavigator, BindNavigator, ButtonGroup and CategoryButtons with Custom Graphic Styles, and an advanced, full-customizable TaskDialog, also with animations!
 
-### Actual official version: 3.8.0
+### Actual official version: 3.8.1
 
 ---
 ## New Setup for Installation of Components
 
-From 3.8.0 version a new "Installer" read-to-use is located in the Release area: [Download the Installer](https://github.com/EtheaDev/StyledComponents/releases/latest/download/StyledComponents_Setup.exe).
+From 3.8.1 version a new "Installer" read-to-use is located in the Release area: [Download the Installer](https://github.com/EtheaDev/StyledComponents/releases/latest/download/StyledComponents_Setup.exe).
 
 The Installer automatically detect your Delphi versions, installa sources, build and installa packages and add source paths.
 
@@ -412,6 +412,10 @@ If you are have Skia4Delphi installed, you can also try the AnimatedTaskDialogDe
 Related links: [embarcadero.com](https://www.embarcadero.com) - [learndelphi.org](https://learndelphi.org)
 
 ### RELEASE NOTES
+12 Mar 2025 - Version 3.8.1
+- Added support for Delphi 12 64bit IDE
+- Fix storing default ImageMargins of StyledButtons
+
 18 Jan 2025: version 3.8.0
 - Added example of Custom TaskDialog Form in Demo (for Delphi 12)
 - Fixed Clear Animation Data for Animated StyledButton

README.md

@@ -55,7 +55,7 @@
         <BuildGroupProject Include="dclStyledComponents.dproj">
             <ProjectGuid>{03F938E4-4CBD-4FD4-86A2-084115D91AA9}</ProjectGuid>
             <Configurations>Release</Configurations>
-            <Platforms>Win32</Platforms>
+            <Platforms>Win32;Win64</Platforms>
             <Enabled>True</Enabled>
         </BuildGroupProject>
     </ItemGroup>

packages/D12/1.Vcl.StyledComponents.groupproj

@@ -55,7 +55,7 @@
         <BuildGroupProject Include="dclStyledAnimatedComponents.dproj">
             <ProjectGuid>{EBF448F0-3AF1-4B95-B1AD-5874F1BABAEC}</ProjectGuid>
             <Configurations>Release</Configurations>
-            <Platforms>Win32</Platforms>
+            <Platforms>Win32;Win64</Platforms>
             <Enabled>True</Enabled>
         </BuildGroupProject>
     </ItemGroup>

packages/D12/2.Vcl.StyledAnimatedComponents.groupproj

@@ -2,7 +2,7 @@
     <PropertyGroup>
         <ProjectGuid>{F870FD7C-4984-4784-8B29-4CDB55E64524}</ProjectGuid>
         <MainSource>StyledComponents.dpk</MainSource>
-        <ProjectVersion>20.2</ProjectVersion>
+        <ProjectVersion>20.3</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Release</Config>
@@ -147,6 +147,7 @@
             <Platforms>
                 <Platform value="Win32">True</Platform>
                 <Platform value="Win64">True</Platform>
+                <Platform value="Win64x">False</Platform>
             </Platforms>
         </BorlandProject>
         <ProjectFileVersion>12</ProjectFileVersion>

packages/D12/StyledComponents.dproj

@@ -7,7 +7,7 @@
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Release</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
-        <TargetedPlatforms>1</TargetedPlatforms>
+        <TargetedPlatforms>3</TargetedPlatforms>
         <AppType>Package</AppType>
         <ProjectName Condition="'$(ProjectName)'==''">dclStyledAnimatedComponents</ProjectName>
     </PropertyGroup>
@@ -68,6 +68,7 @@
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win64)'!=''">
         <DCC_UsePackage>StyledComponents;StyledAnimatedComponents;$(DCC_UsePackage)</DCC_UsePackage>
+        <BT_BuildType>Debug</BT_BuildType>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1)'!=''">
         <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
@@ -121,7 +122,8 @@
             </Delphi.Personality>
             <Platforms>
                 <Platform value="Win32">True</Platform>
-                <Platform value="Win64">False</Platform>
+                <Platform value="Win64">True</Platform>
+                <Platform value="Win64x">False</Platform>
             </Platforms>
         </BorlandProject>
         <ProjectFileVersion>12</ProjectFileVersion>

packages/D12/dclStyledAnimatedComponents.dproj

@@ -2,12 +2,12 @@
     <PropertyGroup>
         <ProjectGuid>{03F938E4-4CBD-4FD4-86A2-084115D91AA9}</ProjectGuid>
         <MainSource>dclStyledComponents.dpk</MainSource>
-        <ProjectVersion>20.2</ProjectVersion>
+        <ProjectVersion>20.3</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Release</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
-        <TargetedPlatforms>1</TargetedPlatforms>
+        <TargetedPlatforms>3</TargetedPlatforms>
         <AppType>Package</AppType>
         <ProjectName Condition="'$(ProjectName)'==''">dclStyledComponents</ProjectName>
     </PropertyGroup>
@@ -24,15 +24,14 @@
         <CfgParent>Base</CfgParent>
         <Base>true</Base>
     </PropertyGroup>
-    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
-        <Cfg_1>true</Cfg_1>
+    <PropertyGroup Condition="('$(Platform)'=='Win64x' and '$(Base)'=='true') or '$(Base_Win64x)'!=''">
+        <Base_Win64x>true</Base_Win64x>
         <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>
+    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
         <Cfg_1>true</Cfg_1>
+        <CfgParent>Base</CfgParent>
         <Base>true</Base>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
@@ -123,7 +122,8 @@
             </Delphi.Personality>
             <Platforms>
                 <Platform value="Win32">True</Platform>
-                <Platform value="Win64">False</Platform>
+                <Platform value="Win64">True</Platform>
+                <Platform value="Win64x">False</Platform>
             </Platforms>
         </BorlandProject>
         <ProjectFileVersion>12</ProjectFileVersion>

packages/D12/dclStyledComponents.dproj

@@ -55,7 +55,7 @@ interface
   ;
 
 const
-  StyledComponentsVersion = '3.7.6';
+  StyledComponentsVersion = '3.8.1';
   DEFAULT_RADIUS = 6;
   RESOURCE_SHIELD_ICON = 'STYLED_BUTTON_SHIELD_ADMIN';
   DEFAULT_MAX_BADGE_VALUE = 99;
@@ -2051,14 +2051,14 @@ procedure DrawButtonText(const ACanvas: TCanvas;
   R: TRect;
   LOldBKMode: Integer;
 begin
-(* for test
+{$IFDEF DEBUG_TEST}
   ACanvas.Brush.Color := clYellow;
   ACanvas.FillRect(ARect);
   ACanvas.Pen.Color := clRed;
   ACanvas.Pen.Width := 1;
   ACanvas.Pen.Style := psSolid;
   ACanvas.Rectangle(ARect);
-*)
+{$ENDIF}
   R := ARect;
   Winapi.Windows.DrawText(ACanvas.Handle, PChar(AText), Length(AText),
     R, ABidiFlags or DT_CALCRECT);
@@ -2080,13 +2080,13 @@ procedure DrawButtonText(const ACanvas: TCanvas;
           R.Top := ARect.Top + ABorderWidth + ASpacing ;
         if R.Bottom > ARect.Bottom - ABorderWidth - Aspacing then
           R.Bottom := ARect.Bottom - ABorderWidth - Aspacing;
-        (* for test
+        {$IFDEF DEBUG_TEST}
         ACanvas.Brush.Color := clRed;
         ACanvas.FillRect(R);
         ACanvas.Pen.Color := clBlue;
         ACanvas.Pen.Width := 1;
         ACanvas.Rectangle(R);
-        *)
+        {$ENDIF}
         Winapi.Windows.DrawText(ACanvas.Handle, PChar(AText),
           Length(AText), R, ABidiFlags or DT_END_ELLIPSIS);
       end