Skip to content

Commit 2e1f249

Browse files
carloBarazzettacarloBarazzetta
committed
version 3.6.6
- Created a new demo comprehensive of all components (StyledComponentsDemo) - Removed old single Component Demos - Fixed "resource not found" into IDE for StyledBitBtn - Fixed Dialogs position using multimonitor - Fixed UseCommandLinks option - Fixed Scalefactor for XE6 - Fixed Height of buttons in StyledCategoryButtons (before Delphi 10.4)
1 parent d477034 commit 2e1f249

File tree

336 files changed

+32154
-43797
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

336 files changed

+32154
-43797
lines changed

Demos/StyledCategoryButtons/Delphi10.4+/StyledCategoryButtonsDemo.dpr renamed to Demos/Delphi10.0/StyledComponentsDemo.dpr

Lines changed: 25 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
{******************************************************************************}
22
{ }
3-
{ TStyledCategoryButtons Demo }
4-
{ Comparison TStyledCategoryButtons with TCategoryButtons }
3+
{ TStyledComponents Demo }
4+
{ Full demo of Styled Components and Styled TaskDialog/MessageDialog }
55
{ }
66
{ Copyright (c) 2022-2024 (Ethea S.r.l.) }
77
{ Author: Carlo Barazzetta }
@@ -24,26 +24,38 @@
2424
{ limitations under the License. }
2525
{ }
2626
{******************************************************************************}
27-
program StyledCategoryButtonsDemo;
27+
program StyledComponentsDemo;
2828

2929
uses
30+
Midaslib,
3031
Vcl.Forms,
31-
MainForm in 'MainForm.pas' {fmMain},
32-
DResources in 'DResources.pas' {dmResources: TDataModule},
3332
Vcl.Themes,
34-
Vcl.Styles;
33+
Vcl.Styles,
34+
uSettings in '..\source\uSettings.pas',
35+
MainDemoForm in '..\source\MainDemoForm.pas' {frmMain},
36+
DResourcesOld in '..\source\DResourcesOld.pas' {dmResources: TDataModule},
37+
DemoWelcomeForm in '..\source\DemoWelcomeForm.pas' {WelcomeForm},
38+
FAboutForm in '..\source\FAboutForm.pas' {fmAbout},
39+
AutoClickFormOld in '..\source\AutoClickFormOld.pas' {fmAutoClick},
40+
BitBtnForm in '..\source\BitBtnForm.pas' {fmBitBtn},
41+
RoundedCornersFormOld in '..\source\RoundedCornersFormOld.pas' {fmRoundedCorners},
42+
StyledButtonGroupFormOld in '..\source\StyledButtonGroupFormOld.pas' {fmStyledButtonGroup},
43+
StyledButtonsFormOld in '..\source\StyledButtonsFormOld.pas' {fmStyledButtons},
44+
StyledCategoryButtonsFormOld in '..\source\StyledCategoryButtonsFormOld.pas' {fmStyledCategoryButtons},
45+
StyledDbNavigatorFormOld in '..\source\StyledDbNavigatorFormOld.pas' {fmStyledDbNavigator},
46+
StyledDialogDemoForm in '..\source\StyledDialogDemoForm.pas' {fmStyledTaskDialog},
47+
StyledToolbarFormOld in '..\source\StyledToolbarFormOld.pas' {fmStyledToolbar};
3548

3649
{$R *.res}
3750

3851
begin
3952
Application.Initialize;
40-
Application.MainFormOnTaskbar := True;
41-
Application.Title := 'Styled CategoryButtons Demo - (c) Ethea S.r.l.';
42-
43-
//Example to define a default Rendering Style for Styled Buttons
44-
//TStyledCategoryButtons.RegisterDefaultRenderingStyle(btRounded);
45-
53+
Application.MainFormOnTaskBar := True;
54+
Application.ActionUpdateDelay := 50;
55+
Application.Title := 'Styled Components Demos with Delphi 10.0';
56+
//Uses System Style for border / shadow of Forms
57+
TStyleManager.FormBorderStyle := TStyleManager.TFormBorderStyle.fbsSystemStyle;
4658
Application.CreateForm(TdmResources, dmResources);
47-
Application.CreateForm(TfmMain, fmMain);
59+
Application.CreateForm(TfrmMain, frmMain);
4860
Application.Run;
4961
end.

‎Demos/Delphi10.0/StyledComponentsDemo.dproj‎

Lines changed: 158 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,158 @@
1+
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
2+
<PropertyGroup>
3+
<ProjectGuid>{047fe5f8-daec-48d4-964e-bae8e6313cc6}</ProjectGuid>
4+
<ProjectVersion>20.2</ProjectVersion>
5+
<FrameworkType>VCL</FrameworkType>
6+
<Base>True</Base>
7+
<Config Condition="'$(Config)'==''">Debug</Config>
8+
<Platform Condition="'$(Platform)'==''">Win64</Platform>
9+
<ProjectName Condition="'$(ProjectName)'==''">StyledComponentsDemo</ProjectName>
10+
<TargetedPlatforms>3</TargetedPlatforms>
11+
<AppType>Application</AppType>
12+
<MainSource>StyledComponentsDemo.dpr</MainSource>
13+
</PropertyGroup>
14+
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
15+
<Base>true</Base>
16+
</PropertyGroup>
17+
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
18+
<Base_Win32>true</Base_Win32>
19+
<CfgParent>Base</CfgParent>
20+
<Base>true</Base>
21+
</PropertyGroup>
22+
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
23+
<Base_Win64>true</Base_Win64>
24+
<CfgParent>Base</CfgParent>
25+
<Base>true</Base>
26+
</PropertyGroup>
27+
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
28+
<Cfg_1>true</Cfg_1>
29+
<CfgParent>Base</CfgParent>
30+
<Base>true</Base>
31+
</PropertyGroup>
32+
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
33+
<Cfg_2>true</Cfg_2>
34+
<CfgParent>Base</CfgParent>
35+
<Base>true</Base>
36+
</PropertyGroup>
37+
<PropertyGroup Condition="'$(Base)'!=''">
38+
<DCC_DcuOutput>..\Dcu\D10_0\$(Platform)</DCC_DcuOutput>
39+
<DCC_E>false</DCC_E>
40+
<DCC_N>false</DCC_N>
41+
<DCC_S>false</DCC_S>
42+
<DCC_F>false</DCC_F>
43+
<DCC_K>false</DCC_K>
44+
<VerInfo_Locale>1033</VerInfo_Locale>
45+
<SanitizedProjectName>StyledComponentsDemo</SanitizedProjectName>
46+
<DCC_ExeOutput>..\Bin\$(Platform)</DCC_ExeOutput>
47+
<VerInfo_Keys>CompanyName=Ethea S.r.l.;FileDescription=Styled Components Demo;FileVersion=1.0.0.0;InternalName=;LegalCopyright=Copyright Ethea S.r.l.;LegalTrademarks=;OriginalFilename=;ProgramID=;ProductName=;ProductVersion=1.0;Comments=</VerInfo_Keys>
48+
<DCC_UnitSearchPath>..\..\source;..\source;..\..\packages;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
49+
<Custom_Styles>Amakrits|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Amakrits.vsf;&quot;Amethyst Kamri|VCLSTYLE|$(BDSCOMMONDIR)\Styles\AmethystKamri.vsf&quot;;&quot;Aqua Graphite|VCLSTYLE|$(BDSCOMMONDIR)\Styles\AquaGraphite.vsf&quot;;&quot;Aqua Light Slate|VCLSTYLE|$(BDSCOMMONDIR)\Styles\AquaLightSlate.vsf&quot;;Auric|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Auric.vsf;Carbon|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Carbon.vsf;&quot;Charcoal Dark Slate|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CharcoalDarkSlate.vsf&quot;;&quot;Cobalt XEMedia|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CobaltXEMedia.vsf&quot;;&quot;Cyan Dusk|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CyanDusk.vsf&quot;;&quot;Cyan Night|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CyanNight.vsf&quot;;&quot;Emerald Light Slate|VCLSTYLE|$(BDSCOMMONDIR)\Styles\EmeraldLightSlate.vsf&quot;;Glossy|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Glossy.vsf;Glow|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Glow.vsf;&quot;Golden Graphite|VCLSTYLE|$(BDSCOMMONDIR)\Styles\GoldenGraphite.vsf&quot;;&quot;Iceberg Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\IcebergClassico.vsf&quot;;&quot;Lavender Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\LavenderClassico.vsf&quot;;Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Light.vsf;Luna|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Luna.vsf;&quot;Metropolis UI Black|VCLSTYLE|$(BDSCOMMONDIR)\Styles\MetropolisUIBlack.vsf&quot;;&quot;Metropolis UI Blue|VCLSTYLE|$(BDSCOMMONDIR)\Styles\MetropolisUIBlue.vsf&quot;;&quot;Metropolis UI Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\MetropolisUIDark.vsf&quot;;&quot;Metropolis UI Green|VCLSTYLE|$(BDSCOMMONDIR)\Styles\MetropolisUIGreen.vsf&quot;;Obsidian|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Obsidian.vsf;&quot;Onyx Blue|VCLSTYLE|$(BDSCOMMONDIR)\Styles\OnyxBlue.vsf&quot;;&quot;Ruby Graphite|VCLSTYLE|$(BDSCOMMONDIR)\Styles\RubyGraphite.vsf&quot;;&quot;Sapphire Kamri|VCLSTYLE|$(BDSCOMMONDIR)\Styles\SapphireKamri.vsf&quot;;Silver|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Silver.vsf;Sky|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Sky.vsf;&quot;Slate Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\SlateClassico.vsf&quot;;&quot;Smokey Quartz Kamri|VCLSTYLE|$(BDSCOMMONDIR)\Styles\SmokeyQuartzKamri.vsf&quot;;&quot;Tablet Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\TabletLight.vsf&quot;;TabletDark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\TabletDark.vsf;&quot;Turquoise Gray|VCLSTYLE|$(BDSCOMMONDIR)\Styles\TurquoiseGray.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;</Custom_Styles>
50+
<DCC_Define>UseStyledCompEditorsAtRunTime;$(DCC_Define)</DCC_Define>
51+
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
52+
<DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
53+
<DCC_RangeChecking>true</DCC_RangeChecking>
54+
</PropertyGroup>
55+
<PropertyGroup Condition="'$(Base_Win32)'!=''">
56+
<BT_BuildType>Debug</BT_BuildType>
57+
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
58+
<Icon_MainIcon>..\source\StyledButton.ico</Icon_MainIcon>
59+
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
60+
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
61+
</PropertyGroup>
62+
<PropertyGroup Condition="'$(Base_Win64)'!=''">
63+
<BT_BuildType>Debug</BT_BuildType>
64+
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
65+
<Icon_MainIcon>..\source\StyledButton.ico</Icon_MainIcon>
66+
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
67+
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
68+
</PropertyGroup>
69+
<PropertyGroup Condition="'$(Cfg_1)'!=''">
70+
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
71+
<DCC_DebugDCUs>true</DCC_DebugDCUs>
72+
<DCC_Optimize>false</DCC_Optimize>
73+
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
74+
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
75+
</PropertyGroup>
76+
<PropertyGroup Condition="'$(Cfg_2)'!=''">
77+
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
78+
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
79+
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
80+
<DCC_DebugInformation>0</DCC_DebugInformation>
81+
</PropertyGroup>
82+
<ItemGroup>
83+
<DelphiCompile Include="$(MainSource)">
84+
<MainSource>MainSource</MainSource>
85+
</DelphiCompile>
86+
<DCCReference Include="..\source\uSettings.pas"/>
87+
<DCCReference Include="..\source\MainDemoForm.pas">
88+
<Form>frmMain</Form>
89+
</DCCReference>
90+
<DCCReference Include="..\source\DResourcesOld.pas">
91+
<Form>dmResources</Form>
92+
<DesignClass>TDataModule</DesignClass>
93+
</DCCReference>
94+
<DCCReference Include="..\source\DemoWelcomeForm.pas">
95+
<Form>WelcomeForm</Form>
96+
</DCCReference>
97+
<DCCReference Include="..\source\FAboutForm.pas">
98+
<Form>fmAbout</Form>
99+
</DCCReference>
100+
<DCCReference Include="..\source\AutoClickFormOld.pas">
101+
<Form>fmAutoClick</Form>
102+
</DCCReference>
103+
<DCCReference Include="..\source\BitBtnForm.pas">
104+
<Form>fmBitBtn</Form>
105+
</DCCReference>
106+
<DCCReference Include="..\source\RoundedCornersFormOld.pas">
107+
<Form>fmRoundedCorners</Form>
108+
</DCCReference>
109+
<DCCReference Include="..\source\StyledButtonGroupFormOld.pas">
110+
<Form>fmStyledButtonGroup</Form>
111+
</DCCReference>
112+
<DCCReference Include="..\source\StyledButtonsFormOld.pas">
113+
<Form>fmStyledButtons</Form>
114+
</DCCReference>
115+
<DCCReference Include="..\source\StyledCategoryButtonsFormOld.pas">
116+
<Form>fmStyledCategoryButtons</Form>
117+
</DCCReference>
118+
<DCCReference Include="..\source\StyledDbNavigatorFormOld.pas">
119+
<Form>fmStyledDbNavigator</Form>
120+
</DCCReference>
121+
<DCCReference Include="..\source\StyledDialogDemoForm.pas">
122+
<Form>fmStyledTaskDialog</Form>
123+
</DCCReference>
124+
<DCCReference Include="..\source\StyledToolbarFormOld.pas">
125+
<Form>fmStyledToolbar</Form>
126+
</DCCReference>
127+
<BuildConfiguration Include="Base">
128+
<Key>Base</Key>
129+
</BuildConfiguration>
130+
<BuildConfiguration Include="Debug">
131+
<Key>Cfg_1</Key>
132+
<CfgParent>Base</CfgParent>
133+
</BuildConfiguration>
134+
<BuildConfiguration Include="Release">
135+
<Key>Cfg_2</Key>
136+
<CfgParent>Base</CfgParent>
137+
</BuildConfiguration>
138+
</ItemGroup>
139+
<ProjectExtensions>
140+
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
141+
<Borland.ProjectType>Application</Borland.ProjectType>
142+
<BorlandProject>
143+
<Delphi.Personality>
144+
<Source>
145+
<Source Name="MainSource">StyledComponentsDemo.dpr</Source>
146+
</Source>
147+
<Excluded_Packages/>
148+
</Delphi.Personality>
149+
<Platforms>
150+
<Platform value="Win32">True</Platform>
151+
<Platform value="Win64">True</Platform>
152+
</Platforms>
153+
</BorlandProject>
154+
<ProjectFileVersion>12</ProjectFileVersion>
155+
</ProjectExtensions>
156+
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
157+
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
158+
</Project>

Demos/RoundedCornersDemo/DelphiOld/StyledRoundedCornersDemo.dpr renamed to Demos/Delphi10.1/StyledComponentsDemo.dpr

Lines changed: 25 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
{******************************************************************************}
22
{ }
3-
{ StyledRoundedCorners Demo }
4-
{ Using StyledRoundedCorners options for Styled Components }
3+
{ TStyledComponents Demo }
4+
{ Full demo of Styled Components and Styled TaskDialog/MessageDialog }
55
{ }
66
{ Copyright (c) 2022-2024 (Ethea S.r.l.) }
77
{ Author: Carlo Barazzetta }
@@ -24,23 +24,38 @@
2424
{ limitations under the License. }
2525
{ }
2626
{******************************************************************************}
27-
program StyledRoundedCornersDemo;
27+
program StyledComponentsDemo;
2828

2929
uses
30+
Midaslib,
3031
Vcl.Forms,
3132
Vcl.Themes,
3233
Vcl.Styles,
33-
Vcl.StyledButtonGroup,
34-
Vcl.ButtonStylesAttributes,
35-
MainFormOld in 'MainFormOld.pas' {fmMain};
34+
uSettings in '..\source\uSettings.pas',
35+
MainDemoForm in '..\source\MainDemoForm.pas' {frmMain},
36+
DResourcesOld in '..\source\DResourcesOld.pas' {dmResources: TDataModule},
37+
DemoWelcomeForm in '..\source\DemoWelcomeForm.pas' {WelcomeForm},
38+
FAboutForm in '..\source\FAboutForm.pas' {fmAbout},
39+
AutoClickFormOld in '..\source\AutoClickFormOld.pas' {fmAutoClick},
40+
BitBtnForm in '..\source\BitBtnForm.pas' {fmBitBtn},
41+
RoundedCornersFormOld in '..\source\RoundedCornersFormOld.pas' {fmRoundedCorners},
42+
StyledButtonGroupFormOld in '..\source\StyledButtonGroupFormOld.pas' {fmStyledButtonGroup},
43+
StyledButtonsFormOld in '..\source\StyledButtonsFormOld.pas' {fmStyledButtons},
44+
StyledCategoryButtonsFormOld in '..\source\StyledCategoryButtonsFormOld.pas' {fmStyledCategoryButtons},
45+
StyledDbNavigatorFormOld in '..\source\StyledDbNavigatorFormOld.pas' {fmStyledDbNavigator},
46+
StyledDialogDemoForm in '..\source\StyledDialogDemoForm.pas' {fmStyledTaskDialog},
47+
StyledToolbarFormOld in '..\source\StyledToolbarFormOld.pas' {fmStyledToolbar};
3648

3749
{$R *.res}
3850

3951
begin
4052
Application.Initialize;
41-
Application.MainFormOnTaskbar := True;
42-
Application.Title := 'Styled RoundedCorners Demo - (c) Ethea S.r.l.';
43-
44-
Application.CreateForm(TfmMain, fmMain);
53+
Application.MainFormOnTaskBar := True;
54+
Application.ActionUpdateDelay := 50;
55+
Application.Title := 'Styled Components Demos with Delphi 10.1';
56+
//Uses System Style for border / shadow of Forms
57+
TStyleManager.FormBorderStyle := TStyleManager.TFormBorderStyle.fbsSystemStyle;
58+
Application.CreateForm(TdmResources, dmResources);
59+
Application.CreateForm(TfrmMain, frmMain);
4560
Application.Run;
4661
end.

0 commit comments

Comments
 (0)