Bug fix: Scaling was broken by 9485cb3f

Enabling ParentFont for forms in BCB11 broke scaling. VCL does not enable ParentFont for new forms either. Also with ParentFont enabled, designing on scaled display does not work correctly.

Source commit: c725084391e00822c953479b6426cf007914b711

source/forms/About.dfm

@@ -9,7 +9,11 @@ object AboutDialog: TAboutDialog
   ClientHeight = 532
   ClientWidth = 455
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   KeyPreview = True
   Position = poOwnerFormCenter
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged

source/forms/Authenticate.dfm

@@ -11,7 +11,11 @@ object AuthenticateForm: TAuthenticateForm
   Color = clBtnFace
   Constraints.MinHeight = 200
   Constraints.MinWidth = 280
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
   OnResize = FormResize

source/forms/Cleanup.dfm

@@ -9,7 +9,11 @@ object CleanupDialog: TCleanupDialog
   ClientHeight = 323
   ClientWidth = 489
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnShow = FormShow
   DesignSize = (

source/forms/Console.dfm

@@ -10,7 +10,11 @@ object ConsoleDialog: TConsoleDialog
   Color = clBtnFace
   Constraints.MinHeight = 250
   Constraints.MinWidth = 420
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Icon.Data = {
     000001000700404000000100200028420000760000003030000001002000A825
     00009E4200002828000001002000681A0000466800002020000001002000A810

source/forms/Copy.dfm

@@ -9,7 +9,11 @@ object CopyDialog: TCopyDialog
   ClientHeight = 235
   ClientWidth = 567
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
   OnCloseQuery = FormCloseQuery

source/forms/CopyLocal.dfm

@@ -9,7 +9,11 @@ object CopyLocalDialog: TCopyLocalDialog
   ClientHeight = 126
   ClientWidth = 511
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
   OnCloseQuery = FormCloseQuery

source/forms/CopyParamCustom.dfm

@@ -9,7 +9,11 @@ object CopyParamCustomDialog: TCopyParamCustomDialog
   ClientHeight = 511
   ClientWidth = 466
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnCloseQuery = FormCloseQuery
   DesignSize = (

source/forms/CopyParamPreset.dfm

@@ -9,7 +9,11 @@ object CopyParamPresetDialog: TCopyParamPresetDialog
   ClientHeight = 556
   ClientWidth = 744
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow

source/forms/CopyParams.dfm

@@ -4,6 +4,12 @@ object CopyParamsFrame: TCopyParamsFrame
   Width = 456
   Height = 471
   HelpType = htKeyword
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
+  ParentFont = False
   TabOrder = 0
   object CommonPropertiesGroup: TGroupBox
     Left = 232

source/forms/CreateDirectory.dfm

@@ -9,7 +9,11 @@ object CreateDirectoryDialog: TCreateDirectoryDialog
   ClientHeight = 263
   ClientWidth = 337
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow

source/forms/Custom.dfm

@@ -7,7 +7,11 @@ object CustomDialog: TCustomDialog
   ClientHeight = 42
   ClientWidth = 362
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   DesignSize = (
     362

source/forms/CustomCommand.dfm

@@ -9,7 +9,11 @@ object CustomCommandDialog: TCustomCommandDialog
   ClientHeight = 287
   ClientWidth = 464
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow

source/forms/CustomScpExplorer.dfm

@@ -5,7 +5,11 @@ object CustomScpExplorerForm: TCustomScpExplorerForm
   ClientHeight = 429
   ClientWidth = 608
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   KeyPreview = True
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
   OnClose = FormClose

source/forms/EditMask.dfm

@@ -9,7 +9,11 @@ object EditMaskDialog: TEditMaskDialog
   ClientHeight = 537
   ClientWidth = 474
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   KeyPreview = True
   Position = poOwnerFormCenter
   OnCloseQuery = FormCloseQuery

source/forms/Editor.dfm

@@ -8,7 +8,11 @@ object EditorForm: TEditorForm
   ClientHeight = 381
   ClientWidth = 609
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Icon.Data = {
     000001000700404000000100200028420000760000003030000001002000A825
     00009E4200002828000001002000681A0000466800002020000001002000A810

source/forms/EditorPreferences.dfm

@@ -9,7 +9,11 @@ object EditorPreferencesDialog: TEditorPreferencesDialog
   ClientHeight = 382
   ClientWidth = 447
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow

source/forms/FileFind.dfm

@@ -10,7 +10,11 @@ object FileFindDialog: TFileFindDialog
   Color = clBtnFace
   Constraints.MinHeight = 240
   Constraints.MinWidth = 400
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Icon.Data = {
     000001000700404000000100200028420000760000003030000001002000A825
     00009E4200002828000001002000681A0000466800002020000001002000A810

source/forms/FileSystemInfo.dfm

@@ -9,7 +9,11 @@ object FileSystemInfoDialog: TFileSystemInfoDialog
   ClientHeight = 444
   ClientWidth = 432
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnShow = FormShow
   DesignSize = (

source/forms/FullSynchronize.dfm

@@ -9,7 +9,11 @@ object FullSynchronizeDialog: TFullSynchronizeDialog
   ClientHeight = 492
   ClientWidth = 534
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow

source/forms/GenerateUrl.dfm

@@ -11,7 +11,11 @@ object GenerateUrlDialog: TGenerateUrlDialog
   Color = clBtnFace
   Constraints.MinHeight = 300
   Constraints.MinWidth = 500
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnShow = FormShow
   DesignSize = (

source/forms/ImportSessions.dfm

@@ -9,7 +9,11 @@ object ImportSessionsDialog: TImportSessionsDialog
   ClientHeight = 307
   ClientWidth = 418
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnShow = FormShow
   DesignSize = (

source/forms/License.dfm

@@ -8,7 +8,11 @@ object LicenseDialog: TLicenseDialog
   ClientHeight = 355
   ClientWidth = 559
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   DesignSize = (
     559

source/forms/LocationProfiles.dfm

@@ -9,7 +9,11 @@ object LocationProfilesDialog: TLocationProfilesDialog
   ClientHeight = 448
   ClientWidth = 601
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnShow = FormShow
   DesignSize = (

source/forms/Login.dfm

@@ -10,7 +10,11 @@ object LoginDialog: TLoginDialog
   Color = clBtnFace
   Constraints.MinHeight = 399
   Constraints.MinWidth = 660
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   KeyPreview = True
   Position = poOwnerFormCenter
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged

source/forms/MessageDlg.dfm

@@ -7,7 +7,11 @@ object MessageForm: TMessageForm
   ClientHeight = 41
   ClientWidth = 326
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
   TextHeight = 15

source/forms/OpenDirectory.dfm

@@ -9,7 +9,11 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
   ClientHeight = 342
   ClientWidth = 450
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnShow = FormShow
   DesignSize = (

source/forms/Preferences.dfm

@@ -9,7 +9,11 @@ object PreferencesDialog: TPreferencesDialog
   ClientHeight = 569
   ClientWidth = 605
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
   OnCloseQuery = FormCloseQuery

source/forms/Progress.dfm

@@ -9,7 +9,11 @@ object ProgressForm: TProgressForm
   ClientHeight = 294
   ClientWidth = 398
   Color = clWindow
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   PopupMode = pmAuto
   Position = poOwnerFormCenter
   OnHide = FormHide

source/forms/Properties.dfm

@@ -9,7 +9,11 @@ object PropertiesDialog: TPropertiesDialog
   ClientHeight = 424
   ClientWidth = 398
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow

source/forms/RemoteTransfer.dfm

@@ -9,7 +9,11 @@ object RemoteTransferDialog: TRemoteTransferDialog
   ClientHeight = 181
   ClientWidth = 464
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow

source/forms/Rights.dfm

@@ -3,6 +3,12 @@ object RightsFrame: TRightsFrame
   Top = 0
   Width = 258
   Height = 130
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
+  ParentFont = False
   TabOrder = 0
   OnContextPopup = FrameContextPopup
   object OthersButton: TSpeedButton

source/forms/SelectMask.dfm

@@ -9,7 +9,11 @@ object SelectMaskDialog: TSelectMaskDialog
   ClientHeight = 181
   ClientWidth = 460
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poDesigned
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow

source/forms/SiteAdvanced.dfm

@@ -9,7 +9,11 @@ object SiteAdvancedDialog: TSiteAdvancedDialog
   ClientHeight = 429
   ClientWidth = 619
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnClose = FormClose
   OnCloseQuery = FormCloseQuery

source/forms/Symlink.dfm

@@ -9,7 +9,11 @@ object SymlinkDialog: TSymlinkDialog
   ClientHeight = 177
   ClientWidth = 417
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   OnShow = FormShow
   DesignSize = (

source/forms/Synchronize.dfm

@@ -9,7 +9,11 @@ object SynchronizeDialog: TSynchronizeDialog
   ClientHeight = 466
   ClientWidth = 518
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   KeyPreview = True
   Position = poOwnerFormCenter
   OnCloseQuery = FormCloseQuery

source/forms/SynchronizeChecklist.dfm

@@ -8,7 +8,11 @@ object SynchronizeChecklistDialog: TSynchronizeChecklistDialog
   ClientHeight = 521
   ClientWidth = 695
   Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Icon.Data = {
     000001000700404000000100200028420000760000003030000001002000A825
     00009E4200002828000001002000681A0000466800002020000001002000A810

source/forms/SynchronizeProgress.dfm

@@ -7,7 +7,11 @@ object SynchronizeProgressForm: TSynchronizeProgressForm
   ClientHeight = 219
   ClientWidth = 424
   Color = clWindow
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
   Position = poOwnerFormCenter
   DesignSize = (
     424