Skip to content

Commit 3a0480d

Browse files
carloBarazzettacarloBarazzetta
committed
06 Oct 2024: final version 3.6.7
- Fixed StyledAnimatedComponents Packages - Fixed drawing Button Caption word-wrap mode - Fixed default "Spacing" to 0 for StyledButtons
1 parent 5ecd7a7 commit 3a0480d

22 files changed

+307
-141
lines changed

‎Demos/DelphiXE6/StyledComponentsDemo.dpr‎

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -50,8 +50,6 @@ uses
5050

5151
begin
5252
Application.Initialize;
53-
Application.MainFormOnTaskBar := True;
54-
Application.ActionUpdateDelay := 50;
5553
Application.Title := 'Styled Components Demos with Delphi XE6';
5654
Application.CreateForm(TdmResources, dmResources);
5755
Application.CreateForm(TfrmMain, frmMain);

‎Demos/DelphiXE6/StyledComponentsDemo.dproj‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@
55
<FrameworkType>VCL</FrameworkType>
66
<Base>True</Base>
77
<Config Condition="'$(Config)'==''">Debug</Config>
8-
<Platform Condition="'$(Platform)'==''">Win64</Platform>
8+
<Platform Condition="'$(Platform)'==''">Win32</Platform>
99
<ProjectName Condition="'$(ProjectName)'==''">StyledComponentsDemo</ProjectName>
1010
<TargetedPlatforms>3</TargetedPlatforms>
1111
<AppType>Application</AppType>

‎Demos/source/AutoClickForm.dfm‎

Lines changed: 0 additions & 28 deletions
Original file line numberDiff line numberDiff line change
@@ -13,10 +13,8 @@ object fmAutoClick: TfmAutoClick
1313
Font.Height = -12
1414
Font.Name = 'Segoe UI'
1515
Font.Style = []
16-
OldCreateOrder = True
1716
Position = poScreenCenter
1817
OnCreate = FormCreate
19-
PixelsPerInch = 96
2018
TextHeight = 15
2119
object lbAutoClickDelay: TLabel
2220
Left = 266
@@ -171,151 +169,125 @@ object fmAutoClick: TfmAutoClick
171169
end
172170
end
173171
object VirtualImageList32: TVirtualImageList
174-
DisabledGrayscale = False
175-
DisabledSuffix = '_Disabled'
176172
Images = <
177173
item
178174
CollectionIndex = 0
179175
CollectionName = 'home-deeppurple'
180-
Disabled = False
181176
Name = 'home-deeppurple'
182177
end
183178
item
184179
CollectionIndex = 1
185180
CollectionName = 'home-indigo'
186-
Disabled = False
187181
Name = 'home-indigo'
188182
end
189183
item
190184
CollectionIndex = 2
191185
CollectionName = 'home-pink'
192-
Disabled = False
193186
Name = 'home-pink'
194187
end
195188
item
196189
CollectionIndex = 3
197190
CollectionName = 'home-purple'
198-
Disabled = False
199191
Name = 'home-purple'
200192
end
201193
item
202194
CollectionIndex = 4
203195
CollectionName = 'menu-amber'
204-
Disabled = False
205196
Name = 'menu-amber'
206197
end
207198
item
208199
CollectionIndex = 5
209200
CollectionName = 'menu-pink'
210-
Disabled = False
211201
Name = 'menu-pink'
212202
end
213203
item
214204
CollectionIndex = 6
215205
CollectionName = 'menu-Blue-grey'
216-
Disabled = False
217206
Name = 'menu-Blue-grey'
218207
end
219208
item
220209
CollectionIndex = 7
221210
CollectionName = 'menu-green'
222-
Disabled = False
223211
Name = 'menu-green'
224212
end
225213
item
226214
CollectionIndex = 8
227215
CollectionName = 'heart'
228-
Disabled = False
229216
Name = 'heart'
230217
end
231218
item
232219
CollectionIndex = 9
233220
CollectionName = 'dots-vertical-white'
234-
Disabled = False
235221
Name = 'dots-vertical-white'
236222
end
237223
item
238224
CollectionIndex = 10
239225
CollectionName = 'dots-vertical-black'
240-
Disabled = False
241226
Name = 'dots-vertical-black'
242227
end
243228
item
244229
CollectionIndex = 11
245230
CollectionName = 'launch-white'
246-
Disabled = False
247231
Name = 'launch-white'
248232
end
249233
item
250234
CollectionIndex = 12
251235
CollectionName = 'launch-black'
252-
Disabled = False
253236
Name = 'launch-black'
254237
end
255238
item
256239
CollectionIndex = 13
257240
CollectionName = 'trash-white'
258-
Disabled = False
259241
Name = 'trash-white'
260242
end
261243
item
262244
CollectionIndex = 14
263245
CollectionName = 'trash-black'
264-
Disabled = False
265246
Name = 'trash-black'
266247
end
267248
item
268249
CollectionIndex = 15
269250
CollectionName = 'bookmark-white'
270-
Disabled = False
271251
Name = 'bookmark-white'
272252
end
273253
item
274254
CollectionIndex = 16
275255
CollectionName = 'bookmark-black'
276-
Disabled = False
277256
Name = 'bookmark-black'
278257
end
279258
item
280259
CollectionIndex = 17
281260
CollectionName = 'home-white'
282-
Disabled = False
283261
Name = 'home-white'
284262
end
285263
item
286264
CollectionIndex = 18
287265
CollectionName = 'home-black'
288-
Disabled = False
289266
Name = 'home-black'
290267
end
291268
item
292269
CollectionIndex = 19
293270
CollectionName = 'Angular-logo'
294-
Disabled = False
295271
Name = 'Angular-logo'
296272
end
297273
item
298274
CollectionIndex = 20
299275
CollectionName = 'Bootstrap-logo'
300-
Disabled = False
301276
Name = 'Bootstrap-logo'
302277
end
303278
item
304279
CollectionIndex = 21
305280
CollectionName = 'Delphi-Logo'
306-
Disabled = False
307281
Name = 'Delphi-Logo'
308282
end
309283
item
310284
CollectionIndex = 22
311285
CollectionName = 'Basic-Color'
312-
Disabled = False
313286
Name = 'Basic-Color'
314287
end
315288
item
316289
CollectionIndex = 23
317290
CollectionName = 'SVG-Color'
318-
Disabled = False
319291
Name = 'SVG-Color'
320292
end>
321293
ImageCollection = dmResources.ImageCollection

‎Demos/source/AutoClickForm.pas‎

Lines changed: 25 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,28 @@
1+
{******************************************************************************}
2+
{ }
3+
{ AutoClick feature of Styledcomponents }
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+
{******************************************************************************}
126
unit AutoClickForm;
227

328
interface

‎Demos/source/BitBtnForm.dfm‎

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -10,10 +10,8 @@ object fmBitBtn: TfmBitBtn
1010
Font.Height = -12
1111
Font.Name = 'Segoe UI'
1212
Font.Style = []
13-
OldCreateOrder = True
1413
ShowHint = True
1514
OnShow = FormShow
16-
PixelsPerInch = 96
1715
TextHeight = 15
1816
object btOK: TBitBtn
1917
Left = 8

‎Demos/source/BitBtnForm.pas‎

Lines changed: 26 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,29 @@
1+
{******************************************************************************}
2+
{ }
3+
{ TStyledBitBtn Demo }
4+
{ Comparison TStyledBitBtn with TBitBtn }
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+
{******************************************************************************}
127
unit BitBtnForm;
228

329
interface

‎Demos/source/DemoWelcomeForm.dfm‎

Lines changed: 14 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -11,11 +11,9 @@ object WelcomeForm: TWelcomeForm
1111
Font.Height = -11
1212
Font.Name = 'Segoe UI'
1313
Font.Style = []
14-
OldCreateOrder = True
1514
Position = poScreenCenter
1615
OnCreate = FormCreate
1716
OnShow = FormShow
18-
PixelsPerInch = 96
1917
TextHeight = 13
2018
object FramePanel: TPanel
2119
Left = 0
@@ -36,9 +34,9 @@ object WelcomeForm: TWelcomeForm
3634
TabOrder = 0
3735
object TitleLabel: TLabel
3836
AlignWithMargins = True
39-
Left = 90
37+
Left = 96
4038
Top = 21
41-
Width = 430
39+
Width = 424
4240
Height = 63
4341
Margins.Top = 20
4442
Align = alClient
@@ -53,10 +51,14 @@ object WelcomeForm: TWelcomeForm
5351
end
5452
object DelphiImage: TImage
5553
AlignWithMargins = True
56-
Left = 4
57-
Top = 4
54+
Left = 11
55+
Top = 11
5856
Width = 80
59-
Height = 80
57+
Height = 74
58+
Margins.Left = 10
59+
Margins.Top = 10
60+
Margins.Right = 2
61+
Margins.Bottom = 2
6062
Align = alLeft
6163
Picture.Data = {
6264
0954506E67496D61676589504E470D0A1A0A0000000D494844520000009A0000
@@ -312,15 +314,18 @@ object WelcomeForm: TWelcomeForm
312314
BevelOuter = bvNone
313315
TabOrder = 1
314316
object OkButton: TStyledButton
315-
Left = 441
317+
Left = 432
316318
Top = 3
317-
Width = 75
319+
Width = 84
318320
Height = 30
321+
AutoClick = True
322+
AutoClickDelay = 10000
319323
Cancel = True
320324
Caption = 'OK'
321325
Default = True
322326
ModalResult = 1
323327
TabOrder = 0
328+
OnClick = OkButtonClick
324329
end
325330
end
326331
end

‎Demos/source/DemoWelcomeForm.pas‎

Lines changed: 35 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,28 @@
1+
{******************************************************************************}
2+
{ }
3+
{ Welcome Form for StyledButtonsDemo }
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+
{******************************************************************************}
126
unit DemoWelcomeForm;
227

328
interface
@@ -8,8 +33,10 @@ interface
833
, Vcl.Graphics
934
, Vcl.ExtCtrls
1035
, Vcl.Controls
11-
, System.Classes, Vcl.ButtonStylesAttributes, Vcl.StyledButton,
12-
Vcl.Imaging.pngimage
36+
, System.Classes
37+
, Vcl.ButtonStylesAttributes
38+
, Vcl.StyledButton
39+
, Vcl.Imaging.pngimage
1340
;
1441

1542
type
@@ -23,6 +50,7 @@ TWelcomeForm = class(TForm)
2350
OkButton: TStyledButton;
2451
procedure FormCreate(Sender: TObject);
2552
procedure FormShow(Sender: TObject);
53+
procedure OkButtonClick(Sender: TObject);
2654
protected
2755
procedure Loaded; override;
2856
end;
@@ -61,4 +89,9 @@ procedure TWelcomeForm.Loaded;
6189
inherited;
6290
end;
6391

92+
procedure TWelcomeForm.OkButtonClick(Sender: TObject);
93+
begin
94+
ModalResult := mrOK;
95+
end;
96+
6497
end.

0 commit comments

Comments
 (0)