Fix broken High-DPI scaling

lighterowl · Sep 20, 2024 · 45be6af · 45be6af
1 parent 1104114
commit 45be6af
Show file tree

Hide file tree

Showing 27 changed files with 1,538 additions and 1,055 deletions.
diff --git a/about.lfm b/about.lfm
@@ -14,12 +14,13 @@ object AboutForm: TAboutForm
   ClientWidth = 451
   Constraints.MinHeight = 330
   Constraints.MinWidth = 350
+  Font.Height = -12
   OnCreate = FormCreate
   Position = poMainFormCenter
   LCLVersion = '3.4.0.0'
   object Page: TPageControl
     Left = 8
-    Height = 298
+    Height = 299
     Top = 8
     Width = 435
     ActivePage = tabAbout
@@ -28,8 +29,8 @@ object AboutForm: TAboutForm
     TabOrder = 0
     object tabAbout: TTabSheet
       Caption = 'About'
-      ClientHeight = 269
-      ClientWidth = 431
+      ClientHeight = 271
+      ClientWidth = 427
       object imgTransmission: TImage
         Left = 10
         Height = 48
@@ -136,7 +137,7 @@ object AboutForm: TAboutForm
         Cursor = crHandPoint
         Left = 124
         Height = 42
-        Top = 219
+        Top = 221
         Width = 102
         Anchors = [akLeft, akBottom]
         AutoSize = True
@@ -279,7 +280,7 @@ object AboutForm: TAboutForm
         Cursor = crHandPoint
         Left = 6
         Height = 47
-        Top = 214
+        Top = 216
         Width = 102
         Anchors = [akLeft, akBottom]
         AutoSize = True
@@ -479,7 +480,7 @@ object AboutForm: TAboutForm
         Left = 86
         Height = 17
         Top = 14
-        Width = 86
+        Width = 73
         Caption = 'txAppName'
         Font.Height = -13
         Font.Style = [fsBold]
@@ -500,15 +501,15 @@ object AboutForm: TAboutForm
         Left = 86
         Height = 15
         Top = 38
-        Width = 125
+        Width = 107
         Caption = 'Version %s, Build %s'
         ParentColor = False
       end
       object Bevel1: TBevel
         Left = 6
         Height = 7
-        Top = 198
-        Width = 420
+        Top = 200
+        Width = 416
         Anchors = [akLeft, akRight, akBottom]
         Shape = bsTopLine
       end
@@ -517,9 +518,10 @@ object AboutForm: TAboutForm
         Left = 86
         Height = 15
         Top = 164
-        Width = 70
+        Width = 62
         Caption = 'Home page'
         Font.Color = clBlue
+        Font.Height = -12
         Font.Style = [fsUnderline]
         ParentColor = False
         ParentFont = False
@@ -529,20 +531,20 @@ object AboutForm: TAboutForm
         Left = 86
         Height = 15
         Top = 72
-        Width = 66
+        Width = 56
         Caption = 'Version %s'
         ParentColor = False
       end
     end
     object tabLicense: TTabSheet
       Caption = 'License'
-      ClientHeight = 269
-      ClientWidth = 431
+      ClientHeight = 271
+      ClientWidth = 427
       object edLicense: TMemo
         Left = 4
-        Height = 261
+        Height = 263
         Top = 4
-        Width = 423
+        Width = 419
         Align = alClient
         BorderSpacing.Around = 4
         Lines.Strings = (
@@ -905,8 +907,8 @@ object AboutForm: TAboutForm
   end
   object Buttons: TButtonPanel
     Left = 8
-    Height = 27
-    Top = 314
+    Height = 26
+    Top = 315
     Width = 435
     BorderSpacing.Top = 8
     BorderSpacing.Around = 0

diff --git a/addlink.lfm b/addlink.lfm
@@ -1,4 +1,4 @@
-inherited AddLinkForm: TAddLinkForm
+object AddLinkForm: TAddLinkForm
   Left = 354
   Height = 93
   Top = 193
@@ -9,9 +9,11 @@ inherited AddLinkForm: TAddLinkForm
   Caption = 'Add torrent link'
   ClientHeight = 93
   ClientWidth = 574
+  Font.Height = -12
   OnCreate = FormCreate
   Position = poMainFormCenter
-  object Buttons: TButtonPanel[0]
+  LCLVersion = '3.4.0.0'
+  object Buttons: TButtonPanel
     Left = 8
     Height = 26
     Top = 59
@@ -33,7 +35,7 @@ inherited AddLinkForm: TAddLinkForm
     ShowButtons = [pbOK, pbCancel]
     ShowBevel = False
   end
-  object Panel1: TPanel[1]
+  object Panel1: TPanel
     Left = 8
     Height = 43
     Top = 8

diff --git a/addtorrent.lfm b/addtorrent.lfm
@@ -13,6 +13,7 @@ object AddTorrentForm: TAddTorrentForm
   ClientWidth = 508
   Constraints.MinHeight = 300
   Constraints.MinWidth = 470
+  Font.Height = -12
   OnCreate = FormCreate
   OnShow = FormShow
   Position = poMainFormCenter
@@ -27,22 +28,22 @@ object AddTorrentForm: TAddTorrentForm
     BorderSpacing.Top = 8
     BorderSpacing.Right = 8
     Caption = ' '
-    ClientHeight = 152
-    ClientWidth = 486
+    ClientHeight = 156
+    ClientWidth = 488
     TabOrder = 0
     object txDestFolder: TLabel
       Left = 10
       Height = 15
       Top = 0
-      Width = 112
+      Width = 97
       Caption = 'Destination folder:'
       ParentColor = False
     end
     object txPeerLimit: TLabel
-      Left = 334
+      Left = 344
       Height = 15
       Top = 131
-      Width = 61
+      Width = 53
       Alignment = taRightJustify
       Anchors = [akTop, akRight]
       Caption = 'Peer limit:'
@@ -52,7 +53,7 @@ object AddTorrentForm: TAddTorrentForm
       Left = 10
       Height = 23
       Top = 16
-      Width = 335
+      Width = 337
       Anchors = [akTop, akLeft, akRight]
       DropDownCount = 60
       ItemHeight = 15
@@ -61,8 +62,8 @@ object AddTorrentForm: TAddTorrentForm
       OnChange = cbDestFolderChange
     end
     object edPeerLimit: TSpinEdit
-      Left = 411
-      Height = 24
+      Left = 413
+      Height = 23
       Top = 128
       Width = 62
       Anchors = [akTop, akRight]
@@ -72,7 +73,7 @@ object AddTorrentForm: TAddTorrentForm
       Value = 1
     end
     object btBrowse: TButton
-      Left = 385
+      Left = 387
       Height = 26
       Hint = 'Browse folder'
       Top = 13
@@ -88,15 +89,15 @@ object AddTorrentForm: TAddTorrentForm
       Left = 10
       Height = 15
       Top = 80
-      Width = 51
+      Width = 41
       Caption = 'Save as:'
       ParentColor = False
     end
     object edSaveAs: TEdit
       Left = 10
       Height = 23
       Top = 96
-      Width = 465
+      Width = 467
       Anchors = [akTop, akLeft, akRight]
       TabOrder = 2
       OnChange = edSaveAsChange
@@ -106,7 +107,7 @@ object AddTorrentForm: TAddTorrentForm
       Height = 23
       Hint = 'for example: *.avi *.mkv'
       Top = 56
-      Width = 465
+      Width = 467
       Anchors = [akTop, akLeft, akRight]
       ParentShowHint = False
       ShowHint = True
@@ -118,14 +119,14 @@ object AddTorrentForm: TAddTorrentForm
       Height = 15
       Hint = 'for example: *.avi *.mkv'
       Top = 40
-      Width = 67
+      Width = 57
       Caption = 'Template:  '
       ParentColor = False
       ParentShowHint = False
       ShowHint = True
     end
     object DelButton: TBitBtn
-      Left = 349
+      Left = 351
       Height = 26
       Hint = 'Delete destination folder'
       Top = 13
@@ -205,7 +206,7 @@ object AddTorrentForm: TAddTorrentForm
   end
   object gbContents: TGroupBox
     Left = 8
-    Height = 336
+    Height = 337
     Top = 188
     Width = 492
     Align = alClient
@@ -214,15 +215,15 @@ object AddTorrentForm: TAddTorrentForm
     BorderSpacing.Right = 8
     BorderSpacing.Bottom = 8
     Caption = 'Torrent contents'
-    ClientHeight = 312
-    ClientWidth = 486
+    ClientHeight = 317
+    ClientWidth = 488
     Constraints.MinHeight = 300
     TabOrder = 1
     object txDiskSpace: TLabel
       Left = 10
       Height = 15
       Top = 20
-      Width = 97
+      Width = 82
       Caption = 'Free disk space:'
       ParentColor = False
     end
@@ -235,9 +236,9 @@ object AddTorrentForm: TAddTorrentForm
     end
     object lvFiles: TVarGrid
       Left = 10
-      Height = 266
+      Height = 271
       Top = 40
-      Width = 465
+      Width = 467
       Anchors = [akTop, akLeft, akRight, akBottom]
       Columns = <      
         item
@@ -261,7 +262,7 @@ object AddTorrentForm: TAddTorrentForm
       HideSelection = True
     end
     object btSelectAll: TButton
-      Left = 215
+      Left = 217
       Height = 23
       Top = 4
       Width = 126
@@ -272,7 +273,7 @@ object AddTorrentForm: TAddTorrentForm
       OnClick = btSelectAllClick
     end
     object btSelectNone: TButton
-      Left = 349
+      Left = 351
       Height = 23
       Top = 4
       Width = 126
@@ -285,8 +286,8 @@ object AddTorrentForm: TAddTorrentForm
   end
   object Buttons: TButtonPanel
     Left = 8
-    Height = 27
-    Top = 532
+    Height = 26
+    Top = 533
     Width = 492
     BorderSpacing.Left = 8
     BorderSpacing.Right = 8
@@ -308,8 +309,8 @@ object AddTorrentForm: TAddTorrentForm
   end
   object cbStartTorrent: TCheckBox
     Left = 24
-    Height = 21
-    Top = 536
+    Height = 19
+    Top = 538
     Width = 203
     Anchors = [akLeft, akRight, akBottom]
     Caption = 'Start torrent'

diff --git a/addtracker.lfm b/addtracker.lfm
@@ -1,4 +1,4 @@
-inherited AddTrackerForm: TAddTrackerForm
+object AddTrackerForm: TAddTrackerForm
   Left = 411
   Height = 93
   Top = 283
@@ -9,9 +9,11 @@ inherited AddTrackerForm: TAddTrackerForm
   Caption = 'Add tracker'
   ClientHeight = 93
   ClientWidth = 533
+  Font.Height = -12
   OnCreate = FormCreate
   Position = poMainFormCenter
-  object Buttons: TButtonPanel[0]
+  LCLVersion = '3.4.0.0'
+  object Buttons: TButtonPanel
     Left = 8
     Height = 26
     Top = 59
@@ -33,7 +35,7 @@ inherited AddTrackerForm: TAddTrackerForm
     ShowButtons = [pbOK, pbCancel]
     ShowBevel = False
   end
-  object Panel1: TPanel[1]
+  object Panel1: TPanel
     Left = 8
     Height = 43
     Top = 8