Skip to content

Commit 3605706

Browse files
ansgarbeckeransgarbecker
committed
fix: anchoring in about box
1 parent 2f92db2 commit 3605706

File tree

1 file changed

+95
-45
lines changed

1 file changed

+95
-45
lines changed

‎source/about.lfm‎

Lines changed: 95 additions & 45 deletions
Original file line numberDiff line numberDiff line change
@@ -1,58 +1,67 @@
11
object AboutBox: TAboutBox
22
Left = 718
3-
Height = 386
3+
Height = 408
44
Top = 243
5-
Width = 575
5+
Width = 491
6+
AutoSize = True
67
BorderStyle = bsDialog
78
Caption = 'About'
8-
ClientHeight = 386
9-
ClientWidth = 575
9+
ClientHeight = 408
10+
ClientWidth = 491
1011
Color = clBtnFace
1112
DesignTimePPI = 120
1213
FormStyle = fsStayOnTop
13-
OnShow = FormShow
1414
Position = poOwnerFormCenter
15+
OnShow = FormShow
1516
object lblAppName: TLabel
16-
Left = 146
17+
AnchorSideLeft.Control = ImageHeidisql
18+
AnchorSideLeft.Side = asrBottom
19+
AnchorSideTop.Control = Owner
20+
Left = 102
1721
Height = 20
18-
Top = 10
22+
Top = 6
1923
Width = 85
2024
BorderSpacing.Around = 6
2125
Caption = 'lblAppName'
2226
PopupMenu = popupLabels
2327
end
2428
object lblAppVersion: TLabel
29+
AnchorSideLeft.Control = ImageHeidisql
30+
AnchorSideLeft.Side = asrBottom
2531
AnchorSideTop.Control = lblAppName
2632
AnchorSideTop.Side = asrBottom
27-
Left = 146
33+
Left = 102
2834
Height = 20
29-
Top = 42
35+
Top = 38
3036
Width = 93
3137
BorderSpacing.Top = 6
3238
BorderSpacing.Around = 6
3339
Caption = 'lblAppVersion'
3440
PopupMenu = popupLabels
3541
end
3642
object lblAppCompiled: TLabel
43+
AnchorSideLeft.Control = ImageHeidisql
44+
AnchorSideLeft.Side = asrBottom
3745
AnchorSideTop.Control = lblAppVersion
3846
AnchorSideTop.Side = asrBottom
39-
Left = 146
47+
Left = 102
4048
Height = 20
41-
Top = 68
49+
Top = 64
4250
Width = 110
4351
BorderSpacing.Around = 6
4452
Caption = 'lblAppCompiled'
4553
PopupMenu = popupLabels
4654
end
4755
object ImageHeidisql: TImage
56+
AnchorSideLeft.Control = Owner
57+
AnchorSideTop.Control = Owner
4858
Cursor = crHandPoint
49-
Left = 10
59+
Left = 6
5060
Height = 90
51-
Top = 10
61+
Top = 6
5262
Width = 90
5363
AutoSize = True
5464
BorderSpacing.Around = 6
55-
OnClick = OpenURL
5665
Picture.Data = {
5766
1754506F727461626C654E6574776F726B477261706869637B19000089504E47
5867
0D0A1A0A0000000D494844520000005A0000005A080600000038A84102000000
@@ -261,36 +270,44 @@ object AboutBox: TAboutBox
261270
00F87FF924EC272BA4FA450000000049454E44AE426082
262271
}
263272
Transparent = True
273+
OnClick = OpenURL
264274
end
265275
object lblDonated: TLabel
276+
AnchorSideLeft.Control = ImageHeidisql
277+
AnchorSideLeft.Side = asrBottom
266278
AnchorSideTop.Control = lnklblCredits
267279
AnchorSideTop.Side = asrBottom
268-
Left = 146
280+
AnchorSideBottom.Control = editDonated
281+
Left = 102
269282
Height = 20
270-
Top = 178
283+
Top = 188
271284
Width = 291
272-
BorderSpacing.Top = 6
285+
BorderSpacing.Top = 20
273286
BorderSpacing.Around = 6
274287
Caption = 'I have donated per following email address:'
275288
end
276289
object lblEnvironment: TLabel
290+
AnchorSideLeft.Control = ImageHeidisql
291+
AnchorSideLeft.Side = asrBottom
277292
AnchorSideTop.Control = lblAppCompiled
278293
AnchorSideTop.Side = asrBottom
279-
Left = 146
294+
Left = 102
280295
Height = 20
281-
Top = 94
296+
Top = 90
282297
Width = 100
283298
BorderSpacing.Around = 6
284299
Caption = 'lblEnvironment'
285300
PopupMenu = popupLabels
286301
end
287302
object lnklblWebpage: TLabel
303+
AnchorSideLeft.Control = ImageHeidisql
304+
AnchorSideLeft.Side = asrBottom
288305
AnchorSideTop.Control = lblEnvironment
289306
AnchorSideTop.Side = asrBottom
290307
Cursor = crHandPoint
291-
Left = 146
308+
Left = 102
292309
Height = 20
293-
Top = 120
310+
Top = 116
294311
Width = 100
295312
BorderSpacing.Around = 6
296313
Caption = 'lnklblWebpage'
@@ -299,12 +316,14 @@ object AboutBox: TAboutBox
299316
OnClick = lnklblWebpageClick
300317
end
301318
object lnklblCredits: TLabel
319+
AnchorSideLeft.Control = ImageHeidisql
320+
AnchorSideLeft.Side = asrBottom
302321
AnchorSideTop.Control = lnklblWebpage
303322
AnchorSideTop.Side = asrBottom
304323
Cursor = crHandPoint
305-
Left = 146
324+
Left = 102
306325
Height = 20
307-
Top = 146
326+
Top = 142
308327
Width = 46
309328
BorderSpacing.Around = 6
310329
Caption = 'Credits'
@@ -313,37 +332,55 @@ object AboutBox: TAboutBox
313332
OnClick = lnklblCreditsClick
314333
end
315334
object btnClose: TButton
335+
AnchorSideTop.Control = btnDonate
316336
AnchorSideTop.Side = asrBottom
317-
Left = 437
318-
Height = 31
319-
Top = 345
320-
Width = 128
321-
Anchors = [akRight, akBottom]
337+
AnchorSideRight.Control = Owner
338+
AnchorSideRight.Side = asrBottom
339+
AnchorSideBottom.Control = Owner
340+
AnchorSideBottom.Side = asrBottom
341+
Left = 385
342+
Height = 30
343+
Top = 324
344+
Width = 100
345+
Anchors = [akTop, akRight]
346+
AutoSize = True
347+
BorderSpacing.Top = 20
322348
BorderSpacing.Around = 6
323349
Cancel = True
324350
Caption = 'Close'
351+
Constraints.MinWidth = 100
325352
ModalResult = 1
326353
TabOrder = 0
327354
end
328355
object btnUpdateCheck: TButton
356+
AnchorSideLeft.Control = ImageHeidisql
357+
AnchorSideLeft.Side = asrBottom
358+
AnchorSideTop.Control = btnDonate
329359
AnchorSideTop.Side = asrBottom
330-
Left = 146
360+
AnchorSideRight.Control = btnClose
361+
AnchorSideBottom.Control = Owner
362+
AnchorSideBottom.Side = asrBottom
363+
Left = 102
331364
Height = 31
332-
Top = 345
333-
Width = 286
365+
Top = 324
366+
Width = 277
334367
Action = MainForm.actUpdateCheck
335-
Anchors = [akLeft, akRight, akBottom]
368+
Anchors = [akTop, akLeft, akRight]
369+
BorderSpacing.Top = 20
336370
BorderSpacing.Around = 6
337371
TabOrder = 1
338372
end
339373
object editDonated: TEdit
374+
AnchorSideLeft.Control = ImageHeidisql
375+
AnchorSideLeft.Side = asrBottom
340376
AnchorSideTop.Control = lblDonated
341377
AnchorSideTop.Side = asrBottom
342378
AnchorSideRight.Control = btnDonatedOK
343-
Left = 146
379+
AnchorSideBottom.Control = btnDonate
380+
Left = 102
344381
Height = 28
345-
Top = 204
346-
Width = 285
382+
Top = 214
383+
Width = 277
347384
Anchors = [akTop, akLeft, akRight]
348385
BorderSpacing.Around = 6
349386
TabOrder = 2
@@ -352,30 +389,43 @@ object AboutBox: TAboutBox
352389
OnExit = editDonatedExit
353390
end
354391
object btnDonatedOK: TButton
392+
AnchorSideLeft.Control = editDonated
393+
AnchorSideLeft.Side = asrBottom
355394
AnchorSideTop.Control = lblDonated
356395
AnchorSideTop.Side = asrBottom
357-
Left = 437
358-
Height = 31
359-
Top = 204
360-
Width = 128
396+
AnchorSideRight.Control = Owner
397+
AnchorSideRight.Side = asrBottom
398+
AnchorSideBottom.Control = btnDonate
399+
Left = 385
400+
Height = 30
401+
Top = 214
402+
Width = 100
361403
Anchors = [akTop, akRight]
404+
AutoSize = True
362405
BorderSpacing.Around = 6
363406
Caption = 'OK'
407+
Constraints.MinWidth = 100
364408
TabOrder = 3
365409
OnClick = btnDonatedOKClick
366410
end
367411
object btnDonate: TButton
412+
AnchorSideLeft.Control = ImageHeidisql
413+
AnchorSideLeft.Side = asrBottom
368414
AnchorSideTop.Control = editDonated
369415
AnchorSideTop.Side = asrBottom
370-
Left = 146
371-
Height = 30
416+
AnchorSideRight.Control = Owner
417+
AnchorSideRight.Side = asrBottom
418+
AnchorSideBottom.Control = btnUpdateCheck
419+
Left = 102
420+
Height = 50
372421
Hint = 'Send an arbitrary amount as donation to the author - per PayPal (also supports credit cards)'
373-
Top = 238
374-
Width = 419
422+
Top = 248
423+
Width = 383
375424
Anchors = [akTop, akLeft, akRight]
376425
AutoSize = True
377426
BorderSpacing.Around = 6
378427
Caption = 'Donate'
428+
Constraints.MinHeight = 50
379429
ParentShowHint = False
380430
ShowHint = True
381431
TabOrder = 4
@@ -386,9 +436,9 @@ object AboutBox: TAboutBox
386436
AnchorSideTop.Control = lblAppVersion
387437
AnchorSideTop.Side = asrBottom
388438
Cursor = crHandPoint
389-
Left = 262
439+
Left = 218
390440
Height = 20
391-
Top = 68
441+
Top = 64
392442
Width = 97
393443
BorderSpacing.Around = 6
394444
Caption = 'lnklblCompiler'

0 commit comments

Comments
 (0)