mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Bug [0000851] "Support DPI scaling"

Browse source
This commit is contained in:
Alexander Koblov 2014-07-13 06:44:39 +00:00
commit a80be2720e
3 changed files with 37 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/doublecmd.lpi
View file

@ -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>

25
src/fchecksumcalc.lfm
View file

@ -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

28
src/flinker.lfm
View file

@ -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|*.*'