浏览代码

Switching to Segoe UI font with slightly larger size (9) as recommended for Windows Vista and newer + All windows are now slightly larger accordingly and their layout was unified

Reverts e55f27da
Fixing some anchors and tab order on the way
Dialogs (and controls with specific width or height) are now about 10% wider

Note that main form already used the Segoe UI:9 by explicitly using UseDesktopFont for most/all of its controls

Layout rules
- follow IDE design guidelines in general
- controls start at 8x8, but at 9x9 in group boxes and 22v if group has title
- right and bottom padding in groupbox is the same as left padding
-for checkboxes the bottom padding of the checkmark is the same as left padding = 10
- buttons are 80x25 by default, with +14v with dropdown
- checkboxes/radiobuttons are +2h
- labels are 15 high, textboxes/comboxes 23
- indentation is controls under checkboxes is +16h

Source commit: 09a558e92af838e142d3624cb433cc052782881c
Martin Prikryl 9 月之前
父节点
当前提交
9485cb3f7d
共有 49 个文件被更改,包括 2496 次插入2618 次删除
  1. 0 4
      source/WinSCP.cpp
  2. 34 38
      source/forms/About.dfm
  3. 59 63
      source/forms/Authenticate.dfm
  4. 20 24
      source/forms/Cleanup.dfm
  5. 23 27
      source/forms/Console.dfm
  6. 53 51
      source/forms/Copy.dfm
  7. 30 30
      source/forms/CopyLocal.dfm
  8. 19 23
      source/forms/CopyParamCustom.dfm
  9. 73 77
      source/forms/CopyParamPreset.dfm
  10. 122 127
      source/forms/CopyParams.dfm
  11. 29 33
      source/forms/CreateDirectory.dfm
  12. 20 17
      source/forms/Custom.cpp
  13. 12 16
      source/forms/Custom.dfm
  14. 68 74
      source/forms/CustomCommand.dfm
  15. 1 1
      source/forms/CustomScpExplorer.cpp
  16. 24 28
      source/forms/CustomScpExplorer.dfm
  17. 82 85
      source/forms/EditMask.dfm
  18. 2 6
      source/forms/Editor.dfm
  19. 62 60
      source/forms/EditorPreferences.dfm
  20. 39 43
      source/forms/FileFind.dfm
  21. 105 109
      source/forms/FileSystemInfo.dfm
  22. 89 93
      source/forms/FullSynchronize.dfm
  23. 2 2
      source/forms/GenerateUrl.cpp
  24. 71 67
      source/forms/GenerateUrl.dfm
  25. 33 37
      source/forms/ImportSessions.dfm
  26. 12 16
      source/forms/License.dfm
  27. 84 88
      source/forms/LocationProfiles.dfm
  28. 160 165
      source/forms/Login.dfm
  29. 4 7
      source/forms/MessageDlg.cpp
  30. 2 6
      source/forms/MessageDlg.dfm
  31. 72 76
      source/forms/OpenDirectory.dfm
  32. 2 2
      source/forms/Preferences.cpp
  33. 249 249
      source/forms/Preferences.dfm
  34. 0 1
      source/forms/Preferences.h
  35. 58 62
      source/forms/Progress.dfm
  36. 121 125
      source/forms/Properties.dfm
  37. 41 45
      source/forms/RemoteTransfer.dfm
  38. 51 57
      source/forms/Rights.dfm
  39. 15 15
      source/forms/ScpCommander.dfm
  40. 3 3
      source/forms/ScpExplorer.dfm
  41. 52 56
      source/forms/SelectMask.dfm
  42. 296 292
      source/forms/SiteAdvanced.dfm
  43. 39 43
      source/forms/Symlink.dfm
  44. 85 89
      source/forms/Synchronize.dfm
  45. 38 42
      source/forms/SynchronizeChecklist.dfm
  46. 34 38
      source/forms/SynchronizeProgress.dfm
  47. 1 1
      source/packages/my/PasTools.pas
  48. 4 4
      source/windows/VCLCommon.cpp
  49. 1 1
      source/windows/WinInterface.h

+ 0 - 4
source/WinSCP.cpp

@@ -55,10 +55,6 @@ WINAPI wWinMain(HINSTANCE, HINSTANCE, LPWSTR, int)
     Application->MainFormOnTaskBar = true;
     Application->MainFormOnTaskBar = true;
     Application->ModalPopupMode = pmAuto;
     Application->ModalPopupMode = pmAuto;
     DebugAssert(SameFont(Application->DefaultFont, std::unique_ptr<TFont>(new TFont()).get()));
     DebugAssert(SameFont(Application->DefaultFont, std::unique_ptr<TFont>(new TFont()).get()));
-    Application->DefaultFont->Name = L"Tahoma";
-    // The default DefaultFont is calculated as -MulDiv(8, ScreenLogPixels, 72)
-    // But form's font is scaled using DPI, what can resumt in slightly different Height
-    Application->DefaultFont->Height = -MulDiv(11, Screen->PixelsPerInch, Screen->DefaultPixelsPerInch);
     SetEnvironmentVariable(L"WINSCP_PATH",
     SetEnvironmentVariable(L"WINSCP_PATH",
       ExcludeTrailingBackslash(ExtractFilePath(Application->ExeName)).c_str());
       ExcludeTrailingBackslash(ExtractFilePath(Application->ExeName)).c_str());
     CoreInitialize();
     CoreInitialize();

+ 34 - 38
source/forms/About.dfm

@@ -6,26 +6,22 @@ object AboutDialog: TAboutDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'About application'
   Caption = 'About application'
-  ClientHeight = 526
-  ClientWidth = 444
+  ClientHeight = 532
+  ClientWidth = 455
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -12
-  Font.Name = 'Segoe UI'
-  Font.Style = []
+  ParentFont = True
   KeyPreview = True
   KeyPreview = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
   OnKeyDown = FormKeyDown
   OnKeyDown = FormKeyDown
   DesignSize = (
   DesignSize = (
-    444
-    526)
+    455
+    532)
   TextHeight = 15
   TextHeight = 15
   object OKButton: TButton
   object OKButton: TButton
-    Left = 277
-    Top = 493
-    Width = 75
+    Left = 281
+    Top = 499
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Cancel = True
     Cancel = True
@@ -37,8 +33,8 @@ object AboutDialog: TAboutDialog
   end
   end
   object LicenseButton: TButton
   object LicenseButton: TButton
     Left = 62
     Left = 62
-    Top = 493
-    Width = 75
+    Top = 499
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akLeft, akBottom]
     Anchors = [akLeft, akBottom]
     Caption = '&License...'
     Caption = '&License...'
@@ -46,9 +42,9 @@ object AboutDialog: TAboutDialog
     OnClick = LicenseButtonClick
     OnClick = LicenseButtonClick
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 359
-    Top = 493
-    Width = 75
+    Left = 367
+    Top = 499
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = '&Help'
     Caption = '&Help'
@@ -58,16 +54,16 @@ object AboutDialog: TAboutDialog
   object Panel: TPanel
   object Panel: TPanel
     Left = 0
     Left = 0
     Top = 0
     Top = 0
-    Width = 444
-    Height = 485
+    Width = 455
+    Height = 491
     Anchors = [akLeft, akTop, akRight, akBottom]
     Anchors = [akLeft, akTop, akRight, akBottom]
     BevelOuter = bvNone
     BevelOuter = bvNone
     Color = clWindow
     Color = clWindow
     ParentBackground = False
     ParentBackground = False
     TabOrder = 3
     TabOrder = 3
     DesignSize = (
     DesignSize = (
-      444
-      485)
+      455
+      491)
     object ApplicationLabel: TLabel
     object ApplicationLabel: TLabel
       Left = 62
       Left = 62
       Top = 12
       Top = 12
@@ -78,7 +74,7 @@ object AboutDialog: TAboutDialog
     end
     end
     object VersionLabel: TLabel
     object VersionLabel: TLabel
       Left = 62
       Left = 62
-      Top = 28
+      Top = 30
       Width = 135
       Width = 135
       Height = 15
       Height = 15
       Caption = 'Version 2.0.0 (Build 12) XX'
       Caption = 'Version 2.0.0 (Build 12) XX'
@@ -86,7 +82,7 @@ object AboutDialog: TAboutDialog
     end
     end
     object WinSCPCopyrightLabel: TLabel
     object WinSCPCopyrightLabel: TLabel
       Left = 62
       Left = 62
-      Top = 56
+      Top = 58
       Width = 197
       Width = 197
       Height = 15
       Height = 15
       Caption = 'Copyright '#169' 2000-2003 Martin Prikryl'
       Caption = 'Copyright '#169' 2000-2003 Martin Prikryl'
@@ -94,15 +90,15 @@ object AboutDialog: TAboutDialog
     end
     end
     object ProductSpecificMessageLabel: TLabel
     object ProductSpecificMessageLabel: TLabel
       Left = 62
       Left = 62
-      Top = 100
-      Width = 304
+      Top = 104
+      Width = 305
       Height = 15
       Height = 15
       Caption = 'To send comments and report bugs use support forum at:'
       Caption = 'To send comments and report bugs use support forum at:'
       ShowAccelChar = False
       ShowAccelChar = False
     end
     end
     object Label3: TLabel
     object Label3: TLabel
       Left = 62
       Left = 62
-      Top = 259
+      Top = 265
       Width = 101
       Width = 101
       Height = 15
       Height = 15
       Caption = 'Portions copyright:'
       Caption = 'Portions copyright:'
@@ -110,8 +106,8 @@ object AboutDialog: TAboutDialog
     end
     end
     object RegistrationLabel: TLabel
     object RegistrationLabel: TLabel
       Left = 62
       Left = 62
-      Top = 144
-      Width = 140
+      Top = 150
+      Width = 141
       Height = 15
       Height = 15
       Caption = 'This product is licensed to:'
       Caption = 'This product is licensed to:'
       ShowAccelChar = False
       ShowAccelChar = False
@@ -125,7 +121,7 @@ object AboutDialog: TAboutDialog
     end
     end
     object HomepageLabel: TStaticText
     object HomepageLabel: TStaticText
       Left = 62
       Left = 62
-      Top = 72
+      Top = 76
       Width = 143
       Width = 143
       Height = 19
       Height = 19
       Caption = 'http://XXXXXXwinscp.net/'
       Caption = 'http://XXXXXXwinscp.net/'
@@ -134,7 +130,7 @@ object AboutDialog: TAboutDialog
     end
     end
     object ForumUrlLabel: TStaticText
     object ForumUrlLabel: TStaticText
       Left = 62
       Left = 62
-      Top = 116
+      Top = 122
       Width = 167
       Width = 167
       Height = 19
       Height = 19
       Caption = 'http://XXXXwinscp.net/forum/'
       Caption = 'http://XXXXwinscp.net/forum/'
@@ -142,9 +138,9 @@ object AboutDialog: TAboutDialog
       TabStop = True
       TabStop = True
     end
     end
     object ThirdPartyPanel: TPanel
     object ThirdPartyPanel: TPanel
-      Left = 62
-      Top = 277
-      Width = 372
+      Left = 64
+      Top = 283
+      Width = 383
       Height = 193
       Height = 193
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       BevelKind = bkTile
       BevelKind = bkTile
@@ -154,8 +150,8 @@ object AboutDialog: TAboutDialog
     end
     end
     object RegistrationBox: TPanel
     object RegistrationBox: TPanel
       Left = 62
       Left = 62
-      Top = 162
-      Width = 372
+      Top = 168
+      Width = 385
       Height = 89
       Height = 89
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       BevelKind = bkTile
       BevelKind = bkTile
@@ -164,12 +160,12 @@ object AboutDialog: TAboutDialog
       ParentColor = True
       ParentColor = True
       TabOrder = 3
       TabOrder = 3
       DesignSize = (
       DesignSize = (
-        368
+        381
         85)
         85)
       object RegistrationSubjectLabel: TLabel
       object RegistrationSubjectLabel: TLabel
         Left = 8
         Left = 8
         Top = 8
         Top = 8
-        Width = 275
+        Width = 288
         Height = 65
         Height = 65
         Anchors = [akLeft, akTop, akRight]
         Anchors = [akLeft, akTop, akRight]
         AutoSize = False
         AutoSize = False
@@ -188,7 +184,7 @@ object AboutDialog: TAboutDialog
       object RegistrationProductIdLabel: TStaticText
       object RegistrationProductIdLabel: TStaticText
         Left = 8
         Left = 8
         Top = 65
         Top = 65
-        Width = 154
+        Width = 141
         Height = 19
         Height = 19
         Caption = 'Product ID: xxxx-xxxx-xxxxx'
         Caption = 'Product ID: xxxx-xxxx-xxxxx'
         ShowAccelChar = False
         ShowAccelChar = False

+ 59 - 63
source/forms/Authenticate.dfm

@@ -7,33 +7,29 @@ object AuthenticateForm: TAuthenticateForm
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'AuthenticateForm'
   Caption = 'AuthenticateForm'
   ClientHeight = 380
   ClientHeight = 380
-  ClientWidth = 375
+  ClientWidth = 416
   Color = clBtnFace
   Color = clBtnFace
   Constraints.MinHeight = 200
   Constraints.MinHeight = 200
   Constraints.MinWidth = 280
   Constraints.MinWidth = 280
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
   OnResize = FormResize
   OnResize = FormResize
   OnShow = FormShow
   OnShow = FormShow
-  TextHeight = 13
+  TextHeight = 15
   object TopPanel: TPanel
   object TopPanel: TPanel
     Left = 0
     Left = 0
     Top = 0
     Top = 0
-    Width = 375
-    Height = 65
+    Width = 416
+    Height = 63
     Align = alClient
     Align = alClient
     BevelOuter = bvNone
     BevelOuter = bvNone
     TabOrder = 0
     TabOrder = 0
     object LogView: TListBox
     object LogView: TListBox
       Left = 48
       Left = 48
       Top = 0
       Top = 0
-      Width = 327
-      Height = 65
+      Width = 368
+      Height = 63
       Style = lbOwnerDrawVariable
       Style = lbOwnerDrawVariable
       Align = alClient
       Align = alClient
       BevelInner = bvNone
       BevelInner = bvNone
@@ -52,7 +48,7 @@ object AuthenticateForm: TAuthenticateForm
       Left = 0
       Left = 0
       Top = 0
       Top = 0
       Width = 48
       Width = 48
-      Height = 65
+      Height = 63
       Align = alLeft
       Align = alLeft
       BevelOuter = bvNone
       BevelOuter = bvNone
       Color = clWindow
       Color = clWindow
@@ -68,9 +64,9 @@ object AuthenticateForm: TAuthenticateForm
   end
   end
   object PasswordPanel: TPanel
   object PasswordPanel: TPanel
     Left = 0
     Left = 0
-    Top = 65
-    Width = 375
-    Height = 233
+    Top = 63
+    Width = 416
+    Height = 235
     Align = alBottom
     Align = alBottom
     AutoSize = True
     AutoSize = True
     BevelOuter = bvNone
     BevelOuter = bvNone
@@ -79,18 +75,18 @@ object AuthenticateForm: TAuthenticateForm
     object PromptEditPanel: TPanel
     object PromptEditPanel: TPanel
       Left = 0
       Left = 0
       Top = 0
       Top = 0
-      Width = 375
-      Height = 139
+      Width = 416
+      Height = 144
       Align = alTop
       Align = alTop
       BevelOuter = bvNone
       BevelOuter = bvNone
       TabOrder = 0
       TabOrder = 0
       DesignSize = (
       DesignSize = (
-        375
-        139)
+        416
+        144)
       object InstructionsLabel: TLabel
       object InstructionsLabel: TLabel
         Left = 8
         Left = 8
-        Top = 8
-        Width = 360
+        Top = 6
+        Width = 400
         Height = 39
         Height = 39
         Anchors = [akLeft, akTop, akRight]
         Anchors = [akLeft, akTop, akRight]
         AutoSize = False
         AutoSize = False
@@ -104,8 +100,8 @@ object AuthenticateForm: TAuthenticateForm
       object PromptLabel1: TLabel
       object PromptLabel1: TLabel
         Left = 8
         Left = 8
         Top = 56
         Top = 56
-        Width = 360
-        Height = 13
+        Width = 401
+        Height = 15
         Anchors = [akLeft, akTop, akRight]
         Anchors = [akLeft, akTop, akRight]
         AutoSize = False
         AutoSize = False
         Caption = '&UsernameX:'
         Caption = '&UsernameX:'
@@ -114,9 +110,9 @@ object AuthenticateForm: TAuthenticateForm
       end
       end
       object PromptLabel2: TLabel
       object PromptLabel2: TLabel
         Left = 8
         Left = 8
-        Top = 101
-        Width = 360
-        Height = 13
+        Top = 103
+        Width = 401
+        Height = 15
         Anchors = [akLeft, akTop, akRight]
         Anchors = [akLeft, akTop, akRight]
         AutoSize = False
         AutoSize = False
         Caption = '&PasswordX:'
         Caption = '&PasswordX:'
@@ -125,18 +121,18 @@ object AuthenticateForm: TAuthenticateForm
       end
       end
       object PromptEdit1: TPasswordEdit
       object PromptEdit1: TPasswordEdit
         Left = 8
         Left = 8
-        Top = 73
-        Width = 361
-        Height = 21
+        Top = 74
+        Width = 400
+        Height = 23
         Anchors = [akLeft, akTop, akRight]
         Anchors = [akLeft, akTop, akRight]
         MaxLength = 250
         MaxLength = 250
         TabOrder = 0
         TabOrder = 0
       end
       end
       object PromptEdit2: TPasswordEdit
       object PromptEdit2: TPasswordEdit
         Left = 8
         Left = 8
-        Top = 118
-        Width = 361
-        Height = 21
+        Top = 121
+        Width = 400
+        Height = 23
         Anchors = [akLeft, akTop, akRight]
         Anchors = [akLeft, akTop, akRight]
         MaxLength = 250
         MaxLength = 250
         TabOrder = 1
         TabOrder = 1
@@ -144,8 +140,8 @@ object AuthenticateForm: TAuthenticateForm
     end
     end
     object SavePasswordPanel: TPanel
     object SavePasswordPanel: TPanel
       Left = 0
       Left = 0
-      Top = 164
-      Width = 375
+      Top = 169
+      Width = 416
       Height = 25
       Height = 25
       Align = alTop
       Align = alTop
       BevelOuter = bvNone
       BevelOuter = bvNone
@@ -154,7 +150,7 @@ object AuthenticateForm: TAuthenticateForm
         Left = 14
         Left = 14
         Top = 6
         Top = 6
         Width = 275
         Width = 275
-        Height = 17
+        Height = 19
         Caption = '&Change stored password to this one'
         Caption = '&Change stored password to this one'
         Checked = True
         Checked = True
         State = cbChecked
         State = cbChecked
@@ -163,19 +159,19 @@ object AuthenticateForm: TAuthenticateForm
     end
     end
     object ButtonsPanel: TPanel
     object ButtonsPanel: TPanel
       Left = 0
       Left = 0
-      Top = 189
-      Width = 375
-      Height = 44
+      Top = 194
+      Width = 416
+      Height = 41
       Align = alTop
       Align = alTop
       BevelOuter = bvNone
       BevelOuter = bvNone
       TabOrder = 3
       TabOrder = 3
       DesignSize = (
       DesignSize = (
-        375
-        44)
+        416
+        41)
       object PasswordOKButton: TButton
       object PasswordOKButton: TButton
-        Left = 118
-        Top = 8
-        Width = 75
+        Left = 154
+        Top = 6
+        Width = 80
         Height = 25
         Height = 25
         Anchors = [akTop, akRight]
         Anchors = [akTop, akRight]
         Caption = 'OK'
         Caption = 'OK'
@@ -183,9 +179,9 @@ object AuthenticateForm: TAuthenticateForm
         TabOrder = 0
         TabOrder = 0
       end
       end
       object PasswordCancelButton: TButton
       object PasswordCancelButton: TButton
-        Left = 206
+        Left = 242
         Top = 8
         Top = 8
-        Width = 75
+        Width = 80
         Height = 25
         Height = 25
         Anchors = [akTop, akRight]
         Anchors = [akTop, akRight]
         Caption = 'Cancel'
         Caption = 'Cancel'
@@ -193,9 +189,9 @@ object AuthenticateForm: TAuthenticateForm
         TabOrder = 1
         TabOrder = 1
       end
       end
       object PasswordHelpButton: TButton
       object PasswordHelpButton: TButton
-        Left = 294
+        Left = 328
         Top = 8
         Top = 8
-        Width = 75
+        Width = 80
         Height = 25
         Height = 25
         Anchors = [akTop, akRight]
         Anchors = [akTop, akRight]
         Caption = '&Help'
         Caption = '&Help'
@@ -205,8 +201,8 @@ object AuthenticateForm: TAuthenticateForm
     end
     end
     object SessionRememberPasswordPanel: TPanel
     object SessionRememberPasswordPanel: TPanel
       Left = 0
       Left = 0
-      Top = 139
-      Width = 375
+      Top = 144
+      Width = 416
       Height = 25
       Height = 25
       Align = alTop
       Align = alTop
       BevelOuter = bvNone
       BevelOuter = bvNone
@@ -215,7 +211,7 @@ object AuthenticateForm: TAuthenticateForm
         Left = 14
         Left = 14
         Top = 6
         Top = 6
         Width = 275
         Width = 275
-        Height = 17
+        Height = 19
         Caption = '&Remember password for this session'
         Caption = '&Remember password for this session'
         Checked = True
         Checked = True
         State = cbChecked
         State = cbChecked
@@ -226,20 +222,20 @@ object AuthenticateForm: TAuthenticateForm
   object BannerPanel: TPanel
   object BannerPanel: TPanel
     Left = 0
     Left = 0
     Top = 298
     Top = 298
-    Width = 375
+    Width = 416
     Height = 82
     Height = 82
     Align = alBottom
     Align = alBottom
     BevelOuter = bvNone
     BevelOuter = bvNone
     TabOrder = 2
     TabOrder = 2
     Visible = False
     Visible = False
     DesignSize = (
     DesignSize = (
-      375
+      416
       82)
       82)
     object BannerMemo: TMemo
     object BannerMemo: TMemo
       Left = 8
       Left = 8
       Top = 8
       Top = 8
-      Width = 360
-      Height = 34
+      Width = 400
+      Height = 35
       Anchors = [akLeft, akTop, akRight, akBottom]
       Anchors = [akLeft, akTop, akRight, akBottom]
       Color = clBtnFace
       Color = clBtnFace
       PopupMenu = BannerPopupMenu
       PopupMenu = BannerPopupMenu
@@ -250,18 +246,18 @@ object AuthenticateForm: TAuthenticateForm
       OnContextPopup = BannerMemoContextPopup
       OnContextPopup = BannerMemoContextPopup
     end
     end
     object NeverShowAgainCheck: TCheckBox
     object NeverShowAgainCheck: TCheckBox
-      Left = 15
-      Top = 53
-      Width = 188
+      Left = 14
+      Top = 55
+      Width = 229
       Height = 17
       Height = 17
       Anchors = [akLeft, akRight, akBottom]
       Anchors = [akLeft, akRight, akBottom]
       Caption = '&Never show this banner again'
       Caption = '&Never show this banner again'
       TabOrder = 1
       TabOrder = 1
     end
     end
     object BannerCloseButton: TButton
     object BannerCloseButton: TButton
-      Left = 206
-      Top = 47
-      Width = 75
+      Left = 243
+      Top = 49
+      Width = 80
       Height = 25
       Height = 25
       Anchors = [akRight, akBottom]
       Anchors = [akRight, akBottom]
       Caption = 'Continue'
       Caption = 'Continue'
@@ -269,9 +265,9 @@ object AuthenticateForm: TAuthenticateForm
       TabOrder = 2
       TabOrder = 2
     end
     end
     object BannerHelpButton: TButton
     object BannerHelpButton: TButton
-      Left = 292
-      Top = 47
-      Width = 75
+      Left = 328
+      Top = 49
+      Width = 80
       Height = 25
       Height = 25
       Anchors = [akRight, akBottom]
       Anchors = [akRight, akBottom]
       Caption = '&Help'
       Caption = '&Help'

+ 20 - 24
source/forms/Cleanup.dfm

@@ -6,25 +6,21 @@ object CleanupDialog: TCleanupDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'Cleanup application data'
   Caption = 'Cleanup application data'
-  ClientHeight = 299
+  ClientHeight = 323
   ClientWidth = 489
   ClientWidth = 489
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnShow = FormShow
   OnShow = FormShow
   DesignSize = (
   DesignSize = (
     489
     489
-    299)
-  TextHeight = 13
+    323)
+  TextHeight = 15
   object Label1: TLabel
   object Label1: TLabel
     Left = 8
     Left = 8
     Top = 8
     Top = 8
-    Width = 475
-    Height = 97
+    Width = 473
+    Height = 108
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     AutoSize = False
     AutoSize = False
     Caption = 
     Caption = 
@@ -37,9 +33,9 @@ object CleanupDialog: TCleanupDialog
     WordWrap = True
     WordWrap = True
   end
   end
   object OKButton: TButton
   object OKButton: TButton
-    Left = 249
-    Top = 268
-    Width = 75
+    Left = 231
+    Top = 290
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = 'OK'
     Caption = 'OK'
@@ -48,9 +44,9 @@ object CleanupDialog: TCleanupDialog
     TabOrder = 2
     TabOrder = 2
   end
   end
   object CancelButton: TButton
   object CancelButton: TButton
-    Left = 329
-    Top = 268
-    Width = 75
+    Left = 317
+    Top = 290
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Cancel = True
     Cancel = True
@@ -60,9 +56,9 @@ object CleanupDialog: TCleanupDialog
   end
   end
   object DataListView: TListView
   object DataListView: TListView
     Left = 8
     Left = 8
-    Top = 104
-    Width = 475
-    Height = 156
+    Top = 117
+    Width = 473
+    Height = 167
     Anchors = [akLeft, akTop, akRight, akBottom]
     Anchors = [akLeft, akTop, akRight, akBottom]
     Checkboxes = True
     Checkboxes = True
     Columns = <
     Columns = <
@@ -90,8 +86,8 @@ object CleanupDialog: TCleanupDialog
   end
   end
   object CheckAllButton: TButton
   object CheckAllButton: TButton
     Left = 8
     Left = 8
-    Top = 266
-    Width = 113
+    Top = 290
+    Width = 120
     Height = 25
     Height = 25
     Anchors = [akLeft, akBottom]
     Anchors = [akLeft, akBottom]
     Caption = 'Un/check &all'
     Caption = 'Un/check &all'
@@ -99,9 +95,9 @@ object CleanupDialog: TCleanupDialog
     OnClick = CheckAllButtonClick
     OnClick = CheckAllButtonClick
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 409
-    Top = 268
-    Width = 75
+    Left = 401
+    Top = 290
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = '&Help'
     Caption = '&Help'

+ 23 - 27
source/forms/Console.dfm

@@ -10,11 +10,7 @@ object ConsoleDialog: TConsoleDialog
   Color = clBtnFace
   Color = clBtnFace
   Constraints.MinHeight = 250
   Constraints.MinHeight = 250
   Constraints.MinWidth = 420
   Constraints.MinWidth = 420
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Icon.Data = {
   Icon.Data = {
     000001000700404000000100200028420000760000003030000001002000A825
     000001000700404000000100200028420000760000003030000001002000A825
     00009E4200002828000001002000681A0000466800002020000001002000A810
     00009E4200002828000001002000681A0000466800002020000001002000A810
@@ -1365,28 +1361,28 @@ object ConsoleDialog: TConsoleDialog
   DesignSize = (
   DesignSize = (
     551
     551
     393)
     393)
-  TextHeight = 13
+  TextHeight = 15
   object Bevel1: TBevel
   object Bevel1: TBevel
     Left = 0
     Left = 0
     Top = 0
     Top = 0
     Width = 551
     Width = 551
-    Height = 78
+    Height = 80
     Align = alTop
     Align = alTop
     Shape = bsBottomLine
     Shape = bsBottomLine
   end
   end
   object Label1: TLabel
   object Label1: TLabel
     Left = 51
     Left = 51
-    Top = 13
-    Width = 78
-    Height = 13
+    Top = 11
+    Width = 88
+    Height = 15
     Caption = 'Enter &command:'
     Caption = 'Enter &command:'
     FocusControl = CommandEdit
     FocusControl = CommandEdit
   end
   end
   object Label2: TLabel
   object Label2: TLabel
     Left = 51
     Left = 51
     Top = 56
     Top = 56
-    Width = 87
-    Height = 13
+    Width = 93
+    Height = 15
     Caption = 'Current directory:'
     Caption = 'Current directory:'
     ShowAccelChar = False
     ShowAccelChar = False
   end
   end
@@ -1401,10 +1397,10 @@ object ConsoleDialog: TConsoleDialog
     ShowAccelChar = False
     ShowAccelChar = False
   end
   end
   object DirectoryLabel: TPathLabel
   object DirectoryLabel: TPathLabel
-    Left = 158
+    Left = 163
     Top = 56
     Top = 56
-    Width = 299
-    Height = 13
+    Width = 298
+    Height = 15
     UnixPath = True
     UnixPath = True
     IndentHorizontal = 0
     IndentHorizontal = 0
     IndentVertical = 0
     IndentVertical = 0
@@ -1421,9 +1417,9 @@ object ConsoleDialog: TConsoleDialog
   end
   end
   object OutputMemo: TMemo
   object OutputMemo: TMemo
     Left = 0
     Left = 0
-    Top = 78
+    Top = 80
     Width = 551
     Width = 551
-    Height = 315
+    Height = 313
     TabStop = False
     TabStop = False
     Align = alClient
     Align = alClient
     Color = clBtnFace
     Color = clBtnFace
@@ -1435,9 +1431,9 @@ object ConsoleDialog: TConsoleDialog
     OnContextPopup = OutputMemoContextPopup
     OnContextPopup = OutputMemoContextPopup
   end
   end
   object CancelBtn: TButton
   object CancelBtn: TButton
-    Left = 472
+    Left = 463
     Top = 7
     Top = 7
-    Width = 75
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akTop, akRight]
     Anchors = [akTop, akRight]
     Cancel = True
     Cancel = True
@@ -1446,10 +1442,10 @@ object ConsoleDialog: TConsoleDialog
     TabOrder = 2
     TabOrder = 2
   end
   end
   object CommandEdit: THistoryComboBox
   object CommandEdit: THistoryComboBox
-    Left = 158
-    Top = 9
-    Width = 213
-    Height = 21
+    Left = 163
+    Top = 8
+    Width = 208
+    Height = 23
     AutoComplete = False
     AutoComplete = False
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     MaxLength = 2048
     MaxLength = 2048
@@ -1457,9 +1453,9 @@ object ConsoleDialog: TConsoleDialog
     OnChange = CommandEditChange
     OnChange = CommandEditChange
   end
   end
   object ExecuteButton: TButton
   object ExecuteButton: TButton
-    Left = 384
+    Left = 377
     Top = 7
     Top = 7
-    Width = 75
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akTop, akRight]
     Anchors = [akTop, akRight]
     Caption = '&Execute'
     Caption = '&Execute'
@@ -1468,9 +1464,9 @@ object ConsoleDialog: TConsoleDialog
     OnClick = ExecuteButtonClick
     OnClick = ExecuteButtonClick
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 472
+    Left = 463
     Top = 42
     Top = 42
-    Width = 75
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akTop, akRight]
     Anchors = [akTop, akRight]
     Caption = '&Help'
     Caption = '&Help'

+ 53 - 51
source/forms/Copy.dfm

@@ -6,22 +6,18 @@ object CopyDialog: TCopyDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'CopyDialog'
   Caption = 'CopyDialog'
-  ClientHeight = 225
-  ClientWidth = 511
+  ClientHeight = 235
+  ClientWidth = 567
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
   OnCloseQuery = FormCloseQuery
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow
   OnShow = FormShow
   DesignSize = (
   DesignSize = (
-    511
-    225)
-  TextHeight = 13
+    567
+    235)
+  TextHeight = 15
   object Image: TImage
   object Image: TImage
     Left = 8
     Left = 8
     Top = 11
     Top = 11
@@ -32,15 +28,15 @@ object CopyDialog: TCopyDialog
   object DirectoryLabel: TLabel
   object DirectoryLabel: TLabel
     Left = 46
     Left = 46
     Top = 8
     Top = 8
-    Width = 195
-    Height = 13
+    Width = 212
+    Height = 15
     Caption = 'Copy 2 selected files to remote directory'
     Caption = 'Copy 2 selected files to remote directory'
   end
   end
   object LocalDirectoryEdit: THistoryComboBox
   object LocalDirectoryEdit: THistoryComboBox
     Left = 46
     Left = 46
-    Top = 25
-    Width = 372
-    Height = 21
+    Top = 26
+    Width = 427
+    Height = 23
     AutoComplete = False
     AutoComplete = False
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     DropDownCount = 16
     DropDownCount = 16
@@ -51,9 +47,9 @@ object CopyDialog: TCopyDialog
   end
   end
   object RemoteDirectoryEdit: THistoryComboBox
   object RemoteDirectoryEdit: THistoryComboBox
     Left = 46
     Left = 46
-    Top = 25
-    Width = 456
-    Height = 21
+    Top = 26
+    Width = 513
+    Height = 23
     AutoComplete = False
     AutoComplete = False
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     DropDownCount = 16
     DropDownCount = 16
@@ -63,9 +59,9 @@ object CopyDialog: TCopyDialog
     OnChange = ControlChange
     OnChange = ControlChange
   end
   end
   object OkButton: TButton
   object OkButton: TButton
-    Left = 260
-    Top = 136
-    Width = 75
+    Left = 307
+    Top = 143
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akTop, akRight]
     Anchors = [akTop, akRight]
     Caption = 'OK'
     Caption = 'OK'
@@ -75,9 +71,9 @@ object CopyDialog: TCopyDialog
     OnDropDownClick = OkButtonDropDownClick
     OnDropDownClick = OkButtonDropDownClick
   end
   end
   object CancelButton: TButton
   object CancelButton: TButton
-    Left = 343
-    Top = 136
-    Width = 75
+    Left = 393
+    Top = 143
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akTop, akRight]
     Anchors = [akTop, akRight]
     Cancel = True
     Cancel = True
@@ -86,17 +82,18 @@ object CopyDialog: TCopyDialog
     TabOrder = 7
     TabOrder = 7
   end
   end
   object LocalDirectoryBrowseButton: TButton
   object LocalDirectoryBrowseButton: TButton
-    Left = 427
-    Top = 23
-    Width = 75
+    Left = 479
+    Top = 25
+    Width = 80
     Height = 25
     Height = 25
+    Anchors = [akTop, akRight]
     Caption = 'B&rowse...'
     Caption = 'B&rowse...'
     TabOrder = 1
     TabOrder = 1
     OnClick = LocalDirectoryBrowseButtonClick
     OnClick = LocalDirectoryBrowseButtonClick
   end
   end
   object QueueCheck2: TCheckBox
   object QueueCheck2: TCheckBox
-    Left = 12
-    Top = 112
+    Left = 10
+    Top = 120
     Width = 317
     Width = 317
     Height = 17
     Height = 17
     Caption = 'Transfer on background (add to transfer &queue) X'
     Caption = 'Transfer on background (add to transfer &queue) X'
@@ -104,9 +101,9 @@ object CopyDialog: TCopyDialog
     OnClick = ControlChange
     OnClick = ControlChange
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 427
-    Top = 136
-    Width = 75
+    Left = 479
+    Top = 143
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akTop, akRight]
     Anchors = [akTop, akRight]
     Caption = '&Help'
     Caption = '&Help'
@@ -114,8 +111,8 @@ object CopyDialog: TCopyDialog
     OnClick = HelpButtonClick
     OnClick = HelpButtonClick
   end
   end
   object NeverShowAgainCheck: TCheckBox
   object NeverShowAgainCheck: TCheckBox
-    Left = 12
-    Top = 167
+    Left = 10
+    Top = 174
     Width = 253
     Width = 253
     Height = 17
     Height = 17
     Caption = '&Do not show this dialog box again'
     Caption = '&Do not show this dialog box again'
@@ -124,8 +121,8 @@ object CopyDialog: TCopyDialog
   end
   end
   object TransferSettingsButton: TButton
   object TransferSettingsButton: TButton
     Left = 8
     Left = 8
-    Top = 136
-    Width = 161
+    Top = 143
+    Width = 175
     Height = 25
     Height = 25
     Caption = 'Transfer settin&gs...'
     Caption = 'Transfer settin&gs...'
     Style = bsSplitButton
     Style = bsSplitButton
@@ -135,21 +132,22 @@ object CopyDialog: TCopyDialog
   end
   end
   object CopyParamGroup: TGroupBox
   object CopyParamGroup: TGroupBox
     Left = 8
     Left = 8
-    Top = 53
-    Width = 496
-    Height = 50
+    Top = 55
+    Width = 551
+    Height = 59
+    Anchors = [akLeft, akTop, akRight]
     Caption = 'Transfer settings'
     Caption = 'Transfer settings'
     TabOrder = 3
     TabOrder = 3
     OnClick = CopyParamGroupClick
     OnClick = CopyParamGroupClick
     OnContextPopup = CopyParamGroupContextPopup
     OnContextPopup = CopyParamGroupContextPopup
     DesignSize = (
     DesignSize = (
-      496
-      50)
+      551
+      59)
     object CopyParamLabel: TLabel
     object CopyParamLabel: TLabel
-      Left = 7
-      Top = 15
-      Width = 482
-      Height = 26
+      Left = 9
+      Top = 20
+      Width = 533
+      Height = 35
       Anchors = [akLeft, akTop, akRight, akBottom]
       Anchors = [akLeft, akTop, akRight, akBottom]
       AutoSize = False
       AutoSize = False
       Caption = 'CopyParamLabel'
       Caption = 'CopyParamLabel'
@@ -160,18 +158,22 @@ object CopyDialog: TCopyDialog
   end
   end
   object ShortCutHintPanel: TPanel
   object ShortCutHintPanel: TPanel
     Left = 0
     Left = 0
-    Top = 191
-    Width = 511
-    Height = 34
+    Top = 197
+    Width = 567
+    Height = 38
     Align = alBottom
     Align = alBottom
     BevelOuter = bvNone
     BevelOuter = bvNone
     ParentBackground = False
     ParentBackground = False
     TabOrder = 9
     TabOrder = 9
+    DesignSize = (
+      567
+      38)
     object ShortCutHintLabel: TLabel
     object ShortCutHintLabel: TLabel
-      Left = 12
+      Left = 8
       Top = 3
       Top = 3
-      Width = 490
-      Height = 28
+      Width = 551
+      Height = 32
+      Anchors = [akLeft, akTop, akRight, akBottom]
       AutoSize = False
       AutoSize = False
       Caption = 
       Caption = 
         'In Commander interface the keyboard shortcut F5 is used to trans' +
         'In Commander interface the keyboard shortcut F5 is used to trans' +

+ 30 - 30
source/forms/CopyLocal.dfm

@@ -6,22 +6,18 @@ object CopyLocalDialog: TCopyLocalDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'CopyLocalDialog'
   Caption = 'CopyLocalDialog'
-  ClientHeight = 121
+  ClientHeight = 126
   ClientWidth = 511
   ClientWidth = 511
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
   OnCloseQuery = FormCloseQuery
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow
   OnShow = FormShow
   DesignSize = (
   DesignSize = (
     511
     511
-    121)
-  TextHeight = 13
+    126)
+  TextHeight = 15
   object Image: TImage
   object Image: TImage
     Left = 8
     Left = 8
     Top = 11
     Top = 11
@@ -32,16 +28,16 @@ object CopyLocalDialog: TCopyLocalDialog
   object DirectoryLabel: TLabel
   object DirectoryLabel: TLabel
     Left = 46
     Left = 46
     Top = 8
     Top = 8
-    Width = 61
-    Height = 13
+    Width = 63
+    Height = 15
     Caption = '&Target path:'
     Caption = '&Target path:'
     FocusControl = DirectoryEdit
     FocusControl = DirectoryEdit
   end
   end
   object DirectoryEdit: THistoryComboBox
   object DirectoryEdit: THistoryComboBox
     Left = 46
     Left = 46
-    Top = 25
-    Width = 372
-    Height = 21
+    Top = 26
+    Width = 371
+    Height = 23
     AutoComplete = False
     AutoComplete = False
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     DropDownCount = 16
     DropDownCount = 16
@@ -50,9 +46,9 @@ object CopyLocalDialog: TCopyLocalDialog
     OnExit = DirectoryEditExit
     OnExit = DirectoryEditExit
   end
   end
   object OkButton: TButton
   object OkButton: TButton
-    Left = 260
+    Left = 251
     Top = 55
     Top = 55
-    Width = 75
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akTop, akRight]
     Anchors = [akTop, akRight]
     Caption = 'OK'
     Caption = 'OK'
@@ -61,9 +57,9 @@ object CopyLocalDialog: TCopyLocalDialog
     TabOrder = 3
     TabOrder = 3
   end
   end
   object CancelButton: TButton
   object CancelButton: TButton
-    Left = 343
+    Left = 337
     Top = 55
     Top = 55
-    Width = 75
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akTop, akRight]
     Anchors = [akTop, akRight]
     Cancel = True
     Cancel = True
@@ -72,18 +68,18 @@ object CopyLocalDialog: TCopyLocalDialog
     TabOrder = 4
     TabOrder = 4
   end
   end
   object LocalDirectoryBrowseButton: TButton
   object LocalDirectoryBrowseButton: TButton
-    Left = 427
-    Top = 23
-    Width = 75
+    Left = 423
+    Top = 25
+    Width = 80
     Height = 25
     Height = 25
     Caption = 'B&rowse...'
     Caption = 'B&rowse...'
     TabOrder = 1
     TabOrder = 1
     OnClick = LocalDirectoryBrowseButtonClick
     OnClick = LocalDirectoryBrowseButtonClick
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 427
+    Left = 423
     Top = 55
     Top = 55
-    Width = 75
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akTop, akRight]
     Anchors = [akTop, akRight]
     Caption = '&Help'
     Caption = '&Help'
@@ -91,27 +87,31 @@ object CopyLocalDialog: TCopyLocalDialog
     OnClick = HelpButtonClick
     OnClick = HelpButtonClick
   end
   end
   object NeverShowAgainCheck: TCheckBox
   object NeverShowAgainCheck: TCheckBox
-    Left = 12
-    Top = 58
-    Width = 242
+    Left = 10
+    Top = 59
+    Width = 237
     Height = 17
     Height = 17
     Caption = '&Do not show this dialog box again'
     Caption = '&Do not show this dialog box again'
     TabOrder = 2
     TabOrder = 2
   end
   end
   object ShortCutHintPanel: TPanel
   object ShortCutHintPanel: TPanel
     Left = 0
     Left = 0
-    Top = 87
+    Top = 88
     Width = 511
     Width = 511
-    Height = 34
+    Height = 38
     Align = alBottom
     Align = alBottom
     BevelOuter = bvNone
     BevelOuter = bvNone
     ParentBackground = False
     ParentBackground = False
     TabOrder = 6
     TabOrder = 6
+    DesignSize = (
+      511
+      38)
     object ShortCutHintLabel: TLabel
     object ShortCutHintLabel: TLabel
-      Left = 12
+      Left = 8
       Top = 3
       Top = 3
-      Width = 490
-      Height = 28
+      Width = 495
+      Height = 32
+      Anchors = [akLeft, akTop, akRight, akBottom]
       AutoSize = False
       AutoSize = False
       Caption = 
       Caption = 
         'In Commander interface the keyboard shortcut F5 is used to trans' +
         'In Commander interface the keyboard shortcut F5 is used to trans' +

+ 19 - 23
source/forms/CopyParamCustom.dfm

@@ -6,24 +6,20 @@ object CopyParamCustomDialog: TCopyParamCustomDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'Transfer settings'
   Caption = 'Transfer settings'
-  ClientHeight = 515
-  ClientWidth = 420
+  ClientHeight = 511
+  ClientWidth = 466
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnCloseQuery = FormCloseQuery
   OnCloseQuery = FormCloseQuery
   DesignSize = (
   DesignSize = (
-    420
-    515)
-  TextHeight = 13
+    466
+    511)
+  TextHeight = 15
   object OkButton: TButton
   object OkButton: TButton
-    Left = 168
-    Top = 482
-    Width = 75
+    Left = 206
+    Top = 478
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = 'OK'
     Caption = 'OK'
@@ -32,9 +28,9 @@ object CopyParamCustomDialog: TCopyParamCustomDialog
     TabOrder = 1
     TabOrder = 1
   end
   end
   object CancelButton: TButton
   object CancelButton: TButton
-    Left = 252
-    Top = 482
-    Width = 75
+    Left = 292
+    Top = 478
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Cancel = True
     Cancel = True
@@ -43,17 +39,17 @@ object CopyParamCustomDialog: TCopyParamCustomDialog
     TabOrder = 2
     TabOrder = 2
   end
   end
   inline CopyParamsFrame: TCopyParamsFrame
   inline CopyParamsFrame: TCopyParamsFrame
-    Left = 0
-    Top = 0
-    Width = 420
-    Height = 477
+    Left = 5
+    Top = 5
+    Width = 456
+    Height = 471
     HelpType = htKeyword
     HelpType = htKeyword
     TabOrder = 0
     TabOrder = 0
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 336
-    Top = 482
-    Width = 75
+    Left = 378
+    Top = 478
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = 'Help'
     Caption = 'Help'

+ 73 - 77
source/forms/CopyParamPreset.dfm

@@ -6,33 +6,29 @@ object CopyParamPresetDialog: TCopyParamPresetDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'CopyParamPresetDialog'
   Caption = 'CopyParamPresetDialog'
-  ClientHeight = 560
-  ClientWidth = 675
+  ClientHeight = 556
+  ClientWidth = 744
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnCloseQuery = FormCloseQuery
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow
   OnShow = FormShow
   DesignSize = (
   DesignSize = (
-    675
-    560)
-  TextHeight = 13
+    744
+    556)
+  TextHeight = 15
   object Label1: TLabel
   object Label1: TLabel
-    Left = 10
-    Top = 13
-    Width = 90
-    Height = 13
+    Left = 8
+    Top = 8
+    Width = 97
+    Height = 15
     Caption = 'Preset &description:'
     Caption = 'Preset &description:'
     FocusControl = DescriptionEdit
     FocusControl = DescriptionEdit
   end
   end
   object OkButton: TButton
   object OkButton: TButton
-    Left = 423
-    Top = 527
-    Width = 75
+    Left = 484
+    Top = 523
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = 'OK'
     Caption = 'OK'
@@ -41,9 +37,9 @@ object CopyParamPresetDialog: TCopyParamPresetDialog
     TabOrder = 4
     TabOrder = 4
   end
   end
   object CancelButton: TButton
   object CancelButton: TButton
-    Left = 507
-    Top = 527
-    Width = 75
+    Left = 570
+    Top = 523
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Cancel = True
     Cancel = True
@@ -52,70 +48,70 @@ object CopyParamPresetDialog: TCopyParamPresetDialog
     TabOrder = 5
     TabOrder = 5
   end
   end
   object DescriptionEdit: TEdit
   object DescriptionEdit: TEdit
-    Left = 10
-    Top = 29
-    Width = 405
-    Height = 21
+    Left = 8
+    Top = 24
+    Width = 450
+    Height = 23
     MaxLength = 250
     MaxLength = 250
     TabOrder = 0
     TabOrder = 0
     OnChange = ControlChange
     OnChange = ControlChange
   end
   end
   inline CopyParamsFrame: TCopyParamsFrame
   inline CopyParamsFrame: TCopyParamsFrame
-    Left = 2
-    Top = 51
-    Width = 420
-    Height = 477
+    Left = 5
+    Top = 50
+    Width = 456
+    Height = 471
     HelpType = htKeyword
     HelpType = htKeyword
     TabOrder = 1
     TabOrder = 1
   end
   end
   object RuleGroup: TGroupBox
   object RuleGroup: TGroupBox
-    Left = 426
-    Top = 91
-    Width = 240
-    Height = 430
+    Left = 472
+    Top = 89
+    Width = 264
+    Height = 428
     Anchors = [akLeft, akTop, akRight, akBottom]
     Anchors = [akLeft, akTop, akRight, akBottom]
     Caption = 'Autoselection rule'
     Caption = 'Autoselection rule'
     TabOrder = 3
     TabOrder = 3
     DesignSize = (
     DesignSize = (
-      240
-      430)
+      264
+      428)
     object Label2: TLabel
     object Label2: TLabel
-      Left = 16
-      Top = 20
-      Width = 79
-      Height = 13
+      Left = 9
+      Top = 22
+      Width = 89
+      Height = 15
       Caption = 'Hostna&me mask:'
       Caption = 'Hostna&me mask:'
       FocusControl = HostNameEdit
       FocusControl = HostNameEdit
     end
     end
     object Label3: TLabel
     object Label3: TLabel
-      Left = 16
-      Top = 68
-      Width = 79
-      Height = 13
+      Left = 9
+      Top = 69
+      Width = 87
+      Height = 15
       Caption = 'Us&ername mask:'
       Caption = 'Us&ername mask:'
       FocusControl = UserNameEdit
       FocusControl = UserNameEdit
     end
     end
     object Label4: TLabel
     object Label4: TLabel
-      Left = 16
+      Left = 9
       Top = 116
       Top = 116
-      Width = 114
-      Height = 13
+      Width = 125
+      Height = 15
       Caption = 'Remote director&y mask:'
       Caption = 'Remote director&y mask:'
       FocusControl = RemoteDirectoryEdit
       FocusControl = RemoteDirectoryEdit
     end
     end
     object Label5: TLabel
     object Label5: TLabel
-      Left = 16
-      Top = 164
-      Width = 101
-      Height = 13
+      Left = 10
+      Top = 163
+      Width = 112
+      Height = 15
       Caption = '&Local directory mask:'
       Caption = '&Local directory mask:'
       FocusControl = LocalDirectoryEdit
       FocusControl = LocalDirectoryEdit
     end
     end
     object HostNameEdit: TEdit
     object HostNameEdit: TEdit
-      Left = 16
-      Top = 36
-      Width = 208
-      Height = 21
+      Left = 9
+      Top = 40
+      Width = 246
+      Height = 23
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       MaxLength = 250
       MaxLength = 250
       TabOrder = 0
       TabOrder = 0
@@ -123,10 +119,10 @@ object CopyParamPresetDialog: TCopyParamPresetDialog
       OnExit = MaskEditExit
       OnExit = MaskEditExit
     end
     end
     object UserNameEdit: TEdit
     object UserNameEdit: TEdit
-      Left = 16
-      Top = 84
-      Width = 208
-      Height = 21
+      Left = 9
+      Top = 87
+      Width = 246
+      Height = 23
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       MaxLength = 250
       MaxLength = 250
       TabOrder = 1
       TabOrder = 1
@@ -134,10 +130,10 @@ object CopyParamPresetDialog: TCopyParamPresetDialog
       OnExit = MaskEditExit
       OnExit = MaskEditExit
     end
     end
     object RemoteDirectoryEdit: TEdit
     object RemoteDirectoryEdit: TEdit
-      Left = 16
-      Top = 132
-      Width = 208
-      Height = 21
+      Left = 9
+      Top = 134
+      Width = 246
+      Height = 23
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       MaxLength = 250
       MaxLength = 250
       TabOrder = 2
       TabOrder = 2
@@ -145,10 +141,10 @@ object CopyParamPresetDialog: TCopyParamPresetDialog
       OnExit = MaskEditExit
       OnExit = MaskEditExit
     end
     end
     object LocalDirectoryEdit: TEdit
     object LocalDirectoryEdit: TEdit
-      Left = 16
-      Top = 180
-      Width = 208
-      Height = 21
+      Left = 9
+      Top = 181
+      Width = 246
+      Height = 23
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       MaxLength = 250
       MaxLength = 250
       TabOrder = 3
       TabOrder = 3
@@ -156,31 +152,31 @@ object CopyParamPresetDialog: TCopyParamPresetDialog
       OnExit = MaskEditExit
       OnExit = MaskEditExit
     end
     end
     object CurrentRuleButton: TButton
     object CurrentRuleButton: TButton
-      Left = 16
-      Top = 211
-      Width = 73
+      Left = 9
+      Top = 214
+      Width = 80
       Height = 25
       Height = 25
       Caption = 'Current'
       Caption = 'Current'
-      TabOrder = 4
+      TabOrder = 5
       OnClick = CurrentRuleButtonClick
       OnClick = CurrentRuleButtonClick
     end
     end
     object RuleMaskHintText: TStaticText
     object RuleMaskHintText: TStaticText
-      Left = 95
-      Top = 207
+      Left = 126
+      Top = 204
       Width = 129
       Width = 129
       Height = 17
       Height = 17
       Alignment = taRightJustify
       Alignment = taRightJustify
       Anchors = [akTop, akRight]
       Anchors = [akTop, akRight]
       AutoSize = False
       AutoSize = False
       Caption = 'mask hints'
       Caption = 'mask hints'
-      TabOrder = 5
+      TabOrder = 4
       TabStop = True
       TabStop = True
     end
     end
   end
   end
   object HasRuleCheck: TCheckBox
   object HasRuleCheck: TCheckBox
-    Left = 433
+    Left = 474
     Top = 66
     Top = 66
-    Width = 216
+    Width = 262
     Height = 17
     Height = 17
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     Caption = 'Automatically select this preset when'
     Caption = 'Automatically select this preset when'
@@ -188,9 +184,9 @@ object CopyParamPresetDialog: TCopyParamPresetDialog
     OnClick = ControlChange
     OnClick = ControlChange
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 591
-    Top = 527
-    Width = 75
+    Left = 656
+    Top = 523
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = 'Help'
     Caption = 'Help'

+ 122 - 127
source/forms/CopyParams.dfm

@@ -1,38 +1,32 @@
 object CopyParamsFrame: TCopyParamsFrame
 object CopyParamsFrame: TCopyParamsFrame
   Left = 0
   Left = 0
   Top = 0
   Top = 0
-  Width = 420
-  Height = 477
+  Width = 456
+  Height = 471
   HelpType = htKeyword
   HelpType = htKeyword
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
-  ParentFont = False
   TabOrder = 0
   TabOrder = 0
   object CommonPropertiesGroup: TGroupBox
   object CommonPropertiesGroup: TGroupBox
-    Left = 212
-    Top = 155
-    Width = 201
-    Height = 121
+    Left = 232
+    Top = 151
+    Width = 221
+    Height = 124
     Caption = 'Common options'
     Caption = 'Common options'
     TabOrder = 3
     TabOrder = 3
     DesignSize = (
     DesignSize = (
-      201
-      121)
+      221
+      124)
     object SpeedLabel3: TLabel
     object SpeedLabel3: TLabel
-      Left = 15
-      Top = 93
-      Width = 66
-      Height = 13
+      Left = 9
+      Top = 94
+      Width = 70
+      Height = 15
       Caption = '&Speed (KB/s):'
       Caption = '&Speed (KB/s):'
       FocusControl = SpeedCombo
       FocusControl = SpeedCombo
     end
     end
     object PreserveTimeCheck: TCheckBox
     object PreserveTimeCheck: TCheckBox
-      Left = 16
-      Top = 21
-      Width = 175
+      Left = 11
+      Top = 22
+      Width = 201
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = '&Preserve timestamp'
       Caption = '&Preserve timestamp'
@@ -42,9 +36,9 @@ object CopyParamsFrame: TCopyParamsFrame
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object CommonCalculateSizeCheck: TCheckBox
     object CommonCalculateSizeCheck: TCheckBox
-      Left = 16
-      Top = 67
-      Width = 175
+      Left = 11
+      Top = 68
+      Width = 201
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = '&Calculate total size'
       Caption = '&Calculate total size'
@@ -54,10 +48,10 @@ object CopyParamsFrame: TCopyParamsFrame
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object SpeedCombo: THistoryComboBox
     object SpeedCombo: THistoryComboBox
-      Left = 106
-      Top = 90
-      Width = 85
-      Height = 21
+      Left = 111
+      Top = 91
+      Width = 101
+      Height = 23
       AutoComplete = False
       AutoComplete = False
       TabOrder = 3
       TabOrder = 3
       Text = 'SpeedCombo'
       Text = 'SpeedCombo'
@@ -74,9 +68,9 @@ object CopyParamsFrame: TCopyParamsFrame
         '8')
         '8')
     end
     end
     object PreserveTimeDirsCheck: TCheckBox
     object PreserveTimeDirsCheck: TCheckBox
-      Left = 32
-      Top = 44
-      Width = 159
+      Left = 27
+      Top = 45
+      Width = 185
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = 'Including directories'
       Caption = 'Including directories'
@@ -87,19 +81,19 @@ object CopyParamsFrame: TCopyParamsFrame
     end
     end
   end
   end
   object LocalPropertiesGroup: TGroupBox
   object LocalPropertiesGroup: TGroupBox
-    Left = 212
-    Top = 282
-    Width = 201
-    Height = 50
+    Left = 232
+    Top = 281
+    Width = 221
+    Height = 49
     Caption = 'Download options'
     Caption = 'Download options'
     TabOrder = 4
     TabOrder = 4
     DesignSize = (
     DesignSize = (
-      201
-      50)
+      221
+      49)
     object PreserveReadOnlyCheck: TCheckBox
     object PreserveReadOnlyCheck: TCheckBox
-      Left = 16
-      Top = 21
-      Width = 179
+      Left = 11
+      Top = 22
+      Width = 201
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = 'Preserve rea&d-only'
       Caption = 'Preserve rea&d-only'
@@ -109,15 +103,15 @@ object CopyParamsFrame: TCopyParamsFrame
     end
     end
   end
   end
   object RemotePropertiesGroup: TGroupBox
   object RemotePropertiesGroup: TGroupBox
-    Left = 8
-    Top = 155
-    Width = 194
-    Height = 177
+    Left = 3
+    Top = 151
+    Width = 215
+    Height = 179
     Caption = 'Upload options'
     Caption = 'Upload options'
     TabOrder = 2
     TabOrder = 2
     object PreserveRightsCheck: TCheckBox
     object PreserveRightsCheck: TCheckBox
-      Left = 16
-      Top = 21
+      Left = 11
+      Top = 22
       Width = 173
       Width = 173
       Height = 17
       Height = 17
       Caption = 'Set pe&rmissions:'
       Caption = 'Set pe&rmissions:'
@@ -127,8 +121,8 @@ object CopyParamsFrame: TCopyParamsFrame
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object RightsEdit: TComboEdit
     object RightsEdit: TComboEdit
-      Left = 34
-      Top = 44
+      Left = 26
+      Top = 45
       Width = 123
       Width = 123
       Height = 21
       Height = 21
       ButtonHint = 'Configure permissions'
       ButtonHint = 'Configure permissions'
@@ -142,8 +136,8 @@ object CopyParamsFrame: TCopyParamsFrame
       OnContextPopup = RightsEditContextPopup
       OnContextPopup = RightsEditContextPopup
     end
     end
     object IgnorePermErrorsCheck: TCheckBox
     object IgnorePermErrorsCheck: TCheckBox
-      Left = 16
-      Top = 73
+      Left = 11
+      Top = 72
       Width = 173
       Width = 173
       Height = 17
       Height = 17
       Caption = 'Ign&ore permission errors'
       Caption = 'Ign&ore permission errors'
@@ -153,16 +147,16 @@ object CopyParamsFrame: TCopyParamsFrame
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object ClearArchiveCheck: TCheckBox
     object ClearArchiveCheck: TCheckBox
-      Left = 16
-      Top = 96
+      Left = 11
+      Top = 95
       Width = 173
       Width = 173
       Height = 17
       Height = 17
       Caption = 'Clear '#39'Arc&hive'#39' attribute'
       Caption = 'Clear '#39'Arc&hive'#39' attribute'
       TabOrder = 3
       TabOrder = 3
     end
     end
     object RemoveCtrlZAndBOMCheck: TCheckBox
     object RemoveCtrlZAndBOMCheck: TCheckBox
-      Left = 16
-      Top = 119
+      Left = 11
+      Top = 118
       Width = 173
       Width = 173
       Height = 17
       Height = 17
       Caption = 'Remo&ve BOM and EOF marks X'
       Caption = 'Remo&ve BOM and EOF marks X'
@@ -170,8 +164,8 @@ object CopyParamsFrame: TCopyParamsFrame
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object EncryptNewFilesCheck: TCheckBox
     object EncryptNewFilesCheck: TCheckBox
-      Left = 16
-      Top = 142
+      Left = 11
+      Top = 141
       Width = 173
       Width = 173
       Height = 17
       Height = 17
       Caption = '&Encrypt new files'
       Caption = '&Encrypt new files'
@@ -180,55 +174,55 @@ object CopyParamsFrame: TCopyParamsFrame
     end
     end
   end
   end
   object ChangeCaseGroup: TGroupBox
   object ChangeCaseGroup: TGroupBox
-    Left = 267
-    Top = 8
-    Width = 146
-    Height = 141
+    Left = 290
+    Top = 3
+    Width = 163
+    Height = 142
     Caption = 'Filename modification'
     Caption = 'Filename modification'
     TabOrder = 1
     TabOrder = 1
     DesignSize = (
     DesignSize = (
-      146
-      141)
+      163
+      142)
     object CCLowerCaseShortButton: TRadioButton
     object CCLowerCaseShortButton: TRadioButton
-      Left = 16
-      Top = 90
-      Width = 125
+      Left = 11
+      Top = 91
+      Width = 143
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = 'Lower case &8.3'
       Caption = 'Lower case &8.3'
       TabOrder = 3
       TabOrder = 3
     end
     end
     object CCNoChangeButton: TRadioButton
     object CCNoChangeButton: TRadioButton
-      Left = 16
-      Top = 21
-      Width = 125
+      Left = 11
+      Top = 22
+      Width = 143
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = 'No chan&ge'
       Caption = 'No chan&ge'
       TabOrder = 0
       TabOrder = 0
     end
     end
     object CCUpperCaseButton: TRadioButton
     object CCUpperCaseButton: TRadioButton
-      Left = 16
-      Top = 44
-      Width = 125
+      Left = 11
+      Top = 45
+      Width = 143
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = '&Upper case'
       Caption = '&Upper case'
       TabOrder = 1
       TabOrder = 1
     end
     end
     object CCLowerCaseButton: TRadioButton
     object CCLowerCaseButton: TRadioButton
-      Left = 16
-      Top = 67
-      Width = 125
+      Left = 11
+      Top = 68
+      Width = 143
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = 'Lo&wer case'
       Caption = 'Lo&wer case'
       TabOrder = 2
       TabOrder = 2
     end
     end
     object ReplaceInvalidCharsCheck: TCheckBox
     object ReplaceInvalidCharsCheck: TCheckBox
-      Left = 16
-      Top = 113
-      Width = 125
+      Left = 11
+      Top = 114
+      Width = 143
       Height = 17
       Height = 17
       Caption = 'Rep&lace '#39'\:*?'#39'...'
       Caption = 'Rep&lace '#39'\:*?'#39'...'
       TabOrder = 4
       TabOrder = 4
@@ -236,28 +230,28 @@ object CopyParamsFrame: TCopyParamsFrame
     end
     end
   end
   end
   object TransferModeGroup: TGroupBox
   object TransferModeGroup: TGroupBox
-    Left = 8
-    Top = 8
-    Width = 249
-    Height = 141
+    Left = 3
+    Top = 3
+    Width = 273
+    Height = 142
     Caption = 'Transfer mode'
     Caption = 'Transfer mode'
     TabOrder = 0
     TabOrder = 0
     DesignSize = (
     DesignSize = (
-      249
-      141)
+      273
+      142)
     object AsciiFileMaskLabel: TLabel
     object AsciiFileMaskLabel: TLabel
-      Left = 16
-      Top = 90
-      Width = 175
-      Height = 13
+      Left = 9
+      Top = 91
+      Width = 191
+      Height = 15
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = 'Transfer following &files in text mode:'
       Caption = 'Transfer following &files in text mode:'
       FocusControl = AsciiFileMaskCombo
       FocusControl = AsciiFileMaskCombo
     end
     end
     object TMTextButton: TRadioButton
     object TMTextButton: TRadioButton
-      Left = 16
-      Top = 21
-      Width = 225
+      Left = 11
+      Top = 22
+      Width = 253
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = '&Text (plain text, html, scripts, ...)'
       Caption = '&Text (plain text, html, scripts, ...)'
@@ -265,9 +259,9 @@ object CopyParamsFrame: TCopyParamsFrame
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object TMBinaryButton: TRadioButton
     object TMBinaryButton: TRadioButton
-      Left = 16
-      Top = 44
-      Width = 225
+      Left = 11
+      Top = 45
+      Width = 253
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = '&Binary (archives, doc, ...)'
       Caption = '&Binary (archives, doc, ...)'
@@ -275,9 +269,9 @@ object CopyParamsFrame: TCopyParamsFrame
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object TMAutomaticButton: TRadioButton
     object TMAutomaticButton: TRadioButton
-      Left = 16
-      Top = 67
-      Width = 225
+      Left = 11
+      Top = 68
+      Width = 253
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = '&Automatic'
       Caption = '&Automatic'
@@ -285,10 +279,10 @@ object CopyParamsFrame: TCopyParamsFrame
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object AsciiFileMaskCombo: THistoryComboBox
     object AsciiFileMaskCombo: THistoryComboBox
-      Left = 15
-      Top = 106
-      Width = 219
-      Height = 21
+      Left = 9
+      Top = 109
+      Width = 255
+      Height = 23
       AutoComplete = False
       AutoComplete = False
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       MaxLength = 1000
       MaxLength = 1000
@@ -298,28 +292,28 @@ object CopyParamsFrame: TCopyParamsFrame
     end
     end
   end
   end
   object OtherGroup: TGroupBox
   object OtherGroup: TGroupBox
-    Left = 8
-    Top = 338
-    Width = 405
-    Height = 132
+    Left = 3
+    Top = 336
+    Width = 450
+    Height = 131
     Caption = 'Other'
     Caption = 'Other'
     TabOrder = 5
     TabOrder = 5
     DesignSize = (
     DesignSize = (
-      405
-      132)
+      450
+      131)
     object IncludeFileMaskLabel: TLabel
     object IncludeFileMaskLabel: TLabel
-      Left = 16
-      Top = 20
-      Width = 47
-      Height = 13
+      Left = 9
+      Top = 22
+      Width = 52
+      Height = 15
       Caption = 'File &mask:'
       Caption = 'File &mask:'
       FocusControl = IncludeFileMaskCombo
       FocusControl = IncludeFileMaskCombo
     end
     end
     object IncludeFileMaskCombo: THistoryComboBox
     object IncludeFileMaskCombo: THistoryComboBox
-      Left = 15
-      Top = 36
-      Width = 294
-      Height = 21
+      Left = 9
+      Top = 40
+      Width = 346
+      Height = 23
       AutoComplete = False
       AutoComplete = False
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       MaxLength = 3000
       MaxLength = 3000
@@ -328,18 +322,19 @@ object CopyParamsFrame: TCopyParamsFrame
       OnExit = ValidateMaskComboExit
       OnExit = ValidateMaskComboExit
     end
     end
     object IncludeFileMaskButton: TButton
     object IncludeFileMaskButton: TButton
-      Left = 315
-      Top = 33
+      Left = 361
+      Top = 39
       Width = 80
       Width = 80
       Height = 25
       Height = 25
+      Anchors = [akTop, akRight]
       Caption = '&Edit...'
       Caption = '&Edit...'
       TabOrder = 1
       TabOrder = 1
       OnClick = IncludeFileMaskButtonClick
       OnClick = IncludeFileMaskButtonClick
     end
     end
     object NewerOnlyCheck: TCheckBox
     object NewerOnlyCheck: TCheckBox
-      Left = 16
-      Top = 79
-      Width = 197
+      Left = 11
+      Top = 81
+      Width = 213
       Height = 17
       Height = 17
       Caption = '&New and updated files only'
       Caption = '&New and updated files only'
       ParentShowHint = False
       ParentShowHint = False
@@ -348,8 +343,8 @@ object CopyParamsFrame: TCopyParamsFrame
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object IncludeFileMaskHintText: TStaticText
     object IncludeFileMaskHintText: TStaticText
-      Left = 184
-      Top = 58
+      Left = 230
+      Top = 63
       Width = 125
       Width = 125
       Height = 17
       Height = 17
       Alignment = taRightJustify
       Alignment = taRightJustify
@@ -359,9 +354,9 @@ object CopyParamsFrame: TCopyParamsFrame
       TabStop = True
       TabStop = True
     end
     end
     object ExcludeHiddenFilesCheck: TCheckBox
     object ExcludeHiddenFilesCheck: TCheckBox
-      Left = 219
-      Top = 79
-      Width = 176
+      Left = 240
+      Top = 81
+      Width = 201
       Height = 17
       Height = 17
       Caption = 'Exclude h&idden files'
       Caption = 'Exclude h&idden files'
       ParentShowHint = False
       ParentShowHint = False
@@ -370,9 +365,9 @@ object CopyParamsFrame: TCopyParamsFrame
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object ExcludeEmptyDirectoriesCheck: TCheckBox
     object ExcludeEmptyDirectoriesCheck: TCheckBox
-      Left = 16
-      Top = 102
-      Width = 197
+      Left = 11
+      Top = 104
+      Width = 213
       Height = 17
       Height = 17
       Caption = 'E&xclude empty directories'
       Caption = 'E&xclude empty directories'
       ParentShowHint = False
       ParentShowHint = False

+ 29 - 33
source/forms/CreateDirectory.dfm

@@ -6,26 +6,22 @@ object CreateDirectoryDialog: TCreateDirectoryDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'Create folder'
   Caption = 'Create folder'
-  ClientHeight = 253
+  ClientHeight = 263
   ClientWidth = 337
   ClientWidth = 337
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnCloseQuery = FormCloseQuery
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow
   OnShow = FormShow
   DesignSize = (
   DesignSize = (
     337
     337
-    253)
-  TextHeight = 13
+    263)
+  TextHeight = 15
   object EditLabel: TLabel
   object EditLabel: TLabel
     Left = 8
     Left = 8
     Top = 8
     Top = 8
-    Width = 85
-    Height = 13
+    Width = 94
+    Height = 15
     Caption = 'New &folder name:'
     Caption = 'New &folder name:'
     FocusControl = DirectoryEdit
     FocusControl = DirectoryEdit
   end
   end
@@ -33,7 +29,7 @@ object CreateDirectoryDialog: TCreateDirectoryDialog
     Left = 8
     Left = 8
     Top = 25
     Top = 25
     Width = 321
     Width = 321
-    Height = 21
+    Height = 23
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     MaxLength = 1000
     MaxLength = 1000
     TabOrder = 0
     TabOrder = 0
@@ -44,34 +40,34 @@ object CreateDirectoryDialog: TCreateDirectoryDialog
     Left = 0
     Left = 0
     Top = 50
     Top = 50
     Width = 337
     Width = 337
-    Height = 169
+    Height = 179
     Anchors = [akLeft, akTop, akRight, akBottom]
     Anchors = [akLeft, akTop, akRight, akBottom]
     BevelOuter = bvNone
     BevelOuter = bvNone
     TabOrder = 1
     TabOrder = 1
     DesignSize = (
     DesignSize = (
       337
       337
-      169)
+      179)
     object AttributesGroup: TGroupBox
     object AttributesGroup: TGroupBox
       Left = 8
       Left = 8
-      Top = 3
-      Width = 322
-      Height = 157
+      Top = 4
+      Width = 321
+      Height = 170
       Anchors = [akLeft, akTop, akRight, akBottom]
       Anchors = [akLeft, akTop, akRight, akBottom]
       Caption = 'Attributes'
       Caption = 'Attributes'
       TabOrder = 0
       TabOrder = 0
       inline RightsFrame: TRightsFrame
       inline RightsFrame: TRightsFrame
-        Left = 7
-        Top = 36
-        Width = 239
-        Height = 87
+        Left = 2
+        Top = 39
+        Width = 258
+        Height = 98
         TabOrder = 1
         TabOrder = 1
         inherited DirectoriesXCheck: TCheckBox
         inherited DirectoriesXCheck: TCheckBox
           Visible = False
           Visible = False
         end
         end
       end
       end
       object SetRightsCheck: TCheckBox
       object SetRightsCheck: TCheckBox
-        Left = 12
-        Top = 16
+        Left = 11
+        Top = 22
         Width = 156
         Width = 156
         Height = 17
         Height = 17
         Caption = 'Set pe&rmissions'
         Caption = 'Set pe&rmissions'
@@ -81,8 +77,8 @@ object CreateDirectoryDialog: TCreateDirectoryDialog
         OnClick = ControlChange
         OnClick = ControlChange
       end
       end
       object SaveSettingsCheck: TCheckBox
       object SaveSettingsCheck: TCheckBox
-        Left = 12
-        Top = 129
+        Left = 11
+        Top = 143
         Width = 301
         Width = 301
         Height = 17
         Height = 17
         Caption = 'Use &same settings next time'
         Caption = 'Use &same settings next time'
@@ -91,9 +87,9 @@ object CreateDirectoryDialog: TCreateDirectoryDialog
     end
     end
   end
   end
   object OKBtn: TButton
   object OKBtn: TButton
-    Left = 91
-    Top = 219
-    Width = 75
+    Left = 77
+    Top = 230
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = 'OK'
     Caption = 'OK'
@@ -102,9 +98,9 @@ object CreateDirectoryDialog: TCreateDirectoryDialog
     TabOrder = 2
     TabOrder = 2
   end
   end
   object CancelBtn: TButton
   object CancelBtn: TButton
-    Left = 171
-    Top = 219
-    Width = 75
+    Left = 163
+    Top = 230
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Cancel = True
     Cancel = True
@@ -113,9 +109,9 @@ object CreateDirectoryDialog: TCreateDirectoryDialog
     TabOrder = 3
     TabOrder = 3
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 252
-    Top = 219
-    Width = 75
+    Left = 249
+    Top = 230
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = '&Help'
     Caption = '&Help'

+ 20 - 17
source/forms/Custom.cpp

@@ -24,12 +24,14 @@
 #pragma link "PasswordEdit"
 #pragma link "PasswordEdit"
 #pragma resource "*.dfm"
 #pragma resource "*.dfm"
 //---------------------------------------------------------------------
 //---------------------------------------------------------------------
+const int GroupBoxBorderWidth = 1;
+//---------------------------------------------------------------------
 __fastcall TCustomDialog::TCustomDialog(UnicodeString AHelpKeyword)
 __fastcall TCustomDialog::TCustomDialog(UnicodeString AHelpKeyword)
   : TForm(GetFormOwner())
   : TForm(GetFormOwner())
 {
 {
   UseSystemSettings(this);
   UseSystemSettings(this);
 
 
-  FControlPadding = ScaleByTextHeight(this, 8);
+  FControlPadding = ScaleByTextHeight(this, 6);
   FPos = ScaleByTextHeight(this, 8);
   FPos = ScaleByTextHeight(this, 8);
   FPrePos = FPos;
   FPrePos = FPos;
   FHorizontalMargin = ScaleByTextHeight(this, 8);
   FHorizontalMargin = ScaleByTextHeight(this, 8);
@@ -140,7 +142,7 @@ void __fastcall TCustomDialog::AddImage(const UnicodeString & ImageName)
 //---------------------------------------------------------------------------
 //---------------------------------------------------------------------------
 int __fastcall TCustomDialog::GetMaxControlWidth(TControl * Control)
 int __fastcall TCustomDialog::GetMaxControlWidth(TControl * Control)
 {
 {
-  return GetDefaultParent()->ClientWidth - Control->Left - FHorizontalMargin;
+  return GetDefaultParent()->ClientWidth - Control->Left - FHorizontalMargin - (FGroupBox != NULL ? GroupBoxBorderWidth : 0);
 }
 }
 //---------------------------------------------------------------------------
 //---------------------------------------------------------------------------
 TWinControl * __fastcall TCustomDialog::GetDefaultParent()
 TWinControl * __fastcall TCustomDialog::GetDefaultParent()
@@ -201,7 +203,7 @@ void __fastcall TCustomDialog::AddEditLikeControl(TWinControl * Edit, TLabel * L
     {
     {
       Label->Top = FPos;
       Label->Top = FPos;
 
 
-      FPos += Label->Height + ScaleByTextHeight(this, 4);
+      FPos += Label->Height + ScaleByTextHeight(this, 3);
     }
     }
   }
   }
 
 
@@ -298,7 +300,7 @@ void __fastcall TCustomDialog::ScaleButtonControl(TButtonControl * Control)
 void __fastcall TCustomDialog::AddButtonControl(TButtonControl * Control)
 void __fastcall TCustomDialog::AddButtonControl(TButtonControl * Control)
 {
 {
   Control->Parent = GetDefaultParent();
   Control->Parent = GetDefaultParent();
-  Control->Left = FIndent + ScaleByTextHeight(this, 6);
+  Control->Left = FIndent + ScaleByTextHeight(this, 2);
   Control->Top = FPos;
   Control->Top = FPos;
   Control->Width = GetMaxControlWidth(Control);
   Control->Width = GetMaxControlWidth(Control);
   ScaleButtonControl(Control);
   ScaleButtonControl(Control);
@@ -320,7 +322,7 @@ void TCustomDialog::AddButtonNextToEdit(TButton * Button, TWinControl * Edit)
   Button->Width = HelpButton->Width;
   Button->Width = HelpButton->Width;
   Button->Left = GetDefaultParent()->ClientWidth - Button->Width - HorizontalMargin;
   Button->Left = GetDefaultParent()->ClientWidth - Button->Width - HorizontalMargin;
   Edit->Width = Button->Left - Edit->Left - ScaleByTextHeight(this, 6);
   Edit->Width = Button->Left - Edit->Left - ScaleByTextHeight(this, 6);
-  Button->Top = Edit->Top - ScaleByTextHeight(this, 2);
+  Button->Top = Edit->Top - ScaleByTextHeight(this, 1);
   ScaleButtonControl(Button);
   ScaleButtonControl(Button);
   AddWinControl(Button);
   AddWinControl(Button);
 }
 }
@@ -383,16 +385,17 @@ void __fastcall TCustomDialog::StartGroup(const UnicodeString & Caption)
 
 
   GroupBox->Left = FIndent;
   GroupBox->Left = FIndent;
   GroupBox->Top = FPos;
   GroupBox->Top = FPos;
-  GroupBox->Height = ScaleByTextHeight(GroupBox, 20);
+  GroupBox->Height = ScaleByTextHeight(GroupBox, 26);
   GroupBox->Width = GetMaxControlWidth(GroupBox);
   GroupBox->Width = GetMaxControlWidth(GroupBox);
 
 
   AdjustHeight(GroupBox);
   AdjustHeight(GroupBox);
 
 
   AddWinControl(GroupBox);
   AddWinControl(GroupBox);
 
 
-  FPos = ScaleByTextHeight(this, 16);
+  // but if the first control is oneline box, then we should roll back a bit
+  FPos = ScaleByTextHeight(this, 22);
   FPrePos = FPos;
   FPrePos = FPos;
-  FIndent = FHorizontalMargin;
+  FIndent = FHorizontalMargin + GroupBoxBorderWidth;
 
 
   FGroupBox = GroupBox;
   FGroupBox = GroupBox;
 }
 }
@@ -821,7 +824,7 @@ __fastcall TRemoteMoveDialog::TRemoteMoveDialog(bool Multi, TDirectoryExistsEven
 {
 {
   Caption = LoadStr(REMOTE_MOVE_TITLE);
   Caption = LoadStr(REMOTE_MOVE_TITLE);
   // The same as TRemoteTransferDialog
   // The same as TRemoteTransferDialog
-  ClientWidth = ScaleByTextHeight(this, 420);
+  ClientWidth = ScaleByTextHeight(this, 466);
 
 
   FMulti = Multi;
   FMulti = Multi;
   FOnDirectoryExists = OnDirectoryExists;
   FOnDirectoryExists = OnDirectoryExists;
@@ -933,7 +936,7 @@ __fastcall TCustomCommandOptionsDialog::TCustomCommandOptionsDialog(
   FCustomCommandOptions = CustomCommandOptions;
   FCustomCommandOptions = CustomCommandOptions;
   FSite = Site;
   FSite = Site;
   Caption = StripEllipsis(StripHotkey(FCommand->Name));
   Caption = StripEllipsis(StripHotkey(FCommand->Name));
-  Width = ScaleByTextHeight(this, 400);
+  Width = ScaleByTextHeight(this, 444);
 
 
   bool HasGroups = false;
   bool HasGroups = false;
   int ControlIndex = 0;
   int ControlIndex = 0;
@@ -1386,24 +1389,24 @@ __fastcall TUsageStatisticsDialog::TUsageStatisticsDialog() :
   TCustomDialog(HELP_USAGE)
   TCustomDialog(HELP_USAGE)
 {
 {
   Caption = LoadStr(USAGE_CAPTION);
   Caption = LoadStr(USAGE_CAPTION);
-  Width = ScaleByTextHeight(this, 400);
+  Width = ScaleByTextHeight(this, 444);
 
 
   // UnformatMessage is called, because previously, ** markup was used and translations may still contain that
   // UnformatMessage is called, because previously, ** markup was used and translations may still contain that
   AddText(CreateLabel(UnformatMessage(LoadStr(USAGE_DATA2))));
   AddText(CreateLabel(UnformatMessage(LoadStr(USAGE_DATA2))));
 
 
   FilterEdit = new TEdit(this);
   FilterEdit = new TEdit(this);
-  FilterEdit->Width = ScaleByTextHeight(this, 250);
+  FilterEdit->Width = ScaleByTextHeight(this, 277);
   AddEdit(FilterEdit, CreateLabel(LoadStr(USAGE_FILTER)), true);
   AddEdit(FilterEdit, CreateLabel(LoadStr(USAGE_FILTER)), true);
 
 
   UsageMemo = new TMemo(this);
   UsageMemo = new TMemo(this);
-  UsageMemo->Height = ScaleByTextHeight(this, 300);
+  UsageMemo->Height = ScaleByTextHeight(this, 333);
   UsageMemo->ScrollBars = ssVertical;
   UsageMemo->ScrollBars = ssVertical;
   AddEdit(UsageMemo, NULL);
   AddEdit(UsageMemo, NULL);
   ReadOnlyControl(UsageMemo);
   ReadOnlyControl(UsageMemo);
 
 
   ClipboardButton = new TButton(this);
   ClipboardButton = new TButton(this);
   ClipboardButton->Caption = LoadStr(USAGE_COPY);
   ClipboardButton->Caption = LoadStr(USAGE_COPY);
-  ClipboardButton->Width = ScaleByTextHeight(this, 161);
+  ClipboardButton->Width = ScaleByTextHeight(this, 179);
   ClipboardButton->OnClick = ClipboardButtonClick;
   ClipboardButton->OnClick = ClipboardButtonClick;
   AddDialogButton(ClipboardButton);
   AddDialogButton(ClipboardButton);
 
 
@@ -1459,10 +1462,10 @@ __fastcall TSiteRawDialog::TSiteRawDialog() :
   TCustomDialog(HELP_SITE_RAW)
   TCustomDialog(HELP_SITE_RAW)
 {
 {
   Caption = LoadStr(SITE_RAW_CAPTION);
   Caption = LoadStr(SITE_RAW_CAPTION);
-  Width = ScaleByTextHeight(this, 400);
+  Width = ScaleByTextHeight(this, 444);
 
 
   SettingsMemo = new TMemo(this);
   SettingsMemo = new TMemo(this);
-  SettingsMemo->Height = ScaleByTextHeight(this, 300);
+  SettingsMemo->Height = ScaleByTextHeight(this, 333);
   SettingsMemo->OnKeyDown = SettingsMemoKeyDown;
   SettingsMemo->OnKeyDown = SettingsMemoKeyDown;
   AddEdit(SettingsMemo, NULL);
   AddEdit(SettingsMemo, NULL);
 
 
@@ -1617,7 +1620,7 @@ private:
 TSshHostCADialog::TSshHostCADialog(bool Add) :
 TSshHostCADialog::TSshHostCADialog(bool Add) :
   TCustomDialog(HELP_SSH_HOST_CA)
   TCustomDialog(HELP_SSH_HOST_CA)
 {
 {
-  ClientWidth = ScaleByTextHeight(this, 520);
+  ClientWidth = ScaleByTextHeight(this, 577);
   Caption = LoadStr(Add ? SSH_HOST_CA_ADD : SSH_HOST_CA_EDIT);
   Caption = LoadStr(Add ? SSH_HOST_CA_ADD : SSH_HOST_CA_EDIT);
 
 
   NameEdit = new TEdit(this);
   NameEdit = new TEdit(this);

+ 12 - 16
source/forms/Custom.dfm

@@ -4,23 +4,19 @@ object CustomDialog: TCustomDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'Save session as siteX'
   Caption = 'Save session as siteX'
-  ClientHeight = 41
-  ClientWidth = 326
+  ClientHeight = 42
+  ClientWidth = 362
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   DesignSize = (
   DesignSize = (
-    326
-    41)
-  TextHeight = 13
+    362
+    42)
+  TextHeight = 15
   object OKButton: TButton
   object OKButton: TButton
-    Left = 68
+    Left = 102
     Top = 9
     Top = 9
-    Width = 75
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = 'OK'
     Caption = 'OK'
@@ -29,9 +25,9 @@ object CustomDialog: TCustomDialog
     TabOrder = 2
     TabOrder = 2
   end
   end
   object CancelButton: TButton
   object CancelButton: TButton
-    Left = 156
+    Left = 188
     Top = 9
     Top = 9
-    Width = 75
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Cancel = True
     Cancel = True
@@ -40,9 +36,9 @@ object CustomDialog: TCustomDialog
     TabOrder = 0
     TabOrder = 0
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 243
+    Left = 274
     Top = 9
     Top = 9
-    Width = 75
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = '&Help'
     Caption = '&Help'

+ 68 - 74
source/forms/CustomCommand.dfm

@@ -6,72 +6,66 @@ object CustomCommandDialog: TCustomCommandDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'CustomCommandDialog'
   Caption = 'CustomCommandDialog'
-  ClientHeight = 309
-  ClientWidth = 416
+  ClientHeight = 287
+  ClientWidth = 464
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnCloseQuery = FormCloseQuery
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow
   OnShow = FormShow
   DesignSize = (
   DesignSize = (
-    416
-    309)
-  TextHeight = 13
+    464
+    287)
+  TextHeight = 15
   object Group: TGroupBox
   object Group: TGroupBox
     Left = 8
     Left = 8
     Top = 8
     Top = 8
-    Width = 400
-    Height = 259
-    Anchors = [akLeft, akTop, akRight, akBottom]
+    Width = 448
+    Height = 240
+    Anchors = [akLeft, akTop, akRight]
     TabOrder = 0
     TabOrder = 0
     DesignSize = (
     DesignSize = (
-      400
-      259)
+      448
+      240)
     object DescriptionLabel: TLabel
     object DescriptionLabel: TLabel
-      Left = 11
-      Top = 16
-      Width = 57
-      Height = 13
-      Anchors = [akLeft, akTop, akRight]
+      Left = 9
+      Top = 9
+      Width = 63
+      Height = 15
       Caption = '&Description:'
       Caption = '&Description:'
       FocusControl = DescriptionEdit
       FocusControl = DescriptionEdit
     end
     end
     object Label1: TLabel
     object Label1: TLabel
-      Left = 11
-      Top = 64
-      Width = 88
-      Height = 13
-      Anchors = [akLeft, akTop, akRight]
+      Left = 9
+      Top = 56
+      Width = 103
+      Height = 15
       Caption = '&Custom command:'
       Caption = '&Custom command:'
       FocusControl = CommandEdit
       FocusControl = CommandEdit
     end
     end
     object ShortCutLabel: TLabel
     object ShortCutLabel: TLabel
-      Left = 16
-      Top = 231
-      Width = 93
-      Height = 13
+      Left = 9
+      Top = 210
+      Width = 100
+      Height = 15
       Caption = '&Keyboard shortcut:'
       Caption = '&Keyboard shortcut:'
       FocusControl = ShortCutCombo
       FocusControl = ShortCutCombo
     end
     end
     object DescriptionEdit: TEdit
     object DescriptionEdit: TEdit
-      Left = 11
-      Top = 32
-      Width = 378
-      Height = 21
+      Left = 9
+      Top = 27
+      Width = 430
+      Height = 23
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       MaxLength = 250
       MaxLength = 250
       TabOrder = 0
       TabOrder = 0
       OnChange = ControlChange
       OnChange = ControlChange
     end
     end
     object CommandEdit: THistoryComboBox
     object CommandEdit: THistoryComboBox
-      Left = 11
-      Top = 80
-      Width = 378
-      Height = 21
+      Left = 9
+      Top = 74
+      Width = 430
+      Height = 23
       AutoComplete = False
       AutoComplete = False
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       MaxLength = 2048
       MaxLength = 2048
@@ -81,63 +75,63 @@ object CustomCommandDialog: TCustomCommandDialog
       OnSetData = CommandEditSetData
       OnSetData = CommandEditSetData
     end
     end
     object ApplyToDirectoriesCheck: TCheckBox
     object ApplyToDirectoriesCheck: TCheckBox
-      Left = 16
-      Top = 149
-      Width = 181
+      Left = 11
+      Top = 138
+      Width = 200
       Height = 17
       Height = 17
       Caption = '&Apply to directories'
       Caption = '&Apply to directories'
       TabOrder = 5
       TabOrder = 5
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object RecursiveCheck: TCheckBox
     object RecursiveCheck: TCheckBox
-      Left = 203
-      Top = 149
-      Width = 185
+      Left = 224
+      Top = 138
+      Width = 200
       Height = 17
       Height = 17
       Caption = '&Execute recursively'
       Caption = '&Execute recursively'
       TabOrder = 6
       TabOrder = 6
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object LocalCommandButton: TRadioButton
     object LocalCommandButton: TRadioButton
-      Left = 203
-      Top = 122
-      Width = 185
+      Left = 224
+      Top = 115
+      Width = 200
       Height = 17
       Height = 17
       Caption = '&Local command'
       Caption = '&Local command'
       TabOrder = 4
       TabOrder = 4
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object RemoteCommandButton: TRadioButton
     object RemoteCommandButton: TRadioButton
-      Left = 16
-      Top = 122
-      Width = 181
+      Left = 11
+      Top = 115
+      Width = 200
       Height = 17
       Height = 17
       Caption = '&Remote command'
       Caption = '&Remote command'
       TabOrder = 3
       TabOrder = 3
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object ShowResultsCheck: TCheckBox
     object ShowResultsCheck: TCheckBox
-      Left = 16
-      Top = 176
-      Width = 181
+      Left = 11
+      Top = 161
+      Width = 200
       Height = 17
       Height = 17
       Caption = '&Show results in terminal'
       Caption = '&Show results in terminal'
       TabOrder = 7
       TabOrder = 7
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object CopyResultsCheck: TCheckBox
     object CopyResultsCheck: TCheckBox
-      Left = 16
-      Top = 203
-      Width = 181
+      Left = 11
+      Top = 184
+      Width = 200
       Height = 17
       Height = 17
       Caption = 'Copy results to clip&board'
       Caption = 'Copy results to clip&board'
       TabOrder = 9
       TabOrder = 9
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object HintText: TStaticText
     object HintText: TStaticText
-      Left = 272
-      Top = 103
-      Width = 117
+      Left = 321
+      Top = 97
+      Width = 118
       Height = 16
       Height = 16
       Alignment = taRightJustify
       Alignment = taRightJustify
       Anchors = [akTop, akRight]
       Anchors = [akTop, akRight]
@@ -147,16 +141,16 @@ object CustomCommandDialog: TCustomCommandDialog
       TabStop = True
       TabStop = True
     end
     end
     object ShortCutCombo: TComboBox
     object ShortCutCombo: TComboBox
-      Left = 203
-      Top = 226
-      Width = 184
-      Height = 21
+      Left = 224
+      Top = 207
+      Width = 215
+      Height = 23
       TabOrder = 10
       TabOrder = 10
     end
     end
     object RemoteFilesCheck: TCheckBox
     object RemoteFilesCheck: TCheckBox
-      Left = 203
-      Top = 176
-      Width = 181
+      Left = 224
+      Top = 161
+      Width = 200
       Height = 17
       Height = 17
       Caption = '&Use remote files'
       Caption = '&Use remote files'
       TabOrder = 8
       TabOrder = 8
@@ -164,9 +158,9 @@ object CustomCommandDialog: TCustomCommandDialog
     end
     end
   end
   end
   object OkButton: TButton
   object OkButton: TButton
-    Left = 164
-    Top = 276
-    Width = 75
+    Left = 204
+    Top = 254
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = 'OK'
     Caption = 'OK'
@@ -175,9 +169,9 @@ object CustomCommandDialog: TCustomCommandDialog
     TabOrder = 1
     TabOrder = 1
   end
   end
   object CancelButton: TButton
   object CancelButton: TButton
-    Left = 248
-    Top = 276
-    Width = 75
+    Left = 290
+    Top = 254
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Cancel = True
     Cancel = True
@@ -186,9 +180,9 @@ object CustomCommandDialog: TCustomCommandDialog
     TabOrder = 2
     TabOrder = 2
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 332
-    Top = 276
-    Width = 75
+    Left = 376
+    Top = 254
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = '&Help'
     Caption = '&Help'

+ 1 - 1
source/forms/CustomScpExplorer.cpp

@@ -3286,7 +3286,7 @@ void __fastcall TCustomScpExplorerForm::EditNew(TOperationSide Side)
   UnicodeString Names = Name;
   UnicodeString Names = Name;
   std::unique_ptr<TStrings> History(CloneStrings(CustomWinConfiguration->History[L"EditFile"]));
   std::unique_ptr<TStrings> History(CloneStrings(CustomWinConfiguration->History[L"EditFile"]));
   if (InputDialog(LoadStr(EDIT_FILE_CAPTION), LoadStr(EDIT_FILE_PROMPT), Names,
   if (InputDialog(LoadStr(EDIT_FILE_CAPTION), LoadStr(EDIT_FILE_PROMPT), Names,
-        HELP_EDIT_NEW, History.get(), true, NULL, true, 400))
+        HELP_EDIT_NEW, History.get(), true, NULL, true, 444))
   {
   {
     while (!Names.IsEmpty())
     while (!Names.IsEmpty())
     {
     {

+ 24 - 28
source/forms/CustomScpExplorer.dfm

@@ -2,25 +2,21 @@ object CustomScpExplorerForm: TCustomScpExplorerForm
   Left = 251
   Left = 251
   Top = 166
   Top = 166
   Caption = 'CustomScpExplorerForm'
   Caption = 'CustomScpExplorerForm'
-  ClientHeight = 432
-  ClientWidth = 620
+  ClientHeight = 429
+  ClientWidth = 608
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   KeyPreview = True
   KeyPreview = True
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
   OnClose = FormClose
   OnClose = FormClose
   OnCloseQuery = FormCloseQuery
   OnCloseQuery = FormCloseQuery
   OnConstrainedResize = FormConstrainedResize
   OnConstrainedResize = FormConstrainedResize
   OnShow = FormShow
   OnShow = FormShow
-  TextHeight = 13
+  TextHeight = 15
   object QueueSplitter: TSplitter
   object QueueSplitter: TSplitter
     Left = 0
     Left = 0
-    Top = 289
-    Width = 620
+    Top = 286
+    Width = 608
     Height = 3
     Height = 3
     Cursor = crSizeNS
     Cursor = crSizeNS
     Hint = 'Drag to resize queue list. Double click to hide queue list.'
     Hint = 'Drag to resize queue list. Double click to hide queue list.'
@@ -33,15 +29,15 @@ object CustomScpExplorerForm: TCustomScpExplorerForm
   object TopDock: TTBXDock
   object TopDock: TTBXDock
     Left = 0
     Left = 0
     Top = 0
     Top = 0
-    Width = 620
+    Width = 608
     Height = 9
     Height = 9
     FixAlign = True
     FixAlign = True
   end
   end
   object RemotePanel: TPanel
   object RemotePanel: TPanel
     Left = 0
     Left = 0
     Top = 39
     Top = 39
-    Width = 620
-    Height = 250
+    Width = 608
+    Height = 247
     Align = alClient
     Align = alClient
     BevelOuter = bvNone
     BevelOuter = bvNone
     Color = clWindow
     Color = clWindow
@@ -50,7 +46,7 @@ object CustomScpExplorerForm: TCustomScpExplorerForm
     object RemotePanelSplitter: TSplitter
     object RemotePanelSplitter: TSplitter
       Left = 169
       Left = 169
       Top = 0
       Top = 0
-      Height = 231
+      Height = 228
       Cursor = crSizeWE
       Cursor = crSizeWE
       AutoSnap = False
       AutoSnap = False
       MinSize = 70
       MinSize = 70
@@ -58,8 +54,8 @@ object CustomScpExplorerForm: TCustomScpExplorerForm
     end
     end
     object RemoteStatusBar: TTBXStatusBar
     object RemoteStatusBar: TTBXStatusBar
       Left = 0
       Left = 0
-      Top = 231
-      Width = 620
+      Top = 228
+      Width = 608
       Height = 19
       Height = 19
       Panels = <>
       Panels = <>
       ParentShowHint = False
       ParentShowHint = False
@@ -71,8 +67,8 @@ object CustomScpExplorerForm: TCustomScpExplorerForm
     object RemoteDirPanel: TPanel
     object RemoteDirPanel: TPanel
       Left = 172
       Left = 172
       Top = 0
       Top = 0
-      Width = 448
-      Height = 231
+      Width = 436
+      Height = 228
       Align = alClient
       Align = alClient
       BevelOuter = bvNone
       BevelOuter = bvNone
       TabOrder = 1
       TabOrder = 1
@@ -146,7 +142,7 @@ object CustomScpExplorerForm: TCustomScpExplorerForm
       Left = 0
       Left = 0
       Top = 0
       Top = 0
       Width = 169
       Width = 169
-      Height = 231
+      Height = 228
       Align = alLeft
       Align = alLeft
       BevelOuter = bvNone
       BevelOuter = bvNone
       TabOrder = 2
       TabOrder = 2
@@ -154,7 +150,7 @@ object CustomScpExplorerForm: TCustomScpExplorerForm
         Left = 0
         Left = 0
         Top = 0
         Top = 0
         Width = 169
         Width = 169
-        Height = 231
+        Height = 228
         DirView = RemoteDirView
         DirView = RemoteDirView
         OnDDDragFileName = RemoteFileControlDDDragFileName
         OnDDDragFileName = RemoteFileControlDDDragFileName
         OnDDEnd = RemoteFileControlDDEnd
         OnDDEnd = RemoteFileControlDDEnd
@@ -183,8 +179,8 @@ object CustomScpExplorerForm: TCustomScpExplorerForm
   end
   end
   object QueuePanel: TPanel
   object QueuePanel: TPanel
     Left = 0
     Left = 0
-    Top = 292
-    Width = 620
+    Top = 289
+    Width = 608
     Height = 140
     Height = 140
     Align = alBottom
     Align = alBottom
     BevelOuter = bvNone
     BevelOuter = bvNone
@@ -193,7 +189,7 @@ object CustomScpExplorerForm: TCustomScpExplorerForm
       Left = 0
       Left = 0
       Top = 0
       Top = 0
       Width = 620
       Width = 620
-      Height = 19
+      Height = 21
       IndentVertical = 3
       IndentVertical = 3
       AutoSizeVertical = True
       AutoSizeVertical = True
       OnGetStatus = QueueLabelGetStatus
       OnGetStatus = QueueLabelGetStatus
@@ -217,9 +213,9 @@ object CustomScpExplorerForm: TCustomScpExplorerForm
     end
     end
     object QueueView3: TListView
     object QueueView3: TListView
       Left = 0
       Left = 0
-      Top = 45
+      Top = 47
       Width = 620
       Width = 620
-      Height = 72
+      Height = 70
       Align = alClient
       Align = alClient
       Columns = <
       Columns = <
         item
         item
@@ -286,7 +282,7 @@ object CustomScpExplorerForm: TCustomScpExplorerForm
     object QueueDock: TTBXDock
     object QueueDock: TTBXDock
       Tag = 1
       Tag = 1
       Left = 0
       Left = 0
-      Top = 19
+      Top = 21
       Width = 620
       Width = 620
       Height = 26
       Height = 26
       AllowDrag = False
       AllowDrag = False
@@ -392,7 +388,7 @@ object CustomScpExplorerForm: TCustomScpExplorerForm
   object SessionsPageControl: TThemePageControl
   object SessionsPageControl: TThemePageControl
     Left = 0
     Left = 0
     Top = 18
     Top = 18
-    Width = 620
+    Width = 608
     Height = 21
     Height = 21
     ActivePage = TabSheet1
     ActivePage = TabSheet1
     Align = alTop
     Align = alTop
@@ -418,7 +414,7 @@ object CustomScpExplorerForm: TCustomScpExplorerForm
     Tag = 1
     Tag = 1
     Left = 0
     Left = 0
     Top = 9
     Top = 9
-    Width = 620
+    Width = 608
     Height = 9
     Height = 9
     AllowDrag = False
     AllowDrag = False
     FixAlign = True
     FixAlign = True

+ 82 - 85
source/forms/EditMask.dfm

@@ -6,55 +6,51 @@ object EditMaskDialog: TEditMaskDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'Edit file mask'
   Caption = 'Edit file mask'
-  ClientHeight = 500
-  ClientWidth = 425
+  ClientHeight = 537
+  ClientWidth = 474
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   KeyPreview = True
   KeyPreview = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnCloseQuery = FormCloseQuery
   OnCloseQuery = FormCloseQuery
   OnKeyDown = FormKeyDown
   OnKeyDown = FormKeyDown
   OnShow = FormShow
   OnShow = FormShow
   DesignSize = (
   DesignSize = (
-    425
-    500)
-  TextHeight = 13
+    474
+    537)
+  TextHeight = 15
   object FilesGroup: TGroupBox
   object FilesGroup: TGroupBox
     Left = 8
     Left = 8
-    Top = 6
-    Width = 409
-    Height = 179
+    Top = 8
+    Width = 458
+    Height = 192
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     Caption = 'Files masks'
     Caption = 'Files masks'
     TabOrder = 0
     TabOrder = 0
     DesignSize = (
     DesignSize = (
-      409
-      179)
+      458
+      192)
     object Label3: TLabel
     object Label3: TLabel
-      Left = 16
-      Top = 19
-      Width = 61
-      Height = 13
+      Left = 9
+      Top = 22
+      Width = 66
+      Height = 15
       Caption = '&Include files:'
       Caption = '&Include files:'
       FocusControl = IncludeFileMasksMemo
       FocusControl = IncludeFileMasksMemo
     end
     end
     object Label1: TLabel
     object Label1: TLabel
-      Left = 212
-      Top = 19
-      Width = 63
-      Height = 13
+      Left = 232
+      Top = 22
+      Width = 67
+      Height = 15
       Caption = '&Exclude files:'
       Caption = '&Exclude files:'
       FocusControl = ExcludeFileMasksMemo
       FocusControl = ExcludeFileMasksMemo
     end
     end
     object IncludeFileMasksMemo: TMemo
     object IncludeFileMasksMemo: TMemo
-      Left = 16
-      Top = 35
-      Width = 181
-      Height = 129
+      Left = 9
+      Top = 40
+      Width = 217
+      Height = 142
       Anchors = [akLeft, akTop, akBottom]
       Anchors = [akLeft, akTop, akBottom]
       Lines.Strings = (
       Lines.Strings = (
         'IncludeFileMasksMemo')
         'IncludeFileMasksMemo')
@@ -64,10 +60,10 @@ object EditMaskDialog: TEditMaskDialog
       OnExit = FileMasksMemoExit
       OnExit = FileMasksMemoExit
     end
     end
     object ExcludeFileMasksMemo: TMemo
     object ExcludeFileMasksMemo: TMemo
-      Left = 212
-      Top = 35
-      Width = 181
-      Height = 129
+      Left = 232
+      Top = 40
+      Width = 217
+      Height = 142
       Anchors = [akLeft, akTop, akBottom]
       Anchors = [akLeft, akTop, akBottom]
       Lines.Strings = (
       Lines.Strings = (
         'ExcludeFileMasksMemo')
         'ExcludeFileMasksMemo')
@@ -78,79 +74,79 @@ object EditMaskDialog: TEditMaskDialog
     end
     end
   end
   end
   object OKBtn: TButton
   object OKBtn: TButton
-    Left = 174
-    Top = 467
-    Width = 75
+    Left = 214
+    Top = 504
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = 'OK'
     Caption = 'OK'
     Default = True
     Default = True
     ModalResult = 1
     ModalResult = 1
-    TabOrder = 3
+    TabOrder = 4
   end
   end
   object CancelBtn: TButton
   object CancelBtn: TButton
-    Left = 259
-    Top = 467
-    Width = 75
+    Left = 300
+    Top = 504
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Cancel = True
     Cancel = True
     Caption = 'Cancel'
     Caption = 'Cancel'
     ModalResult = 2
     ModalResult = 2
-    TabOrder = 4
+    TabOrder = 5
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 342
-    Top = 467
-    Width = 75
+    Left = 386
+    Top = 504
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = '&Help'
     Caption = '&Help'
-    TabOrder = 5
+    TabOrder = 6
     OnClick = HelpButtonClick
     OnClick = HelpButtonClick
   end
   end
   object ClearButton: TButton
   object ClearButton: TButton
-    Left = 89
-    Top = 467
-    Width = 75
+    Left = 128
+    Top = 504
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = '&Clear'
     Caption = '&Clear'
-    TabOrder = 2
+    TabOrder = 3
     OnClick = ClearButtonClick
     OnClick = ClearButtonClick
   end
   end
   object DirectoriesGroup: TGroupBox
   object DirectoriesGroup: TGroupBox
     Left = 8
     Left = 8
-    Top = 191
-    Width = 409
-    Height = 172
+    Top = 206
+    Width = 458
+    Height = 186
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     Caption = 'Directories masks'
     Caption = 'Directories masks'
     TabOrder = 1
     TabOrder = 1
     DesignSize = (
     DesignSize = (
-      409
-      172)
+      458
+      186)
     object Label2: TLabel
     object Label2: TLabel
-      Left = 16
-      Top = 19
-      Width = 92
-      Height = 13
+      Left = 9
+      Top = 22
+      Width = 100
+      Height = 15
       Caption = 'I&nclude directories:'
       Caption = 'I&nclude directories:'
       FocusControl = IncludeDirectoryMasksMemo
       FocusControl = IncludeDirectoryMasksMemo
     end
     end
     object Label4: TLabel
     object Label4: TLabel
-      Left = 212
-      Top = 19
-      Width = 94
-      Height = 13
+      Left = 232
+      Top = 22
+      Width = 101
+      Height = 15
       Caption = 'E&xclude directories:'
       Caption = 'E&xclude directories:'
       FocusControl = ExcludeDirectoryMasksMemo
       FocusControl = ExcludeDirectoryMasksMemo
     end
     end
     object IncludeDirectoryMasksMemo: TMemo
     object IncludeDirectoryMasksMemo: TMemo
-      Left = 16
-      Top = 35
-      Width = 181
-      Height = 104
+      Left = 9
+      Top = 40
+      Width = 217
+      Height = 115
       Anchors = [akLeft, akTop, akBottom]
       Anchors = [akLeft, akTop, akBottom]
       Lines.Strings = (
       Lines.Strings = (
         'IncludeDirectoryMasksMemo')
         'IncludeDirectoryMasksMemo')
@@ -160,10 +156,10 @@ object EditMaskDialog: TEditMaskDialog
       OnExit = DirectoryMasksMemoExit
       OnExit = DirectoryMasksMemoExit
     end
     end
     object ExcludeDirectoryMasksMemo: TMemo
     object ExcludeDirectoryMasksMemo: TMemo
-      Left = 212
-      Top = 35
-      Width = 181
-      Height = 104
+      Left = 232
+      Top = 40
+      Width = 217
+      Height = 115
       Anchors = [akLeft, akTop, akBottom]
       Anchors = [akLeft, akTop, akBottom]
       Lines.Strings = (
       Lines.Strings = (
         'ExcludeDirectoryMasksMemo')
         'ExcludeDirectoryMasksMemo')
@@ -173,10 +169,11 @@ object EditMaskDialog: TEditMaskDialog
       OnExit = DirectoryMasksMemoExit
       OnExit = DirectoryMasksMemoExit
     end
     end
     object ExcludeDirectoryAllCheck: TCheckBox
     object ExcludeDirectoryAllCheck: TCheckBox
-      Left = 212
-      Top = 145
-      Width = 181
+      Left = 234
+      Top = 161
+      Width = 217
       Height = 17
       Height = 17
+      Anchors = [akLeft, akBottom]
       Caption = '&All (do not recurse)'
       Caption = '&All (do not recurse)'
       TabOrder = 2
       TabOrder = 2
       OnClick = ExcludeDirectoryAllCheckClick
       OnClick = ExcludeDirectoryAllCheckClick
@@ -184,20 +181,20 @@ object EditMaskDialog: TEditMaskDialog
   end
   end
   object MaskGroup: TGroupBox
   object MaskGroup: TGroupBox
     Left = 8
     Left = 8
-    Top = 385
-    Width = 409
-    Height = 76
-    Anchors = [akLeft, akTop, akRight, akBottom]
+    Top = 409
+    Width = 458
+    Height = 89
+    Anchors = [akLeft, akTop, akRight]
     Caption = 'Mask'
     Caption = 'Mask'
-    TabOrder = 6
+    TabOrder = 7
     DesignSize = (
     DesignSize = (
-      409
-      76)
+      458
+      89)
     object MaskMemo: TMemo
     object MaskMemo: TMemo
-      Left = 7
-      Top = 15
-      Width = 395
-      Height = 52
+      Left = 9
+      Top = 21
+      Width = 440
+      Height = 58
       TabStop = False
       TabStop = False
       Anchors = [akLeft, akTop, akRight, akBottom]
       Anchors = [akLeft, akTop, akRight, akBottom]
       BevelInner = bvNone
       BevelInner = bvNone
@@ -210,14 +207,14 @@ object EditMaskDialog: TEditMaskDialog
     end
     end
   end
   end
   object MaskHintText: TStaticText
   object MaskHintText: TStaticText
-    Left = 288
-    Top = 369
+    Left = 337
+    Top = 391
     Width = 129
     Width = 129
     Height = 17
     Height = 17
     Alignment = taRightJustify
     Alignment = taRightJustify
     AutoSize = False
     AutoSize = False
     Caption = 'mask hints'
     Caption = 'mask hints'
-    TabOrder = 7
+    TabOrder = 2
     TabStop = True
     TabStop = True
   end
   end
 end
 end

+ 2 - 6
source/forms/Editor.dfm

@@ -8,11 +8,7 @@ object EditorForm: TEditorForm
   ClientHeight = 381
   ClientHeight = 381
   ClientWidth = 609
   ClientWidth = 609
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Icon.Data = {
   Icon.Data = {
     000001000700404000000100200028420000760000003030000001002000A825
     000001000700404000000100200028420000760000003030000001002000A825
     00009E4200002828000001002000681A0000466800002020000001002000A810
     00009E4200002828000001002000681A0000466800002020000001002000A810
@@ -1363,7 +1359,7 @@ object EditorForm: TEditorForm
   OnCloseQuery = FormCloseQuery
   OnCloseQuery = FormCloseQuery
   OnKeyDown = FormKeyDown
   OnKeyDown = FormKeyDown
   OnShow = FormShow
   OnShow = FormShow
-  TextHeight = 13
+  TextHeight = 15
   object TopDock: TTBXDock
   object TopDock: TTBXDock
     Left = 0
     Left = 0
     Top = 0
     Top = 0

+ 62 - 60
source/forms/EditorPreferences.dfm

@@ -6,42 +6,43 @@ object EditorPreferencesDialog: TEditorPreferencesDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'EditorPreferencesDialog'
   Caption = 'EditorPreferencesDialog'
-  ClientHeight = 389
-  ClientWidth = 403
+  ClientHeight = 382
+  ClientWidth = 447
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnCloseQuery = FormCloseQuery
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow
   OnShow = FormShow
   DesignSize = (
   DesignSize = (
-    403
-    389)
-  TextHeight = 13
+    447
+    382)
+  TextHeight = 15
   object ExternalEditorGroup: TGroupBox
   object ExternalEditorGroup: TGroupBox
     Left = 8
     Left = 8
-    Top = 250
-    Width = 388
+    Top = 247
+    Width = 431
     Height = 73
     Height = 73
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     Caption = 'External editor options (affects editing remote files only)'
     Caption = 'External editor options (affects editing remote files only)'
     TabOrder = 2
     TabOrder = 2
+    DesignSize = (
+      431
+      73)
     object ExternalEditorTextCheck: TCheckBox
     object ExternalEditorTextCheck: TCheckBox
-      Left = 16
+      Left = 11
       Top = 45
       Top = 45
-      Width = 337
+      Width = 411
       Height = 17
       Height = 17
+      Anchors = [akLeft, akTop, akRight]
       Caption = 'Force &text transfer mode for files edited in external editor'
       Caption = 'Force &text transfer mode for files edited in external editor'
       TabOrder = 1
       TabOrder = 1
     end
     end
     object SDIExternalEditorCheck: TCheckBox
     object SDIExternalEditorCheck: TCheckBox
-      Left = 16
-      Top = 21
-      Width = 337
+      Left = 11
+      Top = 22
+      Width = 411
       Height = 17
       Height = 17
+      Anchors = [akLeft, akTop, akRight]
       Caption = 'E&xternal editor opens each file in separate window (process)'
       Caption = 'E&xternal editor opens each file in separate window (process)'
       TabOrder = 0
       TabOrder = 0
     end
     end
@@ -49,37 +50,37 @@ object EditorPreferencesDialog: TEditorPreferencesDialog
   object EditorGroup2: TGroupBox
   object EditorGroup2: TGroupBox
     Left = 8
     Left = 8
     Top = 8
     Top = 8
-    Width = 388
-    Height = 155
+    Width = 431
+    Height = 154
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     Caption = 'Editor'
     Caption = 'Editor'
     TabOrder = 0
     TabOrder = 0
     DesignSize = (
     DesignSize = (
-      388
-      155)
+      431
+      154)
     object EditorInternalButton: TRadioButton
     object EditorInternalButton: TRadioButton
-      Left = 16
-      Top = 21
-      Width = 145
+      Left = 11
+      Top = 22
+      Width = 212
       Height = 17
       Height = 17
       Caption = '&Internal editor'
       Caption = '&Internal editor'
       TabOrder = 0
       TabOrder = 0
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object EditorExternalButton: TRadioButton
     object EditorExternalButton: TRadioButton
-      Left = 16
+      Left = 11
       Top = 45
       Top = 45
-      Width = 145
+      Width = 212
       Height = 17
       Height = 17
       Caption = '&External editor:'
       Caption = '&External editor:'
       TabOrder = 1
       TabOrder = 1
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object ExternalEditorEdit: THistoryComboBox
     object ExternalEditorEdit: THistoryComboBox
-      Left = 32
-      Top = 69
-      Width = 267
-      Height = 21
+      Left = 26
+      Top = 68
+      Width = 310
+      Height = 23
       AutoComplete = False
       AutoComplete = False
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       TabOrder = 2
       TabOrder = 2
@@ -88,27 +89,28 @@ object EditorPreferencesDialog: TEditorPreferencesDialog
       OnExit = ExternalEditorEditExit
       OnExit = ExternalEditorEditExit
     end
     end
     object ExternalEditorBrowseButton: TButton
     object ExternalEditorBrowseButton: TButton
-      Left = 305
+      Left = 342
       Top = 67
       Top = 67
-      Width = 75
+      Width = 80
       Height = 25
       Height = 25
+      Anchors = [akTop, akRight]
       Caption = 'B&rowse...'
       Caption = 'B&rowse...'
       TabOrder = 3
       TabOrder = 3
       OnClick = ExternalEditorBrowseButtonClick
       OnClick = ExternalEditorBrowseButtonClick
     end
     end
     object EditorOpenButton: TRadioButton
     object EditorOpenButton: TRadioButton
-      Left = 16
+      Left = 11
       Top = 97
       Top = 97
-      Width = 145
+      Width = 212
       Height = 17
       Height = 17
       Caption = '&Associated application'
       Caption = '&Associated application'
       TabOrder = 4
       TabOrder = 4
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object DefaultButton: TButton
     object DefaultButton: TButton
-      Left = 16
+      Left = 9
       Top = 120
       Top = 120
-      Width = 193
+      Width = 214
       Height = 25
       Height = 25
       Caption = 'Use default system editor'
       Caption = 'Use default system editor'
       TabOrder = 5
       TabOrder = 5
@@ -117,28 +119,28 @@ object EditorPreferencesDialog: TEditorPreferencesDialog
   end
   end
   object MaskGroup: TGroupBox
   object MaskGroup: TGroupBox
     Left = 8
     Left = 8
-    Top = 170
-    Width = 388
+    Top = 168
+    Width = 431
     Height = 73
     Height = 73
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     Caption = 'Editor autoselection'
     Caption = 'Editor autoselection'
     TabOrder = 1
     TabOrder = 1
     DesignSize = (
     DesignSize = (
-      388
+      431
       73)
       73)
     object MaskLabel: TLabel
     object MaskLabel: TLabel
-      Left = 11
-      Top = 20
-      Width = 157
-      Height = 13
+      Left = 9
+      Top = 22
+      Width = 173
+      Height = 15
       Caption = 'Use this editor for &following files:'
       Caption = 'Use this editor for &following files:'
       FocusControl = MaskEdit
       FocusControl = MaskEdit
     end
     end
     object MaskEdit: THistoryComboBox
     object MaskEdit: THistoryComboBox
-      Left = 11
-      Top = 39
-      Width = 367
-      Height = 21
+      Left = 9
+      Top = 40
+      Width = 413
+      Height = 23
       AutoComplete = False
       AutoComplete = False
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       MaxLength = 1000
       MaxLength = 1000
@@ -148,9 +150,9 @@ object EditorPreferencesDialog: TEditorPreferencesDialog
     end
     end
   end
   end
   object OkButton: TButton
   object OkButton: TButton
-    Left = 151
-    Top = 356
-    Width = 75
+    Left = 187
+    Top = 349
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = 'OK'
     Caption = 'OK'
@@ -159,9 +161,9 @@ object EditorPreferencesDialog: TEditorPreferencesDialog
     TabOrder = 4
     TabOrder = 4
   end
   end
   object CancelButton: TButton
   object CancelButton: TButton
-    Left = 235
-    Top = 356
-    Width = 75
+    Left = 273
+    Top = 349
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Cancel = True
     Cancel = True
@@ -170,9 +172,9 @@ object EditorPreferencesDialog: TEditorPreferencesDialog
     TabOrder = 5
     TabOrder = 5
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 319
-    Top = 356
-    Width = 75
+    Left = 359
+    Top = 349
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = '&Help'
     Caption = '&Help'
@@ -180,11 +182,11 @@ object EditorPreferencesDialog: TEditorPreferencesDialog
     OnClick = HelpButtonClick
     OnClick = HelpButtonClick
   end
   end
   object RememberCheck: TCheckBox
   object RememberCheck: TCheckBox
-    Left = 24
-    Top = 332
-    Width = 337
+    Left = 19
+    Top = 326
+    Width = 420
     Height = 17
     Height = 17
-    Anchors = [akLeft, akBottom]
+    Anchors = [akLeft, akRight, akBottom]
     Caption = '&Remember this editor'
     Caption = '&Remember this editor'
     TabOrder = 3
     TabOrder = 3
   end
   end

+ 39 - 43
source/forms/FileFind.dfm

@@ -10,11 +10,7 @@ object FileFindDialog: TFileFindDialog
   Color = clBtnFace
   Color = clBtnFace
   Constraints.MinHeight = 240
   Constraints.MinHeight = 240
   Constraints.MinWidth = 400
   Constraints.MinWidth = 400
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Icon.Data = {
   Icon.Data = {
     000001000700404000000100200028420000760000003030000001002000A825
     000001000700404000000100200028420000760000003030000001002000A825
     00009E4200002828000001002000681A0000466800002020000001002000A810
     00009E4200002828000001002000681A0000466800002020000001002000A810
@@ -1370,45 +1366,45 @@ object FileFindDialog: TFileFindDialog
   DesignSize = (
   DesignSize = (
     562
     562
     417)
     417)
-  TextHeight = 13
+  TextHeight = 15
   object FilterGroup: TGroupBox
   object FilterGroup: TGroupBox
     Left = 8
     Left = 8
-    Top = 6
-    Width = 434
-    Height = 127
+    Top = 8
+    Width = 432
+    Height = 122
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     Caption = 'Filter'
     Caption = 'Filter'
     TabOrder = 0
     TabOrder = 0
     DesignSize = (
     DesignSize = (
-      434
-      127)
+      432
+      122)
     object MaskLabel: TLabel
     object MaskLabel: TLabel
       Left = 49
       Left = 49
-      Top = 20
-      Width = 47
-      Height = 13
+      Top = 22
+      Width = 52
+      Height = 15
       Caption = '&File mask:'
       Caption = '&File mask:'
       FocusControl = MaskEdit
       FocusControl = MaskEdit
     end
     end
     object RemoteDirectoryLabel: TLabel
     object RemoteDirectoryLabel: TLabel
       Left = 49
       Left = 49
       Top = 71
       Top = 71
-      Width = 48
-      Height = 13
+      Width = 51
+      Height = 15
       Caption = 'Sear&ch in:'
       Caption = 'Sear&ch in:'
       FocusControl = RemoteDirectoryEdit
       FocusControl = RemoteDirectoryEdit
     end
     end
     object AnimationPaintBox: TPaintBox
     object AnimationPaintBox: TPaintBox
       Left = 11
       Left = 11
-      Top = 23
+      Top = 24
       Width = 32
       Width = 32
       Height = 32
       Height = 32
     end
     end
     object RemoteDirectoryEdit: THistoryComboBox
     object RemoteDirectoryEdit: THistoryComboBox
       Left = 49
       Left = 49
-      Top = 87
+      Top = 89
       Width = 374
       Width = 374
-      Height = 21
+      Height = 23
       AutoComplete = False
       AutoComplete = False
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       MaxLength = 1000
       MaxLength = 1000
@@ -1418,9 +1414,9 @@ object FileFindDialog: TFileFindDialog
     end
     end
     object MaskEdit: THistoryComboBox
     object MaskEdit: THistoryComboBox
       Left = 49
       Left = 49
-      Top = 36
+      Top = 40
       Width = 288
       Width = 288
-      Height = 21
+      Height = 23
       AutoComplete = False
       AutoComplete = False
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       MaxLength = 1000
       MaxLength = 1000
@@ -1431,7 +1427,7 @@ object FileFindDialog: TFileFindDialog
     end
     end
     object MaskHintText: TStaticText
     object MaskHintText: TStaticText
       Left = 213
       Left = 213
-      Top = 59
+      Top = 63
       Width = 124
       Width = 124
       Height = 17
       Height = 17
       Alignment = taRightJustify
       Alignment = taRightJustify
@@ -1443,7 +1439,7 @@ object FileFindDialog: TFileFindDialog
     end
     end
     object MaskButton: TButton
     object MaskButton: TButton
       Left = 343
       Left = 343
-      Top = 34
+      Top = 39
       Width = 80
       Width = 80
       Height = 25
       Height = 25
       Anchors = [akTop, akRight]
       Anchors = [akTop, akRight]
@@ -1453,8 +1449,8 @@ object FileFindDialog: TFileFindDialog
     end
     end
   end
   end
   object StartStopButton: TButton
   object StartStopButton: TButton
-    Left = 448
-    Top = 11
+    Left = 446
+    Top = 15
     Width = 108
     Width = 108
     Height = 25
     Height = 25
     Anchors = [akTop, akRight]
     Anchors = [akTop, akRight]
@@ -1464,8 +1460,8 @@ object FileFindDialog: TFileFindDialog
     OnClick = StartStopButtonClick
     OnClick = StartStopButtonClick
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 448
-    Top = 42
+    Left = 446
+    Top = 46
     Width = 108
     Width = 108
     Height = 25
     Height = 25
     Anchors = [akTop, akRight]
     Anchors = [akTop, akRight]
@@ -1475,17 +1471,17 @@ object FileFindDialog: TFileFindDialog
   end
   end
   object FileViewPanel: TPanel
   object FileViewPanel: TPanel
     Left = 8
     Left = 8
-    Top = 142
-    Width = 434
-    Height = 252
+    Top = 136
+    Width = 432
+    Height = 254
     Anchors = [akLeft, akTop, akRight, akBottom]
     Anchors = [akLeft, akTop, akRight, akBottom]
     BevelOuter = bvNone
     BevelOuter = bvNone
     TabOrder = 3
     TabOrder = 3
     object FileView: TIEListView
     object FileView: TIEListView
       Left = 0
       Left = 0
       Top = 0
       Top = 0
-      Width = 434
-      Height = 252
+      Width = 432
+      Height = 254
       Align = alClient
       Align = alClient
       FullDrag = True
       FullDrag = True
       ReadOnly = True
       ReadOnly = True
@@ -1529,8 +1525,8 @@ object FileFindDialog: TFileFindDialog
     SimplePanel = True
     SimplePanel = True
   end
   end
   object FocusButton: TButton
   object FocusButton: TButton
-    Left = 448
-    Top = 142
+    Left = 446
+    Top = 136
     Width = 108
     Width = 108
     Height = 25
     Height = 25
     Action = FocusAction
     Action = FocusAction
@@ -1538,17 +1534,17 @@ object FileFindDialog: TFileFindDialog
     TabOrder = 4
     TabOrder = 4
   end
   end
   object CopyButton: TButton
   object CopyButton: TButton
-    Left = 448
-    Top = 369
-    Width = 106
+    Left = 446
+    Top = 365
+    Width = 108
     Height = 25
     Height = 25
     Action = CopyAction
     Action = CopyAction
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     TabOrder = 8
     TabOrder = 8
   end
   end
   object DeleteButton: TButton
   object DeleteButton: TButton
-    Left = 448
-    Top = 235
+    Left = 446
+    Top = 229
     Width = 108
     Width = 108
     Height = 25
     Height = 25
     Action = DeleteAction
     Action = DeleteAction
@@ -1556,8 +1552,8 @@ object FileFindDialog: TFileFindDialog
     TabOrder = 7
     TabOrder = 7
   end
   end
   object DownloadButton: TButton
   object DownloadButton: TButton
-    Left = 448
-    Top = 204
+    Left = 446
+    Top = 198
     Width = 108
     Width = 108
     Height = 25
     Height = 25
     Action = DownloadAction
     Action = DownloadAction
@@ -1565,8 +1561,8 @@ object FileFindDialog: TFileFindDialog
     TabOrder = 6
     TabOrder = 6
   end
   end
   object EditButton: TButton
   object EditButton: TButton
-    Left = 448
-    Top = 173
+    Left = 446
+    Top = 167
     Width = 108
     Width = 108
     Height = 25
     Height = 25
     Action = EditAction
     Action = EditAction

+ 105 - 109
source/forms/FileSystemInfo.dfm

@@ -6,24 +6,20 @@ object FileSystemInfoDialog: TFileSystemInfoDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'Server and protocol information'
   Caption = 'Server and protocol information'
-  ClientHeight = 398
-  ClientWidth = 371
+  ClientHeight = 444
+  ClientWidth = 432
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnShow = FormShow
   OnShow = FormShow
   DesignSize = (
   DesignSize = (
-    371
-    398)
-  TextHeight = 13
+    432
+    444)
+  TextHeight = 15
   object CloseButton: TButton
   object CloseButton: TButton
-    Left = 204
-    Top = 364
-    Width = 75
+    Left = 258
+    Top = 411
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Cancel = True
     Cancel = True
@@ -33,9 +29,9 @@ object FileSystemInfoDialog: TFileSystemInfoDialog
     TabOrder = 2
     TabOrder = 2
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 287
-    Top = 364
-    Width = 75
+    Left = 344
+    Top = 411
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = '&Help'
     Caption = '&Help'
@@ -45,8 +41,8 @@ object FileSystemInfoDialog: TFileSystemInfoDialog
   object PageControl: TPageControl
   object PageControl: TPageControl
     Left = 0
     Left = 0
     Top = 0
     Top = 0
-    Width = 371
-    Height = 352
+    Width = 432
+    Height = 405
     ActivePage = ProtocolSheet
     ActivePage = ProtocolSheet
     Align = alTop
     Align = alTop
     Anchors = [akLeft, akTop, akRight, akBottom]
     Anchors = [akLeft, akTop, akRight, akBottom]
@@ -55,47 +51,47 @@ object FileSystemInfoDialog: TFileSystemInfoDialog
     object ProtocolSheet: TTabSheet
     object ProtocolSheet: TTabSheet
       Caption = 'Protocol'
       Caption = 'Protocol'
       DesignSize = (
       DesignSize = (
-        363
-        324)
+        424
+        375)
       object HostKeyGroup: TGroupBox
       object HostKeyGroup: TGroupBox
-        Left = 6
-        Top = 201
-        Width = 351
-        Height = 87
+        Left = 5
+        Top = 236
+        Width = 411
+        Height = 95
         Anchors = [akLeft, akRight, akBottom]
         Anchors = [akLeft, akRight, akBottom]
         Caption = 'Server host key fingerprints'
         Caption = 'Server host key fingerprints'
         TabOrder = 1
         TabOrder = 1
         DesignSize = (
         DesignSize = (
-          351
-          87)
+          411
+          95)
         object Label2: TLabel
         object Label2: TLabel
-          Left = 10
-          Top = 18
-          Width = 49
-          Height = 13
+          Left = 8
+          Top = 22
+          Width = 57
+          Height = 15
           Caption = 'Algorithm:'
           Caption = 'Algorithm:'
           FocusControl = HostKeyAlgorithmEdit
           FocusControl = HostKeyAlgorithmEdit
         end
         end
         object Label3: TLabel
         object Label3: TLabel
-          Left = 10
-          Top = 41
-          Width = 46
-          Height = 13
+          Left = 8
+          Top = 45
+          Width = 49
+          Height = 15
           Caption = 'SHA-256:'
           Caption = 'SHA-256:'
           FocusControl = HostKeyFingerprintSHA256Edit
           FocusControl = HostKeyFingerprintSHA256Edit
         end
         end
         object Label4: TLabel
         object Label4: TLabel
-          Left = 10
-          Top = 64
-          Width = 25
-          Height = 13
+          Left = 8
+          Top = 68
+          Width = 28
+          Height = 15
           Caption = 'MD5:'
           Caption = 'MD5:'
           FocusControl = HostKeyFingerprintMD5Edit
           FocusControl = HostKeyFingerprintMD5Edit
         end
         end
         object HostKeyFingerprintSHA256Edit: TEdit
         object HostKeyFingerprintSHA256Edit: TEdit
-          Left = 65
-          Top = 41
-          Width = 279
+          Left = 88
+          Top = 45
+          Width = 314
           Height = 17
           Height = 17
           TabStop = False
           TabStop = False
           Anchors = [akLeft, akTop, akRight]
           Anchors = [akLeft, akTop, akRight]
@@ -108,9 +104,9 @@ object FileSystemInfoDialog: TFileSystemInfoDialog
           OnContextPopup = HostKeyFingerprintSHA256EditContextPopup
           OnContextPopup = HostKeyFingerprintSHA256EditContextPopup
         end
         end
         object HostKeyAlgorithmEdit: TEdit
         object HostKeyAlgorithmEdit: TEdit
-          Left = 65
-          Top = 18
-          Width = 279
+          Left = 88
+          Top = 22
+          Width = 314
           Height = 17
           Height = 17
           TabStop = False
           TabStop = False
           Anchors = [akLeft, akTop, akRight]
           Anchors = [akLeft, akTop, akRight]
@@ -121,9 +117,9 @@ object FileSystemInfoDialog: TFileSystemInfoDialog
           Text = 'HostKeyAlgorithmEdit'
           Text = 'HostKeyAlgorithmEdit'
         end
         end
         object HostKeyFingerprintMD5Edit: TEdit
         object HostKeyFingerprintMD5Edit: TEdit
-          Left = 65
-          Top = 64
-          Width = 279
+          Left = 88
+          Top = 68
+          Width = 314
           Height = 17
           Height = 17
           TabStop = False
           TabStop = False
           Anchors = [akLeft, akTop, akRight]
           Anchors = [akLeft, akTop, akRight]
@@ -137,10 +133,10 @@ object FileSystemInfoDialog: TFileSystemInfoDialog
         end
         end
       end
       end
       object ServerView: TListView
       object ServerView: TListView
-        Left = 6
-        Top = 8
-        Width = 351
-        Height = 187
+        Left = 5
+        Top = 5
+        Width = 412
+        Height = 225
         Anchors = [akLeft, akTop, akRight, akBottom]
         Anchors = [akLeft, akTop, akRight, akBottom]
         Columns = <
         Columns = <
           item
           item
@@ -163,36 +159,36 @@ object FileSystemInfoDialog: TFileSystemInfoDialog
         OnContextPopup = ControlContextPopup
         OnContextPopup = ControlContextPopup
       end
       end
       object CertificateGroup: TGroupBox
       object CertificateGroup: TGroupBox
-        Left = 6
-        Top = 294
-        Width = 351
-        Height = 104
+        Left = 5
+        Top = 337
+        Width = 411
+        Height = 102
         Anchors = [akLeft, akRight, akBottom]
         Anchors = [akLeft, akRight, akBottom]
         Caption = 'Certificate fingerprint'
         Caption = 'Certificate fingerprint'
         TabOrder = 2
         TabOrder = 2
         DesignSize = (
         DesignSize = (
-          351
-          104)
+          411
+          102)
         object Label5: TLabel
         object Label5: TLabel
-          Left = 10
-          Top = 20
-          Width = 46
-          Height = 13
+          Left = 8
+          Top = 22
+          Width = 49
+          Height = 15
           Caption = 'SHA-256:'
           Caption = 'SHA-256:'
           FocusControl = CertificateFingerprintSha256Edit
           FocusControl = CertificateFingerprintSha256Edit
         end
         end
         object Label6: TLabel
         object Label6: TLabel
-          Left = 10
-          Top = 43
-          Width = 34
-          Height = 13
+          Left = 8
+          Top = 45
+          Width = 37
+          Height = 15
           Caption = 'SHA-1:'
           Caption = 'SHA-1:'
           FocusControl = CertificateFingerprintSha1Edit
           FocusControl = CertificateFingerprintSha1Edit
         end
         end
         object CertificateFingerprintSha256Edit: TEdit
         object CertificateFingerprintSha256Edit: TEdit
-          Left = 65
-          Top = 20
-          Width = 279
+          Left = 88
+          Top = 22
+          Width = 314
           Height = 17
           Height = 17
           TabStop = False
           TabStop = False
           Anchors = [akLeft, akTop, akRight]
           Anchors = [akLeft, akTop, akRight]
@@ -203,18 +199,18 @@ object FileSystemInfoDialog: TFileSystemInfoDialog
           Text = 'CertificateFingerprintSha256Edit'
           Text = 'CertificateFingerprintSha256Edit'
         end
         end
         object CertificateViewButton: TButton
         object CertificateViewButton: TButton
-          Left = 10
-          Top = 66
-          Width = 121
+          Left = 8
+          Top = 68
+          Width = 134
           Height = 25
           Height = 25
           Caption = '&Full certificate'
           Caption = '&Full certificate'
           TabOrder = 2
           TabOrder = 2
           OnClick = CertificateViewButtonClick
           OnClick = CertificateViewButtonClick
         end
         end
         object CertificateFingerprintSha1Edit: TEdit
         object CertificateFingerprintSha1Edit: TEdit
-          Left = 65
-          Top = 43
-          Width = 279
+          Left = 88
+          Top = 45
+          Width = 314
           Height = 17
           Height = 17
           TabStop = False
           TabStop = False
           Anchors = [akLeft, akTop, akRight]
           Anchors = [akLeft, akTop, akRight]
@@ -232,26 +228,26 @@ object FileSystemInfoDialog: TFileSystemInfoDialog
       Caption = 'Capabilities'
       Caption = 'Capabilities'
       ImageIndex = 1
       ImageIndex = 1
       DesignSize = (
       DesignSize = (
-        363
-        324)
+        424
+        375)
       object InfoGroup: TGroupBox
       object InfoGroup: TGroupBox
-        Left = 6
-        Top = 202
-        Width = 351
-        Height = 114
+        Left = 5
+        Top = 236
+        Width = 412
+        Height = 134
         Anchors = [akLeft, akRight, akBottom]
         Anchors = [akLeft, akRight, akBottom]
         Caption = 'Additional information'
         Caption = 'Additional information'
         TabOrder = 1
         TabOrder = 1
         DesignSize = (
         DesignSize = (
-          351
-          114)
+          412
+          134)
         object InfoMemo: TMemo
         object InfoMemo: TMemo
           Left = 9
           Left = 9
-          Top = 17
-          Width = 333
-          Height = 87
+          Top = 22
+          Width = 394
+          Height = 102
           TabStop = False
           TabStop = False
-          Anchors = [akLeft, akTop, akRight]
+          Anchors = [akLeft, akTop, akRight, akBottom]
           BevelInner = bvNone
           BevelInner = bvNone
           BevelOuter = bvNone
           BevelOuter = bvNone
           BorderStyle = bsNone
           BorderStyle = bsNone
@@ -264,10 +260,10 @@ object FileSystemInfoDialog: TFileSystemInfoDialog
         end
         end
       end
       end
       object ProtocolView: TListView
       object ProtocolView: TListView
-        Left = 6
-        Top = 8
-        Width = 351
-        Height = 187
+        Left = 5
+        Top = 5
+        Width = 412
+        Height = 225
         Anchors = [akLeft, akTop, akRight, akBottom]
         Anchors = [akLeft, akTop, akRight, akBottom]
         Columns = <
         Columns = <
           item
           item
@@ -294,21 +290,21 @@ object FileSystemInfoDialog: TFileSystemInfoDialog
       Caption = 'Space available'
       Caption = 'Space available'
       ImageIndex = 2
       ImageIndex = 2
       DesignSize = (
       DesignSize = (
-        363
-        324)
+        424
+        375)
       object Label1: TLabel
       object Label1: TLabel
-        Left = 13
-        Top = 13
-        Width = 26
-        Height = 13
+        Left = 5
+        Top = 8
+        Width = 27
+        Height = 15
         Caption = '&Path:'
         Caption = '&Path:'
         FocusControl = SpaceAvailablePathEdit
         FocusControl = SpaceAvailablePathEdit
       end
       end
       object SpaceAvailableView: TListView
       object SpaceAvailableView: TListView
-        Left = 6
-        Top = 40
-        Width = 351
-        Height = 155
+        Left = 5
+        Top = 34
+        Width = 412
+        Height = 196
         Anchors = [akLeft, akTop, akRight, akBottom]
         Anchors = [akLeft, akTop, akRight, akBottom]
         Columns = <
         Columns = <
           item
           item
@@ -333,9 +329,9 @@ object FileSystemInfoDialog: TFileSystemInfoDialog
       end
       end
       object SpaceAvailablePathEdit: TEdit
       object SpaceAvailablePathEdit: TEdit
         Left = 56
         Left = 56
-        Top = 9
-        Width = 193
-        Height = 21
+        Top = 5
+        Width = 246
+        Height = 23
         Anchors = [akLeft, akTop, akRight]
         Anchors = [akLeft, akTop, akRight]
         MaxLength = 250
         MaxLength = 250
         TabOrder = 0
         TabOrder = 0
@@ -344,9 +340,9 @@ object FileSystemInfoDialog: TFileSystemInfoDialog
         OnExit = SpaceAvailablePathEditExit
         OnExit = SpaceAvailablePathEditExit
       end
       end
       object SpaceAvailableButton: TButton
       object SpaceAvailableButton: TButton
-        Left = 256
-        Top = 7
-        Width = 99
+        Left = 308
+        Top = 4
+        Width = 109
         Height = 25
         Height = 25
         Anchors = [akTop, akRight]
         Anchors = [akTop, akRight]
         Caption = 'Check &space'
         Caption = 'Check &space'
@@ -357,10 +353,10 @@ object FileSystemInfoDialog: TFileSystemInfoDialog
   end
   end
   object ClipboardButton: TButton
   object ClipboardButton: TButton
     Left = 8
     Left = 8
-    Top = 364
-    Width = 161
+    Top = 411
+    Width = 179
     Height = 25
     Height = 25
-    Anchors = [akRight, akBottom]
+    Anchors = [akLeft, akBottom]
     Caption = '&Copy to Clipboard'
     Caption = '&Copy to Clipboard'
     TabOrder = 1
     TabOrder = 1
     OnClick = ClipboardButtonClick
     OnClick = ClipboardButtonClick

+ 89 - 93
source/forms/FullSynchronize.dfm

@@ -6,60 +6,56 @@ object FullSynchronizeDialog: TFullSynchronizeDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'Synchronize'
   Caption = 'Synchronize'
-  ClientHeight = 477
-  ClientWidth = 481
+  ClientHeight = 492
+  ClientWidth = 534
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnCloseQuery = FormCloseQuery
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow
   OnShow = FormShow
   DesignSize = (
   DesignSize = (
-    481
-    477)
-  TextHeight = 13
+    534
+    492)
+  TextHeight = 15
   object DirectoriesGroup: TGroupBox
   object DirectoriesGroup: TGroupBox
     Left = 8
     Left = 8
-    Top = 6
-    Width = 465
-    Height = 119
+    Top = 8
+    Width = 518
+    Height = 120
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     Caption = 'Directories'
     Caption = 'Directories'
     TabOrder = 0
     TabOrder = 0
     DesignSize = (
     DesignSize = (
-      465
-      119)
+      518
+      120)
     object LocalDirectoryLabel: TLabel
     object LocalDirectoryLabel: TLabel
       Left = 49
       Left = 49
-      Top = 19
-      Width = 74
-      Height = 13
+      Top = 22
+      Width = 81
+      Height = 15
       Caption = 'Lo&cal directory:'
       Caption = 'Lo&cal directory:'
       FocusControl = LocalDirectoryEdit
       FocusControl = LocalDirectoryEdit
     end
     end
     object RemoteDirectoryLabel: TLabel
     object RemoteDirectoryLabel: TLabel
       Left = 49
       Left = 49
-      Top = 68
-      Width = 87
-      Height = 13
+      Top = 69
+      Width = 94
+      Height = 15
       Caption = 'R&emote directory:'
       Caption = 'R&emote directory:'
       FocusControl = RemoteDirectoryEdit
       FocusControl = RemoteDirectoryEdit
     end
     end
     object Image: TImage
     object Image: TImage
       Left = 11
       Left = 11
-      Top = 22
+      Top = 24
       Width = 32
       Width = 32
       Height = 32
       Height = 32
       AutoSize = True
       AutoSize = True
     end
     end
     object RemoteDirectoryEdit: THistoryComboBox
     object RemoteDirectoryEdit: THistoryComboBox
       Left = 49
       Left = 49
-      Top = 84
-      Width = 405
-      Height = 21
+      Top = 87
+      Width = 460
+      Height = 23
       AutoComplete = False
       AutoComplete = False
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       MaxLength = 1000
       MaxLength = 1000
@@ -69,9 +65,9 @@ object FullSynchronizeDialog: TFullSynchronizeDialog
     end
     end
     object LocalDirectoryEdit: THistoryComboBox
     object LocalDirectoryEdit: THistoryComboBox
       Left = 49
       Left = 49
-      Top = 35
-      Width = 322
-      Height = 21
+      Top = 40
+      Width = 374
+      Height = 23
       AutoComplete = False
       AutoComplete = False
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       MaxLength = 1000
       MaxLength = 1000
@@ -80,9 +76,9 @@ object FullSynchronizeDialog: TFullSynchronizeDialog
       OnChange = ControlChange
       OnChange = ControlChange
     end
     end
     object LocalDirectoryBrowseButton: TButton
     object LocalDirectoryBrowseButton: TButton
-      Left = 378
-      Top = 33
-      Width = 75
+      Left = 429
+      Top = 39
+      Width = 80
       Height = 25
       Height = 25
       Anchors = [akTop, akRight]
       Anchors = [akTop, akRight]
       Caption = 'Bro&wse...'
       Caption = 'Bro&wse...'
@@ -91,9 +87,9 @@ object FullSynchronizeDialog: TFullSynchronizeDialog
     end
     end
   end
   end
   object OkButton: TButton
   object OkButton: TButton
-    Left = 220
-    Top = 444
-    Width = 88
+    Left = 260
+    Top = 459
+    Width = 94
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = 'OK'
     Caption = 'OK'
@@ -104,9 +100,9 @@ object FullSynchronizeDialog: TFullSynchronizeDialog
     OnDropDownClick = OkButtonDropDownClick
     OnDropDownClick = OkButtonDropDownClick
   end
   end
   object CancelButton: TButton
   object CancelButton: TButton
-    Left = 315
-    Top = 444
-    Width = 75
+    Left = 360
+    Top = 459
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Cancel = True
     Cancel = True
@@ -116,18 +112,18 @@ object FullSynchronizeDialog: TFullSynchronizeDialog
   end
   end
   object OptionsGroup: TGroupBox
   object OptionsGroup: TGroupBox
     Left = 8
     Left = 8
-    Top = 238
-    Width = 227
+    Top = 244
+    Width = 252
     Height = 121
     Height = 121
     Caption = 'Synchronize options'
     Caption = 'Synchronize options'
     TabOrder = 3
     TabOrder = 3
     DesignSize = (
     DesignSize = (
-      227
+      252
       121)
       121)
     object SynchronizeDeleteCheck: TCheckBox
     object SynchronizeDeleteCheck: TCheckBox
       Left = 11
       Left = 11
-      Top = 20
-      Width = 210
+      Top = 22
+      Width = 232
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = '&Delete files'
       Caption = '&Delete files'
@@ -136,8 +132,8 @@ object FullSynchronizeDialog: TFullSynchronizeDialog
     end
     end
     object SynchronizeSelectedOnlyCheck: TCheckBox
     object SynchronizeSelectedOnlyCheck: TCheckBox
       Left = 11
       Left = 11
-      Top = 92
-      Width = 210
+      Top = 91
+      Width = 232
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = 'Selected files o&nly'
       Caption = 'Selected files o&nly'
@@ -147,28 +143,28 @@ object FullSynchronizeDialog: TFullSynchronizeDialog
     object SynchronizeExistingOnlyCheck: TCheckBox
     object SynchronizeExistingOnlyCheck: TCheckBox
       Left = 11
       Left = 11
       Top = 68
       Top = 68
-      Width = 210
+      Width = 232
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = 'E&xisting files only'
       Caption = 'E&xisting files only'
-      TabOrder = 1
+      TabOrder = 2
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object SynchronizePreviewChangesCheck: TCheckBox
     object SynchronizePreviewChangesCheck: TCheckBox
       Left = 11
       Left = 11
-      Top = 44
-      Width = 210
+      Top = 45
+      Width = 232
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = 'Pre&view changes'
       Caption = 'Pre&view changes'
-      TabOrder = 2
+      TabOrder = 1
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
   end
   end
   object TransferSettingsButton: TButton
   object TransferSettingsButton: TButton
     Left = 8
     Left = 8
-    Top = 444
-    Width = 161
+    Top = 459
+    Width = 175
     Height = 25
     Height = 25
     Anchors = [akLeft, akBottom]
     Anchors = [akLeft, akBottom]
     Caption = 'Transfer settin&gs...'
     Caption = 'Transfer settin&gs...'
@@ -178,16 +174,16 @@ object FullSynchronizeDialog: TFullSynchronizeDialog
   end
   end
   object DirectionGroup: TGroupBox
   object DirectionGroup: TGroupBox
     Left = 8
     Left = 8
-    Top = 130
-    Width = 465
+    Top = 134
+    Width = 518
     Height = 49
     Height = 49
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     Caption = 'Direction/Target directory'
     Caption = 'Direction/Target directory'
     TabOrder = 1
     TabOrder = 1
     object SynchronizeBothButton: TRadioButton
     object SynchronizeBothButton: TRadioButton
       Left = 11
       Left = 11
-      Top = 20
-      Width = 138
+      Top = 22
+      Width = 158
       Height = 17
       Height = 17
       Caption = '&Both'
       Caption = '&Both'
       Checked = True
       Checked = True
@@ -196,18 +192,18 @@ object FullSynchronizeDialog: TFullSynchronizeDialog
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object SynchronizeRemoteButton: TRadioButton
     object SynchronizeRemoteButton: TRadioButton
-      Left = 155
-      Top = 20
-      Width = 143
+      Left = 175
+      Top = 22
+      Width = 158
       Height = 17
       Height = 17
       Caption = '&Remote'
       Caption = '&Remote'
       TabOrder = 1
       TabOrder = 1
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object SynchronizeLocalButton: TRadioButton
     object SynchronizeLocalButton: TRadioButton
-      Left = 304
-      Top = 20
-      Width = 154
+      Left = 339
+      Top = 22
+      Width = 170
       Height = 17
       Height = 17
       Caption = '&Local'
       Caption = '&Local'
       TabOrder = 2
       TabOrder = 2
@@ -215,20 +211,20 @@ object FullSynchronizeDialog: TFullSynchronizeDialog
     end
     end
   end
   end
   object CompareCriterionsGroup: TGroupBox
   object CompareCriterionsGroup: TGroupBox
-    Left = 245
-    Top = 238
-    Width = 228
+    Left = 274
+    Top = 244
+    Width = 252
     Height = 121
     Height = 121
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     Caption = 'Comparison criteria'
     Caption = 'Comparison criteria'
     TabOrder = 4
     TabOrder = 4
     DesignSize = (
     DesignSize = (
-      228
+      252
       121)
       121)
     object SynchronizeByTimeCheck: TCheckBox
     object SynchronizeByTimeCheck: TCheckBox
       Left = 11
       Left = 11
-      Top = 20
-      Width = 210
+      Top = 22
+      Width = 232
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = 'M&odification time'
       Caption = 'M&odification time'
@@ -237,8 +233,8 @@ object FullSynchronizeDialog: TFullSynchronizeDialog
     end
     end
     object SynchronizeBySizeCheck: TCheckBox
     object SynchronizeBySizeCheck: TCheckBox
       Left = 11
       Left = 11
-      Top = 44
-      Width = 210
+      Top = 45
+      Width = 232
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = 'File si&ze'
       Caption = 'File si&ze'
@@ -247,8 +243,8 @@ object FullSynchronizeDialog: TFullSynchronizeDialog
     end
     end
     object SynchronizeCaseSensitiveCheck: TCheckBox
     object SynchronizeCaseSensitiveCheck: TCheckBox
       Left = 11
       Left = 11
-      Top = 92
-      Width = 210
+      Top = 91
+      Width = 232
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = 'C&ase sensitive'
       Caption = 'C&ase sensitive'
@@ -258,7 +254,7 @@ object FullSynchronizeDialog: TFullSynchronizeDialog
     object SynchronizeByChecksumCheck: TCheckBox
     object SynchronizeByChecksumCheck: TCheckBox
       Left = 11
       Left = 11
       Top = 68
       Top = 68
-      Width = 210
+      Width = 232
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = 'C&hecksum'
       Caption = 'C&hecksum'
@@ -268,8 +264,8 @@ object FullSynchronizeDialog: TFullSynchronizeDialog
   end
   end
   object SaveSettingsCheck: TCheckBox
   object SaveSettingsCheck: TCheckBox
     Left = 19
     Left = 19
-    Top = 365
-    Width = 454
+    Top = 371
+    Width = 507
     Height = 17
     Height = 17
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     Caption = 'Use &same options next time'
     Caption = 'Use &same options next time'
@@ -277,22 +273,22 @@ object FullSynchronizeDialog: TFullSynchronizeDialog
   end
   end
   object CopyParamGroup: TGroupBox
   object CopyParamGroup: TGroupBox
     Left = 8
     Left = 8
-    Top = 386
-    Width = 465
-    Height = 50
+    Top = 394
+    Width = 518
+    Height = 59
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     Caption = 'Transfer settings'
     Caption = 'Transfer settings'
     TabOrder = 6
     TabOrder = 6
     OnClick = CopyParamGroupClick
     OnClick = CopyParamGroupClick
     OnContextPopup = CopyParamGroupContextPopup
     OnContextPopup = CopyParamGroupContextPopup
     DesignSize = (
     DesignSize = (
-      465
-      50)
+      518
+      59)
     object CopyParamLabel: TLabel
     object CopyParamLabel: TLabel
-      Left = 7
-      Top = 15
-      Width = 451
-      Height = 26
+      Left = 9
+      Top = 20
+      Width = 500
+      Height = 35
       Anchors = [akLeft, akTop, akRight, akBottom]
       Anchors = [akLeft, akTop, akRight, akBottom]
       AutoSize = False
       AutoSize = False
       Caption = 'CopyParamLabel'
       Caption = 'CopyParamLabel'
@@ -302,9 +298,9 @@ object FullSynchronizeDialog: TFullSynchronizeDialog
     end
     end
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 397
-    Top = 444
-    Width = 75
+    Left = 446
+    Top = 459
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = '&Help'
     Caption = '&Help'
@@ -313,8 +309,8 @@ object FullSynchronizeDialog: TFullSynchronizeDialog
   end
   end
   object ModeGroup: TGroupBox
   object ModeGroup: TGroupBox
     Left = 8
     Left = 8
-    Top = 184
-    Width = 465
+    Top = 189
+    Width = 518
     Height = 49
     Height = 49
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     Caption = 'Mode'
     Caption = 'Mode'
@@ -322,25 +318,25 @@ object FullSynchronizeDialog: TFullSynchronizeDialog
     object SynchronizeFilesButton: TRadioButton
     object SynchronizeFilesButton: TRadioButton
       Left = 11
       Left = 11
       Top = 20
       Top = 20
-      Width = 135
+      Width = 158
       Height = 17
       Height = 17
       Caption = 'Synchronize &files'
       Caption = 'Synchronize &files'
       TabOrder = 0
       TabOrder = 0
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object MirrorFilesButton: TRadioButton
     object MirrorFilesButton: TRadioButton
-      Left = 155
+      Left = 175
       Top = 20
       Top = 20
-      Width = 143
+      Width = 158
       Height = 17
       Height = 17
       Caption = '&Mirror files'
       Caption = '&Mirror files'
       TabOrder = 1
       TabOrder = 1
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object SynchronizeTimestampsButton: TRadioButton
     object SynchronizeTimestampsButton: TRadioButton
-      Left = 304
+      Left = 339
       Top = 20
       Top = 20
-      Width = 154
+      Width = 170
       Height = 17
       Height = 17
       Caption = 'Synchronize &timestamps'
       Caption = 'Synchronize &timestamps'
       TabOrder = 2
       TabOrder = 2

+ 2 - 2
source/forms/GenerateUrl.cpp

@@ -892,8 +892,8 @@ void __fastcall TGenerateUrlDialog::Execute()
 
 
   if (OptionsPageControl->ActivePage != UrlSheet)
   if (OptionsPageControl->ActivePage != UrlSheet)
   {
   {
-    ClientWidth = ScaleByTextHeightRunTime(this, 700);
-    ClientHeight = ScaleByTextHeightRunTime(this, 600);
+    ClientWidth = ScaleByTextHeightRunTime(this, 777);
+    ClientHeight = ScaleByTextHeightRunTime(this, 666);
   }
   }
 
 
   ShowModal();
   ShowModal();

+ 71 - 67
source/forms/GenerateUrl.dfm

@@ -6,27 +6,23 @@ object GenerateUrlDialog: TGenerateUrlDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'Generate URL X'
   Caption = 'Generate URL X'
-  ClientHeight = 338
-  ClientWidth = 484
+  ClientHeight = 381
+  ClientWidth = 539
   Color = clBtnFace
   Color = clBtnFace
   Constraints.MinHeight = 300
   Constraints.MinHeight = 300
-  Constraints.MinWidth = 484
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  Constraints.MinWidth = 500
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnShow = FormShow
   OnShow = FormShow
   DesignSize = (
   DesignSize = (
-    484
-    338)
-  TextHeight = 13
+    539
+    381)
+  TextHeight = 15
   object OptionsPageControl: TPageControl
   object OptionsPageControl: TPageControl
-    Left = 5
-    Top = 5
-    Width = 475
-    Height = 111
+    Left = 0
+    Top = 0
+    Width = 539
+    Height = 104
     ActivePage = UrlSheet
     ActivePage = UrlSheet
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     TabOrder = 0
     TabOrder = 0
@@ -35,9 +31,9 @@ object GenerateUrlDialog: TGenerateUrlDialog
       Caption = 'URL'
       Caption = 'URL'
       object UserNameCheck: TCheckBox
       object UserNameCheck: TCheckBox
         Tag = 1
         Tag = 1
-        Left = 11
-        Top = 8
-        Width = 144
+        Left = 7
+        Top = 5
+        Width = 151
         Height = 17
         Height = 17
         Caption = '&User name'
         Caption = '&User name'
         TabOrder = 0
         TabOrder = 0
@@ -45,9 +41,9 @@ object GenerateUrlDialog: TGenerateUrlDialog
       end
       end
       object HostKeyCheck: TCheckBox
       object HostKeyCheck: TCheckBox
         Tag = 4
         Tag = 4
-        Left = 161
-        Top = 8
-        Width = 144
+        Left = 164
+        Top = 5
+        Width = 151
         Height = 17
         Height = 17
         Caption = 'SSH &host Key'
         Caption = 'SSH &host Key'
         TabOrder = 3
         TabOrder = 3
@@ -55,9 +51,9 @@ object GenerateUrlDialog: TGenerateUrlDialog
       end
       end
       object WinSCPSpecificCheck: TCheckBox
       object WinSCPSpecificCheck: TCheckBox
         Tag = 16
         Tag = 16
-        Left = 161
-        Top = 31
-        Width = 144
+        Left = 164
+        Top = 28
+        Width = 151
         Height = 17
         Height = 17
         Caption = '&WinSCP-specific'
         Caption = '&WinSCP-specific'
         TabOrder = 4
         TabOrder = 4
@@ -65,9 +61,9 @@ object GenerateUrlDialog: TGenerateUrlDialog
       end
       end
       object SaveExtensionCheck: TCheckBox
       object SaveExtensionCheck: TCheckBox
         Tag = 32
         Tag = 32
-        Left = 161
-        Top = 54
-        Width = 144
+        Left = 164
+        Top = 51
+        Width = 151
         Height = 17
         Height = 17
         Caption = '&Save extension'
         Caption = '&Save extension'
         TabOrder = 5
         TabOrder = 5
@@ -75,9 +71,9 @@ object GenerateUrlDialog: TGenerateUrlDialog
       end
       end
       object RemoteDirectoryCheck: TCheckBox
       object RemoteDirectoryCheck: TCheckBox
         Tag = 8
         Tag = 8
-        Left = 11
-        Top = 54
-        Width = 144
+        Left = 7
+        Top = 51
+        Width = 151
         Height = 17
         Height = 17
         Caption = 'Initial &directory'
         Caption = 'Initial &directory'
         TabOrder = 2
         TabOrder = 2
@@ -85,9 +81,9 @@ object GenerateUrlDialog: TGenerateUrlDialog
       end
       end
       object PasswordCheck: TCheckBox
       object PasswordCheck: TCheckBox
         Tag = 2
         Tag = 2
-        Left = 11
-        Top = 31
-        Width = 144
+        Left = 7
+        Top = 28
+        Width = 151
         Height = 17
         Height = 17
         HelpType = htKeyword
         HelpType = htKeyword
         Caption = '&Password'
         Caption = '&Password'
@@ -96,9 +92,9 @@ object GenerateUrlDialog: TGenerateUrlDialog
       end
       end
       object RawSettingsCheck: TCheckBox
       object RawSettingsCheck: TCheckBox
         Tag = 64
         Tag = 64
-        Left = 311
-        Top = 8
-        Width = 144
+        Left = 321
+        Top = 5
+        Width = 147
         Height = 17
         Height = 17
         Caption = '&Advanced settings'
         Caption = '&Advanced settings'
         TabOrder = 6
         TabOrder = 6
@@ -108,29 +104,33 @@ object GenerateUrlDialog: TGenerateUrlDialog
     object ScriptSheet: TTabSheet
     object ScriptSheet: TTabSheet
       Caption = 'Script'
       Caption = 'Script'
       ImageIndex = 1
       ImageIndex = 1
+      DesignSize = (
+        531
+        74)
       object Label2: TLabel
       object Label2: TLabel
-        Left = 11
+        Left = 5
         Top = 8
         Top = 8
-        Width = 38
-        Height = 13
+        Width = 41
+        Height = 15
         Caption = '&Format:'
         Caption = '&Format:'
         FocusControl = ScriptFormatCombo
         FocusControl = ScriptFormatCombo
       end
       end
       object ScriptDescriptionLabel: TLabel
       object ScriptDescriptionLabel: TLabel
-        Left = 11
+        Left = 5
         Top = 32
         Top = 32
-        Width = 446
+        Width = 518
         Height = 42
         Height = 42
+        Anchors = [akLeft, akTop, akRight, akBottom]
         AutoSize = False
         AutoSize = False
         Caption = 'ScriptDescriptionLabel'
         Caption = 'ScriptDescriptionLabel'
         ShowAccelChar = False
         ShowAccelChar = False
         WordWrap = True
         WordWrap = True
       end
       end
       object ScriptFormatCombo: TComboBox
       object ScriptFormatCombo: TComboBox
-        Left = 112
+        Left = 106
         Top = 5
         Top = 5
-        Width = 121
-        Height = 21
+        Width = 134
+        Height = 23
         Style = csDropDownList
         Style = csDropDownList
         TabOrder = 0
         TabOrder = 0
         OnChange = ControlChange
         OnChange = ControlChange
@@ -144,29 +144,33 @@ object GenerateUrlDialog: TGenerateUrlDialog
     object AssemblySheet: TTabSheet
     object AssemblySheet: TTabSheet
       Caption = '.NET assembly code'
       Caption = '.NET assembly code'
       ImageIndex = 2
       ImageIndex = 2
+      DesignSize = (
+        531
+        74)
       object Label1: TLabel
       object Label1: TLabel
-        Left = 11
+        Left = 5
         Top = 8
         Top = 8
-        Width = 51
-        Height = 13
+        Width = 55
+        Height = 15
         Caption = '&Language:'
         Caption = '&Language:'
         FocusControl = AssemblyLanguageCombo
         FocusControl = AssemblyLanguageCombo
       end
       end
       object AssemblyDescriptionLabel: TLabel
       object AssemblyDescriptionLabel: TLabel
-        Left = 11
+        Left = 5
         Top = 32
         Top = 32
-        Width = 446
+        Width = 518
         Height = 42
         Height = 42
+        Anchors = [akLeft, akTop, akRight, akBottom]
         AutoSize = False
         AutoSize = False
         Caption = 'AssemblyDescriptionLabel'
         Caption = 'AssemblyDescriptionLabel'
         ShowAccelChar = False
         ShowAccelChar = False
         WordWrap = True
         WordWrap = True
       end
       end
       object AssemblyLanguageCombo: TComboBox
       object AssemblyLanguageCombo: TComboBox
-        Left = 112
+        Left = 106
         Top = 5
         Top = 5
-        Width = 121
-        Height = 21
+        Width = 134
+        Height = 23
         Style = csDropDownList
         Style = csDropDownList
         TabOrder = 0
         TabOrder = 0
         OnChange = ControlChange
         OnChange = ControlChange
@@ -179,20 +183,20 @@ object GenerateUrlDialog: TGenerateUrlDialog
   end
   end
   object ResultGroup: TGroupBox
   object ResultGroup: TGroupBox
     Left = 8
     Left = 8
-    Top = 122
-    Width = 468
-    Height = 176
+    Top = 110
+    Width = 523
+    Height = 232
     Anchors = [akLeft, akTop, akRight, akBottom]
     Anchors = [akLeft, akTop, akRight, akBottom]
     Caption = 'ResultX'
     Caption = 'ResultX'
     TabOrder = 1
     TabOrder = 1
     DesignSize = (
     DesignSize = (
-      468
-      176)
+      523
+      232)
     object ResultMemo: TMemo
     object ResultMemo: TMemo
       Left = 7
       Left = 7
       Top = 15
       Top = 15
-      Width = 454
-      Height = 152
+      Width = 509
+      Height = 208
       Anchors = [akLeft, akTop, akRight, akBottom]
       Anchors = [akLeft, akTop, akRight, akBottom]
       BevelInner = bvNone
       BevelInner = bvNone
       BevelOuter = bvNone
       BevelOuter = bvNone
@@ -201,9 +205,9 @@ object GenerateUrlDialog: TGenerateUrlDialog
     end
     end
   end
   end
   object CancelBtn: TButton
   object CancelBtn: TButton
-    Left = 318
-    Top = 305
-    Width = 75
+    Left = 365
+    Top = 348
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Cancel = True
     Cancel = True
@@ -212,9 +216,9 @@ object GenerateUrlDialog: TGenerateUrlDialog
     TabOrder = 3
     TabOrder = 3
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 401
-    Top = 305
-    Width = 75
+    Left = 451
+    Top = 348
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = '&Help'
     Caption = '&Help'
@@ -223,8 +227,8 @@ object GenerateUrlDialog: TGenerateUrlDialog
   end
   end
   object ClipboardButton: TButton
   object ClipboardButton: TButton
     Left = 8
     Left = 8
-    Top = 305
-    Width = 165
+    Top = 348
+    Width = 183
     Height = 25
     Height = 25
     Anchors = [akLeft, akBottom]
     Anchors = [akLeft, akBottom]
     Caption = '&Copy to Clipboard'
     Caption = '&Copy to Clipboard'

+ 33 - 37
source/forms/ImportSessions.dfm

@@ -6,32 +6,28 @@ object ImportSessionsDialog: TImportSessionsDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'Import sitesX'
   Caption = 'Import sitesX'
-  ClientHeight = 273
-  ClientWidth = 375
+  ClientHeight = 307
+  ClientWidth = 418
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnShow = FormShow
   OnShow = FormShow
   DesignSize = (
   DesignSize = (
-    375
-    273)
-  TextHeight = 13
+    418
+    307)
+  TextHeight = 15
   object Label: TLabel
   object Label: TLabel
     Left = 8
     Left = 8
-    Top = 13
-    Width = 61
-    Height = 13
+    Top = 12
+    Width = 68
+    Height = 15
     Caption = '&Import from:'
     Caption = '&Import from:'
     FocusControl = SourceComboBox
     FocusControl = SourceComboBox
   end
   end
   object OKButton: TButton
   object OKButton: TButton
-    Left = 135
-    Top = 242
-    Width = 75
+    Left = 158
+    Top = 274
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = 'OK'
     Caption = 'OK'
@@ -40,9 +36,9 @@ object ImportSessionsDialog: TImportSessionsDialog
     TabOrder = 5
     TabOrder = 5
   end
   end
   object CancelButton: TButton
   object CancelButton: TButton
-    Left = 215
-    Top = 242
-    Width = 75
+    Left = 244
+    Top = 274
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Cancel = True
     Cancel = True
@@ -53,8 +49,8 @@ object ImportSessionsDialog: TImportSessionsDialog
   object SessionListView2: TListView
   object SessionListView2: TListView
     Left = 8
     Left = 8
     Top = 39
     Top = 39
-    Width = 361
-    Height = 197
+    Width = 402
+    Height = 229
     Anchors = [akLeft, akTop, akRight, akBottom]
     Anchors = [akLeft, akTop, akRight, akBottom]
     Checkboxes = True
     Checkboxes = True
     Columns = <
     Columns = <
@@ -77,8 +73,8 @@ object ImportSessionsDialog: TImportSessionsDialog
   end
   end
   object CheckAllButton: TButton
   object CheckAllButton: TButton
     Left = 8
     Left = 8
-    Top = 242
-    Width = 113
+    Top = 274
+    Width = 125
     Height = 25
     Height = 25
     Anchors = [akLeft, akBottom]
     Anchors = [akLeft, akBottom]
     Caption = 'Un/check &all'
     Caption = 'Un/check &all'
@@ -86,9 +82,9 @@ object ImportSessionsDialog: TImportSessionsDialog
     OnClick = CheckAllButtonClick
     OnClick = CheckAllButtonClick
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 294
-    Top = 242
-    Width = 75
+    Left = 330
+    Top = 274
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = '&Help'
     Caption = '&Help'
@@ -96,10 +92,10 @@ object ImportSessionsDialog: TImportSessionsDialog
     OnClick = HelpButtonClick
     OnClick = HelpButtonClick
   end
   end
   object SourceComboBox: TComboBox
   object SourceComboBox: TComboBox
-    Left = 106
-    Top = 10
-    Width = 120
-    Height = 21
+    Left = 116
+    Top = 9
+    Width = 133
+    Height = 23
     Style = csDropDownList
     Style = csDropDownList
     TabOrder = 0
     TabOrder = 0
     OnSelect = SourceComboBoxSelect
     OnSelect = SourceComboBoxSelect
@@ -114,8 +110,8 @@ object ImportSessionsDialog: TImportSessionsDialog
   object ErrorPanel: TPanel
   object ErrorPanel: TPanel
     Left = 48
     Left = 48
     Top = 92
     Top = 92
-    Width = 281
-    Height = 97
+    Width = 321
+    Height = 125
     BevelOuter = bvNone
     BevelOuter = bvNone
     Color = clWindow
     Color = clWindow
     ParentBackground = False
     ParentBackground = False
@@ -123,8 +119,8 @@ object ImportSessionsDialog: TImportSessionsDialog
     object ErrorLabel: TLabel
     object ErrorLabel: TLabel
       Left = 0
       Left = 0
       Top = 0
       Top = 0
-      Width = 281
-      Height = 97
+      Width = 321
+      Height = 125
       Align = alClient
       Align = alClient
       Alignment = taCenter
       Alignment = taCenter
       Caption = 'ErrorLabel'
       Caption = 'ErrorLabel'
@@ -134,7 +130,7 @@ object ImportSessionsDialog: TImportSessionsDialog
     end
     end
   end
   end
   object PasteButton: TButton
   object PasteButton: TButton
-    Left = 232
+    Left = 255
     Top = 8
     Top = 8
     Width = 75
     Width = 75
     Height = 25
     Height = 25
@@ -143,9 +139,9 @@ object ImportSessionsDialog: TImportSessionsDialog
     OnClick = PasteButtonClick
     OnClick = PasteButtonClick
   end
   end
   object BrowseButton: TButton
   object BrowseButton: TButton
-    Left = 232
+    Left = 255
     Top = 8
     Top = 8
-    Width = 75
+    Width = 80
     Height = 25
     Height = 25
     Caption = 'B&rowse...'
     Caption = 'B&rowse...'
     TabOrder = 2
     TabOrder = 2

+ 12 - 16
source/forms/License.dfm

@@ -5,23 +5,19 @@ object LicenseDialog: TLicenseDialog
   BorderIcons = [biSystemMenu]
   BorderIcons = [biSystemMenu]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'License'
   Caption = 'License'
-  ClientHeight = 320
-  ClientWidth = 504
+  ClientHeight = 355
+  ClientWidth = 559
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   DesignSize = (
   DesignSize = (
-    504
-    320)
-  TextHeight = 13
+    559
+    355)
+  TextHeight = 15
   object CloseButton: TButton
   object CloseButton: TButton
-    Left = 421
-    Top = 285
-    Width = 75
+    Left = 471
+    Top = 322
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Cancel = True
     Cancel = True
@@ -33,9 +29,9 @@ object LicenseDialog: TLicenseDialog
   object LicenseMemo: TMemo
   object LicenseMemo: TMemo
     Left = 8
     Left = 8
     Top = 8
     Top = 8
-    Width = 489
-    Height = 273
-    Anchors = [akLeft, akTop, akRight]
+    Width = 543
+    Height = 308
+    Anchors = [akLeft, akTop, akRight, akBottom]
     Color = clBtnFace
     Color = clBtnFace
     ReadOnly = True
     ReadOnly = True
     ScrollBars = ssVertical
     ScrollBars = ssVertical

+ 84 - 88
source/forms/LocationProfiles.dfm

@@ -6,33 +6,29 @@ object LocationProfilesDialog: TLocationProfilesDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'Location profiles'
   Caption = 'Location profiles'
-  ClientHeight = 435
-  ClientWidth = 557
+  ClientHeight = 448
+  ClientWidth = 601
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnShow = FormShow
   OnShow = FormShow
   DesignSize = (
   DesignSize = (
-    557
-    435)
-  TextHeight = 13
+    601
+    448)
+  TextHeight = 15
   object LocalDirectoryLabel: TLabel
   object LocalDirectoryLabel: TLabel
     Left = 46
     Left = 46
     Top = 8
     Top = 8
-    Width = 74
-    Height = 13
+    Width = 81
+    Height = 15
     Caption = '&Local directory:'
     Caption = '&Local directory:'
     FocusControl = LocalDirectoryEdit
     FocusControl = LocalDirectoryEdit
   end
   end
   object RemoteDirectoryLabel: TLabel
   object RemoteDirectoryLabel: TLabel
     Left = 46
     Left = 46
-    Top = 56
-    Width = 87
-    Height = 13
+    Top = 55
+    Width = 94
+    Height = 15
     Caption = '&Remote directory:'
     Caption = '&Remote directory:'
     FocusControl = RemoteDirectoryEdit
     FocusControl = RemoteDirectoryEdit
   end
   end
@@ -44,9 +40,9 @@ object LocationProfilesDialog: TLocationProfilesDialog
     AutoSize = True
     AutoSize = True
   end
   end
   object OKBtn: TButton
   object OKBtn: TButton
-    Left = 303
-    Top = 401
-    Width = 75
+    Left = 341
+    Top = 415
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = 'OK'
     Caption = 'OK'
@@ -55,9 +51,9 @@ object LocationProfilesDialog: TLocationProfilesDialog
     TabOrder = 5
     TabOrder = 5
   end
   end
   object CancelBtn: TButton
   object CancelBtn: TButton
-    Left = 387
-    Top = 401
-    Width = 75
+    Left = 427
+    Top = 415
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Cancel = True
     Cancel = True
@@ -67,9 +63,9 @@ object LocationProfilesDialog: TLocationProfilesDialog
   end
   end
   object PageControl: TPageControl
   object PageControl: TPageControl
     Left = 8
     Left = 8
-    Top = 104
-    Width = 539
-    Height = 288
+    Top = 102
+    Width = 585
+    Height = 307
     ActivePage = SessionProfilesSheet
     ActivePage = SessionProfilesSheet
     Anchors = [akLeft, akTop, akRight, akBottom]
     Anchors = [akLeft, akTop, akRight, akBottom]
     TabOrder = 3
     TabOrder = 3
@@ -77,14 +73,14 @@ object LocationProfilesDialog: TLocationProfilesDialog
       Tag = 1
       Tag = 1
       Caption = 'Site Location profiles'
       Caption = 'Site Location profiles'
       DesignSize = (
       DesignSize = (
-        531
-        260)
+        577
+        277)
       object SessionProfilesView: TTreeView
       object SessionProfilesView: TTreeView
         Tag = 1
         Tag = 1
-        Left = 10
-        Top = 9
-        Width = 421
-        Height = 240
+        Left = 5
+        Top = 5
+        Width = 467
+        Height = 266
         Anchors = [akLeft, akTop, akRight, akBottom]
         Anchors = [akLeft, akTop, akRight, akBottom]
         DoubleBuffered = True
         DoubleBuffered = True
         DragMode = dmAutomatic
         DragMode = dmAutomatic
@@ -118,9 +114,9 @@ object LocationProfilesDialog: TLocationProfilesDialog
       end
       end
       object AddSessionBookmarkButton: TButton
       object AddSessionBookmarkButton: TButton
         Tag = 1
         Tag = 1
-        Left = 438
-        Top = 9
-        Width = 83
+        Left = 478
+        Top = 5
+        Width = 92
         Height = 25
         Height = 25
         Anchors = [akTop, akRight]
         Anchors = [akTop, akRight]
         Caption = '&Add...'
         Caption = '&Add...'
@@ -129,9 +125,9 @@ object LocationProfilesDialog: TLocationProfilesDialog
       end
       end
       object RemoveSessionBookmarkButton: TButton
       object RemoveSessionBookmarkButton: TButton
         Tag = 1
         Tag = 1
-        Left = 438
-        Top = 41
-        Width = 83
+        Left = 478
+        Top = 36
+        Width = 92
         Height = 25
         Height = 25
         Anchors = [akTop, akRight]
         Anchors = [akTop, akRight]
         Caption = 'Remo&ve'
         Caption = 'Remo&ve'
@@ -140,9 +136,9 @@ object LocationProfilesDialog: TLocationProfilesDialog
       end
       end
       object DownSessionBookmarkButton: TButton
       object DownSessionBookmarkButton: TButton
         Tag = 1
         Tag = 1
-        Left = 438
-        Top = 224
-        Width = 83
+        Left = 478
+        Top = 246
+        Width = 92
         Height = 25
         Height = 25
         Anchors = [akRight, akBottom]
         Anchors = [akRight, akBottom]
         Caption = '&Down'
         Caption = '&Down'
@@ -151,9 +147,9 @@ object LocationProfilesDialog: TLocationProfilesDialog
       end
       end
       object UpSessionBookmarkButton: TButton
       object UpSessionBookmarkButton: TButton
         Tag = -1
         Tag = -1
-        Left = 438
-        Top = 192
-        Width = 83
+        Left = 478
+        Top = 215
+        Width = 92
         Height = 25
         Height = 25
         Anchors = [akRight, akBottom]
         Anchors = [akRight, akBottom]
         Caption = '&Up'
         Caption = '&Up'
@@ -162,9 +158,9 @@ object LocationProfilesDialog: TLocationProfilesDialog
       end
       end
       object RenameSessionBookmarkButton: TButton
       object RenameSessionBookmarkButton: TButton
         Tag = 1
         Tag = 1
-        Left = 438
-        Top = 73
-        Width = 83
+        Left = 478
+        Top = 67
+        Width = 92
         Height = 25
         Height = 25
         Anchors = [akTop, akRight]
         Anchors = [akTop, akRight]
         Caption = 'Re&name'
         Caption = 'Re&name'
@@ -173,9 +169,9 @@ object LocationProfilesDialog: TLocationProfilesDialog
       end
       end
       object SessionBookmarkMoveToButton: TButton
       object SessionBookmarkMoveToButton: TButton
         Tag = 1
         Tag = 1
-        Left = 438
-        Top = 105
-        Width = 83
+        Left = 478
+        Top = 98
+        Width = 92
         Height = 25
         Height = 25
         Anchors = [akTop, akRight]
         Anchors = [akTop, akRight]
         Caption = '&Move To...'
         Caption = '&Move To...'
@@ -188,14 +184,14 @@ object LocationProfilesDialog: TLocationProfilesDialog
       Caption = 'Shared Location profiles'
       Caption = 'Shared Location profiles'
       ImageIndex = 1
       ImageIndex = 1
       DesignSize = (
       DesignSize = (
-        531
-        260)
+        577
+        277)
       object SharedProfilesView: TTreeView
       object SharedProfilesView: TTreeView
         Tag = 2
         Tag = 2
-        Left = 10
-        Top = 9
-        Width = 421
-        Height = 240
+        Left = 5
+        Top = 5
+        Width = 467
+        Height = 266
         Anchors = [akLeft, akTop, akRight, akBottom]
         Anchors = [akLeft, akTop, akRight, akBottom]
         DoubleBuffered = True
         DoubleBuffered = True
         DragMode = dmAutomatic
         DragMode = dmAutomatic
@@ -230,9 +226,9 @@ object LocationProfilesDialog: TLocationProfilesDialog
       end
       end
       object AddSharedBookmarkButton: TButton
       object AddSharedBookmarkButton: TButton
         Tag = 2
         Tag = 2
-        Left = 438
-        Top = 9
-        Width = 83
+        Left = 478
+        Top = 5
+        Width = 92
         Height = 25
         Height = 25
         Anchors = [akTop, akRight]
         Anchors = [akTop, akRight]
         Caption = '&Add...'
         Caption = '&Add...'
@@ -241,9 +237,9 @@ object LocationProfilesDialog: TLocationProfilesDialog
       end
       end
       object RemoveSharedBookmarkButton: TButton
       object RemoveSharedBookmarkButton: TButton
         Tag = 2
         Tag = 2
-        Left = 438
-        Top = 41
-        Width = 83
+        Left = 478
+        Top = 36
+        Width = 92
         Height = 25
         Height = 25
         Anchors = [akTop, akRight]
         Anchors = [akTop, akRight]
         Caption = 'Remo&ve'
         Caption = 'Remo&ve'
@@ -252,9 +248,9 @@ object LocationProfilesDialog: TLocationProfilesDialog
       end
       end
       object RenameSharedBookmarkButton: TButton
       object RenameSharedBookmarkButton: TButton
         Tag = 2
         Tag = 2
-        Left = 438
-        Top = 73
-        Width = 83
+        Left = 478
+        Top = 67
+        Width = 92
         Height = 25
         Height = 25
         Anchors = [akTop, akRight]
         Anchors = [akTop, akRight]
         Caption = 'Re&name'
         Caption = 'Re&name'
@@ -263,9 +259,9 @@ object LocationProfilesDialog: TLocationProfilesDialog
       end
       end
       object SharedBookmarkMoveToButton: TButton
       object SharedBookmarkMoveToButton: TButton
         Tag = 2
         Tag = 2
-        Left = 438
-        Top = 105
-        Width = 83
+        Left = 478
+        Top = 98
+        Width = 92
         Height = 25
         Height = 25
         Anchors = [akTop, akRight]
         Anchors = [akTop, akRight]
         Caption = '&Move To...'
         Caption = '&Move To...'
@@ -274,9 +270,9 @@ object LocationProfilesDialog: TLocationProfilesDialog
       end
       end
       object UpSharedBookmarkButton: TButton
       object UpSharedBookmarkButton: TButton
         Tag = -2
         Tag = -2
-        Left = 438
-        Top = 192
-        Width = 83
+        Left = 478
+        Top = 215
+        Width = 92
         Height = 25
         Height = 25
         Anchors = [akRight, akBottom]
         Anchors = [akRight, akBottom]
         Caption = '&Up'
         Caption = '&Up'
@@ -285,9 +281,9 @@ object LocationProfilesDialog: TLocationProfilesDialog
       end
       end
       object DownSharedBookmarkButton: TButton
       object DownSharedBookmarkButton: TButton
         Tag = 2
         Tag = 2
-        Left = 438
-        Top = 224
-        Width = 83
+        Left = 478
+        Top = 246
+        Width = 92
         Height = 25
         Height = 25
         Anchors = [akRight, akBottom]
         Anchors = [akRight, akBottom]
         Caption = '&Down'
         Caption = '&Down'
@@ -296,9 +292,9 @@ object LocationProfilesDialog: TLocationProfilesDialog
       end
       end
       object ShortCutSharedBookmarkButton: TButton
       object ShortCutSharedBookmarkButton: TButton
         Tag = 2
         Tag = 2
-        Left = 438
-        Top = 137
-        Width = 83
+        Left = 478
+        Top = 129
+        Width = 92
         Height = 25
         Height = 25
         Anchors = [akTop, akRight]
         Anchors = [akTop, akRight]
         Caption = '&Shortcut...'
         Caption = '&Shortcut...'
@@ -309,9 +305,9 @@ object LocationProfilesDialog: TLocationProfilesDialog
   end
   end
   object LocalDirectoryEdit: THistoryComboBox
   object LocalDirectoryEdit: THistoryComboBox
     Left = 46
     Left = 46
-    Top = 25
-    Width = 419
-    Height = 21
+    Top = 26
+    Width = 461
+    Height = 23
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     DropDownCount = 16
     DropDownCount = 16
     TabOrder = 0
     TabOrder = 0
@@ -322,8 +318,8 @@ object LocationProfilesDialog: TLocationProfilesDialog
   object RemoteDirectoryEdit: THistoryComboBox
   object RemoteDirectoryEdit: THistoryComboBox
     Left = 46
     Left = 46
     Top = 73
     Top = 73
-    Width = 501
-    Height = 21
+    Width = 547
+    Height = 23
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     DropDownCount = 16
     DropDownCount = 16
     MaxLength = 1000
     MaxLength = 1000
@@ -333,9 +329,9 @@ object LocationProfilesDialog: TLocationProfilesDialog
     SaveOn = []
     SaveOn = []
   end
   end
   object LocalDirectoryBrowseButton: TButton
   object LocalDirectoryBrowseButton: TButton
-    Left = 470
-    Top = 23
-    Width = 75
+    Left = 513
+    Top = 25
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akTop, akRight]
     Anchors = [akTop, akRight]
     Caption = 'B&rowse...'
     Caption = 'B&rowse...'
@@ -344,19 +340,19 @@ object LocationProfilesDialog: TLocationProfilesDialog
   end
   end
   object SwitchButton: TButton
   object SwitchButton: TButton
     Left = 8
     Left = 8
-    Top = 401
+    Top = 415
     Width = 97
     Width = 97
     Height = 25
     Height = 25
-    Anchors = [akRight, akBottom]
+    Anchors = [akLeft, akBottom]
     Caption = '&Bookmarks...'
     Caption = '&Bookmarks...'
     ModalResult = 2
     ModalResult = 2
     TabOrder = 4
     TabOrder = 4
     OnClick = SwitchButtonClick
     OnClick = SwitchButtonClick
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 471
-    Top = 401
-    Width = 75
+    Left = 513
+    Top = 415
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = '&Help'
     Caption = '&Help'

+ 160 - 165
source/forms/Login.dfm

@@ -9,22 +9,18 @@ object LoginDialog: TLoginDialog
   ClientWidth = 873
   ClientWidth = 873
   Color = clBtnFace
   Color = clBtnFace
   Constraints.MinHeight = 399
   Constraints.MinHeight = 399
-  Constraints.MinWidth = 600
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  Constraints.MinWidth = 640
+  ParentFont = True
   KeyPreview = True
   KeyPreview = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
   OnCloseQuery = FormCloseQuery
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow
   OnShow = FormShow
-  TextHeight = 13
+  TextHeight = 15
   object MainPanel: TPanel
   object MainPanel: TPanel
-    Left = 512
+    Left = 472
     Top = 0
     Top = 0
-    Width = 361
+    Width = 401
     Height = 387
     Height = 387
     Align = alRight
     Align = alRight
     BevelOuter = bvNone
     BevelOuter = bvNone
@@ -32,48 +28,48 @@ object LoginDialog: TLoginDialog
     object ContentsPanel: TPanel
     object ContentsPanel: TPanel
       Left = 0
       Left = 0
       Top = 0
       Top = 0
-      Width = 361
-      Height = 346
+      Width = 401
+      Height = 353
       Align = alClient
       Align = alClient
       BevelOuter = bvNone
       BevelOuter = bvNone
       TabOrder = 0
       TabOrder = 0
       Visible = False
       Visible = False
       DesignSize = (
       DesignSize = (
-        361
-        346)
+        401
+        353)
       object ContentsGroupBox: TGroupBox
       object ContentsGroupBox: TGroupBox
         Left = 2
         Left = 2
-        Top = 12
-        Width = 347
-        Height = 331
+        Top = 8
+        Width = 391
+        Height = 342
         Anchors = [akLeft, akTop, akBottom]
         Anchors = [akLeft, akTop, akBottom]
         Caption = 'ContentsGroupBox'
         Caption = 'ContentsGroupBox'
         TabOrder = 0
         TabOrder = 0
         DesignSize = (
         DesignSize = (
-          347
-          331)
+          391
+          342)
         object ContentsLabel: TLabel
         object ContentsLabel: TLabel
-          Left = 12
-          Top = 20
-          Width = 31
-          Height = 13
+          Left = 8
+          Top = 22
+          Width = 35
+          Height = 15
           Caption = 'Name:'
           Caption = 'Name:'
           ShowAccelChar = False
           ShowAccelChar = False
         end
         end
         object ContentsNameEdit: TEdit
         object ContentsNameEdit: TEdit
           Left = 66
           Left = 66
-          Top = 15
-          Width = 270
-          Height = 21
+          Top = 19
+          Width = 316
+          Height = 23
           Anchors = [akLeft, akTop, akRight]
           Anchors = [akLeft, akTop, akRight]
           TabOrder = 0
           TabOrder = 0
           Text = 'ContentsNameEdit'
           Text = 'ContentsNameEdit'
         end
         end
         object ContentsMemo: TMemo
         object ContentsMemo: TMemo
-          Left = 12
-          Top = 42
-          Width = 324
-          Height = 277
+          Left = 8
+          Top = 48
+          Width = 374
+          Height = 284
           Anchors = [akLeft, akTop, akRight, akBottom]
           Anchors = [akLeft, akTop, akRight, akBottom]
           Lines.Strings = (
           Lines.Strings = (
             'ContentsMemo')
             'ContentsMemo')
@@ -84,98 +80,97 @@ object LoginDialog: TLoginDialog
     object SitePanel: TPanel
     object SitePanel: TPanel
       Left = 0
       Left = 0
       Top = 0
       Top = 0
-      Width = 361
-      Height = 346
+      Width = 401
+      Height = 353
       Align = alClient
       Align = alClient
-      Anchors = [akTop, akRight, akBottom]
       BevelOuter = bvNone
       BevelOuter = bvNone
       TabOrder = 1
       TabOrder = 1
       DesignSize = (
       DesignSize = (
-        361
-        346)
+        401
+        353)
       object BasicGroup: TGroupBox
       object BasicGroup: TGroupBox
         Left = 2
         Left = 2
-        Top = 12
-        Width = 347
-        Height = 260
+        Top = 8
+        Width = 391
+        Height = 258
         Anchors = [akLeft, akTop, akRight]
         Anchors = [akLeft, akTop, akRight]
         Caption = 'Session'
         Caption = 'Session'
         TabOrder = 0
         TabOrder = 0
         DesignSize = (
         DesignSize = (
-          347
-          260)
+          391
+          258)
         object Label1: TLabel
         object Label1: TLabel
-          Left = 12
-          Top = 72
-          Width = 55
-          Height = 13
+          Left = 8
+          Top = 69
+          Width = 61
+          Height = 15
           Caption = '&Host name:'
           Caption = '&Host name:'
           FocusControl = HostNameEdit
           FocusControl = HostNameEdit
         end
         end
         object Label2: TLabel
         object Label2: TLabel
-          Left = 255
-          Top = 72
-          Width = 63
-          Height = 13
+          Left = 280
+          Top = 69
+          Width = 70
+          Height = 15
           Anchors = [akTop, akRight]
           Anchors = [akTop, akRight]
           Caption = 'Po&rt number:'
           Caption = 'Po&rt number:'
           FocusControl = PortNumberEdit
           FocusControl = PortNumberEdit
         end
         end
         object UserNameLabel: TLabel
         object UserNameLabel: TLabel
-          Left = 12
-          Top = 122
-          Width = 55
-          Height = 13
+          Left = 8
+          Top = 116
+          Width = 59
+          Height = 15
           Caption = '&User name:'
           Caption = '&User name:'
           FocusControl = UserNameEdit
           FocusControl = UserNameEdit
         end
         end
         object PasswordLabel: TLabel
         object PasswordLabel: TLabel
-          Left = 178
-          Top = 122
-          Width = 50
-          Height = 13
+          Left = 198
+          Top = 116
+          Width = 53
+          Height = 15
           Caption = '&Password:'
           Caption = '&Password:'
           FocusControl = PasswordEdit
           FocusControl = PasswordEdit
         end
         end
         object Label22: TLabel
         object Label22: TLabel
-          Left = 12
+          Left = 8
           Top = 22
           Top = 22
-          Width = 62
-          Height = 13
+          Width = 69
+          Height = 15
           Caption = '&File protocol:'
           Caption = '&File protocol:'
           FocusControl = TransferProtocolCombo
           FocusControl = TransferProtocolCombo
         end
         end
         object FtpsLabel: TLabel
         object FtpsLabel: TLabel
-          Left = 163
+          Left = 178
           Top = 22
           Top = 22
-          Width = 55
-          Height = 13
+          Width = 60
+          Height = 15
           Caption = '&Encryption:'
           Caption = '&Encryption:'
           FocusControl = FtpsCombo
           FocusControl = FtpsCombo
         end
         end
         object WebDavsLabel: TLabel
         object WebDavsLabel: TLabel
-          Left = 163
+          Left = 178
           Top = 22
           Top = 22
-          Width = 55
-          Height = 13
+          Width = 60
+          Height = 15
           Caption = '&Encryption:'
           Caption = '&Encryption:'
           FocusControl = WebDavsCombo
           FocusControl = WebDavsCombo
         end
         end
         object BasicS3Panel: TPanel
         object BasicS3Panel: TPanel
-          Left = 12
-          Top = 195
-          Width = 324
+          Left = 8
+          Top = 192
+          Width = 374
           Height = 31
           Height = 31
           Anchors = [akLeft, akTop, akRight]
           Anchors = [akLeft, akTop, akRight]
           BevelOuter = bvNone
           BevelOuter = bvNone
           TabOrder = 11
           TabOrder = 11
           DesignSize = (
           DesignSize = (
-            324
+            374
             31)
             31)
           object S3CredentialsEnvCheck3: TCheckBox
           object S3CredentialsEnvCheck3: TCheckBox
-            Left = 0
-            Top = 2
-            Width = 324
+            Left = 2
+            Top = 3
+            Width = 374
             Height = 17
             Height = 17
             Anchors = [akLeft, akTop, akRight]
             Anchors = [akLeft, akTop, akRight]
             Caption = '&Credentials from AWS environment:'
             Caption = '&Credentials from AWS environment:'
@@ -183,10 +178,10 @@ object LoginDialog: TLoginDialog
             OnClick = S3CredentialsEnvCheck3Click
             OnClick = S3CredentialsEnvCheck3Click
           end
           end
           object S3ProfileCombo: TComboBox
           object S3ProfileCombo: TComboBox
-            Left = 200
+            Left = 253
             Top = 0
             Top = 0
-            Width = 124
-            Height = 21
+            Width = 121
+            Height = 23
             DropDownCount = 16
             DropDownCount = 16
             TabOrder = 1
             TabOrder = 1
             Text = 'S3ProfileCombo'
             Text = 'S3ProfileCombo'
@@ -194,26 +189,26 @@ object LoginDialog: TLoginDialog
           end
           end
         end
         end
         object EncryptionView: TEdit
         object EncryptionView: TEdit
-          Left = 163
-          Top = 39
-          Width = 173
-          Height = 21
+          Left = 178
+          Top = 40
+          Width = 204
+          Height = 23
           TabOrder = 4
           TabOrder = 4
           OnChange = TransferProtocolComboChange
           OnChange = TransferProtocolComboChange
         end
         end
         object TransferProtocolView: TEdit
         object TransferProtocolView: TEdit
-          Left = 12
-          Top = 39
-          Width = 145
-          Height = 21
+          Left = 8
+          Top = 40
+          Width = 164
+          Height = 23
           TabOrder = 1
           TabOrder = 1
           OnChange = TransferProtocolComboChange
           OnChange = TransferProtocolComboChange
         end
         end
         object HostNameEdit: TEdit
         object HostNameEdit: TEdit
-          Left = 12
-          Top = 89
-          Width = 236
-          Height = 21
+          Left = 8
+          Top = 87
+          Width = 266
+          Height = 23
           Anchors = [akLeft, akTop, akRight]
           Anchors = [akLeft, akTop, akRight]
           MaxLength = 255
           MaxLength = 255
           TabOrder = 5
           TabOrder = 5
@@ -222,20 +217,20 @@ object LoginDialog: TLoginDialog
           OnExit = HostNameEditExit
           OnExit = HostNameEditExit
         end
         end
         object UserNameEdit: TEdit
         object UserNameEdit: TEdit
-          Left = 12
-          Top = 139
-          Width = 159
-          Height = 21
+          Left = 8
+          Top = 134
+          Width = 184
+          Height = 23
           MaxLength = 128
           MaxLength = 128
           TabOrder = 7
           TabOrder = 7
           Text = 'UserNameEdit'
           Text = 'UserNameEdit'
           OnChange = DataChange
           OnChange = DataChange
         end
         end
         object PasswordEdit: TPasswordEdit
         object PasswordEdit: TPasswordEdit
-          Left = 177
-          Top = 139
-          Width = 159
-          Height = 21
+          Left = 198
+          Top = 134
+          Width = 184
+          Height = 23
           Anchors = [akLeft, akTop, akRight]
           Anchors = [akLeft, akTop, akRight]
           MaxLength = 100
           MaxLength = 100
           TabOrder = 8
           TabOrder = 8
@@ -243,10 +238,10 @@ object LoginDialog: TLoginDialog
           OnChange = DataChange
           OnChange = DataChange
         end
         end
         object PortNumberEdit: TUpDownEdit
         object PortNumberEdit: TUpDownEdit
-          Left = 254
-          Top = 89
-          Width = 82
-          Height = 21
+          Left = 280
+          Top = 87
+          Width = 102
+          Height = 23
           Alignment = taRightJustify
           Alignment = taRightJustify
           MaxValue = 65535.000000000000000000
           MaxValue = 65535.000000000000000000
           MinValue = 1.000000000000000000
           MinValue = 1.000000000000000000
@@ -255,10 +250,10 @@ object LoginDialog: TLoginDialog
           OnChange = PortNumberEditChange
           OnChange = PortNumberEditChange
         end
         end
         object TransferProtocolCombo: TComboBox
         object TransferProtocolCombo: TComboBox
-          Left = 12
-          Top = 39
-          Width = 145
-          Height = 21
+          Left = 8
+          Top = 40
+          Width = 164
+          Height = 23
           Style = csDropDownList
           Style = csDropDownList
           TabOrder = 0
           TabOrder = 0
           OnChange = TransferProtocolComboChange
           OnChange = TransferProtocolComboChange
@@ -270,10 +265,10 @@ object LoginDialog: TLoginDialog
             'Amazon S3')
             'Amazon S3')
         end
         end
         object FtpsCombo: TComboBox
         object FtpsCombo: TComboBox
-          Left = 163
-          Top = 39
-          Width = 173
-          Height = 21
+          Left = 178
+          Top = 40
+          Width = 204
+          Height = 23
           Style = csDropDownList
           Style = csDropDownList
           TabOrder = 2
           TabOrder = 2
           OnChange = EncryptionComboChange
           OnChange = EncryptionComboChange
@@ -283,10 +278,10 @@ object LoginDialog: TLoginDialog
             'TLS/SSL Explicit encryptionX')
             'TLS/SSL Explicit encryptionX')
         end
         end
         object WebDavsCombo: TComboBox
         object WebDavsCombo: TComboBox
-          Left = 163
-          Top = 39
-          Width = 173
-          Height = 21
+          Left = 178
+          Top = 40
+          Width = 204
+          Height = 23
           Style = csDropDownList
           Style = csDropDownList
           TabOrder = 3
           TabOrder = 3
           OnChange = EncryptionComboChange
           OnChange = EncryptionComboChange
@@ -295,17 +290,17 @@ object LoginDialog: TLoginDialog
             'TLS/SSL Implicit encryptionX')
             'TLS/SSL Implicit encryptionX')
         end
         end
         object BasicFtpPanel: TPanel
         object BasicFtpPanel: TPanel
-          Left = 12
-          Top = 169
-          Width = 324
+          Left = 8
+          Top = 166
+          Width = 374
           Height = 26
           Height = 26
           Anchors = [akLeft, akTop, akRight]
           Anchors = [akLeft, akTop, akRight]
           BevelOuter = bvNone
           BevelOuter = bvNone
           TabOrder = 9
           TabOrder = 9
           object AnonymousLoginCheck: TCheckBox
           object AnonymousLoginCheck: TCheckBox
-            Left = 0
+            Left = 2
             Top = 0
             Top = 0
-            Width = 170
+            Width = 182
             Height = 17
             Height = 17
             Caption = 'A&nonymous login'
             Caption = 'A&nonymous login'
             TabOrder = 0
             TabOrder = 0
@@ -315,16 +310,16 @@ object LoginDialog: TLoginDialog
         object BasicSshPanel: TPanel
         object BasicSshPanel: TPanel
           Left = 12
           Left = 12
           Top = 198
           Top = 198
-          Width = 347
+          Width = 391
           Height = 0
           Height = 0
           Anchors = [akLeft, akTop, akRight]
           Anchors = [akLeft, akTop, akRight]
           BevelOuter = bvNone
           BevelOuter = bvNone
           TabOrder = 10
           TabOrder = 10
         end
         end
         object AdvancedButton: TButton
         object AdvancedButton: TButton
-          Left = 238
-          Top = 224
-          Width = 98
+          Left = 274
+          Top = 221
+          Width = 108
           Height = 25
           Height = 25
           Action = SessionAdvancedAction
           Action = SessionAdvancedAction
           Anchors = [akRight, akBottom]
           Anchors = [akRight, akBottom]
@@ -333,9 +328,9 @@ object LoginDialog: TLoginDialog
           OnDropDownClick = AdvancedButtonDropDownClick
           OnDropDownClick = AdvancedButtonDropDownClick
         end
         end
         object SaveButton: TButton
         object SaveButton: TButton
-          Left = 12
-          Top = 224
-          Width = 98
+          Left = 8
+          Top = 221
+          Width = 108
           Height = 25
           Height = 25
           Action = SaveSessionAction
           Action = SaveSessionAction
           Anchors = [akLeft, akBottom]
           Anchors = [akLeft, akBottom]
@@ -344,9 +339,9 @@ object LoginDialog: TLoginDialog
           OnDropDownClick = SaveButtonDropDownClick
           OnDropDownClick = SaveButtonDropDownClick
         end
         end
         object EditCancelButton: TButton
         object EditCancelButton: TButton
-          Left = 116
-          Top = 224
-          Width = 82
+          Left = 122
+          Top = 221
+          Width = 80
           Height = 25
           Height = 25
           Action = EditCancelAction
           Action = EditCancelAction
           Anchors = [akLeft, akBottom]
           Anchors = [akLeft, akBottom]
@@ -354,9 +349,9 @@ object LoginDialog: TLoginDialog
           OnDropDownClick = SaveButtonDropDownClick
           OnDropDownClick = SaveButtonDropDownClick
         end
         end
         object EditButton: TButton
         object EditButton: TButton
-          Left = 12
-          Top = 224
-          Width = 98
+          Left = 8
+          Top = 221
+          Width = 108
           Height = 25
           Height = 25
           Action = EditSessionAction
           Action = EditSessionAction
           Anchors = [akLeft, akBottom]
           Anchors = [akLeft, akBottom]
@@ -366,20 +361,20 @@ object LoginDialog: TLoginDialog
       end
       end
       object NoteGroup: TGroupBox
       object NoteGroup: TGroupBox
         Left = 2
         Left = 2
-        Top = 278
-        Width = 347
-        Height = 65
+        Top = 272
+        Width = 391
+        Height = 78
         Anchors = [akLeft, akTop, akRight, akBottom]
         Anchors = [akLeft, akTop, akRight, akBottom]
         Caption = 'Note'
         Caption = 'Note'
         TabOrder = 1
         TabOrder = 1
         DesignSize = (
         DesignSize = (
-          347
-          65)
+          391
+          78)
         object NoteMemo: TMemo
         object NoteMemo: TMemo
-          Left = 7
-          Top = 15
-          Width = 333
-          Height = 41
+          Left = 8
+          Top = 17
+          Width = 375
+          Height = 52
           TabStop = False
           TabStop = False
           Anchors = [akLeft, akTop, akRight, akBottom]
           Anchors = [akLeft, akTop, akRight, akBottom]
           BevelInner = bvNone
           BevelInner = bvNone
@@ -394,20 +389,20 @@ object LoginDialog: TLoginDialog
     end
     end
     object ButtonPanel: TPanel
     object ButtonPanel: TPanel
       Left = 0
       Left = 0
-      Top = 346
-      Width = 361
-      Height = 41
+      Top = 353
+      Width = 401
+      Height = 34
       Align = alBottom
       Align = alBottom
       BevelOuter = bvNone
       BevelOuter = bvNone
       TabOrder = 2
       TabOrder = 2
       OnMouseDown = PanelMouseDown
       OnMouseDown = PanelMouseDown
       DesignSize = (
       DesignSize = (
-        361
-        41)
+        401
+        34)
       object LoginButton: TButton
       object LoginButton: TButton
-        Left = 75
-        Top = 10
-        Width = 98
+        Left = 113
+        Top = 3
+        Width = 108
         Height = 25
         Height = 25
         Action = LoginAction
         Action = LoginAction
         Anchors = [akRight, akBottom]
         Anchors = [akRight, akBottom]
@@ -419,9 +414,9 @@ object LoginDialog: TLoginDialog
         OnDropDownClick = LoginButtonDropDownClick
         OnDropDownClick = LoginButtonDropDownClick
       end
       end
       object CloseButton: TButton
       object CloseButton: TButton
-        Left = 179
-        Top = 10
-        Width = 82
+        Left = 227
+        Top = 3
+        Width = 80
         Height = 25
         Height = 25
         Anchors = [akRight, akBottom]
         Anchors = [akRight, akBottom]
         Cancel = True
         Cancel = True
@@ -430,9 +425,9 @@ object LoginDialog: TLoginDialog
         TabOrder = 1
         TabOrder = 1
       end
       end
       object HelpButton: TButton
       object HelpButton: TButton
-        Left = 267
-        Top = 10
-        Width = 82
+        Left = 313
+        Top = 3
+        Width = 80
         Height = 25
         Height = 25
         Anchors = [akRight, akBottom]
         Anchors = [akRight, akBottom]
         Caption = 'Help'
         Caption = 'Help'
@@ -444,19 +439,19 @@ object LoginDialog: TLoginDialog
   object SitesPanel: TPanel
   object SitesPanel: TPanel
     Left = 0
     Left = 0
     Top = 0
     Top = 0
-    Width = 512
+    Width = 472
     Height = 387
     Height = 387
     Align = alClient
     Align = alClient
     BevelOuter = bvNone
     BevelOuter = bvNone
     TabOrder = 2
     TabOrder = 2
     DesignSize = (
     DesignSize = (
-      512
+      472
       387)
       387)
     object SessionTree: TTreeView
     object SessionTree: TTreeView
-      Left = 11
-      Top = 12
-      Width = 490
-      Height = 338
+      Left = 8
+      Top = 8
+      Width = 456
+      Height = 342
       Anchors = [akLeft, akTop, akRight, akBottom]
       Anchors = [akLeft, akTop, akRight, akBottom]
       DoubleBuffered = True
       DoubleBuffered = True
       DragMode = dmAutomatic
       DragMode = dmAutomatic
@@ -490,9 +485,9 @@ object LoginDialog: TLoginDialog
       OnStartDrag = SessionTreeStartDrag
       OnStartDrag = SessionTreeStartDrag
     end
     end
     object ManageButton: TButton
     object ManageButton: TButton
-      Left = 403
+      Left = 356
       Top = 356
       Top = 356
-      Width = 98
+      Width = 108
       Height = 25
       Height = 25
       Anchors = [akRight, akBottom]
       Anchors = [akRight, akBottom]
       Caption = '&Manage'
       Caption = '&Manage'
@@ -500,9 +495,9 @@ object LoginDialog: TLoginDialog
       OnClick = ManageButtonClick
       OnClick = ManageButtonClick
     end
     end
     object ToolsMenuButton: TButton
     object ToolsMenuButton: TButton
-      Left = 11
+      Left = 8
       Top = 356
       Top = 356
-      Width = 98
+      Width = 108
       Height = 25
       Height = 25
       Anchors = [akLeft, akBottom]
       Anchors = [akLeft, akBottom]
       Caption = '&Tools'
       Caption = '&Tools'
@@ -512,7 +507,7 @@ object LoginDialog: TLoginDialog
     object SitesIncrementalSearchPanel: TPanel
     object SitesIncrementalSearchPanel: TPanel
       Left = 26
       Left = 26
       Top = 309
       Top = 309
-      Width = 183
+      Width = 139
       Height = 23
       Height = 23
       Anchors = [akLeft, akRight, akBottom]
       Anchors = [akLeft, akRight, akBottom]
       BevelOuter = bvNone
       BevelOuter = bvNone
@@ -522,7 +517,7 @@ object LoginDialog: TLoginDialog
       object SitesIncrementalSearchBorderLabel: TStaticText
       object SitesIncrementalSearchBorderLabel: TStaticText
         Left = 0
         Left = 0
         Top = 0
         Top = 0
-        Width = 183
+        Width = 139
         Height = 23
         Height = 23
         Align = alClient
         Align = alClient
         AutoSize = False
         AutoSize = False
@@ -532,8 +527,8 @@ object LoginDialog: TLoginDialog
       object SitesIncrementalSearchLabel: TStaticText
       object SitesIncrementalSearchLabel: TStaticText
         Left = 5
         Left = 5
         Top = 4
         Top = 4
-        Width = 142
-        Height = 17
+        Width = 154
+        Height = 19
         Caption = 'SitesIncrementalSearchLabel'
         Caption = 'SitesIncrementalSearchLabel'
         ShowAccelChar = False
         ShowAccelChar = False
         TabOrder = 1
         TabOrder = 1

+ 4 - 7
source/forms/MessageDlg.cpp

@@ -451,7 +451,7 @@ const ResourceString * Captions[] = { &_SMsgDlgWarning, &_SMsgDlgError, &_SMsgDl
   &_SMsgDlgConfirm, NULL };
   &_SMsgDlgConfirm, NULL };
 const wchar_t * ImageNames[] = { L"Warning", L"Error", L"Information",
 const wchar_t * ImageNames[] = { L"Warning", L"Error", L"Information",
   L"Help Blue", NULL };
   L"Help Blue", NULL };
-const int mcHorzMargin = 10;
+const int mcHorzMargin = 8;
 const int mcVertMargin = 13;
 const int mcVertMargin = 13;
 const int mcHorzSpacing = 12;
 const int mcHorzSpacing = 12;
 const int mcButtonVertMargin = 7;
 const int mcButtonVertMargin = 7;
@@ -608,11 +608,8 @@ TButton * __fastcall TMessageForm::CreateButton(
       Button->Anchors = TAnchors() << akBottom << akLeft;
       Button->Anchors = TAnchors() << akBottom << akLeft;
     }
     }
 
 
-    // never shrink buttons below their default width
-    if (Button->Width < CurButtonWidth)
-    {
-      Button->Width = CurButtonWidth;
-    }
+    // never shrink buttons below our default UI button with
+    Button->Width = std::max(ScaleByTextHeightRunTime(this, 80), CurButtonWidth);
 
 
     Button->ElevationRequired = ElevationRequired;
     Button->ElevationRequired = ElevationRequired;
     ButtonWidths += Button->Width;
     ButtonWidths += Button->Width;
@@ -1213,7 +1210,7 @@ TForm * __fastcall TMessageForm::Create(const UnicodeString & Msg,
     TButton * FirstButton = ButtonControls[0];
     TButton * FirstButton = ButtonControls[0];
     int NeverAskAgainHeight = ScaleByTextHeightRunTime(Result, Result->NeverAskAgainCheck->Height);
     int NeverAskAgainHeight = ScaleByTextHeightRunTime(Result, Result->NeverAskAgainCheck->Height);
     int NeverAskAgainTop = FirstButton->Top + ((FirstButton->Height - NeverAskAgainHeight) / 2);
     int NeverAskAgainTop = FirstButton->Top + ((FirstButton->Height - NeverAskAgainHeight) / 2);
-    int NeverAskAgainLeft = HorzMargin;
+    int NeverAskAgainLeft = HorzMargin + ScaleByTextHeightRunTime(Result, 2); // checkbox indentation
 
 
     Result->NeverAskAgainCheck->SetBounds(
     Result->NeverAskAgainCheck->SetBounds(
       NeverAskAgainLeft, NeverAskAgainTop, NeverAskAgainBaseWidth, NeverAskAgainHeight);
       NeverAskAgainLeft, NeverAskAgainTop, NeverAskAgainBaseWidth, NeverAskAgainHeight);

+ 2 - 6
source/forms/MessageDlg.dfm

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

+ 72 - 76
source/forms/OpenDirectory.dfm

@@ -6,25 +6,21 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'Open directory'
   Caption = 'Open directory'
-  ClientHeight = 334
-  ClientWidth = 405
+  ClientHeight = 342
+  ClientWidth = 450
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnShow = FormShow
   OnShow = FormShow
   DesignSize = (
   DesignSize = (
-    405
-    334)
-  TextHeight = 13
+    450
+    342)
+  TextHeight = 15
   object EditLabel: TLabel
   object EditLabel: TLabel
     Left = 46
     Left = 46
     Top = 8
     Top = 8
-    Width = 76
-    Height = 13
+    Width = 82
+    Height = 15
     Caption = '&Open directory:'
     Caption = '&Open directory:'
   end
   end
   object Image: TImage
   object Image: TImage
@@ -36,9 +32,9 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
   end
   end
   object LocalDirectoryEdit: THistoryComboBox
   object LocalDirectoryEdit: THistoryComboBox
     Left = 46
     Left = 46
-    Top = 25
-    Width = 270
-    Height = 21
+    Top = 26
+    Width = 310
+    Height = 23
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     TabOrder = 1
     TabOrder = 1
     Text = 'LocalDirectoryEdit'
     Text = 'LocalDirectoryEdit'
@@ -47,9 +43,9 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
   end
   end
   object RemoteDirectoryEdit: THistoryComboBox
   object RemoteDirectoryEdit: THistoryComboBox
     Left = 46
     Left = 46
-    Top = 25
-    Width = 351
-    Height = 21
+    Top = 26
+    Width = 396
+    Height = 23
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     DropDownCount = 16
     DropDownCount = 16
     MaxLength = 1000
     MaxLength = 1000
@@ -59,9 +55,9 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
     SaveOn = []
     SaveOn = []
   end
   end
   object OKBtn: TButton
   object OKBtn: TButton
-    Left = 159
-    Top = 300
-    Width = 75
+    Left = 190
+    Top = 309
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = 'OK'
     Caption = 'OK'
@@ -70,9 +66,9 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
     TabOrder = 5
     TabOrder = 5
   end
   end
   object CancelBtn: TButton
   object CancelBtn: TButton
-    Left = 239
-    Top = 300
-    Width = 75
+    Left = 276
+    Top = 309
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Cancel = True
     Cancel = True
@@ -82,9 +78,9 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
   end
   end
   object PageControl: TPageControl
   object PageControl: TPageControl
     Left = 8
     Left = 8
-    Top = 56
-    Width = 386
-    Height = 235
+    Top = 55
+    Width = 434
+    Height = 248
     ActivePage = SessionBookmarksSheet
     ActivePage = SessionBookmarksSheet
     Anchors = [akLeft, akTop, akRight, akBottom]
     Anchors = [akLeft, akTop, akRight, akBottom]
     TabOrder = 3
     TabOrder = 3
@@ -93,17 +89,17 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
       Tag = 1
       Tag = 1
       Caption = 'Site bookmarks'
       Caption = 'Site bookmarks'
       DesignSize = (
       DesignSize = (
-        378
-        207)
+        426
+        218)
       object SessionBookmarksList: TListBox
       object SessionBookmarksList: TListBox
         Tag = 1
         Tag = 1
-        Left = 10
-        Top = 9
-        Width = 268
-        Height = 187
+        Left = 5
+        Top = 5
+        Width = 328
+        Height = 207
         Anchors = [akLeft, akTop, akRight, akBottom]
         Anchors = [akLeft, akTop, akRight, akBottom]
         DragMode = dmAutomatic
         DragMode = dmAutomatic
-        ItemHeight = 13
+        ItemHeight = 15
         TabOrder = 0
         TabOrder = 0
         OnClick = BookmarksListClick
         OnClick = BookmarksListClick
         OnDblClick = BookmarksListDblClick
         OnDblClick = BookmarksListDblClick
@@ -115,9 +111,9 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
       end
       end
       object AddSessionBookmarkButton: TButton
       object AddSessionBookmarkButton: TButton
         Tag = 1
         Tag = 1
-        Left = 285
-        Top = 9
-        Width = 83
+        Left = 339
+        Top = 5
+        Width = 80
         Height = 25
         Height = 25
         Anchors = [akTop, akRight]
         Anchors = [akTop, akRight]
         Caption = '&Add'
         Caption = '&Add'
@@ -126,9 +122,9 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
       end
       end
       object RemoveSessionBookmarkButton: TButton
       object RemoveSessionBookmarkButton: TButton
         Tag = 1
         Tag = 1
-        Left = 285
-        Top = 41
-        Width = 83
+        Left = 339
+        Top = 36
+        Width = 80
         Height = 25
         Height = 25
         Anchors = [akTop, akRight]
         Anchors = [akTop, akRight]
         Caption = 'Remo&ve'
         Caption = 'Remo&ve'
@@ -137,9 +133,9 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
       end
       end
       object UpSessionBookmarkButton: TButton
       object UpSessionBookmarkButton: TButton
         Tag = -1
         Tag = -1
-        Left = 285
-        Top = 139
-        Width = 83
+        Left = 339
+        Top = 156
+        Width = 80
         Height = 25
         Height = 25
         Anchors = [akRight, akBottom]
         Anchors = [akRight, akBottom]
         Caption = '&Up'
         Caption = '&Up'
@@ -148,9 +144,9 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
       end
       end
       object DownSessionBookmarkButton: TButton
       object DownSessionBookmarkButton: TButton
         Tag = 1
         Tag = 1
-        Left = 285
-        Top = 171
-        Width = 83
+        Left = 339
+        Top = 187
+        Width = 80
         Height = 25
         Height = 25
         Anchors = [akRight, akBottom]
         Anchors = [akRight, akBottom]
         Caption = '&Down'
         Caption = '&Down'
@@ -163,17 +159,17 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
       Caption = 'Shared bookmarks'
       Caption = 'Shared bookmarks'
       ImageIndex = 1
       ImageIndex = 1
       DesignSize = (
       DesignSize = (
-        378
-        207)
+        426
+        218)
       object SharedBookmarksList: TListBox
       object SharedBookmarksList: TListBox
         Tag = 2
         Tag = 2
-        Left = 10
-        Top = 9
-        Width = 268
-        Height = 187
+        Left = 5
+        Top = 5
+        Width = 328
+        Height = 207
         Anchors = [akLeft, akTop, akRight, akBottom]
         Anchors = [akLeft, akTop, akRight, akBottom]
         DragMode = dmAutomatic
         DragMode = dmAutomatic
-        ItemHeight = 13
+        ItemHeight = 15
         TabOrder = 0
         TabOrder = 0
         OnClick = BookmarksListClick
         OnClick = BookmarksListClick
         OnDblClick = BookmarksListDblClick
         OnDblClick = BookmarksListDblClick
@@ -185,9 +181,9 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
       end
       end
       object AddSharedBookmarkButton: TButton
       object AddSharedBookmarkButton: TButton
         Tag = 2
         Tag = 2
-        Left = 285
-        Top = 9
-        Width = 83
+        Left = 339
+        Top = 5
+        Width = 80
         Height = 25
         Height = 25
         Anchors = [akTop, akRight]
         Anchors = [akTop, akRight]
         Caption = '&Add'
         Caption = '&Add'
@@ -196,9 +192,9 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
       end
       end
       object RemoveSharedBookmarkButton: TButton
       object RemoveSharedBookmarkButton: TButton
         Tag = 2
         Tag = 2
-        Left = 285
-        Top = 41
-        Width = 83
+        Left = 339
+        Top = 36
+        Width = 80
         Height = 25
         Height = 25
         Anchors = [akTop, akRight]
         Anchors = [akTop, akRight]
         Caption = '&Remove'
         Caption = '&Remove'
@@ -207,9 +203,9 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
       end
       end
       object UpSharedBookmarkButton: TButton
       object UpSharedBookmarkButton: TButton
         Tag = -2
         Tag = -2
-        Left = 285
-        Top = 139
-        Width = 83
+        Left = 339
+        Top = 156
+        Width = 80
         Height = 25
         Height = 25
         Anchors = [akRight, akBottom]
         Anchors = [akRight, akBottom]
         Caption = '&Up'
         Caption = '&Up'
@@ -218,9 +214,9 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
       end
       end
       object DownSharedBookmarkButton: TButton
       object DownSharedBookmarkButton: TButton
         Tag = 2
         Tag = 2
-        Left = 285
-        Top = 171
-        Width = 83
+        Left = 339
+        Top = 187
+        Width = 80
         Height = 25
         Height = 25
         Anchors = [akRight, akBottom]
         Anchors = [akRight, akBottom]
         Caption = '&Down'
         Caption = '&Down'
@@ -229,9 +225,9 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
       end
       end
       object ShortCutSharedBookmarkButton: TButton
       object ShortCutSharedBookmarkButton: TButton
         Tag = 2
         Tag = 2
-        Left = 285
-        Top = 73
-        Width = 83
+        Left = 339
+        Top = 67
+        Width = 80
         Height = 25
         Height = 25
         Anchors = [akTop, akRight]
         Anchors = [akTop, akRight]
         Caption = '&Shortcut...'
         Caption = '&Shortcut...'
@@ -241,9 +237,9 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
     end
     end
   end
   end
   object LocalDirectoryBrowseButton: TButton
   object LocalDirectoryBrowseButton: TButton
-    Left = 320
-    Top = 23
-    Width = 75
+    Left = 362
+    Top = 25
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akTop, akRight]
     Anchors = [akTop, akRight]
     Caption = 'B&rowse...'
     Caption = 'B&rowse...'
@@ -252,8 +248,8 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
   end
   end
   object SwitchButton: TButton
   object SwitchButton: TButton
     Left = 8
     Left = 8
-    Top = 300
-    Width = 121
+    Top = 309
+    Width = 134
     Height = 25
     Height = 25
     Anchors = [akLeft, akBottom]
     Anchors = [akLeft, akBottom]
     Caption = '&Location Profiles...'
     Caption = '&Location Profiles...'
@@ -262,9 +258,9 @@ object OpenDirectoryDialog: TOpenDirectoryDialog
     OnClick = SwitchButtonClick
     OnClick = SwitchButtonClick
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 320
-    Top = 300
-    Width = 75
+    Left = 362
+    Top = 309
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = '&Help'
     Caption = '&Help'

+ 2 - 2
source/forms/Preferences.cpp

@@ -1411,7 +1411,7 @@ void __fastcall TPreferencesDialog::UpdateControls()
     }
     }
     EnableControl(DDDrivesMemo, DDFakeFileEnabledButton->Checked);
     EnableControl(DDDrivesMemo, DDFakeFileEnabledButton->Checked);
     EnableControl(DDDrivesLabel, DDDrivesMemo->Enabled);
     EnableControl(DDDrivesLabel, DDDrivesMemo->Enabled);
-    EnableControl(DDFakeFileDisabledPanel, DDFakeFileDisabledButton->Checked);
+    EnableControl(DDWarnLackOfTempSpaceCheck, DDFakeFileDisabledButton->Checked);
     EnableControl(DDTemporaryDirectoryEdit, DDCustomTemporaryDirectoryButton->Enabled &&
     EnableControl(DDTemporaryDirectoryEdit, DDCustomTemporaryDirectoryButton->Enabled &&
       DDCustomTemporaryDirectoryButton->Checked);
       DDCustomTemporaryDirectoryButton->Checked);
     EnableControl(ConfirmTemporaryDirectoryCleanupCheck,
     EnableControl(ConfirmTemporaryDirectoryCleanupCheck,
@@ -2763,7 +2763,7 @@ void __fastcall TPreferencesDialog::AddExtension()
   std::unique_ptr<TStrings> History(CloneStrings(CustomWinConfiguration->History[HistoryKey]));
   std::unique_ptr<TStrings> History(CloneStrings(CustomWinConfiguration->History[HistoryKey]));
   UnicodeString Path;
   UnicodeString Path;
   if (InputDialog(LoadStr(ADD_EXTENSION_CAPTION), LoadStr(ADD_EXTENSION_PROMPT), Path,
   if (InputDialog(LoadStr(ADD_EXTENSION_CAPTION), LoadStr(ADD_EXTENSION_PROMPT), Path,
-        HELP_ADD_EXTENSION, History.get(), true, NULL, true, 400) &&
+        HELP_ADD_EXTENSION, History.get(), true, NULL, true, 444) &&
       !Path.IsEmpty())
       !Path.IsEmpty())
   {
   {
     CustomWinConfiguration->History[HistoryKey] = History.get();
     CustomWinConfiguration->History[HistoryKey] = History.get();

文件差异内容过多而无法显示
+ 249 - 249
source/forms/Preferences.dfm


+ 0 - 1
source/forms/Preferences.h

@@ -87,7 +87,6 @@ __published:
   TLabel *DDFakeFileDisabledLabel;
   TLabel *DDFakeFileDisabledLabel;
   TRadioButton *DDFakeFileEnabledButton;
   TRadioButton *DDFakeFileEnabledButton;
   TRadioButton *DDFakeFileDisabledButton;
   TRadioButton *DDFakeFileDisabledButton;
-  TPanel *DDFakeFileDisabledPanel;
   TCheckBox *DDWarnLackOfTempSpaceCheck;
   TCheckBox *DDWarnLackOfTempSpaceCheck;
   TCheckBox *ConfirmExitOnCompletionCheck;
   TCheckBox *ConfirmExitOnCompletionCheck;
   TTabSheet *QueueSheet;
   TTabSheet *QueueSheet;

+ 58 - 62
source/forms/Progress.dfm

@@ -6,22 +6,18 @@ object ProgressForm: TProgressForm
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'Operation'
   Caption = 'Operation'
-  ClientHeight = 291
-  ClientWidth = 360
+  ClientHeight = 294
+  ClientWidth = 398
   Color = clWindow
   Color = clWindow
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   PopupMode = pmAuto
   PopupMode = pmAuto
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnHide = FormHide
   OnHide = FormHide
   OnShow = FormShow
   OnShow = FormShow
   DesignSize = (
   DesignSize = (
-    360
-    291)
-  TextHeight = 13
+    398
+    294)
+  TextHeight = 15
   object AnimationPaintBox: TPaintBox
   object AnimationPaintBox: TPaintBox
     Left = 8
     Left = 8
     Top = 11
     Top = 11
@@ -31,28 +27,28 @@ object ProgressForm: TProgressForm
   object MainPanel: TPanel
   object MainPanel: TPanel
     Left = 50
     Left = 50
     Top = 7
     Top = 7
-    Width = 302
-    Height = 68
+    Width = 340
+    Height = 69
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     BevelOuter = bvNone
     BevelOuter = bvNone
     ParentColor = True
     ParentColor = True
     TabOrder = 0
     TabOrder = 0
     DesignSize = (
     DesignSize = (
-      302
-      68)
+      340
+      69)
     object PathLabel: TLabel
     object PathLabel: TLabel
       Left = 0
       Left = 0
       Top = 7
       Top = 7
-      Width = 26
-      Height = 13
+      Width = 28
+      Height = 15
       Caption = 'FileX:'
       Caption = 'FileX:'
       ShowAccelChar = False
       ShowAccelChar = False
     end
     end
     object FileLabel: TPathLabel
     object FileLabel: TPathLabel
       Left = 56
       Left = 56
       Top = 7
       Top = 7
-      Width = 246
-      Height = 13
+      Width = 284
+      Height = 15
       IndentHorizontal = 0
       IndentHorizontal = 0
       IndentVertical = 0
       IndentVertical = 0
       Align = alNone
       Align = alNone
@@ -61,17 +57,17 @@ object ProgressForm: TProgressForm
     end
     end
     object TargetLabel: TLabel
     object TargetLabel: TLabel
       Left = 0
       Left = 0
-      Top = 23
+      Top = 25
       Width = 36
       Width = 36
-      Height = 13
+      Height = 15
       Caption = 'Target:'
       Caption = 'Target:'
       ShowAccelChar = False
       ShowAccelChar = False
     end
     end
     object TargetPathLabel: TPathLabel
     object TargetPathLabel: TPathLabel
       Left = 56
       Left = 56
-      Top = 23
-      Width = 246
-      Height = 13
+      Top = 25
+      Width = 284
+      Height = 15
       IndentHorizontal = 0
       IndentHorizontal = 0
       IndentVertical = 0
       IndentVertical = 0
       Align = alNone
       Align = alNone
@@ -80,8 +76,8 @@ object ProgressForm: TProgressForm
     end
     end
     object OperationProgress: TProgressBar
     object OperationProgress: TProgressBar
       Left = 0
       Left = 0
-      Top = 42
-      Width = 302
+      Top = 43
+      Width = 340
       Height = 16
       Height = 16
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       ParentShowHint = False
       ParentShowHint = False
@@ -91,28 +87,28 @@ object ProgressForm: TProgressForm
   end
   end
   object TransferPanel: TPanel
   object TransferPanel: TPanel
     Left = 50
     Left = 50
-    Top = 75
-    Width = 322
-    Height = 63
+    Top = 76
+    Width = 360
+    Height = 64
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     BevelOuter = bvNone
     BevelOuter = bvNone
     ParentColor = True
     ParentColor = True
     TabOrder = 1
     TabOrder = 1
     DesignSize = (
     DesignSize = (
-      322
-      63)
+      360
+      64)
     object StartTimeLabel: TLabel
     object StartTimeLabel: TLabel
-      Left = 88
+      Left = 104
       Top = 2
       Top = 2
       Width = 65
       Width = 65
-      Height = 13
+      Height = 15
       Alignment = taRightJustify
       Alignment = taRightJustify
       AutoSize = False
       AutoSize = False
       Caption = '00:00:00'
       Caption = '00:00:00'
       ShowAccelChar = False
       ShowAccelChar = False
     end
     end
     object TimeLeftLabel: TLabel
     object TimeLeftLabel: TLabel
-      Left = 88
+      Left = 104
       Top = 2
       Top = 2
       Width = 65
       Width = 65
       Height = 13
       Height = 13
@@ -124,16 +120,16 @@ object ProgressForm: TProgressForm
     object TimeLeftLabelLabel: TLabel
     object TimeLeftLabelLabel: TLabel
       Left = 0
       Left = 0
       Top = 2
       Top = 2
-      Width = 45
-      Height = 13
+      Width = 50
+      Height = 15
       Caption = 'Time left:'
       Caption = 'Time left:'
       ShowAccelChar = False
       ShowAccelChar = False
     end
     end
     object CPSLabel: TLabel
     object CPSLabel: TLabel
-      Left = 237
-      Top = 18
-      Width = 65
-      Height = 13
+      Left = 266
+      Top = 20
+      Width = 74
+      Height = 15
       Alignment = taRightJustify
       Alignment = taRightJustify
       Anchors = [akTop, akRight]
       Anchors = [akTop, akRight]
       AutoSize = False
       AutoSize = False
@@ -141,10 +137,10 @@ object ProgressForm: TProgressForm
       ShowAccelChar = False
       ShowAccelChar = False
     end
     end
     object TimeElapsedLabel: TLabel
     object TimeElapsedLabel: TLabel
-      Left = 237
+      Left = 266
       Top = 2
       Top = 2
-      Width = 65
-      Height = 13
+      Width = 74
+      Height = 15
       Alignment = taRightJustify
       Alignment = taRightJustify
       Anchors = [akTop, akRight]
       Anchors = [akTop, akRight]
       AutoSize = False
       AutoSize = False
@@ -152,20 +148,20 @@ object ProgressForm: TProgressForm
       ShowAccelChar = False
       ShowAccelChar = False
     end
     end
     object BytesTransferredLabel: TLabel
     object BytesTransferredLabel: TLabel
-      Left = 88
-      Top = 18
+      Left = 104
+      Top = 20
       Width = 65
       Width = 65
-      Height = 13
+      Height = 15
       Alignment = taRightJustify
       Alignment = taRightJustify
       AutoSize = False
       AutoSize = False
       Caption = '0 KB'
       Caption = '0 KB'
       ShowAccelChar = False
       ShowAccelChar = False
     end
     end
     object Label3: TLabel
     object Label3: TLabel
-      Left = 165
+      Left = 190
       Top = 2
       Top = 2
-      Width = 66
-      Height = 13
+      Width = 73
+      Height = 15
       Anchors = [akTop, akRight]
       Anchors = [akTop, akRight]
       Caption = 'Time elapsed:'
       Caption = 'Time elapsed:'
       ShowAccelChar = False
       ShowAccelChar = False
@@ -173,32 +169,32 @@ object ProgressForm: TProgressForm
     object StartTimeLabelLabel: TLabel
     object StartTimeLabelLabel: TLabel
       Left = 0
       Left = 0
       Top = 2
       Top = 2
-      Width = 51
-      Height = 13
+      Width = 54
+      Height = 15
       Caption = 'Start time:'
       Caption = 'Start time:'
       ShowAccelChar = False
       ShowAccelChar = False
     end
     end
     object Label4: TLabel
     object Label4: TLabel
       Left = 0
       Left = 0
-      Top = 18
-      Width = 89
-      Height = 13
+      Top = 20
+      Width = 91
+      Height = 15
       Caption = 'Bytes transferred:'
       Caption = 'Bytes transferred:'
       ShowAccelChar = False
       ShowAccelChar = False
     end
     end
     object Label12: TLabel
     object Label12: TLabel
-      Left = 165
-      Top = 18
-      Width = 34
-      Height = 13
+      Left = 190
+      Top = 20
+      Width = 35
+      Height = 15
       Anchors = [akTop, akRight]
       Anchors = [akTop, akRight]
       Caption = 'Speed:'
       Caption = 'Speed:'
       ShowAccelChar = False
       ShowAccelChar = False
     end
     end
     object FileProgress: TProgressBar
     object FileProgress: TProgressBar
       Left = 0
       Left = 0
-      Top = 37
-      Width = 302
+      Top = 38
+      Width = 340
       Height = 16
       Height = 16
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       ParentShowHint = False
       ParentShowHint = False
@@ -208,7 +204,7 @@ object ProgressForm: TProgressForm
   end
   end
   object ToolbarPanel: TPanel
   object ToolbarPanel: TPanel
     Left = 50
     Left = 50
-    Top = 142
+    Top = 145
     Width = 302
     Width = 302
     Height = 28
     Height = 28
     Anchors = [akLeft, akBottom]
     Anchors = [akLeft, akBottom]
@@ -305,8 +301,8 @@ object ProgressForm: TProgressForm
   end
   end
   object ComponentsPanel: TPanel
   object ComponentsPanel: TPanel
     Left = 0
     Left = 0
-    Top = 181
-    Width = 360
+    Top = 184
+    Width = 398
     Height = 110
     Height = 110
     Align = alBottom
     Align = alBottom
     BevelEdges = [beTop]
     BevelEdges = [beTop]

+ 121 - 125
source/forms/Properties.dfm

@@ -6,25 +6,21 @@ object PropertiesDialog: TPropertiesDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'Properties'
   Caption = 'Properties'
-  ClientHeight = 416
-  ClientWidth = 357
+  ClientHeight = 424
+  ClientWidth = 398
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnCloseQuery = FormCloseQuery
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow
   OnShow = FormShow
   DesignSize = (
   DesignSize = (
-    357
-    416)
-  TextHeight = 13
+    398
+    424)
+  TextHeight = 15
   object OkButton: TButton
   object OkButton: TButton
-    Left = 99
-    Top = 386
-    Width = 75
+    Left = 138
+    Top = 391
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = 'OK'
     Caption = 'OK'
@@ -33,9 +29,9 @@ object PropertiesDialog: TPropertiesDialog
     TabOrder = 1
     TabOrder = 1
   end
   end
   object CancelButton: TButton
   object CancelButton: TButton
-    Left = 187
-    Top = 386
-    Width = 75
+    Left = 224
+    Top = 391
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Cancel = True
     Cancel = True
@@ -44,10 +40,10 @@ object PropertiesDialog: TPropertiesDialog
     TabOrder = 2
     TabOrder = 2
   end
   end
   object PageControl: TPageControl
   object PageControl: TPageControl
-    Left = 5
-    Top = 5
-    Width = 346
-    Height = 374
+    Left = 0
+    Top = 0
+    Width = 398
+    Height = 385
     ActivePage = CommonSheet
     ActivePage = CommonSheet
     Anchors = [akLeft, akTop, akRight, akBottom]
     Anchors = [akLeft, akTop, akRight, akBottom]
     TabOrder = 0
     TabOrder = 0
@@ -55,99 +51,99 @@ object PropertiesDialog: TPropertiesDialog
     object CommonSheet: TTabSheet
     object CommonSheet: TTabSheet
       Caption = 'Common'
       Caption = 'Common'
       DesignSize = (
       DesignSize = (
-        338
-        346)
+        390
+        355)
       object Bevel1: TBevel
       object Bevel1: TBevel
-        Left = 8
-        Top = 47
-        Width = 320
+        Left = 5
+        Top = 44
+        Width = 378
         Height = 9
         Height = 9
         Anchors = [akLeft, akTop, akRight]
         Anchors = [akLeft, akTop, akRight]
         Shape = bsTopLine
         Shape = bsTopLine
       end
       end
       object Label1: TLabel
       object Label1: TLabel
-        Left = 8
-        Top = 58
-        Width = 44
-        Height = 13
+        Left = 5
+        Top = 55
+        Width = 49
+        Height = 15
         Caption = 'Location:'
         Caption = 'Location:'
         ShowAccelChar = False
         ShowAccelChar = False
       end
       end
       object Label2: TLabel
       object Label2: TLabel
-        Left = 8
-        Top = 80
+        Left = 5
+        Top = 78
         Width = 23
         Width = 23
-        Height = 13
+        Height = 15
         Caption = 'Size:'
         Caption = 'Size:'
         ShowAccelChar = False
         ShowAccelChar = False
       end
       end
       object LinksToLabelLabel: TLabel
       object LinksToLabelLabel: TLabel
-        Left = 8
-        Top = 102
-        Width = 40
-        Height = 13
+        Left = 5
+        Top = 101
+        Width = 44
+        Height = 15
         Caption = 'Links to:'
         Caption = 'Links to:'
         ShowAccelChar = False
         ShowAccelChar = False
       end
       end
       object Bevel2: TBevel
       object Bevel2: TBevel
-        Left = 8
-        Top = 125
-        Width = 320
+        Left = 5
+        Top = 124
+        Width = 378
         Height = 9
         Height = 9
         Anchors = [akLeft, akTop, akRight]
         Anchors = [akLeft, akTop, akRight]
         Shape = bsTopLine
         Shape = bsTopLine
       end
       end
       object RightsLabel: TLabel
       object RightsLabel: TLabel
-        Left = 8
-        Top = 203
-        Width = 59
-        Height = 13
+        Left = 5
+        Top = 201
+        Width = 66
+        Height = 15
         Caption = 'Permissions:'
         Caption = 'Permissions:'
         FocusControl = RightsFrame
         FocusControl = RightsFrame
       end
       end
       object GroupOwnerRightsBevel: TBevel
       object GroupOwnerRightsBevel: TBevel
-        Left = 8
-        Top = 193
-        Width = 320
+        Left = 5
+        Top = 190
+        Width = 378
         Height = 9
         Height = 9
         Anchors = [akLeft, akTop, akRight]
         Anchors = [akLeft, akTop, akRight]
         Shape = bsTopLine
         Shape = bsTopLine
       end
       end
       object GroupLabel: TLabel
       object GroupLabel: TLabel
-        Left = 8
-        Top = 166
-        Width = 33
-        Height = 13
+        Left = 5
+        Top = 162
+        Width = 36
+        Height = 15
         Caption = 'Group:'
         Caption = 'Group:'
         FocusControl = GroupComboBox
         FocusControl = GroupComboBox
       end
       end
       object OwnerLabel: TLabel
       object OwnerLabel: TLabel
-        Left = 8
-        Top = 138
-        Width = 36
-        Height = 13
+        Left = 5
+        Top = 136
+        Width = 38
+        Height = 15
         Caption = 'Owner:'
         Caption = 'Owner:'
         FocusControl = OwnerComboBox
         FocusControl = OwnerComboBox
       end
       end
       object FileIconImage: TImage
       object FileIconImage: TImage
-        Left = 11
-        Top = 8
+        Left = 8
+        Top = 5
         Width = 32
         Width = 32
         Height = 32
         Height = 32
         AutoSize = True
         AutoSize = True
       end
       end
       object RecursiveBevel: TBevel
       object RecursiveBevel: TBevel
-        Left = 8
-        Top = 312
-        Width = 320
+        Left = 5
+        Top = 322
+        Width = 378
         Height = 9
         Height = 9
         Anchors = [akLeft, akTop, akRight]
         Anchors = [akLeft, akTop, akRight]
         Shape = bsTopLine
         Shape = bsTopLine
       end
       end
       object LocationLabel: TEdit
       object LocationLabel: TEdit
-        Left = 85
-        Top = 58
-        Width = 241
+        Left = 90
+        Top = 55
+        Width = 293
         Height = 17
         Height = 17
         TabStop = False
         TabStop = False
         Anchors = [akLeft, akTop, akRight]
         Anchors = [akLeft, akTop, akRight]
@@ -157,9 +153,9 @@ object PropertiesDialog: TPropertiesDialog
         Text = 'LocationLabel'
         Text = 'LocationLabel'
       end
       end
       object FileLabel: TEdit
       object FileLabel: TEdit
-        Left = 85
-        Top = 18
-        Width = 241
+        Left = 90
+        Top = 13
+        Width = 293
         Height = 17
         Height = 17
         TabStop = False
         TabStop = False
         Anchors = [akLeft, akTop, akRight]
         Anchors = [akLeft, akTop, akRight]
@@ -169,9 +165,9 @@ object PropertiesDialog: TPropertiesDialog
         Text = 'FileLabel'
         Text = 'FileLabel'
       end
       end
       object SizeLabel: TEdit
       object SizeLabel: TEdit
-        Left = 85
-        Top = 80
-        Width = 160
+        Left = 90
+        Top = 78
+        Width = 215
         Height = 17
         Height = 17
         TabStop = False
         TabStop = False
         Anchors = [akLeft, akTop, akRight]
         Anchors = [akLeft, akTop, akRight]
@@ -181,9 +177,9 @@ object PropertiesDialog: TPropertiesDialog
         Text = 'SizeLabel'
         Text = 'SizeLabel'
       end
       end
       object LinksToLabel: TEdit
       object LinksToLabel: TEdit
-        Left = 85
-        Top = 102
-        Width = 241
+        Left = 90
+        Top = 101
+        Width = 293
         Height = 17
         Height = 17
         TabStop = False
         TabStop = False
         Anchors = [akLeft, akTop, akRight]
         Anchors = [akLeft, akTop, akRight]
@@ -193,9 +189,9 @@ object PropertiesDialog: TPropertiesDialog
         Text = 'LinksToLabel'
         Text = 'LinksToLabel'
       end
       end
       object GroupView: TEdit
       object GroupView: TEdit
-        Left = 85
-        Top = 166
-        Width = 241
+        Left = 90
+        Top = 162
+        Width = 293
         Height = 17
         Height = 17
         TabStop = False
         TabStop = False
         Anchors = [akLeft, akTop, akRight]
         Anchors = [akLeft, akTop, akRight]
@@ -205,9 +201,9 @@ object PropertiesDialog: TPropertiesDialog
         Text = 'GroupView'
         Text = 'GroupView'
       end
       end
       object OwnerView: TEdit
       object OwnerView: TEdit
-        Left = 85
-        Top = 138
-        Width = 241
+        Left = 90
+        Top = 136
+        Width = 293
         Height = 17
         Height = 17
         TabStop = False
         TabStop = False
         Anchors = [akLeft, akTop, akRight]
         Anchors = [akLeft, akTop, akRight]
@@ -217,17 +213,17 @@ object PropertiesDialog: TPropertiesDialog
         Text = 'OwnerView'
         Text = 'OwnerView'
       end
       end
       inline RightsFrame: TRightsFrame
       inline RightsFrame: TRightsFrame
-        Left = 81
-        Top = 199
-        Width = 247
-        Height = 109
+        Left = 89
+        Top = 194
+        Width = 258
+        Height = 128
         TabOrder = 5
         TabOrder = 5
       end
       end
       object GroupComboBox: TComboBox
       object GroupComboBox: TComboBox
-        Left = 85
-        Top = 163
-        Width = 161
-        Height = 21
+        Left = 90
+        Top = 159
+        Width = 179
+        Height = 23
         DropDownCount = 16
         DropDownCount = 16
         MaxLength = 50
         MaxLength = 50
         TabOrder = 3
         TabOrder = 3
@@ -236,10 +232,10 @@ object PropertiesDialog: TPropertiesDialog
         OnExit = GroupComboBoxExit
         OnExit = GroupComboBoxExit
       end
       end
       object OwnerComboBox: TComboBox
       object OwnerComboBox: TComboBox
-        Left = 85
-        Top = 135
-        Width = 161
-        Height = 21
+        Left = 90
+        Top = 133
+        Width = 179
+        Height = 23
         DropDownCount = 16
         DropDownCount = 16
         MaxLength = 50
         MaxLength = 50
         TabOrder = 1
         TabOrder = 1
@@ -248,9 +244,9 @@ object PropertiesDialog: TPropertiesDialog
         OnExit = OwnerComboBoxExit
         OnExit = OwnerComboBoxExit
       end
       end
       object RecursiveCheck2: TCheckBox
       object RecursiveCheck2: TCheckBox
-        Left = 12
-        Top = 322
-        Width = 317
+        Left = 8
+        Top = 332
+        Width = 375
         Height = 17
         Height = 17
         Anchors = [akLeft, akTop, akRight]
         Anchors = [akLeft, akTop, akRight]
         Caption = 'Set owner, group and permissions &recursively'
         Caption = 'Set owner, group and permissions &recursively'
@@ -258,7 +254,7 @@ object PropertiesDialog: TPropertiesDialog
         OnClick = ControlChange
         OnClick = ControlChange
       end
       end
       object CalculateSizeButton: TButton
       object CalculateSizeButton: TButton
-        Left = 248
+        Left = 303
         Top = 72
         Top = 72
         Width = 80
         Width = 80
         Height = 25
         Height = 25
@@ -272,21 +268,21 @@ object PropertiesDialog: TPropertiesDialog
       Caption = 'Checksum'
       Caption = 'Checksum'
       ImageIndex = 1
       ImageIndex = 1
       DesignSize = (
       DesignSize = (
-        338
-        346)
+        390
+        355)
       object Label6: TLabel
       object Label6: TLabel
-        Left = 13
-        Top = 13
-        Width = 49
-        Height = 13
+        Left = 5
+        Top = 8
+        Width = 57
+        Height = 15
         Caption = '&Algorithm:'
         Caption = '&Algorithm:'
         FocusControl = ChecksumAlgEdit
         FocusControl = ChecksumAlgEdit
       end
       end
       object ChecksumView: TListView
       object ChecksumView: TListView
-        Left = 6
-        Top = 40
-        Width = 326
-        Height = 297
+        Left = 5
+        Top = 34
+        Width = 378
+        Height = 315
         Anchors = [akLeft, akTop, akRight, akBottom]
         Anchors = [akLeft, akTop, akRight, akBottom]
         Columns = <
         Columns = <
           item
           item
@@ -309,10 +305,10 @@ object PropertiesDialog: TPropertiesDialog
         OnContextPopup = ChecksumViewContextPopup
         OnContextPopup = ChecksumViewContextPopup
       end
       end
       object ChecksumAlgEdit: TComboBox
       object ChecksumAlgEdit: TComboBox
-        Left = 80
-        Top = 9
-        Width = 121
-        Height = 21
+        Left = 90
+        Top = 5
+        Width = 152
+        Height = 23
         AutoComplete = False
         AutoComplete = False
         Anchors = [akLeft, akTop, akRight]
         Anchors = [akLeft, akTop, akRight]
         MaxLength = 250
         MaxLength = 250
@@ -324,9 +320,9 @@ object PropertiesDialog: TPropertiesDialog
           'Xmd5')
           'Xmd5')
       end
       end
       object ChecksumButton: TButton
       object ChecksumButton: TButton
-        Left = 208
-        Top = 7
-        Width = 122
+        Left = 248
+        Top = 4
+        Width = 135
         Height = 25
         Height = 25
         Anchors = [akTop, akRight]
         Anchors = [akTop, akRight]
         Caption = '&Calculate checksum'
         Caption = '&Calculate checksum'
@@ -334,28 +330,28 @@ object PropertiesDialog: TPropertiesDialog
         OnClick = ChecksumButtonClick
         OnClick = ChecksumButtonClick
       end
       end
       object ChecksumGroup: TGroupBox
       object ChecksumGroup: TGroupBox
-        Left = 6
-        Top = 40
-        Width = 326
-        Height = 41
+        Left = 5
+        Top = 34
+        Width = 378
+        Height = 51
         Anchors = [akLeft, akRight, akBottom]
         Anchors = [akLeft, akRight, akBottom]
         Caption = 'Checksum'
         Caption = 'Checksum'
         TabOrder = 3
         TabOrder = 3
         DesignSize = (
         DesignSize = (
-          326
-          41)
+          378
+          51)
         object ChecksumUnknownLabel: TLabel
         object ChecksumUnknownLabel: TLabel
           Left = 10
           Left = 10
           Top = 18
           Top = 18
-          Width = 117
-          Height = 13
+          Width = 135
+          Height = 15
           Caption = 'ChecksumUnknownLabel'
           Caption = 'ChecksumUnknownLabel'
           ShowAccelChar = False
           ShowAccelChar = False
         end
         end
         object ChecksumEdit: TEdit
         object ChecksumEdit: TEdit
-          Left = 10
-          Top = 18
-          Width = 306
+          Left = 9
+          Top = 22
+          Width = 358
           Height = 19
           Height = 19
           TabStop = False
           TabStop = False
           Anchors = [akLeft, akTop, akRight]
           Anchors = [akLeft, akTop, akRight]
@@ -369,9 +365,9 @@ object PropertiesDialog: TPropertiesDialog
     end
     end
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 275
-    Top = 386
-    Width = 75
+    Left = 310
+    Top = 391
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = '&Help'
     Caption = '&Help'
@@ -380,7 +376,7 @@ object PropertiesDialog: TPropertiesDialog
   end
   end
   object ListViewMenu: TPopupMenu
   object ListViewMenu: TPopupMenu
     Left = 16
     Left = 16
-    Top = 384
+    Top = 400
     object Copy: TMenuItem
     object Copy: TMenuItem
       Caption = '&Copy'
       Caption = '&Copy'
       OnClick = CopyClick
       OnClick = CopyClick

+ 41 - 45
source/forms/RemoteTransfer.dfm

@@ -6,59 +6,55 @@ object RemoteTransferDialog: TRemoteTransferDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'RemoteTransferDialog'
   Caption = 'RemoteTransferDialog'
-  ClientHeight = 179
-  ClientWidth = 420
+  ClientHeight = 181
+  ClientWidth = 464
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnCloseQuery = FormCloseQuery
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow
   OnShow = FormShow
   DesignSize = (
   DesignSize = (
-    420
-    179)
-  TextHeight = 13
+    464
+    181)
+  TextHeight = 15
   object Group: TGroupBox
   object Group: TGroupBox
     Left = 8
     Left = 8
-    Top = 6
-    Width = 404
-    Height = 131
+    Top = 8
+    Width = 448
+    Height = 133
     Anchors = [akLeft, akTop, akRight, akBottom]
     Anchors = [akLeft, akTop, akRight, akBottom]
     TabOrder = 0
     TabOrder = 0
     DesignSize = (
     DesignSize = (
-      404
-      131)
+      448
+      133)
     object SessionLabel: TLabel
     object SessionLabel: TLabel
-      Left = 49
-      Top = 12
-      Width = 74
-      Height = 13
+      Left = 47
+      Top = 9
+      Width = 77
+      Height = 15
       Caption = 'Target &session:'
       Caption = 'Target &session:'
       FocusControl = SessionCombo
       FocusControl = SessionCombo
     end
     end
     object Label3: TLabel
     object Label3: TLabel
-      Left = 49
-      Top = 60
-      Width = 98
-      Height = 13
+      Left = 47
+      Top = 59
+      Width = 104
+      Height = 15
       Caption = 'Target remote &path:'
       Caption = 'Target remote &path:'
       FocusControl = DirectoryEdit
       FocusControl = DirectoryEdit
     end
     end
     object Image: TImage
     object Image: TImage
-      Left = 11
-      Top = 15
+      Left = 9
+      Top = 12
       Width = 32
       Width = 32
       Height = 32
       Height = 32
       AutoSize = True
       AutoSize = True
     end
     end
     object SessionCombo: TComboBox
     object SessionCombo: TComboBox
-      Left = 49
-      Top = 28
-      Width = 344
-      Height = 21
+      Left = 47
+      Top = 30
+      Width = 392
+      Height = 23
       Style = csDropDownList
       Style = csDropDownList
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       DropDownCount = 16
       DropDownCount = 16
@@ -67,10 +63,10 @@ object RemoteTransferDialog: TRemoteTransferDialog
       OnChange = SessionComboChange
       OnChange = SessionComboChange
     end
     end
     object DirectoryEdit: THistoryComboBox
     object DirectoryEdit: THistoryComboBox
-      Left = 49
-      Top = 76
-      Width = 344
-      Height = 21
+      Left = 47
+      Top = 77
+      Width = 392
+      Height = 23
       AutoComplete = False
       AutoComplete = False
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       MaxLength = 250
       MaxLength = 250
@@ -78,9 +74,9 @@ object RemoteTransferDialog: TRemoteTransferDialog
       OnChange = ControlChange
       OnChange = ControlChange
     end
     end
     object NotDirectCopyCheck: TCheckBox
     object NotDirectCopyCheck: TCheckBox
-      Left = 55
-      Top = 105
-      Width = 340
+      Left = 49
+      Top = 106
+      Width = 390
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = 'Duplicate via local &temporary copy'
       Caption = 'Duplicate via local &temporary copy'
@@ -89,9 +85,9 @@ object RemoteTransferDialog: TRemoteTransferDialog
     end
     end
   end
   end
   object OkButton: TButton
   object OkButton: TButton
-    Left = 168
-    Top = 146
-    Width = 75
+    Left = 204
+    Top = 148
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = 'OK'
     Caption = 'OK'
@@ -100,9 +96,9 @@ object RemoteTransferDialog: TRemoteTransferDialog
     TabOrder = 1
     TabOrder = 1
   end
   end
   object CancelButton: TButton
   object CancelButton: TButton
-    Left = 252
-    Top = 146
-    Width = 75
+    Left = 290
+    Top = 148
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Cancel = True
     Cancel = True
@@ -111,9 +107,9 @@ object RemoteTransferDialog: TRemoteTransferDialog
     TabOrder = 2
     TabOrder = 2
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 336
-    Top = 146
-    Width = 75
+    Left = 376
+    Top = 148
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = '&Help'
     Caption = '&Help'

+ 51 - 57
source/forms/Rights.dfm

@@ -1,58 +1,52 @@
 object RightsFrame: TRightsFrame
 object RightsFrame: TRightsFrame
   Left = 0
   Left = 0
   Top = 0
   Top = 0
-  Width = 239
-  Height = 109
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
-  ParentFont = False
+  Width = 258
+  Height = 130
   TabOrder = 0
   TabOrder = 0
   OnContextPopup = FrameContextPopup
   OnContextPopup = FrameContextPopup
   object OthersButton: TSpeedButton
   object OthersButton: TSpeedButton
     Tag = 3
     Tag = 3
-    Left = 0
-    Top = 42
+    Left = 3
+    Top = 50
     Width = 43
     Width = 43
-    Height = 18
+    Height = 21
     Caption = 'Ot&hers'
     Caption = 'Ot&hers'
     Flat = True
     Flat = True
     OnClick = RightsButtonsClick
     OnClick = RightsButtonsClick
   end
   end
   object GroupButton: TSpeedButton
   object GroupButton: TSpeedButton
     Tag = 2
     Tag = 2
-    Left = 0
-    Top = 22
+    Left = 3
+    Top = 27
     Width = 39
     Width = 39
-    Height = 19
+    Height = 21
     Caption = '&Group'
     Caption = '&Group'
     Flat = True
     Flat = True
     OnClick = RightsButtonsClick
     OnClick = RightsButtonsClick
   end
   end
   object OwnerButton: TSpeedButton
   object OwnerButton: TSpeedButton
     Tag = 1
     Tag = 1
-    Left = 0
-    Top = 2
+    Left = 3
+    Top = 4
     Width = 40
     Width = 40
-    Height = 19
+    Height = 21
     Caption = '&Owner'
     Caption = '&Owner'
     Flat = True
     Flat = True
     OnClick = RightsButtonsClick
     OnClick = RightsButtonsClick
   end
   end
   object OctalLabel: TLabel
   object OctalLabel: TLabel
-    Left = 4
-    Top = 68
-    Width = 29
-    Height = 13
+    Left = 7
+    Top = 78
+    Width = 31
+    Height = 15
     Caption = 'O&ctal:'
     Caption = 'O&ctal:'
     FocusControl = OctalEdit
     FocusControl = OctalEdit
   end
   end
   object OwnerReadCheck: TGrayedCheckBox
   object OwnerReadCheck: TGrayedCheckBox
     Tag = 256
     Tag = 256
-    Left = 58
-    Top = 3
+    Left = 65
+    Top = 6
     Width = 34
     Width = 34
     Height = 17
     Height = 17
     Hint = 'Read'
     Hint = 'Read'
@@ -64,8 +58,8 @@ object RightsFrame: TRightsFrame
   end
   end
   object OwnerWriteCheck: TGrayedCheckBox
   object OwnerWriteCheck: TGrayedCheckBox
     Tag = 128
     Tag = 128
-    Left = 95
-    Top = 3
+    Left = 103
+    Top = 6
     Width = 34
     Width = 34
     Height = 17
     Height = 17
     Hint = 'Write'
     Hint = 'Write'
@@ -77,8 +71,8 @@ object RightsFrame: TRightsFrame
   end
   end
   object OwnerExecuteCheck: TGrayedCheckBox
   object OwnerExecuteCheck: TGrayedCheckBox
     Tag = 64
     Tag = 64
-    Left = 132
-    Top = 3
+    Left = 141
+    Top = 6
     Width = 31
     Width = 31
     Height = 17
     Height = 17
     Hint = 'Execute/Enter'
     Hint = 'Execute/Enter'
@@ -90,8 +84,8 @@ object RightsFrame: TRightsFrame
   end
   end
   object GroupReadCheck: TGrayedCheckBox
   object GroupReadCheck: TGrayedCheckBox
     Tag = 32
     Tag = 32
-    Left = 58
-    Top = 23
+    Left = 65
+    Top = 29
     Width = 34
     Width = 34
     Height = 17
     Height = 17
     Caption = 'R'
     Caption = 'R'
@@ -102,8 +96,8 @@ object RightsFrame: TRightsFrame
   end
   end
   object GroupWriteCheck: TGrayedCheckBox
   object GroupWriteCheck: TGrayedCheckBox
     Tag = 16
     Tag = 16
-    Left = 95
-    Top = 23
+    Left = 103
+    Top = 29
     Width = 33
     Width = 33
     Height = 17
     Height = 17
     Caption = 'W'
     Caption = 'W'
@@ -114,8 +108,8 @@ object RightsFrame: TRightsFrame
   end
   end
   object GroupExecuteCheck: TGrayedCheckBox
   object GroupExecuteCheck: TGrayedCheckBox
     Tag = 8
     Tag = 8
-    Left = 132
-    Top = 23
+    Left = 141
+    Top = 29
     Width = 31
     Width = 31
     Height = 17
     Height = 17
     Caption = 'X'
     Caption = 'X'
@@ -126,8 +120,8 @@ object RightsFrame: TRightsFrame
   end
   end
   object OthersReadCheck: TGrayedCheckBox
   object OthersReadCheck: TGrayedCheckBox
     Tag = 4
     Tag = 4
-    Left = 58
-    Top = 43
+    Left = 65
+    Top = 52
     Width = 34
     Width = 34
     Height = 17
     Height = 17
     Caption = 'R'
     Caption = 'R'
@@ -138,8 +132,8 @@ object RightsFrame: TRightsFrame
   end
   end
   object OthersWriteCheck: TGrayedCheckBox
   object OthersWriteCheck: TGrayedCheckBox
     Tag = 2
     Tag = 2
-    Left = 95
-    Top = 43
+    Left = 103
+    Top = 52
     Width = 33
     Width = 33
     Height = 17
     Height = 17
     Caption = 'W'
     Caption = 'W'
@@ -150,8 +144,8 @@ object RightsFrame: TRightsFrame
   end
   end
   object OthersExecuteCheck: TGrayedCheckBox
   object OthersExecuteCheck: TGrayedCheckBox
     Tag = 1
     Tag = 1
-    Left = 132
-    Top = 43
+    Left = 141
+    Top = 52
     Width = 31
     Width = 31
     Height = 17
     Height = 17
     Caption = 'X'
     Caption = 'X'
@@ -161,8 +155,8 @@ object RightsFrame: TRightsFrame
     OnClick = ControlChange
     OnClick = ControlChange
   end
   end
   object DirectoriesXCheck: TCheckBox
   object DirectoriesXCheck: TCheckBox
-    Left = 5
-    Top = 89
+    Left = 10
+    Top = 102
     Width = 156
     Width = 156
     Height = 17
     Height = 17
     Caption = 'Add &X to directories'
     Caption = 'Add &X to directories'
@@ -170,10 +164,10 @@ object RightsFrame: TRightsFrame
     OnClick = ControlChange
     OnClick = ControlChange
   end
   end
   object OctalEdit: TEdit
   object OctalEdit: TEdit
-    Left = 55
-    Top = 64
-    Width = 64
-    Height = 21
+    Left = 65
+    Top = 75
+    Width = 70
+    Height = 23
     MaxLength = 4
     MaxLength = 4
     TabOrder = 12
     TabOrder = 12
     Text = 'OctalEdit'
     Text = 'OctalEdit'
@@ -182,9 +176,9 @@ object RightsFrame: TRightsFrame
   end
   end
   object SetUidCheck: TGrayedCheckBox
   object SetUidCheck: TGrayedCheckBox
     Tag = 2048
     Tag = 2048
-    Left = 169
-    Top = 3
-    Width = 70
+    Left = 179
+    Top = 6
+    Width = 77
     Height = 17
     Height = 17
     Caption = 'Set UID'
     Caption = 'Set UID'
     TabOrder = 3
     TabOrder = 3
@@ -192,9 +186,9 @@ object RightsFrame: TRightsFrame
   end
   end
   object SetGIDCheck: TGrayedCheckBox
   object SetGIDCheck: TGrayedCheckBox
     Tag = 1024
     Tag = 1024
-    Left = 169
-    Top = 23
-    Width = 70
+    Left = 179
+    Top = 29
+    Width = 77
     Height = 17
     Height = 17
     Caption = 'Set GID'
     Caption = 'Set GID'
     TabOrder = 7
     TabOrder = 7
@@ -202,18 +196,18 @@ object RightsFrame: TRightsFrame
   end
   end
   object StickyBitCheck: TGrayedCheckBox
   object StickyBitCheck: TGrayedCheckBox
     Tag = 512
     Tag = 512
-    Left = 169
-    Top = 43
-    Width = 70
+    Left = 179
+    Top = 52
+    Width = 77
     Height = 17
     Height = 17
     Caption = 'Sticky bit'
     Caption = 'Sticky bit'
     TabOrder = 11
     TabOrder = 11
     OnClick = ControlChange
     OnClick = ControlChange
   end
   end
   object CloseButton: TButton
   object CloseButton: TButton
-    Left = 160
-    Top = 80
-    Width = 75
+    Left = 171
+    Top = 98
+    Width = 80
     Height = 25
     Height = 25
     Caption = 'Close'
     Caption = 'Close'
     TabOrder = 14
     TabOrder = 14

+ 15 - 15
source/forms/ScpCommander.dfm

@@ -6,7 +6,7 @@ inherited ScpCommanderForm: TScpCommanderForm
   Caption = 'ScpCommanderForm'
   Caption = 'ScpCommanderForm'
   ClientHeight = 670
   ClientHeight = 670
   ClientWidth = 898
   ClientWidth = 898
-  TextHeight = 13
+  TextHeight = 15
   object Splitter: TSplitter [0]
   object Splitter: TSplitter [0]
     Left = 435
     Left = 435
     Top = 186
     Top = 186
@@ -1117,7 +1117,7 @@ inherited ScpCommanderForm: TScpCommanderForm
       end
       end
     end
     end
     object CustomCommandsToolbar: TTBXToolbar
     object CustomCommandsToolbar: TTBXToolbar
-      Left = 299
+      Left = 300
       Top = 129
       Top = 129
       Caption = 'Custom Commands'
       Caption = 'Custom Commands'
       ChevronMenu = True
       ChevronMenu = True
@@ -1144,7 +1144,7 @@ inherited ScpCommanderForm: TScpCommanderForm
       Left = 0
       Left = 0
       Top = 79
       Top = 79
       Width = 458
       Width = 458
-      Height = 19
+      Height = 21
       UnixPath = True
       UnixPath = True
       IndentVertical = 3
       IndentVertical = 3
       AutoSizeVertical = True
       AutoSizeVertical = True
@@ -1158,7 +1158,7 @@ inherited ScpCommanderForm: TScpCommanderForm
     end
     end
     inherited RemotePanelSplitter: TSplitter
     inherited RemotePanelSplitter: TSplitter
       Left = 0
       Left = 0
-      Top = 143
+      Top = 145
       Width = 458
       Width = 458
       Height = 3
       Height = 3
       Cursor = crSizeNS
       Cursor = crSizeNS
@@ -1202,13 +1202,13 @@ inherited ScpCommanderForm: TScpCommanderForm
     end
     end
     inherited RemoteDirPanel: TPanel
     inherited RemoteDirPanel: TPanel
       Left = 0
       Left = 0
-      Top = 146
+      Top = 148
       Width = 458
       Width = 458
-      Height = 115
+      Height = 113
       Constraints.MinHeight = 70
       Constraints.MinHeight = 70
       inherited RemoteDirView: TUnixDirView
       inherited RemoteDirView: TUnixDirView
         Width = 280
         Width = 280
-        Height = 115
+        Height = 113
         NortonLike = nlOn
         NortonLike = nlOn
         OnUpdateStatusBar = RemoteDirViewUpdateStatusBar
         OnUpdateStatusBar = RemoteDirViewUpdateStatusBar
         PathLabel = RemotePathLabel
         PathLabel = RemotePathLabel
@@ -1224,7 +1224,7 @@ inherited ScpCommanderForm: TScpCommanderForm
         Left = 280
         Left = 280
         Top = 0
         Top = 0
         Width = 178
         Width = 178
-        Height = 115
+        Height = 113
         Align = alRight
         Align = alRight
         Constraints.MinHeight = 70
         Constraints.MinHeight = 70
         DoubleBuffered = True
         DoubleBuffered = True
@@ -1266,7 +1266,7 @@ inherited ScpCommanderForm: TScpCommanderForm
       end
       end
     end
     end
     inherited RemoteDrivePanel: TPanel
     inherited RemoteDrivePanel: TPanel
-      Top = 98
+      Top = 100
       Width = 458
       Width = 458
       Height = 45
       Height = 45
       Align = alTop
       Align = alTop
@@ -1542,7 +1542,7 @@ inherited ScpCommanderForm: TScpCommanderForm
     end
     end
     inherited QueueView3: TListView
     inherited QueueView3: TListView
       Width = 898
       Width = 898
-      Height = 48
+      Height = 46
       TabStop = False
       TabStop = False
     end
     end
     inherited QueueDock: TTBXDock
     inherited QueueDock: TTBXDock
@@ -1573,7 +1573,7 @@ inherited ScpCommanderForm: TScpCommanderForm
       Left = 0
       Left = 0
       Top = 79
       Top = 79
       Width = 435
       Width = 435
-      Height = 19
+      Height = 21
       IndentVertical = 3
       IndentVertical = 3
       AutoSizeVertical = True
       AutoSizeVertical = True
       HotTrack = True
       HotTrack = True
@@ -1587,7 +1587,7 @@ inherited ScpCommanderForm: TScpCommanderForm
     end
     end
     object LocalPanelSplitter: TSplitter
     object LocalPanelSplitter: TSplitter
       Left = 0
       Left = 0
-      Top = 143
+      Top = 145
       Width = 435
       Width = 435
       Height = 3
       Height = 3
       Cursor = crSizeNS
       Cursor = crSizeNS
@@ -1640,9 +1640,9 @@ inherited ScpCommanderForm: TScpCommanderForm
     end
     end
     object LocalDirView: TDirView
     object LocalDirView: TDirView
       Left = 0
       Left = 0
-      Top = 146
+      Top = 148
       Width = 435
       Width = 435
-      Height = 115
+      Height = 113
       Align = alClient
       Align = alClient
       Constraints.MinHeight = 70
       Constraints.MinHeight = 70
       DoubleBuffered = True
       DoubleBuffered = True
@@ -1893,7 +1893,7 @@ inherited ScpCommanderForm: TScpCommanderForm
     end
     end
     object LocalDriveView: TDriveView
     object LocalDriveView: TDriveView
       Left = 0
       Left = 0
-      Top = 98
+      Top = 100
       Width = 435
       Width = 435
       Height = 45
       Height = 45
       WatchDirectory = True
       WatchDirectory = True

+ 3 - 3
source/forms/ScpExplorer.dfm

@@ -7,7 +7,7 @@ inherited ScpExplorerForm: TScpExplorerForm
   Caption = 'ScpExplorerForm'
   Caption = 'ScpExplorerForm'
   ClientHeight = 475
   ClientHeight = 475
   ClientWidth = 632
   ClientWidth = 632
-  TextHeight = 13
+  TextHeight = 15
   inherited QueueSplitter: TSplitter
   inherited QueueSplitter: TSplitter
     Top = 332
     Top = 332
     Width = 632
     Width = 632
@@ -1067,7 +1067,7 @@ inherited ScpExplorerForm: TScpExplorerForm
       end
       end
     end
     end
     object CustomCommandsToolbar: TTBXToolbar
     object CustomCommandsToolbar: TTBXToolbar
-      Left = 299
+      Left = 300
       Top = 182
       Top = 182
       Caption = 'Custom Commands'
       Caption = 'Custom Commands'
       ChevronMenu = True
       ChevronMenu = True
@@ -1086,7 +1086,7 @@ inherited ScpExplorerForm: TScpExplorerForm
     Top = 239
     Top = 239
     Width = 614
     Width = 614
     Height = 93
     Height = 93
-    Constraints.MinHeight = 93
+    Constraints.MinHeight = 92
     Constraints.MinWidth = 210
     Constraints.MinWidth = 210
     inherited RemotePanelSplitter: TSplitter
     inherited RemotePanelSplitter: TSplitter
       Height = 62
       Height = 62

+ 52 - 56
source/forms/SelectMask.dfm

@@ -6,44 +6,40 @@ object SelectMaskDialog: TSelectMaskDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'SelectX'
   Caption = 'SelectX'
-  ClientHeight = 186
-  ClientWidth = 417
+  ClientHeight = 181
+  ClientWidth = 460
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poDesigned
   Position = poDesigned
   OnCloseQuery = FormCloseQuery
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow
   OnShow = FormShow
   DesignSize = (
   DesignSize = (
-    417
-    186)
-  TextHeight = 13
+    460
+    181)
+  TextHeight = 15
   object MaskGroup: TGroupBox
   object MaskGroup: TGroupBox
     Left = 8
     Left = 8
-    Top = 6
-    Width = 401
-    Height = 138
+    Top = 8
+    Width = 444
+    Height = 134
     Anchors = [akLeft, akTop, akRight, akBottom]
     Anchors = [akLeft, akTop, akRight, akBottom]
     TabOrder = 0
     TabOrder = 0
     DesignSize = (
     DesignSize = (
-      401
-      138)
+      444
+      134)
     object Label3: TLabel
     object Label3: TLabel
-      Left = 16
-      Top = 19
-      Width = 47
-      Height = 13
+      Left = 9
+      Top = 9
+      Width = 52
+      Height = 15
       Caption = 'File &mask:'
       Caption = 'File &mask:'
       FocusControl = MaskEdit
       FocusControl = MaskEdit
     end
     end
     object ColorFileNamesLabel: TLabel
     object ColorFileNamesLabel: TLabel
-      Left = 16
-      Top = 86
-      Width = 150
-      Height = 37
+      Left = 9
+      Top = 77
+      Width = 165
+      Height = 47
       Anchors = [akLeft, akTop, akBottom]
       Anchors = [akLeft, akTop, akBottom]
       AutoSize = False
       AutoSize = False
       Caption = 'about.html'#13#10'index.html'#13#10'photo.jpg'
       Caption = 'about.html'#13#10'index.html'#13#10'photo.jpg'
@@ -54,10 +50,10 @@ object SelectMaskDialog: TSelectMaskDialog
       WordWrap = True
       WordWrap = True
     end
     end
     object ColorSizesLabel: TLabel
     object ColorSizesLabel: TLabel
-      Left = 166
-      Top = 86
-      Width = 75
-      Height = 37
+      Left = 174
+      Top = 77
+      Width = 82
+      Height = 47
       Alignment = taRightJustify
       Alignment = taRightJustify
       Anchors = [akLeft, akTop, akBottom]
       Anchors = [akLeft, akTop, akBottom]
       AutoSize = False
       AutoSize = False
@@ -69,10 +65,10 @@ object SelectMaskDialog: TSelectMaskDialog
       WordWrap = True
       WordWrap = True
     end
     end
     object ColorPaddingLabel: TLabel
     object ColorPaddingLabel: TLabel
-      Left = 241
-      Top = 86
-      Width = 58
-      Height = 37
+      Left = 256
+      Top = 77
+      Width = 94
+      Height = 47
       Alignment = taRightJustify
       Alignment = taRightJustify
       Anchors = [akLeft, akTop, akRight, akBottom]
       Anchors = [akLeft, akTop, akRight, akBottom]
       AutoSize = False
       AutoSize = False
@@ -83,18 +79,18 @@ object SelectMaskDialog: TSelectMaskDialog
       WordWrap = True
       WordWrap = True
     end
     end
     object ApplyToDirectoriesCheck: TCheckBox
     object ApplyToDirectoriesCheck: TCheckBox
-      Left = 16
-      Top = 63
+      Left = 11
+      Top = 54
       Width = 209
       Width = 209
       Height = 17
       Height = 17
       Caption = 'Apply to &directories'
       Caption = 'Apply to &directories'
       TabOrder = 3
       TabOrder = 3
     end
     end
     object MaskEdit: THistoryComboBox
     object MaskEdit: THistoryComboBox
-      Left = 16
-      Top = 36
-      Width = 283
-      Height = 21
+      Left = 9
+      Top = 25
+      Width = 341
+      Height = 23
       AutoComplete = False
       AutoComplete = False
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       MaxLength = 1000
       MaxLength = 1000
@@ -104,9 +100,9 @@ object SelectMaskDialog: TSelectMaskDialog
       OnExit = MaskEditExit
       OnExit = MaskEditExit
     end
     end
     object HintText: TStaticText
     object HintText: TStaticText
-      Left = 194
-      Top = 64
-      Width = 105
+      Left = 235
+      Top = 48
+      Width = 115
       Height = 17
       Height = 17
       Alignment = taRightJustify
       Alignment = taRightJustify
       Anchors = [akTop, akRight]
       Anchors = [akTop, akRight]
@@ -116,8 +112,8 @@ object SelectMaskDialog: TSelectMaskDialog
       TabStop = True
       TabStop = True
     end
     end
     object MaskButton: TButton
     object MaskButton: TButton
-      Left = 305
-      Top = 34
+      Left = 356
+      Top = 24
       Width = 80
       Width = 80
       Height = 25
       Height = 25
       Anchors = [akTop, akRight]
       Anchors = [akTop, akRight]
@@ -126,8 +122,8 @@ object SelectMaskDialog: TSelectMaskDialog
       OnClick = MaskButtonClick
       OnClick = MaskButtonClick
     end
     end
     object ColorButton: TButton
     object ColorButton: TButton
-      Left = 305
-      Top = 86
+      Left = 356
+      Top = 77
       Width = 80
       Width = 80
       Height = 25
       Height = 25
       Anchors = [akTop, akRight]
       Anchors = [akTop, akRight]
@@ -137,9 +133,9 @@ object SelectMaskDialog: TSelectMaskDialog
     end
     end
   end
   end
   object OKBtn: TButton
   object OKBtn: TButton
-    Left = 165
-    Top = 153
-    Width = 75
+    Left = 200
+    Top = 148
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = 'OK'
     Caption = 'OK'
@@ -148,9 +144,9 @@ object SelectMaskDialog: TSelectMaskDialog
     TabOrder = 2
     TabOrder = 2
   end
   end
   object CancelBtn: TButton
   object CancelBtn: TButton
-    Left = 250
-    Top = 153
-    Width = 75
+    Left = 286
+    Top = 148
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Cancel = True
     Cancel = True
@@ -159,9 +155,9 @@ object SelectMaskDialog: TSelectMaskDialog
     TabOrder = 3
     TabOrder = 3
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 333
-    Top = 153
-    Width = 75
+    Left = 372
+    Top = 148
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = '&Help'
     Caption = '&Help'
@@ -169,9 +165,9 @@ object SelectMaskDialog: TSelectMaskDialog
     OnClick = HelpButtonClick
     OnClick = HelpButtonClick
   end
   end
   object ClearButton: TButton
   object ClearButton: TButton
-    Left = 84
-    Top = 153
-    Width = 75
+    Left = 114
+    Top = 148
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = '&Clear'
     Caption = '&Clear'

文件差异内容过多而无法显示
+ 296 - 292
source/forms/SiteAdvanced.dfm


+ 39 - 43
source/forms/Symlink.dfm

@@ -6,70 +6,66 @@ object SymlinkDialog: TSymlinkDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'SymlinkDialog'
   Caption = 'SymlinkDialog'
-  ClientHeight = 183
-  ClientWidth = 396
+  ClientHeight = 177
+  ClientWidth = 417
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnShow = FormShow
   OnShow = FormShow
   DesignSize = (
   DesignSize = (
-    396
-    183)
-  TextHeight = 13
+    417
+    177)
+  TextHeight = 15
   object SymlinkGroup: TGroupBox
   object SymlinkGroup: TGroupBox
     Left = 8
     Left = 8
-    Top = 6
-    Width = 380
-    Height = 135
+    Top = 8
+    Width = 401
+    Height = 130
     Anchors = [akLeft, akTop, akRight, akBottom]
     Anchors = [akLeft, akTop, akRight, akBottom]
     TabOrder = 0
     TabOrder = 0
     DesignSize = (
     DesignSize = (
-      380
-      135)
+      401
+      130)
     object FileNameLabel: TLabel
     object FileNameLabel: TLabel
-      Left = 11
-      Top = 16
-      Width = 83
-      Height = 13
+      Left = 9
+      Top = 9
+      Width = 93
+      Height = 15
       Caption = '&Link/shortcut file:'
       Caption = '&Link/shortcut file:'
       FocusControl = FileNameEdit
       FocusControl = FileNameEdit
     end
     end
     object Label1: TLabel
     object Label1: TLabel
-      Left = 11
-      Top = 64
-      Width = 103
-      Height = 13
+      Left = 9
+      Top = 56
+      Width = 116
+      Height = 15
       Caption = '&Point link/shortcut to:'
       Caption = '&Point link/shortcut to:'
       FocusControl = PointToEdit
       FocusControl = PointToEdit
     end
     end
     object FileNameEdit: TEdit
     object FileNameEdit: TEdit
-      Left = 11
-      Top = 32
-      Width = 358
-      Height = 21
+      Left = 9
+      Top = 27
+      Width = 383
+      Height = 23
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       MaxLength = 250
       MaxLength = 250
       TabOrder = 0
       TabOrder = 0
       OnChange = ControlChange
       OnChange = ControlChange
     end
     end
     object PointToEdit: TEdit
     object PointToEdit: TEdit
-      Left = 11
-      Top = 80
-      Width = 358
-      Height = 21
+      Left = 9
+      Top = 74
+      Width = 383
+      Height = 23
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       MaxLength = 250
       MaxLength = 250
       TabOrder = 1
       TabOrder = 1
       OnChange = ControlChange
       OnChange = ControlChange
     end
     end
     object HardLinkCheck: TCheckBox
     object HardLinkCheck: TCheckBox
-      Left = 17
-      Top = 109
-      Width = 238
+      Left = 11
+      Top = 103
+      Width = 401
       Height = 17
       Height = 17
       Caption = '&Hard link'
       Caption = '&Hard link'
       TabOrder = 2
       TabOrder = 2
@@ -77,9 +73,9 @@ object SymlinkDialog: TSymlinkDialog
     end
     end
   end
   end
   object OkButton: TButton
   object OkButton: TButton
-    Left = 144
-    Top = 150
-    Width = 75
+    Left = 157
+    Top = 144
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = 'OK'
     Caption = 'OK'
@@ -88,9 +84,9 @@ object SymlinkDialog: TSymlinkDialog
     TabOrder = 1
     TabOrder = 1
   end
   end
   object CancelButton: TButton
   object CancelButton: TButton
-    Left = 228
-    Top = 150
-    Width = 75
+    Left = 243
+    Top = 144
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Cancel = True
     Cancel = True
@@ -99,9 +95,9 @@ object SymlinkDialog: TSymlinkDialog
     TabOrder = 2
     TabOrder = 2
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 312
-    Top = 150
-    Width = 75
+    Left = 329
+    Top = 144
+    Width = 80
     Height = 25
     Height = 25
     Anchors = [akRight, akBottom]
     Anchors = [akRight, akBottom]
     Caption = '&Help'
     Caption = '&Help'

+ 85 - 89
source/forms/Synchronize.dfm

@@ -6,64 +6,60 @@ object SynchronizeDialog: TSynchronizeDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   BorderStyle = bsDialog
   Caption = 'Keep remote directory up to date X'
   Caption = 'Keep remote directory up to date X'
-  ClientHeight = 445
-  ClientWidth = 468
+  ClientHeight = 466
+  ClientWidth = 518
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   KeyPreview = True
   KeyPreview = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnCloseQuery = FormCloseQuery
   OnCloseQuery = FormCloseQuery
   OnKeyDown = FormKeyDown
   OnKeyDown = FormKeyDown
   OnShow = FormShow
   OnShow = FormShow
   DesignSize = (
   DesignSize = (
-    468
-    445)
-  TextHeight = 13
+    518
+    466)
+  TextHeight = 15
   object DirectoriesGroup: TGroupBox
   object DirectoriesGroup: TGroupBox
     Left = 8
     Left = 8
-    Top = 6
-    Width = 453
-    Height = 119
+    Top = 8
+    Width = 502
+    Height = 120
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     Caption = 'Directories'
     Caption = 'Directories'
     TabOrder = 0
     TabOrder = 0
     DesignSize = (
     DesignSize = (
-      453
-      119)
+      502
+      120)
     object LocalDirectoryLabel: TLabel
     object LocalDirectoryLabel: TLabel
       Left = 49
       Left = 49
-      Top = 19
-      Width = 195
-      Height = 13
+      Top = 22
+      Width = 222
+      Height = 15
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = '&Watch for changes in the local directory:'
       Caption = '&Watch for changes in the local directory:'
       FocusControl = LocalDirectoryEdit
       FocusControl = LocalDirectoryEdit
     end
     end
     object RemoteDirectoryLabel: TLabel
     object RemoteDirectoryLabel: TLabel
       Left = 49
       Left = 49
-      Top = 68
-      Width = 281
-      Height = 13
+      Top = 69
+      Width = 314
+      Height = 15
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = '... &and automatically reflect them on the remote directory:'
       Caption = '... &and automatically reflect them on the remote directory:'
       FocusControl = RemoteDirectoryEdit
       FocusControl = RemoteDirectoryEdit
     end
     end
     object Image: TImage
     object Image: TImage
       Left = 11
       Left = 11
-      Top = 22
+      Top = 24
       Width = 32
       Width = 32
       Height = 32
       Height = 32
       AutoSize = True
       AutoSize = True
     end
     end
     object RemoteDirectoryEdit: THistoryComboBox
     object RemoteDirectoryEdit: THistoryComboBox
       Left = 49
       Left = 49
-      Top = 84
-      Width = 393
-      Height = 21
+      Top = 87
+      Width = 444
+      Height = 23
       AutoComplete = False
       AutoComplete = False
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       MaxLength = 1000
       MaxLength = 1000
@@ -73,9 +69,9 @@ object SynchronizeDialog: TSynchronizeDialog
     end
     end
     object LocalDirectoryEdit: THistoryComboBox
     object LocalDirectoryEdit: THistoryComboBox
       Left = 49
       Left = 49
-      Top = 35
-      Width = 312
-      Height = 21
+      Top = 40
+      Width = 358
+      Height = 23
       AutoComplete = False
       AutoComplete = False
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       MaxLength = 1000
       MaxLength = 1000
@@ -84,9 +80,9 @@ object SynchronizeDialog: TSynchronizeDialog
       OnChange = ControlChange
       OnChange = ControlChange
     end
     end
     object LocalDirectoryBrowseButton: TButton
     object LocalDirectoryBrowseButton: TButton
-      Left = 367
-      Top = 33
-      Width = 75
+      Left = 413
+      Top = 39
+      Width = 80
       Height = 25
       Height = 25
       Anchors = [akTop, akRight]
       Anchors = [akTop, akRight]
       Caption = 'B&rowse...'
       Caption = 'B&rowse...'
@@ -95,9 +91,9 @@ object SynchronizeDialog: TSynchronizeDialog
     end
     end
   end
   end
   object StopButton: TButton
   object StopButton: TButton
-    Left = 183
-    Top = 312
-    Width = 88
+    Left = 216
+    Top = 323
+    Width = 94
     Height = 25
     Height = 25
     Anchors = [akTop, akRight]
     Anchors = [akTop, akRight]
     Caption = '&Stop'
     Caption = '&Stop'
@@ -105,9 +101,9 @@ object SynchronizeDialog: TSynchronizeDialog
     OnClick = StopButtonClick
     OnClick = StopButtonClick
   end
   end
   object CancelButton: TButton
   object CancelButton: TButton
-    Left = 277
-    Top = 312
-    Width = 88
+    Left = 316
+    Top = 323
+    Width = 94
     Height = 25
     Height = 25
     Anchors = [akTop, akRight]
     Anchors = [akTop, akRight]
     Cancel = True
     Cancel = True
@@ -117,37 +113,37 @@ object SynchronizeDialog: TSynchronizeDialog
   end
   end
   object OptionsGroup: TGroupBox
   object OptionsGroup: TGroupBox
     Left = 8
     Left = 8
-    Top = 130
-    Width = 453
-    Height = 119
+    Top = 134
+    Width = 502
+    Height = 118
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     Caption = 'Synchronize options'
     Caption = 'Synchronize options'
     TabOrder = 1
     TabOrder = 1
     DesignSize = (
     DesignSize = (
-      453
-      119)
+      502
+      118)
     object SynchronizeDeleteCheck: TCheckBox
     object SynchronizeDeleteCheck: TCheckBox
-      Left = 11
-      Top = 20
-      Width = 196
+      Left = 9
+      Top = 22
+      Width = 239
       Height = 17
       Height = 17
       Caption = '&Delete files'
       Caption = '&Delete files'
       TabOrder = 0
       TabOrder = 0
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object SaveSettingsCheck: TCheckBox
     object SaveSettingsCheck: TCheckBox
-      Left = 11
-      Top = 92
-      Width = 196
+      Left = 9
+      Top = 91
+      Width = 239
       Height = 17
       Height = 17
       Caption = 'Use same &options next time'
       Caption = 'Use same &options next time'
       TabOrder = 6
       TabOrder = 6
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object SynchronizeExistingOnlyCheck: TCheckBox
     object SynchronizeExistingOnlyCheck: TCheckBox
-      Left = 229
-      Top = 20
-      Width = 213
+      Left = 254
+      Top = 22
+      Width = 239
       Height = 17
       Height = 17
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = '&Existing files only'
       Caption = '&Existing files only'
@@ -155,18 +151,18 @@ object SynchronizeDialog: TSynchronizeDialog
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object SynchronizeRecursiveCheck: TCheckBox
     object SynchronizeRecursiveCheck: TCheckBox
-      Left = 11
-      Top = 44
-      Width = 196
+      Left = 9
+      Top = 45
+      Width = 239
       Height = 17
       Height = 17
       Caption = 'Update s&ubdirectories'
       Caption = 'Update s&ubdirectories'
       TabOrder = 2
       TabOrder = 2
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object SynchronizeSynchronizeCheck: TGrayedCheckBox
     object SynchronizeSynchronizeCheck: TGrayedCheckBox
-      Left = 229
-      Top = 68
-      Width = 213
+      Left = 254
+      Top = 70
+      Width = 239
       Height = 17
       Height = 17
       AllowGrayed = True
       AllowGrayed = True
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
@@ -175,18 +171,18 @@ object SynchronizeDialog: TSynchronizeDialog
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object SynchronizeSelectedOnlyCheck: TCheckBox
     object SynchronizeSelectedOnlyCheck: TCheckBox
-      Left = 229
-      Top = 44
-      Width = 213
+      Left = 254
+      Top = 46
+      Width = 239
       Height = 17
       Height = 17
       Caption = 'Selected files o&nly'
       Caption = 'Selected files o&nly'
       TabOrder = 3
       TabOrder = 3
       OnClick = ControlChange
       OnClick = ControlChange
     end
     end
     object ContinueOnErrorCheck: TCheckBox
     object ContinueOnErrorCheck: TCheckBox
-      Left = 11
+      Left = 9
       Top = 68
       Top = 68
-      Width = 196
+      Width = 239
       Height = 17
       Height = 17
       Caption = 'Continue on &error'
       Caption = 'Continue on &error'
       TabOrder = 4
       TabOrder = 4
@@ -194,9 +190,9 @@ object SynchronizeDialog: TSynchronizeDialog
     end
     end
   end
   end
   object StartButton: TButton
   object StartButton: TButton
-    Left = 183
-    Top = 312
-    Width = 88
+    Left = 216
+    Top = 323
+    Width = 94
     Height = 25
     Height = 25
     Anchors = [akTop, akRight]
     Anchors = [akTop, akRight]
     Caption = '&Start'
     Caption = '&Start'
@@ -206,9 +202,9 @@ object SynchronizeDialog: TSynchronizeDialog
     OnDropDownClick = StartButtonDropDownClick
     OnDropDownClick = StartButtonDropDownClick
   end
   end
   object MinimizeButton: TButton
   object MinimizeButton: TButton
-    Left = 277
-    Top = 312
-    Width = 88
+    Left = 316
+    Top = 323
+    Width = 94
     Height = 25
     Height = 25
     Anchors = [akTop, akRight]
     Anchors = [akTop, akRight]
     Caption = '&Minimize'
     Caption = '&Minimize'
@@ -218,8 +214,8 @@ object SynchronizeDialog: TSynchronizeDialog
   end
   end
   object TransferSettingsButton: TButton
   object TransferSettingsButton: TButton
     Left = 8
     Left = 8
-    Top = 312
-    Width = 161
+    Top = 323
+    Width = 175
     Height = 25
     Height = 25
     Caption = 'Transfer settin&gs...'
     Caption = 'Transfer settin&gs...'
     TabOrder = 2
     TabOrder = 2
@@ -228,22 +224,22 @@ object SynchronizeDialog: TSynchronizeDialog
   end
   end
   object CopyParamGroup: TGroupBox
   object CopyParamGroup: TGroupBox
     Left = 8
     Left = 8
-    Top = 254
-    Width = 453
-    Height = 50
+    Top = 258
+    Width = 502
+    Height = 59
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]
     Caption = 'Transfer settings'
     Caption = 'Transfer settings'
     TabOrder = 7
     TabOrder = 7
     OnClick = CopyParamGroupClick
     OnClick = CopyParamGroupClick
     OnContextPopup = CopyParamGroupContextPopup
     OnContextPopup = CopyParamGroupContextPopup
     DesignSize = (
     DesignSize = (
-      453
-      50)
+      502
+      59)
     object CopyParamLabel: TLabel
     object CopyParamLabel: TLabel
-      Left = 7
-      Top = 15
-      Width = 439
-      Height = 26
+      Left = 9
+      Top = 20
+      Width = 484
+      Height = 35
       Anchors = [akLeft, akTop, akRight, akBottom]
       Anchors = [akLeft, akTop, akRight, akBottom]
       AutoSize = False
       AutoSize = False
       Caption = 'CopyParamLabel'
       Caption = 'CopyParamLabel'
@@ -253,9 +249,9 @@ object SynchronizeDialog: TSynchronizeDialog
     end
     end
   end
   end
   object HelpButton: TButton
   object HelpButton: TButton
-    Left = 371
-    Top = 312
-    Width = 88
+    Left = 416
+    Top = 323
+    Width = 94
     Height = 25
     Height = 25
     Anchors = [akTop, akRight]
     Anchors = [akTop, akRight]
     Caption = '&Help'
     Caption = '&Help'
@@ -264,20 +260,20 @@ object SynchronizeDialog: TSynchronizeDialog
   end
   end
   object LogPanel: TPanel
   object LogPanel: TPanel
     Left = 0
     Left = 0
-    Top = 345
-    Width = 468
-    Height = 100
+    Top = 353
+    Width = 518
+    Height = 113
     Align = alBottom
     Align = alBottom
     BevelOuter = bvNone
     BevelOuter = bvNone
     TabOrder = 9
     TabOrder = 9
     DesignSize = (
     DesignSize = (
-      468
-      100)
+      518
+      113)
     object LogView: TListView
     object LogView: TListView
       Left = 8
       Left = 8
       Top = 2
       Top = 2
-      Width = 452
-      Height = 90
+      Width = 502
+      Height = 103
       Anchors = [akLeft, akTop, akRight, akBottom]
       Anchors = [akLeft, akTop, akRight, akBottom]
       Columns = <
       Columns = <
         item
         item

+ 38 - 42
source/forms/SynchronizeChecklist.dfm

@@ -8,11 +8,7 @@ object SynchronizeChecklistDialog: TSynchronizeChecklistDialog
   ClientHeight = 521
   ClientHeight = 521
   ClientWidth = 695
   ClientWidth = 695
   Color = clBtnFace
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Icon.Data = {
   Icon.Data = {
     000001000700404000000100200028420000760000003030000001002000A825
     000001000700404000000100200028420000760000003030000001002000A825
     00009E4200002828000001002000681A0000466800002020000001002000A810
     00009E4200002828000001002000681A0000466800002020000001002000A810
@@ -1362,23 +1358,23 @@ object SynchronizeChecklistDialog: TSynchronizeChecklistDialog
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
   OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
   OnShow = FormShow
   OnShow = FormShow
-  TextHeight = 13
+  TextHeight = 15
   object Panel: TPanel
   object Panel: TPanel
-    Left = 571
+    Left = 562
     Top = 0
     Top = 0
-    Width = 124
+    Width = 133
     Height = 501
     Height = 501
     Align = alRight
     Align = alRight
     BevelOuter = bvNone
     BevelOuter = bvNone
     Constraints.MinHeight = 350
     Constraints.MinHeight = 350
     TabOrder = 1
     TabOrder = 1
     DesignSize = (
     DesignSize = (
-      124
+      133
       501)
       501)
     object OkButton: TButton
     object OkButton: TButton
-      Left = 8
+      Left = 6
       Top = 8
       Top = 8
-      Width = 108
+      Width = 119
       Height = 25
       Height = 25
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = 'OK'
       Caption = 'OK'
@@ -1389,9 +1385,9 @@ object SynchronizeChecklistDialog: TSynchronizeChecklistDialog
       OnDropDownClick = OkButtonDropDownClick
       OnDropDownClick = OkButtonDropDownClick
     end
     end
     object CancelButton: TButton
     object CancelButton: TButton
-      Left = 8
-      Top = 40
-      Width = 108
+      Left = 6
+      Top = 39
+      Width = 119
       Height = 25
       Height = 25
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Cancel = True
       Cancel = True
@@ -1400,45 +1396,45 @@ object SynchronizeChecklistDialog: TSynchronizeChecklistDialog
       TabOrder = 1
       TabOrder = 1
     end
     end
     object CheckAllButton: TButton
     object CheckAllButton: TButton
-      Left = 8
-      Top = 182
-      Width = 108
+      Left = 6
+      Top = 179
+      Width = 119
       Height = 25
       Height = 25
       Action = CheckAllAction
       Action = CheckAllAction
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       TabOrder = 5
       TabOrder = 5
     end
     end
     object UncheckAllButton: TButton
     object UncheckAllButton: TButton
-      Left = 8
-      Top = 214
-      Width = 108
+      Left = 6
+      Top = 210
+      Width = 119
       Height = 25
       Height = 25
       Action = UncheckAllAction
       Action = UncheckAllAction
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       TabOrder = 6
       TabOrder = 6
     end
     end
     object CheckButton: TButton
     object CheckButton: TButton
-      Left = 8
-      Top = 118
-      Width = 108
+      Left = 6
+      Top = 117
+      Width = 119
       Height = 25
       Height = 25
       Action = CheckAction
       Action = CheckAction
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       TabOrder = 3
       TabOrder = 3
     end
     end
     object UncheckButton: TButton
     object UncheckButton: TButton
-      Left = 8
-      Top = 150
-      Width = 108
+      Left = 6
+      Top = 148
+      Width = 119
       Height = 25
       Height = 25
       Action = UncheckAction
       Action = UncheckAction
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       TabOrder = 4
       TabOrder = 4
     end
     end
     object HelpButton: TButton
     object HelpButton: TButton
-      Left = 8
-      Top = 72
-      Width = 108
+      Left = 6
+      Top = 70
+      Width = 119
       Height = 25
       Height = 25
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = '&Help'
       Caption = '&Help'
@@ -1446,9 +1442,9 @@ object SynchronizeChecklistDialog: TSynchronizeChecklistDialog
       OnClick = HelpButtonClick
       OnClick = HelpButtonClick
     end
     end
     object CustomCommandsButton2: TButton
     object CustomCommandsButton2: TButton
-      Left = 8
-      Top = 322
-      Width = 108
+      Left = 6
+      Top = 319
+      Width = 119
       Height = 25
       Height = 25
       Action = CustomCommandsAction
       Action = CustomCommandsAction
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
@@ -1456,18 +1452,18 @@ object SynchronizeChecklistDialog: TSynchronizeChecklistDialog
       TabOrder = 9
       TabOrder = 9
     end
     end
     object ReverseButton: TButton
     object ReverseButton: TButton
-      Left = 8
-      Top = 260
-      Width = 108
+      Left = 6
+      Top = 257
+      Width = 119
       Height = 25
       Height = 25
       Action = ReverseAction
       Action = ReverseAction
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       TabOrder = 7
       TabOrder = 7
     end
     end
     object ToolsMenuButton: TButton
     object ToolsMenuButton: TButton
-      Left = 8
-      Top = 368
-      Width = 108
+      Left = 6
+      Top = 366
+      Width = 119
       Height = 25
       Height = 25
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
       Caption = '&Tools'
       Caption = '&Tools'
@@ -1475,9 +1471,9 @@ object SynchronizeChecklistDialog: TSynchronizeChecklistDialog
       OnClick = ToolsMenuButtonClick
       OnClick = ToolsMenuButtonClick
     end
     end
     object MoveButton: TButton
     object MoveButton: TButton
-      Left = 8
-      Top = 291
-      Width = 108
+      Left = 6
+      Top = 288
+      Width = 119
       Height = 25
       Height = 25
       Action = MoveAction
       Action = MoveAction
       Anchors = [akLeft, akTop, akRight]
       Anchors = [akLeft, akTop, akRight]
@@ -1487,7 +1483,7 @@ object SynchronizeChecklistDialog: TSynchronizeChecklistDialog
   object ListView: TIEListView
   object ListView: TIEListView
     Left = 0
     Left = 0
     Top = 0
     Top = 0
-    Width = 571
+    Width = 562
     Height = 501
     Height = 501
     OnRecreate = ListViewRecreate
     OnRecreate = ListViewRecreate
     Align = alClient
     Align = alClient

+ 34 - 38
source/forms/SynchronizeProgress.dfm

@@ -7,19 +7,15 @@ object SynchronizeProgressForm: TSynchronizeProgressForm
   ClientHeight = 219
   ClientHeight = 219
   ClientWidth = 424
   ClientWidth = 424
   Color = clWindow
   Color = clWindow
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
+  ParentFont = True
   Position = poOwnerFormCenter
   Position = poOwnerFormCenter
   DesignSize = (
   DesignSize = (
     424
     424
     219)
     219)
-  TextHeight = 13
+  TextHeight = 15
   object TimeLeftLabel: TLabel
   object TimeLeftLabel: TLabel
     Left = 141
     Left = 141
-    Top = 49
+    Top = 50
     Width = 79
     Width = 79
     Height = 13
     Height = 13
     AutoSize = False
     AutoSize = False
@@ -27,34 +23,34 @@ object SynchronizeProgressForm: TSynchronizeProgressForm
     ShowAccelChar = False
     ShowAccelChar = False
   end
   end
   object TimeLeftLabelLabel: TLabel
   object TimeLeftLabelLabel: TLabel
-    Left = 49
-    Top = 49
-    Width = 45
-    Height = 13
+    Left = 50
+    Top = 50
+    Width = 50
+    Height = 15
     Caption = 'Time left:'
     Caption = 'Time left:'
     ShowAccelChar = False
     ShowAccelChar = False
   end
   end
   object Label1: TLabel
   object Label1: TLabel
-    Left = 49
-    Top = 9
-    Width = 28
-    Height = 13
+    Left = 50
+    Top = 14
+    Width = 31
+    Height = 15
     Caption = 'Local:'
     Caption = 'Local:'
     ShowAccelChar = False
     ShowAccelChar = False
   end
   end
   object Label2: TLabel
   object Label2: TLabel
-    Left = 49
-    Top = 29
-    Width = 41
-    Height = 13
+    Left = 50
+    Top = 32
+    Width = 44
+    Height = 15
     Caption = 'Remote:'
     Caption = 'Remote:'
     ShowAccelChar = False
     ShowAccelChar = False
   end
   end
   object RemoteDirectoryLabel: TPathLabel
   object RemoteDirectoryLabel: TPathLabel
     Left = 141
     Left = 141
-    Top = 30
+    Top = 32
     Width = 273
     Width = 273
-    Height = 13
+    Height = 15
     UnixPath = True
     UnixPath = True
     IndentHorizontal = 0
     IndentHorizontal = 0
     IndentVertical = 0
     IndentVertical = 0
@@ -64,9 +60,9 @@ object SynchronizeProgressForm: TSynchronizeProgressForm
   end
   end
   object LocalDirectoryLabel: TPathLabel
   object LocalDirectoryLabel: TPathLabel
     Left = 141
     Left = 141
-    Top = 9
+    Top = 14
     Width = 273
     Width = 273
-    Height = 13
+    Height = 15
     IndentHorizontal = 0
     IndentHorizontal = 0
     IndentVertical = 0
     IndentVertical = 0
     Align = alNone
     Align = alNone
@@ -75,34 +71,34 @@ object SynchronizeProgressForm: TSynchronizeProgressForm
   end
   end
   object StartTimeLabel: TLabel
   object StartTimeLabel: TLabel
     Left = 141
     Left = 141
-    Top = 49
+    Top = 50
     Width = 81
     Width = 81
-    Height = 13
+    Height = 15
     AutoSize = False
     AutoSize = False
     Caption = '00:00:00'
     Caption = '00:00:00'
     ShowAccelChar = False
     ShowAccelChar = False
   end
   end
   object StartTimeLabelLabel: TLabel
   object StartTimeLabelLabel: TLabel
-    Left = 49
-    Top = 49
-    Width = 51
-    Height = 13
+    Left = 50
+    Top = 50
+    Width = 54
+    Height = 15
     Caption = 'Start time:'
     Caption = 'Start time:'
     ShowAccelChar = False
     ShowAccelChar = False
   end
   end
   object Label3: TLabel
   object Label3: TLabel
-    Left = 49
-    Top = 69
-    Width = 66
-    Height = 13
+    Left = 50
+    Top = 68
+    Width = 73
+    Height = 15
     Caption = 'Time elapsed:'
     Caption = 'Time elapsed:'
     ShowAccelChar = False
     ShowAccelChar = False
   end
   end
   object TimeElapsedLabel: TLabel
   object TimeElapsedLabel: TLabel
     Left = 141
     Left = 141
-    Top = 69
+    Top = 68
     Width = 79
     Width = 79
-    Height = 13
+    Height = 15
     AutoSize = False
     AutoSize = False
     Caption = '00:00:00'
     Caption = '00:00:00'
     ShowAccelChar = False
     ShowAccelChar = False
@@ -114,7 +110,7 @@ object SynchronizeProgressForm: TSynchronizeProgressForm
     Height = 32
     Height = 32
   end
   end
   object ToolbarPanel: TPanel
   object ToolbarPanel: TPanel
-    Left = 49
+    Left = 50
     Top = 115
     Top = 115
     Width = 185
     Width = 185
     Height = 28
     Height = 28
@@ -168,8 +164,8 @@ object SynchronizeProgressForm: TSynchronizeProgressForm
     TabOrder = 1
     TabOrder = 1
   end
   end
   object OperationProgress: TProgressBar
   object OperationProgress: TProgressBar
-    Left = 49
-    Top = 88
+    Left = 50
+    Top = 86
     Width = 365
     Width = 365
     Height = 16
     Height = 16
     Anchors = [akLeft, akTop, akRight]
     Anchors = [akLeft, akTop, akRight]

+ 1 - 1
source/packages/my/PasTools.pas

@@ -420,7 +420,7 @@ begin
 end;
 end;
 
 
 const
 const
-  OurDesignTimeTextHeight = 13;
+  OurDesignTimeTextHeight = 15;
 
 
 function ScaleByTextHeight(Control: TControl; Dimension: Integer): Integer;
 function ScaleByTextHeight(Control: TControl; Dimension: Integer): Integer;
 var
 var

+ 4 - 4
source/windows/VCLCommon.cpp

@@ -62,7 +62,7 @@ void __fastcall AutoSizeListColumnsWidth(TListView * ListView, int ColumnToShrin
   try
   try
   {
   {
     int ColumnPadding = 2 * ScaleByTextHeightRunTime(ListView, 6);
     int ColumnPadding = 2 * ScaleByTextHeightRunTime(ListView, 6);
-    int ColumnShrinkMinWidth = ScaleByTextHeightRunTime(ListView, 60);
+    int ColumnShrinkMinWidth = ScaleByTextHeightRunTime(ListView, 67);
 
 
     int ResizableWidth = 0;
     int ResizableWidth = 0;
     int NonResizableWidth = 0;
     int NonResizableWidth = 0;
@@ -1005,9 +1005,7 @@ void __fastcall UseSystemSettingsPre(TForm * Control)
     Control->HelpKeyword = L"start";
     Control->HelpKeyword = L"start";
   }
   }
 
 
-  // We have legacy XE6 font (Tahoma) explicitly set in DFMs to match the layout.
-  // That unlinks the font fonts from the Application->DefaultFont. We set the DefaultFont to Tahoma in WinSCP.cpp.
-  DebugAssert((Control->Name == L"AboutDialog") || SameFont(Control->Font, Application->DefaultFont));
+  DebugAssert(SameFont(Control->Font, Application->DefaultFont));
 
 
   ApplySystemSettingsOnControl(Control);
   ApplySystemSettingsOnControl(Control);
 };
 };
@@ -2582,6 +2580,7 @@ void TDesktopFontManager::UpdateControl(TControl * Control)
     if (DebugAlwaysTrue(SystemParametersInfoForPixelsPerInch(SPI_GETICONTITLELOGFONT, sizeof(LogFont), &LogFont, 0, PixelsPerInch)))
     if (DebugAlwaysTrue(SystemParametersInfoForPixelsPerInch(SPI_GETICONTITLELOGFONT, sizeof(LogFont), &LogFont, 0, PixelsPerInch)))
     {
     {
       DesktopFont->Handle = CreateFontIndirect(&LogFont);
       DesktopFont->Handle = CreateFontIndirect(&LogFont);
+      DebugAssert((PixelsPerInch == Screen->PixelsPerInch) || SameFont(DesktopFont.get(), Application->DefaultFont));
     }
     }
   }
   }
   else
   else
@@ -2631,6 +2630,7 @@ void __fastcall TDesktopFontManager::WndProc(TMessage & Message)
 //---------------------------------------------------------------------------
 //---------------------------------------------------------------------------
 std::unique_ptr<TDesktopFontManager> DesktopFontManager(new TDesktopFontManager());
 std::unique_ptr<TDesktopFontManager> DesktopFontManager(new TDesktopFontManager());
 //---------------------------------------------------------------------------
 //---------------------------------------------------------------------------
+// This might be somewhat redundant now that at least the default Desktop font is actually the default VCL font
 void __fastcall UseDesktopFont(TControl * Control)
 void __fastcall UseDesktopFont(TControl * Control)
 {
 {
   TCustomStatusBar * StatusBar = dynamic_cast<TCustomStatusBar *>(Control);
   TCustomStatusBar * StatusBar = dynamic_cast<TCustomStatusBar *>(Control);

+ 1 - 1
source/windows/WinInterface.h

@@ -185,7 +185,7 @@ typedef void __fastcall (__closure *TInputDialogInitialize)
 bool __fastcall InputDialog(const UnicodeString ACaption,
 bool __fastcall InputDialog(const UnicodeString ACaption,
   const UnicodeString APrompt, UnicodeString & Value, UnicodeString HelpKeyword = HELP_NONE,
   const UnicodeString APrompt, UnicodeString & Value, UnicodeString HelpKeyword = HELP_NONE,
   TStrings * History = NULL, bool PathInput = false,
   TStrings * History = NULL, bool PathInput = false,
-  TInputDialogInitialize OnInitialize = NULL, bool Echo = true, int Width = 275);
+  TInputDialogInitialize OnInitialize = NULL, bool Echo = true, int Width = 305);
 
 
 // forms\About.cpp
 // forms\About.cpp
 struct TRegistration
 struct TRegistration

部分文件因为文件数量过多而无法显示