mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Symlink form

Browse source
This commit is contained in:
Alexander Koblov 2018-12-16 11:29:53 +00:00
commit 1be76409ba
1 changed files with 31 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

70
src/fsymlink.lfm
View file

@ -12,20 +12,22 @@ object frmSymLink: TfrmSymLink
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Create symbolic link'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ClientHeight = 193
ClientWidth = 602
KeyPreview = True
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.6.4.0'
LCLVersion = '1.8.4.0'
object lblExistingFile: TLabel
AnchorSideLeft.Control = edtExistingFile
AnchorSideTop.Control = chkUseRelativePath
AnchorSideTop.Side = asrCenter
AnchorSideTop.Control = edtLinkToCreate
AnchorSideTop.Side = asrBottom
Left = 6
Height = 15
Top = 58
Width = 192
Height = 18
Top = 62
Width = 222
BorderSpacing.Top = 6
Caption = '&Destination that the link will point to'
FocusControl = edtExistingFile
@ -35,30 +37,27 @@ object frmSymLink: TfrmSymLink
AnchorSideLeft.Control = edtLinkToCreate
AnchorSideTop.Control = Owner
Left = 6
Height = 15
Height = 18
Top = 6
Width = 55
BorderSpacing.Top = 6
Width = 64
Caption = '&Link name'
FocusControl = edtLinkToCreate
ParentColor = False
end
object edtExistingFile: TEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = chkUseRelativePath
AnchorSideTop.Control = lblExistingFile
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 23
Top = 81
Height = 26
Top = 86
Width = 590
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Constraints.MinWidth = 400
TabOrder = 2
TabOrder = 1
end
object edtLinkToCreate: TEdit
AnchorSideLeft.Control = Owner
@ -67,29 +66,26 @@ object frmSymLink: TfrmSymLink
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 23
Top = 27
Height = 26
Top = 30
Width = 590
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Constraints.MinWidth = 400
TabOrder = 0
end
object btnOK: TBitBtn
AnchorSideTop.Control = edtExistingFile
AnchorSideTop.Control = chkUseRelativePath
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnCancel
Left = 390
Height = 30
Top = 116
Height = 33
Top = 148
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 12
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
BorderSpacing.InnerBorder = 2
Caption = '&OK'
Constraints.MinWidth = 100
@ -100,18 +96,17 @@ object frmSymLink: TfrmSymLink
TabOrder = 3
end
object btnCancel: TBitBtn
AnchorSideTop.Control = edtExistingFile
AnchorSideTop.Control = chkUseRelativePath
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edtExistingFile
AnchorSideRight.Side = asrBottom
Left = 496
Height = 30
Top = 116
Height = 33
Top = 148
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 12
BorderSpacing.Bottom = 6
BorderSpacing.Top = 6
BorderSpacing.InnerBorder = 2
Cancel = True
Caption = '&Cancel'
@ -121,19 +116,16 @@ object frmSymLink: TfrmSymLink
TabOrder = 4
end
object chkUseRelativePath: TCheckBox
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtLinkToCreate
AnchorSideLeft.Control = edtExistingFile
AnchorSideTop.Control = edtExistingFile
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edtExistingFile
AnchorSideRight.Side = asrBottom
Left = 411
Height = 19
Top = 56
Width = 185
Anchors = [akTop, akRight]
BorderSpacing.Left = 24
Left = 6
Height = 24
Top = 118
Width = 219
BorderSpacing.Top = 6
Caption = 'Use &relative path when possible'
TabOrder = 1
TabOrder = 2
end
end