Skip to content

Commit c75158a

Browse files
carloBarazzettacarloBarazzetta
committed
- Added AutoClick and AutoClickDelay properties to StyledButton and StyledGraphicButton
- Added AutoClick and AutoClickDelay properties to StyledTaskDialog - Added "custom" Width and Height of Buttons for Styled Message Dialogs - Added various versions of DoStyledTaskMessageDlg(...) functions and StyledShowMessageFmt procedure - Added EStyledAttributesException for any StyleComponent Exceptions - Added SortBySortOrder to StyledToolbar - Added New AutoClick/Delay Demo for new and old Delphi versions - Updated StyledMessageDlg Demo with AutoClick/Delay and ButtonsWidth - Fixed drawing outside button borders when border is Rounded or RoundRect - Fixed Tag value when Casting to TComponent
1 parent c5aa396 commit c75158a

27 files changed

+5663
-241
lines changed

‎Demos/StyledButtonsDemo/Delphi10.3+/AutoClickDemo.dpr

Lines changed: 46 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,46 @@
1+
{******************************************************************************}
2+
{ }
3+
{ StyledButtonsDemo: a Demo to show StyledButtons }
4+
{ with different Familes (Classic, Bootstrap and Angular }
5+
{ }
6+
{ Copyright (c) 2022-2024 (Ethea S.r.l.) }
7+
{ Author: Carlo Barazzetta }
8+
{ Contributors: }
9+
{ }
10+
{ https://github.com/EtheaDev/StyledComponents }
11+
{ }
12+
{******************************************************************************}
13+
{ }
14+
{ Licensed under the Apache License, Version 2.0 (the "License"); }
15+
{ you may not use this file except in compliance with the License. }
16+
{ You may obtain a copy of the License at }
17+
{ }
18+
{ http://www.apache.org/licenses/LICENSE-2.0 }
19+
{ }
20+
{ Unless required by applicable law or agreed to in writing, software }
21+
{ distributed under the License is distributed on an "AS IS" BASIS, }
22+
{ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. }
23+
{ See the License for the specific language governing permissions and }
24+
{ limitations under the License. }
25+
{ }
26+
{******************************************************************************}
27+
program AutoClickDemo;
28+
29+
uses
30+
Vcl.Forms,
31+
MainFormAutoClick in '..\MainFormAutoClick.pas' {AutoClickMain},
32+
Vcl.Themes,
33+
Vcl.Styles,
34+
DResources in '..\DResources.pas' {dmResources: TDataModule};
35+
36+
{$R *.res}
37+
38+
begin
39+
Application.Initialize;
40+
Application.MainFormOnTaskbar := True;
41+
Application.Title := 'Auto-Click Demo - (c) Copyright Ethea S.r.l.';
42+
43+
Application.CreateForm(TdmResources, dmResources);
44+
Application.CreateForm(TAutoClickMain, AutoClickMain);
45+
Application.Run;
46+
end.

‎Demos/StyledButtonsDemo/Delphi10.3+/AutoClickDemo.dproj

Lines changed: 177 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,177 @@
1+
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
2+
<PropertyGroup>
3+
<ProjectGuid>{3CC268E1-AFBB-48A8-85F1-2F539C386709}</ProjectGuid>
4+
<ProjectVersion>20.1</ProjectVersion>
5+
<FrameworkType>VCL</FrameworkType>
6+
<MainSource>AutoClickDemo.dpr</MainSource>
7+
<Base>True</Base>
8+
<Config Condition="'$(Config)'==''">Debug</Config>
9+
<Platform Condition="'$(Platform)'==''">Win64</Platform>
10+
<TargetedPlatforms>3</TargetedPlatforms>
11+
<AppType>Application</AppType>
12+
</PropertyGroup>
13+
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
14+
<Base>true</Base>
15+
</PropertyGroup>
16+
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
17+
<Base_Win32>true</Base_Win32>
18+
<CfgParent>Base</CfgParent>
19+
<Base>true</Base>
20+
</PropertyGroup>
21+
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
22+
<Base_Win64>true</Base_Win64>
23+
<CfgParent>Base</CfgParent>
24+
<Base>true</Base>
25+
</PropertyGroup>
26+
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
27+
<Cfg_1>true</Cfg_1>
28+
<CfgParent>Base</CfgParent>
29+
<Base>true</Base>
30+
</PropertyGroup>
31+
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
32+
<Cfg_1_Win32>true</Cfg_1_Win32>
33+
<CfgParent>Cfg_1</CfgParent>
34+
<Cfg_1>true</Cfg_1>
35+
<Base>true</Base>
36+
</PropertyGroup>
37+
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
38+
<Cfg_2>true</Cfg_2>
39+
<CfgParent>Base</CfgParent>
40+
<Base>true</Base>
41+
</PropertyGroup>
42+
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
43+
<Cfg_2_Win32>true</Cfg_2_Win32>
44+
<CfgParent>Cfg_2</CfgParent>
45+
<Cfg_2>true</Cfg_2>
46+
<Base>true</Base>
47+
</PropertyGroup>
48+
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
49+
<Cfg_2_Win64>true</Cfg_2_Win64>
50+
<CfgParent>Cfg_2</CfgParent>
51+
<Cfg_2>true</Cfg_2>
52+
<Base>true</Base>
53+
</PropertyGroup>
54+
<PropertyGroup Condition="'$(Base)'!=''">
55+
<DCC_E>false</DCC_E>
56+
<DCC_F>false</DCC_F>
57+
<DCC_K>false</DCC_K>
58+
<DCC_N>false</DCC_N>
59+
<DCC_S>false</DCC_S>
60+
<DCC_ImageBase>00400000</DCC_ImageBase>
61+
<SanitizedProjectName>AutoClickDemo</SanitizedProjectName>
62+
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
63+
<VerInfo_Locale>1046</VerInfo_Locale>
64+
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName=</VerInfo_Keys>
65+
<DCC_UnitSearchPath>..\..\..\Source;..\..\..\Packages;D:\Ethea\SvgIconImageList\Source;D:\Ethea\SvgIconImageList\Image32\Source;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
66+
<Custom_Styles>&quot;Iceberg Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\IcebergClassico.vsf&quot;;&quot;Tablet Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\TabletLight.vsf&quot;;Windows10|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10.vsf;&quot;Windows10 Blue|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Blue.vsf&quot;;&quot;Windows10 Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Dark.vsf&quot;;&quot;Windows10 Green|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Green.vsf&quot;;&quot;Windows10 Purple|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Purple.vsf&quot;;&quot;Windows10 SlateGray|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10SlateGray.vsf&quot;;&quot;Golden Graphite|VCLSTYLE|$(BDSCOMMONDIR)\Styles\GoldenGraphite.vsf&quot;;&quot;Ruby Graphite|VCLSTYLE|$(BDSCOMMONDIR)\Styles\RubyGraphite.vsf&quot;</Custom_Styles>
67+
<DCC_ExeOutput>..\..\Bin\$(Platform)</DCC_ExeOutput>
68+
<DCC_DcuOutput>..\..\Dcu\D10\$(Platform)\$(Config)</DCC_DcuOutput>
69+
<DCC_Define>UseStyledCompEditorsAtRunTime;$(DCC_Define)</DCC_Define>
70+
</PropertyGroup>
71+
<PropertyGroup Condition="'$(Base_Win32)'!=''">
72+
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
73+
<BT_BuildType>Debug</BT_BuildType>
74+
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
75+
<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>
76+
<VerInfo_Locale>1033</VerInfo_Locale>
77+
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
78+
<Icon_MainIcon>..\..\StyledButton.ico</Icon_MainIcon>
79+
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
80+
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
81+
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
82+
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
83+
</PropertyGroup>
84+
<PropertyGroup Condition="'$(Base_Win64)'!=''">
85+
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
86+
<Icon_MainIcon>..\..\StyledButton.ico</Icon_MainIcon>
87+
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
88+
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
89+
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
90+
<BT_BuildType>Debug</BT_BuildType>
91+
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
92+
<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>
93+
<VerInfo_Locale>1033</VerInfo_Locale>
94+
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
95+
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
96+
</PropertyGroup>
97+
<PropertyGroup Condition="'$(Cfg_1)'!=''">
98+
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
99+
<DCC_DebugInformation>0</DCC_DebugInformation>
100+
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
101+
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
102+
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
103+
<VerInfo_Locale>1033</VerInfo_Locale>
104+
<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>
105+
<Icon_MainIcon>..\..\Ethea_vela_multires.ico</Icon_MainIcon>
106+
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
107+
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
108+
</PropertyGroup>
109+
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
110+
<Icon_MainIcon>..\..\StyledButton.ico</Icon_MainIcon>
111+
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
112+
</PropertyGroup>
113+
<PropertyGroup Condition="'$(Cfg_2)'!=''">
114+
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
115+
<DCC_Optimize>false</DCC_Optimize>
116+
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
117+
<DCC_DebugDCUs>true</DCC_DebugDCUs>
118+
</PropertyGroup>
119+
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
120+
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
121+
<VerInfo_Locale>1033</VerInfo_Locale>
122+
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
123+
<DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
124+
<DCC_RangeChecking>true</DCC_RangeChecking>
125+
</PropertyGroup>
126+
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
127+
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
128+
<VerInfo_Locale>1033</VerInfo_Locale>
129+
<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>
130+
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
131+
</PropertyGroup>
132+
<ItemGroup>
133+
<DelphiCompile Include="$(MainSource)">
134+
<MainSource>MainSource</MainSource>
135+
</DelphiCompile>
136+
<DCCReference Include="..\MainFormAutoClick.pas">
137+
<Form>AutoClickMain</Form>
138+
</DCCReference>
139+
<DCCReference Include="..\DResources.pas">
140+
<Form>dmResources</Form>
141+
<DesignClass>TDataModule</DesignClass>
142+
</DCCReference>
143+
<BuildConfiguration Include="Base">
144+
<Key>Base</Key>
145+
</BuildConfiguration>
146+
<BuildConfiguration Include="Release">
147+
<Key>Cfg_1</Key>
148+
<CfgParent>Base</CfgParent>
149+
</BuildConfiguration>
150+
<BuildConfiguration Include="Debug">
151+
<Key>Cfg_2</Key>
152+
<CfgParent>Base</CfgParent>
153+
</BuildConfiguration>
154+
</ItemGroup>
155+
<ProjectExtensions>
156+
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
157+
<Borland.ProjectType/>
158+
<BorlandProject>
159+
<Delphi.Personality>
160+
<Source>
161+
<Source Name="MainSource">AutoClickDemo.dpr</Source>
162+
</Source>
163+
<Excluded_Packages/>
164+
</Delphi.Personality>
165+
<Platforms>
166+
<Platform value="Android64">False</Platform>
167+
<Platform value="iOSDevice64">False</Platform>
168+
<Platform value="Win32">True</Platform>
169+
<Platform value="Win64">True</Platform>
170+
</Platforms>
171+
<ModelSupport>False</ModelSupport>
172+
</BorlandProject>
173+
<ProjectFileVersion>12</ProjectFileVersion>
174+
</ProjectExtensions>
175+
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
176+
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
177+
</Project>

‎Demos/StyledButtonsDemo/Delphi10.3+/AutoClickDemo.res

1.28 MB
Binary file not shown.

‎Demos/StyledButtonsDemo/DelphiOld/AutoClickDemo.dpr

Lines changed: 44 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,44 @@
1+
{******************************************************************************}
2+
{ }
3+
{ StyledButtonsDemo: a Demo to show StyledButtons }
4+
{ with different Familes (Classic, Bootstrap and Angular }
5+
{ }
6+
{ Copyright (c) 2022-2024 (Ethea S.r.l.) }
7+
{ Author: Carlo Barazzetta }
8+
{ Contributors: }
9+
{ }
10+
{ https://github.com/EtheaDev/StyledComponents }
11+
{ }
12+
{******************************************************************************}
13+
{ }
14+
{ Licensed under the Apache License, Version 2.0 (the "License"); }
15+
{ you may not use this file except in compliance with the License. }
16+
{ You may obtain a copy of the License at }
17+
{ }
18+
{ http://www.apache.org/licenses/LICENSE-2.0 }
19+
{ }
20+
{ Unless required by applicable law or agreed to in writing, software }
21+
{ distributed under the License is distributed on an "AS IS" BASIS, }
22+
{ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. }
23+
{ See the License for the specific language governing permissions and }
24+
{ limitations under the License. }
25+
{ }
26+
{******************************************************************************}
27+
program AutoClickDemo;
28+
29+
uses
30+
Vcl.Forms,
31+
MainFormAutoClickOld in '..\MainFormAutoClickOld.pas' {AutoClickMain},
32+
Vcl.Themes,
33+
Vcl.Styles;
34+
35+
{$R *.res}
36+
37+
begin
38+
Application.Initialize;
39+
Application.MainFormOnTaskbar := True;
40+
Application.Title := 'Auto-Click Demo - (c) Copyright Ethea S.r.l.';
41+
42+
Application.CreateForm(TAutoClickMain, AutoClickMain);
43+
Application.Run;
44+
end.

0 commit comments

Comments
 (0)