Skip to content

Commit e635ae5

Browse files
ansgarbeckeransgarbecker
committed
fix: reset DesignTimePPI in all forms from 120 to the default 96, let the IDE scale controls down and move or add some defaults like LCLVersion.
This follows a recommendation on https://wiki.lazarus.freepascal.org/High_DPI#High_DPI_in_Lazarus_1.8_and_above Refs #2344
1 parent 71bb25b commit e635ae5

33 files changed

+4729
-4629
lines changed

‎source/about.lfm‎

Lines changed: 82 additions & 82 deletions
Original file line numberDiff line numberDiff line change
@@ -1,27 +1,27 @@
11
object AboutBox: TAboutBox
22
Left = 718
3-
Height = 408
3+
Height = 326
44
Top = 243
5-
Width = 491
5+
Width = 393
66
AutoSize = True
77
BorderStyle = bsDialog
88
Caption = 'About'
9-
ClientHeight = 408
10-
ClientWidth = 491
9+
ClientHeight = 326
10+
ClientWidth = 393
1111
Color = clBtnFace
12-
DesignTimePPI = 120
1312
FormStyle = fsStayOnTop
1413
Position = poOwnerFormCenter
14+
LCLVersion = '4.4.0.0'
1515
OnShow = FormShow
1616
object lblAppName: TLabel
1717
AnchorSideLeft.Control = ImageHeidisql
1818
AnchorSideLeft.Side = asrBottom
1919
AnchorSideTop.Control = Owner
20-
Left = 102
21-
Height = 20
22-
Top = 6
23-
Width = 85
24-
BorderSpacing.Around = 6
20+
Left = 100
21+
Height = 15
22+
Top = 5
23+
Width = 67
24+
BorderSpacing.Around = 5
2525
Caption = 'lblAppName'
2626
PopupMenu = popupLabels
2727
end
@@ -30,12 +30,12 @@ object AboutBox: TAboutBox
3030
AnchorSideLeft.Side = asrBottom
3131
AnchorSideTop.Control = lblAppName
3232
AnchorSideTop.Side = asrBottom
33-
Left = 102
34-
Height = 20
35-
Top = 38
36-
Width = 93
37-
BorderSpacing.Top = 6
38-
BorderSpacing.Around = 6
33+
Left = 100
34+
Height = 15
35+
Top = 30
36+
Width = 73
37+
BorderSpacing.Top = 5
38+
BorderSpacing.Around = 5
3939
Caption = 'lblAppVersion'
4040
PopupMenu = popupLabels
4141
end
@@ -44,24 +44,24 @@ object AboutBox: TAboutBox
4444
AnchorSideLeft.Side = asrBottom
4545
AnchorSideTop.Control = lblAppVersion
4646
AnchorSideTop.Side = asrBottom
47-
Left = 102
48-
Height = 20
49-
Top = 64
50-
Width = 110
51-
BorderSpacing.Around = 6
47+
Left = 100
48+
Height = 15
49+
Top = 50
50+
Width = 87
51+
BorderSpacing.Around = 5
5252
Caption = 'lblAppCompiled'
5353
PopupMenu = popupLabels
5454
end
5555
object ImageHeidisql: TImage
5656
AnchorSideLeft.Control = Owner
5757
AnchorSideTop.Control = Owner
5858
Cursor = crHandPoint
59-
Left = 6
59+
Left = 5
6060
Height = 90
61-
Top = 6
61+
Top = 5
6262
Width = 90
6363
AutoSize = True
64-
BorderSpacing.Around = 6
64+
BorderSpacing.Around = 5
6565
Picture.Data = {
6666
1754506F727461626C654E6574776F726B477261706869637B19000089504E47
6767
0D0A1A0A0000000D494844520000005A0000005A080600000038A84102000000
@@ -278,24 +278,24 @@ object AboutBox: TAboutBox
278278
AnchorSideTop.Control = lnklblCredits
279279
AnchorSideTop.Side = asrBottom
280280
AnchorSideBottom.Control = editDonated
281-
Left = 102
282-
Height = 20
283-
Top = 188
284-
Width = 291
285-
BorderSpacing.Top = 20
286-
BorderSpacing.Around = 6
281+
Left = 100
282+
Height = 15
283+
Top = 146
284+
Width = 229
285+
BorderSpacing.Top = 16
286+
BorderSpacing.Around = 5
287287
Caption = 'I have donated per following email address:'
288288
end
289289
object lblEnvironment: TLabel
290290
AnchorSideLeft.Control = ImageHeidisql
291291
AnchorSideLeft.Side = asrBottom
292292
AnchorSideTop.Control = lblAppCompiled
293293
AnchorSideTop.Side = asrBottom
294-
Left = 102
295-
Height = 20
296-
Top = 90
297-
Width = 100
298-
BorderSpacing.Around = 6
294+
Left = 100
295+
Height = 15
296+
Top = 70
297+
Width = 81
298+
BorderSpacing.Around = 5
299299
Caption = 'lblEnvironment'
300300
PopupMenu = popupLabels
301301
end
@@ -305,11 +305,11 @@ object AboutBox: TAboutBox
305305
AnchorSideTop.Control = lblEnvironment
306306
AnchorSideTop.Side = asrBottom
307307
Cursor = crHandPoint
308-
Left = 102
309-
Height = 20
310-
Top = 116
311-
Width = 100
312-
BorderSpacing.Around = 6
308+
Left = 100
309+
Height = 15
310+
Top = 90
311+
Width = 79
312+
BorderSpacing.Around = 5
313313
Caption = 'lnklblWebpage'
314314
ParentShowHint = False
315315
ShowHint = True
@@ -321,11 +321,11 @@ object AboutBox: TAboutBox
321321
AnchorSideTop.Control = lnklblWebpage
322322
AnchorSideTop.Side = asrBottom
323323
Cursor = crHandPoint
324-
Left = 102
325-
Height = 20
326-
Top = 142
327-
Width = 46
328-
BorderSpacing.Around = 6
324+
Left = 100
325+
Height = 15
326+
Top = 110
327+
Width = 37
328+
BorderSpacing.Around = 5
329329
Caption = 'Credits'
330330
ParentShowHint = False
331331
ShowHint = True
@@ -338,17 +338,17 @@ object AboutBox: TAboutBox
338338
AnchorSideRight.Side = asrBottom
339339
AnchorSideBottom.Control = Owner
340340
AnchorSideBottom.Side = asrBottom
341-
Left = 385
342-
Height = 30
343-
Top = 324
344-
Width = 100
341+
Left = 308
342+
Height = 25
343+
Top = 255
344+
Width = 80
345345
Anchors = [akTop, akRight]
346346
AutoSize = True
347-
BorderSpacing.Top = 20
348-
BorderSpacing.Around = 6
347+
BorderSpacing.Top = 16
348+
BorderSpacing.Around = 5
349349
Cancel = True
350350
Caption = 'Close'
351-
Constraints.MinWidth = 100
351+
Constraints.MinWidth = 80
352352
ModalResult = 1
353353
TabOrder = 0
354354
end
@@ -360,14 +360,14 @@ object AboutBox: TAboutBox
360360
AnchorSideRight.Control = btnClose
361361
AnchorSideBottom.Control = Owner
362362
AnchorSideBottom.Side = asrBottom
363-
Left = 102
364-
Height = 31
365-
Top = 324
366-
Width = 277
363+
Left = 100
364+
Height = 25
365+
Top = 255
366+
Width = 203
367367
Action = MainForm.actUpdateCheck
368368
Anchors = [akTop, akLeft, akRight]
369-
BorderSpacing.Top = 20
370-
BorderSpacing.Around = 6
369+
BorderSpacing.Top = 16
370+
BorderSpacing.Around = 5
371371
TabOrder = 1
372372
end
373373
object editDonated: TEdit
@@ -377,12 +377,12 @@ object AboutBox: TAboutBox
377377
AnchorSideTop.Side = asrBottom
378378
AnchorSideRight.Control = btnDonatedOK
379379
AnchorSideBottom.Control = btnDonate
380-
Left = 102
381-
Height = 28
382-
Top = 214
383-
Width = 277
380+
Left = 100
381+
Height = 23
382+
Top = 166
383+
Width = 203
384384
Anchors = [akTop, akLeft, akRight]
385-
BorderSpacing.Around = 6
385+
BorderSpacing.Around = 5
386386
TabOrder = 2
387387
TextHint = 'Email address'
388388
OnEnter = editDonatedEnter
@@ -396,15 +396,15 @@ object AboutBox: TAboutBox
396396
AnchorSideRight.Control = Owner
397397
AnchorSideRight.Side = asrBottom
398398
AnchorSideBottom.Control = btnDonate
399-
Left = 385
400-
Height = 30
401-
Top = 214
402-
Width = 100
399+
Left = 308
400+
Height = 25
401+
Top = 166
402+
Width = 80
403403
Anchors = [akTop, akRight]
404404
AutoSize = True
405-
BorderSpacing.Around = 6
405+
BorderSpacing.Around = 5
406406
Caption = 'OK'
407-
Constraints.MinWidth = 100
407+
Constraints.MinWidth = 80
408408
TabOrder = 3
409409
OnClick = btnDonatedOKClick
410410
end
@@ -416,16 +416,16 @@ object AboutBox: TAboutBox
416416
AnchorSideRight.Control = Owner
417417
AnchorSideRight.Side = asrBottom
418418
AnchorSideBottom.Control = btnUpdateCheck
419-
Left = 102
420-
Height = 50
419+
Left = 100
420+
Height = 40
421421
Hint = 'Send an arbitrary amount as donation to the author - per PayPal (also supports credit cards)'
422-
Top = 248
423-
Width = 383
422+
Top = 194
423+
Width = 288
424424
Anchors = [akTop, akLeft, akRight]
425425
AutoSize = True
426-
BorderSpacing.Around = 6
426+
BorderSpacing.Around = 5
427427
Caption = 'Donate'
428-
Constraints.MinHeight = 50
428+
Constraints.MinHeight = 40
429429
Images = MainForm.ImageListMain
430430
ImageIndex = 185
431431
ParentShowHint = False
@@ -438,20 +438,20 @@ object AboutBox: TAboutBox
438438
AnchorSideTop.Control = lblAppVersion
439439
AnchorSideTop.Side = asrBottom
440440
Cursor = crHandPoint
441-
Left = 218
442-
Height = 20
443-
Top = 64
444-
Width = 97
445-
BorderSpacing.Around = 6
441+
Left = 192
442+
Height = 15
443+
Top = 50
444+
Width = 78
445+
BorderSpacing.Around = 5
446446
Caption = 'lnklblCompiler'
447447
ParentShowHint = False
448448
ShowHint = True
449449
OnClick = lnklblWebpageClick
450450
end
451451
object popupLabels: TPopupMenu
452452
Images = MainForm.ImageListMain
453-
Left = 40
454-
Top = 180
453+
Left = 32
454+
Top = 144
455455
object menuCopyLabel: TMenuItem
456456
Caption = 'Copy'
457457
ImageIndex = 3

0 commit comments

Comments
 (0)