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

FIX: Controls alignment

Browse source
This commit is contained in:
Alexander Koblov 2026-05-05 22:06:18 +03:00
commit 22020d2e85
2 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/filesources/filesystem/ffilesystemcopymoveoperationoptions.lfm
View file

@ -7,7 +7,7 @@ object FileSystemCopyMoveOperationOptionsUI: TFileSystemCopyMoveOperationOptions
ClientHeight = 248
ClientWidth = 637
LCLVersion = '1.6.0.4'
object pnlComboBoxes: TPanel
object pnlComboBoxes: TKASPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 0
@ -19,7 +19,7 @@ object FileSystemCopyMoveOperationOptionsUI: TFileSystemCopyMoveOperationOptions
BevelOuter = bvNone
ChildSizing.TopBottomSpacing = 5
ChildSizing.HorizontalSpacing = 5
ChildSizing.VerticalSpacing = 10
ChildSizing.VerticalSpacing = 4
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 75
@ -33,6 +33,7 @@ object FileSystemCopyMoveOperationOptionsUI: TFileSystemCopyMoveOperationOptions
BorderSpacing.CellAlignVertical = ccaCenter
Caption = 'When &file exists'
FocusControl = cmbFileExists
Layout = tlCenter
ParentColor = False
end
object lblDirectoryExists: TLabel
@ -43,6 +44,7 @@ object FileSystemCopyMoveOperationOptionsUI: TFileSystemCopyMoveOperationOptions
BorderSpacing.CellAlignVertical = ccaCenter
Caption = 'When dir&ectory exists'
FocusControl = cmbDirectoryExists
Layout = tlCenter
ParentColor = False
end
object lblSetPropertyError: TLabel
@ -53,6 +55,7 @@ object FileSystemCopyMoveOperationOptionsUI: TFileSystemCopyMoveOperationOptions
BorderSpacing.CellAlignVertical = ccaCenter
Caption = 'When ca&nnot set property'
FocusControl = cmbSetPropertyError
Layout = tlCenter
ParentColor = False
end
object cmbFileExists: TComboBoxAutoWidth

4
src/filesources/filesystem/ffilesystemcopymoveoperationoptions.pas
View file

@ -9,7 +9,7 @@ uses
uFileSourceOperationOptionsUI,
uFileSystemCopyOperation,
uFileSystemMoveOperation,
uSearchTemplate, KASComboBox, KASButton;
uSearchTemplate, KASComboBox, KASButton, KASControls;
type
@ -38,7 +38,7 @@ type
lblTemplateName: TLabel;
lblDirectoryExists: TLabel;
lblFileExists: TLabel;
pnlComboBoxes: TPanel;
pnlComboBoxes: TKASPanel;
pnlCheckboxes: TPanel;
procedure btnSearchTemplateClick(Sender: TObject);
procedure cbCopyAttributesChange(Sender: TObject);