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

UPD: Change link descriptions (fixes [3002680]), move symbolic link before hard link in menu, since it is more often used.

Browse source 
UPD: Autosize buttons of hard link and symbolic link forms.
This commit is contained in:
cobines 2011-02-03 02:39:17 +00:00
commit 0ba2ca1472
7 changed files with 60 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

22
src/fhardlink.lfm
View file

@ -7,7 +7,7 @@ object frmHardLink: TfrmHardLink
AutoSize = True
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Create hardlink'
Caption = 'Create hard link'
ClientHeight = 177
ClientWidth = 512
KeyPreview = True
@ -21,9 +21,9 @@ object frmHardLink: TfrmHardLink
Left = 6
Height = 22
Top = 69
Width = 284
Width = 247
BorderSpacing.Top = 6
Caption = 'Existing destination (where will link point)'
Caption = 'Destination that the link will point to'
FocusControl = edtExistingFile
ParentColor = False
end
@ -77,16 +77,18 @@ object frmHardLink: TfrmHardLink
AnchorSideTop.Control = edtExistingFile
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnCancel
Left = 320
Height = 32
Left = 300
Height = 35
Top = 138
Width = 90
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 12
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
BorderSpacing.InnerBorder = 2
Caption = '&OK'
Constraints.MinWidth = 100
Default = True
Kind = bkOK
ModalResult = 1
@ -100,16 +102,18 @@ object frmHardLink: TfrmHardLink
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edtExistingFile
AnchorSideRight.Side = asrBottom
Left = 416
Height = 32
Left = 406
Height = 35
Top = 138
Width = 90
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 12
BorderSpacing.Bottom = 6
BorderSpacing.InnerBorder = 2
Cancel = True
Caption = 'Cancel'
Constraints.MinWidth = 100
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0

10
src/fhardlink.lrt
View file

@ -1,5 +1,5 @@
TFRMHARDLINK.CAPTION=Create hardlink
TFRMHARDLINK.LBLEXISTINGFILE.CAPTION=Existing destination (where will link point)
TFRMHARDLINK.LBLLINKTOCREATE.CAPTION=Link name
TFRMHARDLINK.BTNOK.CAPTION=&OK
TFRMHARDLINK.BTNCANCEL.CAPTION=Cancel
TFRMHARDLINK.CAPTION=Create hard link
TFRMHARDLINK.LBLEXISTINGFILE.CAPTION=Destination that the link will point to
TFRMHARDLINK.LBLLINKTOCREATE.CAPTION=Link name
TFRMHARDLINK.BTNOK.CAPTION=&OK
TFRMHARDLINK.BTNCANCEL.CAPTION=Cancel

12
src/fmain.lfm
View file

@ -1240,14 +1240,14 @@ object frmMain: TfrmMain
top = 8
object mnuFiles: TMenuItem
Caption = '&Files'
object mnuFilesLink: TMenuItem
Action = actHardLink
OnClick = actExecute
end
object mnuFilesSymLink: TMenuItem
Action = actSymLink
OnClick = actExecute
end
object mnuFilesHardLink: TMenuItem
Action = actHardLink
OnClick = actExecute
end
object miLine1: TMenuItem
Caption = '-'
end
@ -1749,13 +1749,13 @@ object frmMain: TfrmMain
end
object actSymLink: TAction
Category = 'File'
Caption = 'Create symlink...'
Caption = 'Create symbolic link...'
HelpType = htKeyword
OnExecute = actExecute
end
object actHardLink: TAction
Category = 'File'
Caption = 'Create link...'
Caption = 'Create hard link...'
HelpType = htKeyword
OnExecute = actExecute
end

4
src/fmain.lrt
View file

@ -73,8 +73,8 @@ TFRMMAIN.ACTMARKINVERT.CAPTION=Invert Selections
TFRMMAIN.ACTMARKUNMARKALL.CAPTION=Unselect All
TFRMMAIN.ACTMARKPLUS.CAPTION=Select a group
TFRMMAIN.ACTMARKMINUS.CAPTION=Unselect a group
TFRMMAIN.ACTSYMLINK.CAPTION=Create symlink...
TFRMMAIN.ACTHARDLINK.CAPTION=Create link...
TFRMMAIN.ACTSYMLINK.CAPTION=Create symbolic link...
TFRMMAIN.ACTHARDLINK.CAPTION=Create hard link...
TFRMMAIN.ACTREVERSEORDER.CAPTION=Reverse order
TFRMMAIN.ACTSORTBYNAME.CAPTION=Sort by name
TFRMMAIN.ACTSORTBYEXT.CAPTION=Sort by extension

2
src/fmain.pas
View file

@ -314,7 +314,7 @@ type
miLine3: TMenuItem;
mnuFilesShwSysFiles: TMenuItem;
miLine1: TMenuItem;
mnuFilesLink: TMenuItem;
mnuFilesHardLink: TMenuItem;
mnuFilesSymLink: TMenuItem;
mnuConfig: TMenuItem;
mnuConfigOptions: TMenuItem;

58
src/fsymlink.lfm
View file

@ -1,8 +1,8 @@
object frmSymLink: TfrmSymLink
Left = 311
Height = 187
Height = 193
Top = 267
Width = 487
Width = 602
HorzScrollBar.Page = 399
HorzScrollBar.Range = 344
VertScrollBar.Page = 151
@ -11,11 +11,9 @@ object frmSymLink: TfrmSymLink
AutoSize = True
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Create symlink'
ChildSizing.LeftRightSpacing = 8
ChildSizing.TopBottomSpacing = 8
ClientHeight = 187
ClientWidth = 487
Caption = 'Create symbolic link'
ClientHeight = 193
ClientWidth = 602
KeyPreview = True
OnShow = FormShow
Position = poScreenCenter
@ -24,21 +22,21 @@ object frmSymLink: TfrmSymLink
AnchorSideLeft.Control = edtExistingFile
AnchorSideTop.Control = edtLinkToCreate
AnchorSideTop.Side = asrBottom
Left = 8
Left = 6
Height = 22
Top = 71
Width = 284
Top = 69
Width = 247
BorderSpacing.Top = 6
Caption = 'Existing destination (where will link point)'
Caption = 'Destination that the link will point to'
FocusControl = edtExistingFile
ParentColor = False
end
object lblLinkToCreate: TLabel
AnchorSideLeft.Control = edtLinkToCreate
AnchorSideTop.Control = Owner
Left = 8
Left = 6
Height = 22
Top = 8
Top = 6
Width = 72
BorderSpacing.Top = 6
Caption = 'Link name'
@ -51,10 +49,10 @@ object frmSymLink: TfrmSymLink
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 8
Left = 6
Height = 29
Top = 99
Width = 471
Top = 97
Width = 590
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
@ -68,10 +66,10 @@ object frmSymLink: TfrmSymLink
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 8
Left = 6
Height = 29
Top = 36
Width = 471
Top = 34
Width = 590
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
@ -83,15 +81,18 @@ object frmSymLink: TfrmSymLink
AnchorSideTop.Control = edtExistingFile
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnCancel
Left = 293
Height = 32
Top = 140
Width = 90
Left = 390
Height = 35
Top = 138
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 12
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
BorderSpacing.InnerBorder = 2
Caption = '&OK'
Constraints.MinWidth = 100
Default = True
Kind = bkOK
ModalResult = 1
@ -105,15 +106,18 @@ object frmSymLink: TfrmSymLink
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edtExistingFile
AnchorSideRight.Side = asrBottom
Left = 389
Height = 32
Top = 140
Width = 90
Left = 496
Height = 35
Top = 138
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 12
BorderSpacing.Bottom = 6
BorderSpacing.InnerBorder = 2
Cancel = True
Caption = 'Cancel'
Constraints.MinWidth = 100
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0

4
src/fsymlink.lrt
View file

@ -1,5 +1,5 @@
TFRMSYMLINK.CAPTION=Create symlink
TFRMSYMLINK.LBLEXISTINGFILE.CAPTION=Existing destination (where will link point)
TFRMSYMLINK.CAPTION=Create symbolic link
TFRMSYMLINK.LBLEXISTINGFILE.CAPTION=Destination that the link will point to
TFRMSYMLINK.LBLLINKTOCREATE.CAPTION=Link name
TFRMSYMLINK.BTNOK.CAPTION=&OK
TFRMSYMLINK.BTNCANCEL.CAPTION=Cancel