FIX: Bug [0000851] "Support DPI scaling"

src/doublecmd.lpi

@@ -14,6 +14,9 @@
       <Title Value="Double Commander"/>
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
+      <XPManifest>
+        <DpiAware Value="True"/>
+      </XPManifest>
       <Icon Value="0"/>
     </General>
     <i18n>
@@ -1140,6 +1143,7 @@ end;"/>
         <ComponentName Value="FileSourceOperationOptionsUI"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Frame"/>
+        <UnitName Value="uFileSourceOperationOptionsUI"/>
       </Unit126>
       <Unit127>
         <Filename Value="filesources\ufilesourceoperationtypes.pas"/>
@@ -1194,7 +1198,8 @@ end;"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="FileSystemCopyMoveOperationOptionsUI"/>
         <HasResources Value="True"/>
-        <ResourceBaseClass Value="Frame"/>
+        <ResourceBaseClass Value="Form"/>
+        <UnitName Value="fFileSystemCopyMoveOperationOptions"/>
       </Unit139>
       <Unit140>
         <Filename Value="filesources\filesystem\ufilesystemcalcchecksumoperation.pas"/>
@@ -1211,6 +1216,7 @@ end;"/>
       <Unit143>
         <Filename Value="filesources\filesystem\ufilesystemcopyoperation.pas"/>
         <IsPartOfProject Value="True"/>
+        <UnitName Value="uFileSystemCopyOperation"/>
       </Unit143>
       <Unit144>
         <Filename Value="filesources\filesystem\ufilesystemcreatedirectoryoperation.pas"/>
@@ -1506,7 +1512,9 @@ end;"/>
       <Unit207>
         <Filename Value="fsyncdirsdlg.pas"/>
         <IsPartOfProject Value="True"/>
+        <ComponentName Value="frmSyncDirsDlg"/>
         <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
         <UnitName Value="fSyncDirsDlg"/>
       </Unit207>
       <Unit208>

src/fchecksumcalc.lfm

@@ -3,8 +3,11 @@ object frmCheckSumCalc: TfrmCheckSumCalc
   Height = 136
   Top = 175
   Width = 460
+  AutoSize = True
   BorderIcons = [biSystemMenu]
   Caption = 'Calculate check sum...'
+  ChildSizing.LeftRightSpacing = 8
+  ChildSizing.TopBottomSpacing = 8
   ClientHeight = 136
   ClientWidth = 460
   Constraints.MaxHeight = 200
@@ -15,14 +18,14 @@ object frmCheckSumCalc: TfrmCheckSumCalc
   OnShow = FormShow
   Position = poScreenCenter
   SessionProperties = 'cbSeparateFile.Checked;cmbHashAlgorithm.ItemIndex'
-  LCLVersion = '1.1'
+  LCLVersion = '1.2.4.0'
   object lblSaveTo: TLabel
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = Owner
     Left = 10
-    Height = 18
+    Height = 25
     Top = 8
-    Width = 166
+    Width = 197
     BorderSpacing.Left = 10
     BorderSpacing.Top = 8
     Caption = '&Save check sum file(s) to:'
@@ -36,8 +39,8 @@ object frmCheckSumCalc: TfrmCheckSumCalc
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 10
-    Height = 28
-    Top = 32
+    Height = 33
+    Top = 39
     Width = 440
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Left = 10
@@ -50,9 +53,9 @@ object frmCheckSumCalc: TfrmCheckSumCalc
     AnchorSideTop.Control = edtSaveTo
     AnchorSideTop.Side = asrBottom
     Left = 10
-    Height = 23
-    Top = 66
-    Width = 302
+    Height = 29
+    Top = 78
+    Width = 360
     BorderSpacing.Top = 6
     Caption = 'C&reate separate checksum file for each file'
     OnChange = cbSeparateFileChange
@@ -97,11 +100,11 @@ object frmCheckSumCalc: TfrmCheckSumCalc
     AnchorSideTop.Control = cbSeparateFile
     AnchorSideTop.Side = asrBottom
     Left = 10
-    Height = 30
-    Top = 95
+    Height = 33
+    Top = 113
     Width = 132
     BorderSpacing.Top = 6
-    ItemHeight = 0
+    ItemHeight = 25
     OnChange = cmbHashAlgorithmChange
     Style = csDropDownList
     TabOrder = 2

src/flinker.lfm

@@ -13,29 +13,30 @@ object frmLinker: TfrmLinker
   ClientHeight = 337
   ClientWidth = 360
   Position = poScreenCenter
-  LCLVersion = '1.1'
+  LCLVersion = '1.2.4.0'
   object gbSaveTo: TGroupBox
     AnchorSideLeft.Control = Owner
     AnchorSideRight.Control = lstFile
     AnchorSideRight.Side = asrBottom
     Left = 6
-    Height = 80
-    Top = 248
+    Height = 92
+    Top = 236
     Width = 242
     Anchors = [akLeft, akRight, akBottom]
+    AutoSize = True
     BorderSpacing.Left = 6
     BorderSpacing.Bottom = 6
     Caption = 'Save to...'
-    ClientHeight = 57
+    ClientHeight = 70
     ClientWidth = 238
     TabOrder = 1
     object lblFileName: TLabel
       AnchorSideLeft.Control = gbSaveTo
       AnchorSideTop.Control = gbSaveTo
       Left = 6
-      Height = 18
+      Height = 25
       Top = 6
-      Width = 62
+      Width = 75
       BorderSpacing.Left = 6
       BorderSpacing.Top = 6
       Caption = '&File name'
@@ -48,8 +49,8 @@ object frmLinker: TfrmLinker
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = btnSave
       Left = 6
-      Height = 28
-      Top = 30
+      Height = 33
+      Top = 37
       Width = 195
       Anchors = [akTop, akLeft, akRight]
       BorderSpacing.Left = 6
@@ -64,8 +65,8 @@ object frmLinker: TfrmLinker
       AnchorSideBottom.Control = edSave
       AnchorSideBottom.Side = asrBottom
       Left = 207
-      Height = 28
-      Top = 30
+      Height = 33
+      Top = 37
       Width = 25
       Anchors = [akTop, akRight, akBottom]
       BorderSpacing.Right = 6
@@ -82,13 +83,13 @@ object frmLinker: TfrmLinker
     AnchorSideBottom.Control = lstFile
     AnchorSideBottom.Side = asrBottom
     Left = 254
-    Height = 242
+    Height = 230
     Top = 0
     Width = 100
     Anchors = [akTop, akRight, akBottom]
     BorderSpacing.Right = 6
     Caption = 'Item'
-    ClientHeight = 219
+    ClientHeight = 208
     ClientWidth = 96
     TabOrder = 2
     object spbtnUp: TButton
@@ -192,7 +193,7 @@ object frmLinker: TfrmLinker
     AnchorSideRight.Control = grbxControl
     AnchorSideBottom.Control = gbSaveTo
     Left = 6
-    Height = 234
+    Height = 222
     Top = 8
     Width = 242
     Anchors = [akTop, akLeft, akRight, akBottom]
@@ -203,7 +204,6 @@ object frmLinker: TfrmLinker
     ItemHeight = 0
     ScrollWidth = 240
     TabOrder = 0
-    TopIndex = -1
   end
   object dlgSaveAll: TSaveDialog
     Filter = 'All files|*.*'