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
2026-10-24 02:28:55 +03:00 · 2025-03-26 08:29:46 +00:00
parent 28ffba2df0
commit 49d44c3244
37 changed files with 187 additions and 35 deletions
--- a/source/forms/About.dfm
+++ b/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
--- a/source/forms/Authenticate.dfm
+++ b/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
--- a/source/forms/Cleanup.dfm
+++ b/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 = (
--- a/source/forms/Console.dfm
+++ b/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
--- a/source/forms/Copy.dfm
+++ b/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
--- a/source/forms/CopyLocal.dfm
+++ b/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
--- a/source/forms/CopyParamCustom.dfm
+++ b/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 = (
--- a/source/forms/CopyParamPreset.dfm
+++ b/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
--- a/source/forms/CopyParams.dfm
+++ b/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
--- a/source/forms/CreateDirectory.dfm
+++ b/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
--- a/source/forms/Custom.dfm
+++ b/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
--- a/source/forms/CustomCommand.dfm
+++ b/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
--- a/source/forms/CustomScpExplorer.dfm
+++ b/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
--- a/source/forms/EditMask.dfm
+++ b/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
--- a/source/forms/Editor.dfm
+++ b/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
--- a/source/forms/EditorPreferences.dfm
+++ b/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
--- a/source/forms/FileFind.dfm
+++ b/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
--- a/source/forms/FileSystemInfo.dfm
+++ b/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 = (
--- a/source/forms/FullSynchronize.dfm
+++ b/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
--- a/source/forms/GenerateUrl.dfm
+++ b/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 = (
--- a/source/forms/ImportSessions.dfm
+++ b/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 = (
--- a/source/forms/License.dfm
+++ b/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
--- a/source/forms/LocationProfiles.dfm
+++ b/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 = (
--- a/source/forms/Login.dfm
+++ b/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
--- a/source/forms/MessageDlg.dfm
+++ b/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
--- a/source/forms/OpenDirectory.dfm
+++ b/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 = (
--- a/source/forms/Preferences.dfm
+++ b/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
--- a/source/forms/Progress.dfm
+++ b/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
--- a/source/forms/Properties.dfm
+++ b/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
--- a/source/forms/RemoteTransfer.dfm
+++ b/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
--- a/source/forms/Rights.dfm
+++ b/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
--- a/source/forms/SelectMask.dfm
+++ b/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
--- a/source/forms/SiteAdvanced.dfm
+++ b/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
--- a/source/forms/Symlink.dfm
+++ b/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 = (
--- a/source/forms/Synchronize.dfm
+++ b/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
--- a/source/forms/SynchronizeChecklist.dfm
+++ b/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
--- a/source/forms/SynchronizeProgress.dfm
+++ b/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