Skip to content

Commit 8f36359

Browse files
carloBarazzettacarloBarazzetta
committed
version 3.4.4
- Fixed StyledDbNavigator icon resize - Added TStyledButtonCategory to interposer unit - Added packages for Delphi XE7
1 parent dd23dcf commit 8f36359

13 files changed

+888
-22
lines changed

‎Demos/StyledDbNavigator/DelphiOld/MainFormOld.dfm

Lines changed: 15 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -134,8 +134,8 @@ object fmMain: TfmMain
134134
object ClientPanel: TPanel
135135
Left = 0
136136
Top = 200
137-
Width = 733
138-
Height = 220
137+
Width = 737
138+
Height = 221
139139
Align = alClient
140140
TabOrder = 1
141141
object DBGrid1: TDBGrid
@@ -155,8 +155,8 @@ object fmMain: TfmMain
155155
end
156156
object Panel1: TPanel
157157
Left = 0
158-
Top = 499
159-
Width = 733
158+
Top = 500
159+
Width = 737
160160
Height = 33
161161
Align = alBottom
162162
TabOrder = 2
@@ -180,7 +180,7 @@ object fmMain: TfmMain
180180
object DBNavigator: TDBNavigator
181181
Left = 0
182182
Top = 0
183-
Width = 733
183+
Width = 737
184184
Height = 50
185185
DataSource = DataSource
186186
VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh, nbApplyUpdates, nbCancelUpdates]
@@ -189,8 +189,8 @@ object fmMain: TfmMain
189189
end
190190
object StyledDBNavigator: TStyledDbNavigator
191191
Left = 0
192-
Top = 94
193-
Width = 733
192+
Top = 100
193+
Width = 737
194194
Height = 50
195195
Align = alTop
196196
DataSource = DataSource
@@ -200,7 +200,7 @@ object fmMain: TfmMain
200200
object StyledBindNavigator: TStyledBindNavigator
201201
Left = 0
202202
Top = 150
203-
Width = 733
203+
Width = 737
204204
Height = 50
205205
Align = alTop
206206
DataSource = BindSourceDB
@@ -211,7 +211,7 @@ object fmMain: TfmMain
211211
object BindNavigator: TBindNavigator
212212
Left = 0
213213
Top = 50
214-
Width = 733
214+
Width = 737
215215
Height = 50
216216
DataSource = BindSourceDB
217217
VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh, nbApplyUpdates, nbCancelUpdates]
@@ -245,6 +245,11 @@ object fmMain: TfmMain
245245
end
246246
end
247247
object ClientDataSet: TClientDataSet
248+
Active = True
249+
Aggregates = <>
250+
Params = <>
251+
Left = 152
252+
Top = 192
248253
Data = {
249254
60F100009619E0BD01000000180000000900E803000003000000183002494404
250255
0001001200010007535542545950450200490008004175746F696E63000A4375
@@ -2178,11 +2183,6 @@ object fmMain: TfmMain
21782183
064D617374657200000000D071F3400100000004004000E80300000D00000007
21792184
00000000003848A8BACC420044D1A75F40CB420456697361000000000038E840
21802185
01000000}
2181-
Active = True
2182-
Aggregates = <>
2183-
Params = <>
2184-
Left = 152
2185-
Top = 192
21862186
object ClientDataSetID: TAutoIncField
21872187
FieldName = 'ID'
21882188
ReadOnly = True
@@ -2234,7 +2234,7 @@ object fmMain: TfmMain
22342234
Left = 476
22352235
Top = 274
22362236
Bitmap = {
2237-
494C01010C00B000080020002000FFFFFFFF2110FFFFFFFFFFFFFFFF424D3600
2237+
494C01010C00B0000C0020002000FFFFFFFF2110FFFFFFFFFFFFFFFF424D3600
22382238
0000000000003600000028000000800000008000000001002000000000000000
22392239
0100000000000000000000000000000000000000000000000000000000000000
22402240
0000000000000000000000000000000000000000000000000000000000000000

‎Demos/StyledDbNavigator/DelphiOld/MainFormOld.pas

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -38,8 +38,7 @@ interface
3838
Data.Bind.Components, Data.Bind.DBScope, Vcl.Bind.Navigator,
3939
Vcl.StyledButton, Vcl.ButtonStylesAttributes,
4040
Vcl.StandardButtonStyles, Vcl.AngularButtonStyles,
41-
Vcl.BootstrapButtonStyles, Vcl.ColorButtonStyles, Vcl.StyledDbNavigator,
42-
System.ImageList, Vcl.VirtualImageList;
41+
Vcl.BootstrapButtonStyles, Vcl.ColorButtonStyles, Vcl.StyledDbNavigator;
4342

4443
const
4544
//Params to check

‎README.htm

Lines changed: 7 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -31,7 +31,7 @@
3131
</style>
3232
<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>
3333
<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>
34-
<h3>Actual official version: 3.4.3</h3>
34+
<h3>Actual official version: 3.4.4</h3>
3535
<h2>List of available Components:</h2>
3636
<table>
3737
<tr>
@@ -298,6 +298,12 @@ <h3>Available from Delphi XE6 to Delphi 12 (32bit and 64bit platforms)</h3>
298298
<p><img src="./Images/SupportingDelphi.jpg" alt="Delphi Support"/></p>
299299
<p>Related links: <a href="https://www.embarcadero.com">embarcadero.com</a> - <a href="https://learndelphi.org">learndelphi.org</a></p>
300300
<h3>RELEASE NOTES</h3>
301+
<p>19 Apr 2024: version 3.4.4</p>
302+
<ul>
303+
<li>Fixed StyledDbNavigator icon resize</li>
304+
<li>Added TStyledButtonCategory to interposer unit</li>
305+
<li>Added packages for Delphi XE7</li>
306+
</ul>
301307
<p>13 Apr 2024: version 3.4.3</p>
302308
<ul>
303309
<li>Fixed internal VirtualImageList for StyledDbNavigator</li>

‎README.md

Lines changed: 6 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22

33
## 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!
44

5-
### Actual official version: 3.4.3
5+
### Actual official version: 3.4.4
66

77
## List of available Components:
88
| Component | Description |
@@ -325,6 +325,11 @@ If you are have Skia4Delphi installed, you can also try the AnimatedTaskDialogDe
325325
Related links: [embarcadero.com](https://www.embarcadero.com) - [learndelphi.org](https://learndelphi.org)
326326

327327
### RELEASE NOTES
328+
19 Apr 2024: version 3.4.4
329+
- Fixed StyledDbNavigator icon resize
330+
- Added TStyledButtonCategory to interposer unit
331+
- Added packages for Delphi XE7
332+
328333
13 Apr 2024: version 3.4.3
329334
- Fixed internal VirtualImageList for StyledDbNavigator
330335
- Fixed resize icons for StyledDbNavigator and StyledToolbar changing monitor

‎packages/DXE7/StyledComponents.dpk

Lines changed: 91 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,91 @@
1+
{******************************************************************************}
2+
{ }
3+
{ StyledComponents: a set of Styled VCL Component }
4+
{ }
5+
{ Copyright (c) 2022-2024 (Ethea S.r.l.) }
6+
{ Author: Carlo Barazzetta }
7+
{ Contributors: }
8+
{ }
9+
{ https://github.com/EtheaDev/StyledComponents }
10+
{ }
11+
{******************************************************************************}
12+
{ }
13+
{ Licensed under the Apache License, Version 2.0 (the "License"); }
14+
{ you may not use this file except in compliance with the License. }
15+
{ You may obtain a copy of the License at }
16+
{ }
17+
{ http://www.apache.org/licenses/LICENSE-2.0 }
18+
{ }
19+
{ Unless required by applicable law or agreed to in writing, software }
20+
{ distributed under the License is distributed on an "AS IS" BASIS, }
21+
{ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. }
22+
{ See the License for the specific language governing permissions and }
23+
{ limitations under the License. }
24+
{ }
25+
{******************************************************************************}
26+
package StyledComponents;
27+
28+
{$R *.res}
29+
{$R '..\StyledButton.dcr'}
30+
{$R '..\StyledTaskDialog.dcr'}
31+
{$R '..\StyledToolbar.dcr'}
32+
{$R '..\StyledDbNavigator.dcr'}
33+
{$R '..\StyledButtonGroup.dcr'}
34+
{$R '..\StyledCategoryButtons.dcr'}
35+
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
36+
{$ALIGN 8}
37+
{$ASSERTIONS ON}
38+
{$BOOLEVAL OFF}
39+
{$DEBUGINFO OFF}
40+
{$EXTENDEDSYNTAX ON}
41+
{$IMPORTEDDATA ON}
42+
{$IOCHECKS ON}
43+
{$LOCALSYMBOLS OFF}
44+
{$LONGSTRINGS ON}
45+
{$OPENSTRINGS ON}
46+
{$OPTIMIZATION ON}
47+
{$OVERFLOWCHECKS OFF}
48+
{$RANGECHECKS OFF}
49+
{$REFERENCEINFO OFF}
50+
{$SAFEDIVIDE OFF}
51+
{$STACKFRAMES OFF}
52+
{$TYPEDADDRESS OFF}
53+
{$VARSTRINGCHECKS ON}
54+
{$WRITEABLECONST OFF}
55+
{$MINENUMSIZE 1}
56+
{$IMAGEBASE $400000}
57+
{$DEFINE RELEASE}
58+
{$ENDIF IMPLICITBUILDING}
59+
{$DESCRIPTION 'Ethea Styled Components'}
60+
{$LIBSUFFIX 'DXE7'}
61+
{$RUNONLY}
62+
{$IMPLICITBUILD OFF}
63+
64+
requires
65+
rtl,
66+
vcl,
67+
vclimg,
68+
dbrtl,
69+
vcldb,
70+
bindengine,
71+
bindcomp;
72+
73+
contains
74+
Vcl.StyledButton in '..\..\source\Vcl.StyledButton.pas',
75+
Vcl.ButtonStylesAttributes in '..\..\source\Vcl.ButtonStylesAttributes.pas',
76+
Vcl.StandardButtonStyles in '..\..\source\Vcl.StandardButtonStyles.pas',
77+
Vcl.ColorButtonStyles in '..\..\source\Vcl.ColorButtonStyles.pas',
78+
Vcl.BootstrapButtonStyles in '..\..\source\Vcl.BootstrapButtonStyles.pas',
79+
Vcl.AngularButtonStyles in '..\..\source\Vcl.AngularButtonStyles.pas',
80+
Vcl.StyledTaskDialog in '..\..\source\Vcl.StyledTaskDialog.pas',
81+
Vcl.StyledCmpMessages in '..\..\source\Vcl.StyledCmpMessages.pas',
82+
Vcl.StyledCmpStrUtils in '..\..\source\Vcl.StyledCmpStrUtils.pas',
83+
Vcl.StyledTaskDialogStdUnit in '..\..\source\Vcl.StyledTaskDialogStdUnit.pas',
84+
Vcl.StyledTaskDialogFormUnit in '..\..\source\Vcl.StyledTaskDialogFormUnit.pas' {StyledTaskDialogForm},
85+
Vcl.StyledToolbar in '..\..\source\Vcl.StyledToolbar.pas',
86+
Vcl.StyledDbNavigator in '..\..\source\Vcl.StyledDbNavigator.pas',
87+
Vcl.StyledButtonGroup in '..\..\source\Vcl.StyledButtonGroup.pas',
88+
Vcl.StyledCategoryButtons in '..\..\source\Vcl.StyledCategoryButtons.pas';
89+
90+
end.
91+

‎packages/DXE7/StyledComponents.dproj

Lines changed: 156 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,156 @@
1+
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
2+
<PropertyGroup>
3+
<ProjectGuid>{E719005A-9787-4109-9F4B-3CFDB088B1AD}</ProjectGuid>
4+
<MainSource>StyledComponents.dpk</MainSource>
5+
<ProjectVersion>19.5</ProjectVersion>
6+
<FrameworkType>VCL</FrameworkType>
7+
<Base>True</Base>
8+
<Config Condition="'$(Config)'==''">Release</Config>
9+
<Platform Condition="'$(Platform)'==''">Win32</Platform>
10+
<TargetedPlatforms>3</TargetedPlatforms>
11+
<AppType>Package</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)'=='Debug' 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)'=='Release' or '$(Cfg_2)'!=''">
38+
<Cfg_2>true</Cfg_2>
39+
<CfgParent>Base</CfgParent>
40+
<Base>true</Base>
41+
</PropertyGroup>
42+
<PropertyGroup Condition="'$(Base)'!=''">
43+
<DCC_DcuOutput>..\..\Lib\DXE7\$(Platform)\$(Config)</DCC_DcuOutput>
44+
<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
45+
<DCC_E>false</DCC_E>
46+
<DCC_N>false</DCC_N>
47+
<DCC_S>false</DCC_S>
48+
<DCC_F>false</DCC_F>
49+
<DCC_K>false</DCC_K>
50+
<GenDll>true</GenDll>
51+
<GenPackage>true</GenPackage>
52+
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
53+
<DCC_CBuilderOutput>All</DCC_CBuilderOutput>
54+
<SanitizedProjectName>StyledComponents</SanitizedProjectName>
55+
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
56+
<VerInfo_Locale>1033</VerInfo_Locale>
57+
<VerInfo_Keys>CompanyName=Ethea S.r.l.;FileDescription=Styled Components;FileVersion=1.0.0.0;InternalName=;LegalCopyright=Copyright (c) Ethea S.r.l.;LegalTrademarks=;OriginalFilename=;ProgramID=;ProductName=Styled Components;ProductVersion=1.0;Comments=</VerInfo_Keys>
58+
<DCC_Description>Ethea Styled Components</DCC_Description>
59+
<RuntimeOnlyPackage>true</RuntimeOnlyPackage>
60+
<DllSuffix>DXE7</DllSuffix>
61+
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
62+
</PropertyGroup>
63+
<PropertyGroup Condition="'$(Base_Win32)'!=''">
64+
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
65+
<BT_BuildType>Debug</BT_BuildType>
66+
</PropertyGroup>
67+
<PropertyGroup Condition="'$(Base_Win64)'!=''">
68+
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
69+
<BT_BuildType>Debug</BT_BuildType>
70+
</PropertyGroup>
71+
<PropertyGroup Condition="'$(Cfg_1)'!=''">
72+
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
73+
<DCC_DebugDCUs>true</DCC_DebugDCUs>
74+
<DCC_Optimize>false</DCC_Optimize>
75+
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
76+
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
77+
<DCC_RemoteDebug>true</DCC_RemoteDebug>
78+
<DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
79+
<DCC_RangeChecking>true</DCC_RangeChecking>
80+
</PropertyGroup>
81+
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
82+
<DCC_RemoteDebug>false</DCC_RemoteDebug>
83+
</PropertyGroup>
84+
<PropertyGroup Condition="'$(Cfg_2)'!=''">
85+
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
86+
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
87+
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
88+
<DCC_DebugInformation>0</DCC_DebugInformation>
89+
</PropertyGroup>
90+
<ItemGroup>
91+
<DelphiCompile Include="$(MainSource)">
92+
<MainSource>MainSource</MainSource>
93+
</DelphiCompile>
94+
<DCCReference Include="..\StyledButton.dcr"/>
95+
<DCCReference Include="..\StyledTaskDialog.dcr"/>
96+
<DCCReference Include="..\StyledToolbar.dcr"/>
97+
<DCCReference Include="..\StyledDbNavigator.dcr"/>
98+
<DCCReference Include="..\StyledButtonGroup.dcr"/>
99+
<DCCReference Include="..\StyledCategoryButtons.dcr"/>
100+
<DCCReference Include="rtl.dcp"/>
101+
<DCCReference Include="vcl.dcp"/>
102+
<DCCReference Include="vclimg.dcp"/>
103+
<DCCReference Include="dbrtl.dcp"/>
104+
<DCCReference Include="vcldb.dcp"/>
105+
<DCCReference Include="bindengine.dcp"/>
106+
<DCCReference Include="bindcomp.dcp"/>
107+
<DCCReference Include="..\..\source\Vcl.StyledButton.pas"/>
108+
<DCCReference Include="..\..\source\Vcl.ButtonStylesAttributes.pas"/>
109+
<DCCReference Include="..\..\source\Vcl.StandardButtonStyles.pas"/>
110+
<DCCReference Include="..\..\source\Vcl.ColorButtonStyles.pas"/>
111+
<DCCReference Include="..\..\source\Vcl.BootstrapButtonStyles.pas"/>
112+
<DCCReference Include="..\..\source\Vcl.AngularButtonStyles.pas"/>
113+
<DCCReference Include="..\..\source\Vcl.StyledTaskDialog.pas"/>
114+
<DCCReference Include="..\..\source\Vcl.StyledCmpMessages.pas"/>
115+
<DCCReference Include="..\..\source\Vcl.StyledCmpStrUtils.pas"/>
116+
<DCCReference Include="..\..\source\Vcl.StyledTaskDialogStdUnit.pas"/>
117+
<DCCReference Include="..\..\source\Vcl.StyledTaskDialogFormUnit.pas">
118+
<Form>StyledTaskDialogForm</Form>
119+
<FormType>dfm</FormType>
120+
</DCCReference>
121+
<DCCReference Include="..\..\source\Vcl.StyledToolbar.pas"/>
122+
<DCCReference Include="..\..\source\Vcl.StyledDbNavigator.pas"/>
123+
<DCCReference Include="..\..\source\Vcl.StyledButtonGroup.pas"/>
124+
<DCCReference Include="..\..\source\Vcl.StyledCategoryButtons.pas"/>
125+
<BuildConfiguration Include="Base">
126+
<Key>Base</Key>
127+
</BuildConfiguration>
128+
<BuildConfiguration Include="Debug">
129+
<Key>Cfg_1</Key>
130+
<CfgParent>Base</CfgParent>
131+
</BuildConfiguration>
132+
<BuildConfiguration Include="Release">
133+
<Key>Cfg_2</Key>
134+
<CfgParent>Base</CfgParent>
135+
</BuildConfiguration>
136+
</ItemGroup>
137+
<ProjectExtensions>
138+
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
139+
<Borland.ProjectType>Package</Borland.ProjectType>
140+
<BorlandProject>
141+
<Delphi.Personality>
142+
<Source>
143+
<Source Name="MainSource">StyledComponents.dpk</Source>
144+
</Source>
145+
<Excluded_Packages/>
146+
</Delphi.Personality>
147+
<Platforms>
148+
<Platform value="Win32">True</Platform>
149+
<Platform value="Win64">True</Platform>
150+
</Platforms>
151+
</BorlandProject>
152+
<ProjectFileVersion>12</ProjectFileVersion>
153+
</ProjectExtensions>
154+
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
155+
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
156+
</Project>

0 commit comments

Comments
 (0)