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

FIX: Bug [0000555] "Missing acceleration keys and bad Tab order in find and other dialogs" (patch by pktfag)

Browse source
This commit is contained in:
Alexander Koblov 2012-09-09 08:03:12 +00:00
commit d5c31038f9
48 changed files with 1595 additions and 1591 deletions
Download patch file Download diff file Expand all files Collapse all files

686
src/fFindDlg.lfm
View file

File diff suppressed because it is too large Load diff

30
src/fFindDlg.lrt
View file

@ -1,8 +1,8 @@
TFRMFINDDLG.CAPTION=Find files
TFRMFINDDLG.TSSTANDARD.CAPTION=Standard
TFRMFINDDLG.GBDIRECTORIES.CAPTION=Directories
TFRMFINDDLG.LBLFINDPATHSTART.CAPTION=&Start in directory
TFRMFINDDLG.CBFOLLOWSYMLINKS.CAPTION=Follow symlinks
TFRMFINDDLG.LBLFINDPATHSTART.CAPTION=Start in &directory
TFRMFINDDLG.CBFOLLOWSYMLINKS.CAPTION=Follow s&ymlinks
TFRMFINDDLG.LBLEXCLUDEDIRECTORIES.CAPTION=E&xclude subdirectories
TFRMFINDDLG.CMBEXCLUDEDIRECTORIES.HINT=Enter directories names that should be excluded from search separated with ";"
TFRMFINDDLG.LBLSEARCHDEPTH.CAPTION=Search su&bdirectories:
@ -12,23 +12,23 @@ TFRMFINDDLG.CMBFINDFILEMASK.HINT=Enter files names separated with ";"
TFRMFINDDLG.CMBFINDFILEMASK.TEXT=*
TFRMFINDDLG.LBLEXCLUDEFILES.CAPTION=&Exclude files
TFRMFINDDLG.CMBEXCLUDEFILES.HINT=Enter files names that should be excluded from search separated with ";"
TFRMFINDDLG.CBPARTIALNAMESEARCH.CAPTION=Search for part of file name
TFRMFINDDLG.CBPARTIALNAMESEARCH.CAPTION=Searc&h for part of file name
TFRMFINDDLG.CBREGEXP.CAPTION=&Regular expression
TFRMFINDDLG.GBFINDDATA.CAPTION=Find Data
TFRMFINDDLG.LBLENCODING.CAPTION=Encoding:
TFRMFINDDLG.LBLENCODING.CAPTION=Encodin&g:
TFRMFINDDLG.CBCASESENS.CAPTION=Case sens&itive
TFRMFINDDLG.CBNOTCONTAININGTEXT.CAPTION=Find files N&OT containing the text
TFRMFINDDLG.CBFINDTEXT.CAPTION=Find &text in file
TFRMFINDDLG.CBREPLACETEXT.CAPTION=Re&place by
TFRMFINDDLG.TSADVANCED.CAPTION=Advanced
TFRMFINDDLG.CBDATEFROM.CAPTION=Date From:
TFRMFINDDLG.CBNOTOLDERTHAN.CAPTION=Not older than:
TFRMFINDDLG.CBFILESIZEFROM.CAPTION=Size from:
TFRMFINDDLG.CBDATETO.CAPTION=Date To:
TFRMFINDDLG.CBFILESIZETO.CAPTION=Size to:
TFRMFINDDLG.CBTIMEFROM.CAPTION=Time from:
TFRMFINDDLG.CBTIMETO.CAPTION=Time to:
TFRMFINDDLG.GBATTRIBUTES.CAPTION=&Attributes
TFRMFINDDLG.CBDATEFROM.CAPTION=&Date from:
TFRMFINDDLG.CBNOTOLDERTHAN.CAPTION=N&ot older than:
TFRMFINDDLG.CBFILESIZEFROM.CAPTION=S&ize from:
TFRMFINDDLG.CBDATETO.CAPTION=Dat&e to:
TFRMFINDDLG.CBFILESIZETO.CAPTION=Si&ze to:
TFRMFINDDLG.CBTIMEFROM.CAPTION=&Time from:
TFRMFINDDLG.CBTIMETO.CAPTION=Ti&me to:
TFRMFINDDLG.LBLATTRIBUTES.CAPTION=Attri&butes
TFRMFINDDLG.BTNADDATTRIBUTE.CAPTION=&Add
TFRMFINDDLG.BTNATTRSHELP.CAPTION=&Help
TFRMFINDDLG.TSPLUGINS.CAPTION=Plugins
@ -37,8 +37,8 @@ TFRMFINDDLG.TSLOADSAVE.CAPTION=Load/Save
TFRMFINDDLG.LBLTEMPLATEHEADER.CAPTION=&Previous searches:
TFRMFINDDLG.BTNSEARCHLOAD.CAPTION=L&oad
TFRMFINDDLG.BTNSEARCHSAVE.CAPTION=S&ave
TFRMFINDDLG.BTNSEARCHSAVEWITHSTARTINGPATH.HINT=If starting path if saved then it will be restored when loading template. Use it if you want to fix searching to a certain directory.
TFRMFINDDLG.BTNSEARCHSAVEWITHSTARTINGPATH.CAPTION=Save with starting path
TFRMFINDDLG.BTNSEARCHSAVEWITHSTARTINGPATH.HINT=If saved then "Start in directory" will be restored when loading template. Use it if you want to fix searching to a certain directory
TFRMFINDDLG.BTNSEARCHSAVEWITHSTARTINGPATH.CAPTION=Sa&ve with "Start in directory"
TFRMFINDDLG.BTNSEARCHDELETE.CAPTION=&Delete
TFRMFINDDLG.TSRESULTS.CAPTION=Results
TFRMFINDDLG.BTNWORKWITHFOUND.CAPTION=Feed to &listbox
@ -48,7 +48,7 @@ TFRMFINDDLG.BTNEDIT.CAPTION=&Edit
TFRMFINDDLG.BTNUSETEMPLATE.CAPTION=Use template
TFRMFINDDLG.BTNSAVETEMPLATE.CAPTION=&Save
TFRMFINDDLG.BTNSTART.CAPTION=&Start
TFRMFINDDLG.BTNSTOP.CAPTION=Cancel
TFRMFINDDLG.BTNSTOP.CAPTION=C&ancel
TFRMFINDDLG.BTNCLOSE.CAPTION=&Close
TFRMFINDDLG.BTNNEWSEARCH.CAPTION=&New search
TFRMFINDDLG.BTNLASTSEARCH.CAPTION=&Last search

4
src/fFindDlg.pas
View file

@ -81,11 +81,11 @@ type
cmbReplaceText: TComboBoxWithDelItems;
cmbFindText: TComboBoxWithDelItems;
cmbExcludeFiles: TComboBoxWithDelItems;
edtFindPathStart: TDirectoryEdit;
edtAttrib: TEdit;
gbAttributes: TGroupBox;
edtFindPathStart: TDirectoryEdit;
gbDirectories: TGroupBox;
gbFiles: TGroupBox;
lblAttributes: TLabel;
lblExcludeDirectories: TLabel;
lblCurrent: TLabel;
lblExcludeFiles: TLabel;

257
src/fattributesedit.lfm
View file

@ -12,10 +12,10 @@ object frmAttributesEdit: TfrmAttributesEdit
FormStyle = fsStayOnTop
Position = poOwnerFormCenter
ShowInTaskBar = stNever
LCLVersion = '0.9.29'
LCLVersion = '1.1'
object pnlTopAttrs: TPanel
Left = 0
Height = 21
Height = 23
Top = 5
Width = 329
Align = alTop
@ -27,28 +27,28 @@ object frmAttributesEdit: TfrmAttributesEdit
ChildSizing.ShrinkHorizontal = crsHomogenousSpaceResize
ChildSizing.ShrinkVertical = crsHomogenousSpaceResize
ChildSizing.Layout = cclTopToBottomThenLeftToRight
ClientHeight = 21
ClientHeight = 23
ClientWidth = 329
TabOrder = 3
TabOrder = 0
object cbSymlink: TCheckBox
Left = 64
Height = 21
Left = 58
Height = 23
Top = 0
Width = 67
Width = 72
AllowGrayed = True
Caption = 'Symlink'
Caption = '&Symlink'
OnChange = cbAttrCheckBoxChanged
OnClick = cbAttrCheckBoxClicked
State = cbGrayed
TabOrder = 0
end
object cbDirectory: TCheckBox
Left = 195
Height = 21
Left = 188
Height = 23
Top = 0
Width = 72
Width = 84
AllowGrayed = True
Caption = 'Directory'
Caption = '&Directory'
OnChange = cbAttrCheckBoxChanged
OnClick = cbAttrCheckBoxClicked
State = cbGrayed
@ -57,16 +57,16 @@ object frmAttributesEdit: TfrmAttributesEdit
end
object pnlUnixAttrs: TPanel
Left = 10
Height = 188
Top = 26
Height = 181
Top = 28
Width = 309
Align = alClient
BorderSpacing.Left = 10
BorderSpacing.Right = 10
BevelOuter = bvNone
ClientHeight = 188
ClientHeight = 181
ClientWidth = 309
TabOrder = 0
TabOrder = 1
Visible = False
object lblAttrOwnerStr: TLabel
AnchorSideTop.Control = cbReadOwner
@ -74,7 +74,7 @@ object frmAttributesEdit: TfrmAttributesEdit
Left = 8
Height = 18
Top = 33
Width = 36
Width = 46
Caption = 'Owner'
ParentColor = False
end
@ -83,7 +83,7 @@ object frmAttributesEdit: TfrmAttributesEdit
Left = 176
Height = 18
Top = 8
Width = 30
Width = 38
BorderSpacing.Top = 8
Caption = 'Write'
ParentColor = False
@ -93,7 +93,7 @@ object frmAttributesEdit: TfrmAttributesEdit
Left = 104
Height = 18
Top = 8
Width = 30
Width = 32
BorderSpacing.Top = 8
Caption = 'Read'
ParentColor = False
@ -103,7 +103,7 @@ object frmAttributesEdit: TfrmAttributesEdit
Left = 240
Height = 18
Top = 8
Width = 45
Width = 53
BorderSpacing.Top = 8
Caption = 'Execute'
ParentColor = False
@ -113,8 +113,8 @@ object frmAttributesEdit: TfrmAttributesEdit
AnchorSideTop.Side = asrCenter
Left = 8
Height = 18
Top = 60
Width = 34
Top = 59
Width = 41
Caption = 'Group'
ParentColor = False
end
@ -123,8 +123,8 @@ object frmAttributesEdit: TfrmAttributesEdit
AnchorSideTop.Side = asrCenter
Left = 8
Height = 18
Top = 87
Width = 31
Top = 85
Width = 40
Caption = 'Other'
ParentColor = False
end
@ -133,8 +133,8 @@ object frmAttributesEdit: TfrmAttributesEdit
AnchorSideTop.Side = asrCenter
Left = 8
Height = 18
Top = 114
Width = 25
Top = 112
Width = 29
Caption = 'Bits:'
ParentColor = False
end
@ -142,9 +142,9 @@ object frmAttributesEdit: TfrmAttributesEdit
AnchorSideTop.Control = lblRead
AnchorSideTop.Side = asrBottom
Left = 112
Height = 21
Height = 20
Top = 32
Width = 24
Width = 20
AllowGrayed = True
BorderSpacing.Top = 6
OnChange = cbAttrCheckBoxChanged
@ -156,9 +156,9 @@ object frmAttributesEdit: TfrmAttributesEdit
AnchorSideTop.Control = lblWrite
AnchorSideTop.Side = asrBottom
Left = 184
Height = 21
Height = 20
Top = 32
Width = 24
Width = 20
AllowGrayed = True
BorderSpacing.Top = 6
OnChange = cbAttrCheckBoxChanged
@ -170,9 +170,9 @@ object frmAttributesEdit: TfrmAttributesEdit
AnchorSideTop.Control = lblExec
AnchorSideTop.Side = asrBottom
Left = 256
Height = 21
Height = 20
Top = 32
Width = 24
Width = 20
AllowGrayed = True
BorderSpacing.Top = 6
OnChange = cbAttrCheckBoxChanged
@ -184,9 +184,9 @@ object frmAttributesEdit: TfrmAttributesEdit
AnchorSideTop.Control = cbReadOwner
AnchorSideTop.Side = asrBottom
Left = 112
Height = 21
Top = 59
Width = 24
Height = 20
Top = 58
Width = 20
AllowGrayed = True
BorderSpacing.Top = 6
OnChange = cbAttrCheckBoxChanged
@ -198,9 +198,9 @@ object frmAttributesEdit: TfrmAttributesEdit
AnchorSideTop.Control = cbWriteOwner
AnchorSideTop.Side = asrBottom
Left = 184
Height = 21
Top = 59
Width = 24
Height = 20
Top = 58
Width = 20
AllowGrayed = True
BorderSpacing.Top = 6
OnChange = cbAttrCheckBoxChanged
@ -212,9 +212,9 @@ object frmAttributesEdit: TfrmAttributesEdit
AnchorSideTop.Control = cbExecOwner
AnchorSideTop.Side = asrBottom
Left = 256
Height = 21
Top = 59
Width = 24
Height = 20
Top = 58
Width = 20
AllowGrayed = True
BorderSpacing.Top = 6
OnChange = cbAttrCheckBoxChanged
@ -226,9 +226,9 @@ object frmAttributesEdit: TfrmAttributesEdit
AnchorSideTop.Control = cbReadGroup
AnchorSideTop.Side = asrBottom
Left = 112
Height = 21
Top = 86
Width = 24
Height = 20
Top = 84
Width = 20
AllowGrayed = True
BorderSpacing.Top = 6
OnChange = cbAttrCheckBoxChanged
@ -240,9 +240,9 @@ object frmAttributesEdit: TfrmAttributesEdit
AnchorSideTop.Control = cbWriteGroup
AnchorSideTop.Side = asrBottom
Left = 184
Height = 21
Top = 86
Width = 24
Height = 20
Top = 84
Width = 20
AllowGrayed = True
BorderSpacing.Top = 6
OnChange = cbAttrCheckBoxChanged
@ -254,9 +254,9 @@ object frmAttributesEdit: TfrmAttributesEdit
AnchorSideTop.Control = cbReadGroup
AnchorSideTop.Side = asrBottom
Left = 256
Height = 21
Top = 86
Width = 24
Height = 20
Top = 84
Width = 20
AllowGrayed = True
BorderSpacing.Top = 6
OnChange = cbAttrCheckBoxChanged
@ -268,9 +268,9 @@ object frmAttributesEdit: TfrmAttributesEdit
AnchorSideTop.Control = cbReadOther
AnchorSideTop.Side = asrBottom
Left = 112
Height = 21
Top = 113
Width = 50
Height = 23
Top = 110
Width = 57
AllowGrayed = True
BorderSpacing.Top = 6
Caption = 'SUID'
@ -283,9 +283,9 @@ object frmAttributesEdit: TfrmAttributesEdit
AnchorSideTop.Control = cbWriteOther
AnchorSideTop.Side = asrBottom
Left = 184
Height = 21
Top = 113
Width = 50
Height = 23
Top = 110
Width = 58
AllowGrayed = True
BorderSpacing.Top = 6
Caption = 'SGID'
@ -298,9 +298,9 @@ object frmAttributesEdit: TfrmAttributesEdit
AnchorSideTop.Control = cbExecOther
AnchorSideTop.Side = asrBottom
Left = 256
Height = 21
Top = 113
Width = 56
Height = 23
Top = 110
Width = 61
AllowGrayed = True
BorderSpacing.Top = 6
Caption = 'Sticky'
@ -312,8 +312,8 @@ object frmAttributesEdit: TfrmAttributesEdit
end
object pnlWinAttrs: TPanel
Left = 10
Height = 188
Top = 26
Height = 181
Top = 28
Width = 309
Align = alClient
AutoSize = True
@ -326,13 +326,13 @@ object frmAttributesEdit: TfrmAttributesEdit
ChildSizing.ShrinkHorizontal = crsHomogenousChildResize
ChildSizing.ShrinkVertical = crsHomogenousChildResize
ChildSizing.Layout = cclTopToBottomThenLeftToRight
ClientHeight = 188
ClientHeight = 181
ClientWidth = 309
TabOrder = 1
TabOrder = 2
Visible = False
object gbWinGeneral: TGroupBox
Left = 0
Height = 188
Height = 181
Top = 0
Width = 150
AutoSize = True
@ -344,53 +344,53 @@ object frmAttributesEdit: TfrmAttributesEdit
ChildSizing.ShrinkHorizontal = crsHomogenousSpaceResize
ChildSizing.ShrinkVertical = crsHomogenousSpaceResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ClientHeight = 170
ClientHeight = 158
ClientWidth = 146
Constraints.MinWidth = 150
TabOrder = 0
object cbArchive: TCheckBox
Left = 34
Height = 21
Top = 16
Width = 78
Left = 30
Height = 23
Top = 12
Width = 86
AllowGrayed = True
Caption = 'Archive'
Caption = '&Archive'
OnChange = cbAttrCheckBoxChanged
OnClick = cbAttrCheckBoxClicked
State = cbGrayed
TabOrder = 0
end
object cbReadOnly: TCheckBox
Left = 34
Height = 21
Top = 53
Width = 78
Left = 30
Height = 23
Top = 47
Width = 86
AllowGrayed = True
Caption = 'Read only'
Caption = 'Read o&nly'
OnChange = cbAttrCheckBoxChanged
OnClick = cbAttrCheckBoxClicked
State = cbGrayed
TabOrder = 1
end
object cbHidden: TCheckBox
Left = 34
Height = 21
Top = 90
Width = 78
Left = 30
Height = 23
Top = 82
Width = 86
AllowGrayed = True
Caption = 'Hidden'
Caption = '&Hidden'
OnChange = cbAttrCheckBoxChanged
OnClick = cbAttrCheckBoxClicked
State = cbGrayed
TabOrder = 2
end
object cbSystem: TCheckBox
Left = 34
Height = 21
Top = 127
Width = 78
Left = 30
Height = 23
Top = 117
Width = 86
AllowGrayed = True
Caption = 'System'
Caption = 'S&ystem'
OnChange = cbAttrCheckBoxChanged
OnClick = cbAttrCheckBoxClicked
State = cbGrayed
@ -399,7 +399,7 @@ object frmAttributesEdit: TfrmAttributesEdit
end
object gbNtfsAttributes: TGroupBox
Left = 160
Height = 188
Height = 181
Top = 0
Width = 150
AutoSize = True
@ -411,53 +411,53 @@ object frmAttributesEdit: TfrmAttributesEdit
ChildSizing.ShrinkHorizontal = crsHomogenousSpaceResize
ChildSizing.ShrinkVertical = crsHomogenousSpaceResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ClientHeight = 170
ClientHeight = 158
ClientWidth = 146
Constraints.MinWidth = 150
TabOrder = 1
object cbCompressed: TCheckBox
Left = 26
Height = 21
Top = 16
Width = 94
Left = 22
Height = 23
Top = 12
Width = 103
AllowGrayed = True
Caption = 'Compressed'
Caption = 'Co&mpressed'
OnChange = cbAttrCheckBoxChanged
OnClick = cbAttrCheckBoxClicked
State = cbGrayed
TabOrder = 0
end
object cbEncrypted: TCheckBox
Left = 26
Height = 21
Top = 53
Width = 94
Left = 22
Height = 23
Top = 47
Width = 103
AllowGrayed = True
Caption = 'Encrypted'
Caption = '&Encrypted'
OnChange = cbAttrCheckBoxChanged
OnClick = cbAttrCheckBoxClicked
State = cbGrayed
TabOrder = 1
end
object cbTemporary: TCheckBox
Left = 26
Height = 21
Top = 90
Width = 94
Left = 22
Height = 23
Top = 82
Width = 103
AllowGrayed = True
Caption = 'Temporary'
Caption = '&Temporary'
OnChange = cbAttrCheckBoxChanged
OnClick = cbAttrCheckBoxClicked
State = cbGrayed
TabOrder = 2
end
object cbSparse: TCheckBox
Left = 26
Height = 21
Top = 127
Width = 94
Left = 22
Height = 23
Top = 117
Width = 103
AllowGrayed = True
Caption = 'Sparse'
Caption = 'S&parse'
OnChange = cbAttrCheckBoxChanged
OnClick = cbAttrCheckBoxClicked
State = cbGrayed
@ -467,8 +467,8 @@ object frmAttributesEdit: TfrmAttributesEdit
end
object pnlTextAttrs: TPanel
Left = 10
Height = 25
Top = 219
Height = 28
Top = 214
Width = 309
Align = alBottom
AutoSize = True
@ -476,18 +476,19 @@ object frmAttributesEdit: TfrmAttributesEdit
BorderSpacing.Top = 5
BorderSpacing.Right = 10
BevelOuter = bvNone
ClientHeight = 25
ClientHeight = 28
ClientWidth = 309
TabOrder = 4
TabOrder = 3
object lblTextAttrs: TLabel
AnchorSideLeft.Control = pnlTextAttrs
AnchorSideTop.Control = pnlTextAttrs
AnchorSideTop.Side = asrCenter
Left = 0
Height = 18
Top = 3
Width = 41
Caption = 'As text:'
Top = 5
Width = 53
Caption = 'As te&xt:'
FocusControl = edtTextAttrs
ParentColor = False
end
object edtTextAttrs: TEdit
@ -496,10 +497,10 @@ object frmAttributesEdit: TfrmAttributesEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = pnlTextAttrs
AnchorSideRight.Side = asrBottom
Left = 51
Height = 25
Left = 63
Height = 28
Top = 0
Width = 258
Width = 246
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
ReadOnly = True
@ -508,8 +509,8 @@ object frmAttributesEdit: TfrmAttributesEdit
end
object pnlButtons: TPanel
Left = 5
Height = 30
Top = 249
Height = 32
Top = 247
Width = 319
Align = alBottom
AutoSize = True
@ -521,21 +522,21 @@ object frmAttributesEdit: TfrmAttributesEdit
ChildSizing.ShrinkHorizontal = crsHomogenousChildResize
ChildSizing.ShrinkVertical = crsHomogenousChildResize
ChildSizing.Layout = cclTopToBottomThenLeftToRight
ClientHeight = 30
ClientHeight = 32
ClientWidth = 319
TabOrder = 2
TabOrder = 4
object btnReset: TButton
Left = 0
Height = 30
Height = 32
Top = 0
Width = 91
Width = 87
Caption = '&Reset'
OnClick = btnResetClick
TabOrder = 0
end
object btnOk: TBitBtn
Left = 101
Height = 30
Left = 97
Height = 32
Top = 0
Width = 94
Caption = '&OK'
@ -546,10 +547,10 @@ object frmAttributesEdit: TfrmAttributesEdit
TabOrder = 1
end
object btnCancel: TBitBtn
Left = 205
Height = 30
Left = 201
Height = 32
Top = 0
Width = 114
Width = 118
Caption = '&Cancel'
Constraints.MinHeight = 30
Kind = bkCancel

22
src/fattributesedit.lrt
View file

@ -1,6 +1,6 @@
TFRMATTRIBUTESEDIT.CAPTION=Choose attributes
TFRMATTRIBUTESEDIT.CBSYMLINK.CAPTION=Symlink
TFRMATTRIBUTESEDIT.CBDIRECTORY.CAPTION=Directory
TFRMATTRIBUTESEDIT.CBSYMLINK.CAPTION=&Symlink
TFRMATTRIBUTESEDIT.CBDIRECTORY.CAPTION=&Directory
TFRMATTRIBUTESEDIT.LBLATTROWNERSTR.CAPTION=Owner
TFRMATTRIBUTESEDIT.LBLWRITE.CAPTION=Write
TFRMATTRIBUTESEDIT.LBLREAD.CAPTION=Read
@ -12,16 +12,16 @@ TFRMATTRIBUTESEDIT.CBSUID.CAPTION=SUID
TFRMATTRIBUTESEDIT.CBSGID.CAPTION=SGID
TFRMATTRIBUTESEDIT.CBSTICKY.CAPTION=Sticky
TFRMATTRIBUTESEDIT.GBWINGENERAL.CAPTION=General attributes
TFRMATTRIBUTESEDIT.CBARCHIVE.CAPTION=Archive
TFRMATTRIBUTESEDIT.CBREADONLY.CAPTION=Read only
TFRMATTRIBUTESEDIT.CBHIDDEN.CAPTION=Hidden
TFRMATTRIBUTESEDIT.CBSYSTEM.CAPTION=System
TFRMATTRIBUTESEDIT.CBARCHIVE.CAPTION=&Archive
TFRMATTRIBUTESEDIT.CBREADONLY.CAPTION=Read o&nly
TFRMATTRIBUTESEDIT.CBHIDDEN.CAPTION=&Hidden
TFRMATTRIBUTESEDIT.CBSYSTEM.CAPTION=S&ystem
TFRMATTRIBUTESEDIT.GBNTFSATTRIBUTES.CAPTION=NTFS attributes
TFRMATTRIBUTESEDIT.CBCOMPRESSED.CAPTION=Compressed
TFRMATTRIBUTESEDIT.CBENCRYPTED.CAPTION=Encrypted
TFRMATTRIBUTESEDIT.CBTEMPORARY.CAPTION=Temporary
TFRMATTRIBUTESEDIT.CBSPARSE.CAPTION=Sparse
TFRMATTRIBUTESEDIT.LBLTEXTATTRS.CAPTION=As text:
TFRMATTRIBUTESEDIT.CBCOMPRESSED.CAPTION=Co&mpressed
TFRMATTRIBUTESEDIT.CBENCRYPTED.CAPTION=&Encrypted
TFRMATTRIBUTESEDIT.CBTEMPORARY.CAPTION=&Temporary
TFRMATTRIBUTESEDIT.CBSPARSE.CAPTION=S&parse
TFRMATTRIBUTESEDIT.LBLTEXTATTRS.CAPTION=As te&xt:
TFRMATTRIBUTESEDIT.BTNRESET.CAPTION=&Reset
TFRMATTRIBUTESEDIT.BTNOK.CAPTION=&OK
TFRMATTRIBUTESEDIT.BTNCANCEL.CAPTION=&Cancel

35
src/fchecksumcalc.lfm
View file

@ -15,17 +15,18 @@ object frmCheckSumCalc: TfrmCheckSumCalc
OnShow = FormShow
Position = poScreenCenter
SessionProperties = 'cbSeparateFile.Checked;cmbHashAlgorithm.ItemIndex'
LCLVersion = '0.9.29'
LCLVersion = '1.1'
object lblSaveTo: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 10
Height = 14
Height = 18
Top = 8
Width = 124
Width = 166
BorderSpacing.Left = 10
BorderSpacing.Top = 8
Caption = 'Save check sum file(s) to:'
Caption = '&Save check sum file(s) to:'
FocusControl = edtSaveTo
ParentColor = False
end
object edtSaveTo: TEdit
@ -35,8 +36,8 @@ object frmCheckSumCalc: TfrmCheckSumCalc
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 10
Height = 21
Top = 28
Height = 28
Top = 32
Width = 440
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
@ -49,11 +50,11 @@ object frmCheckSumCalc: TfrmCheckSumCalc
AnchorSideTop.Control = edtSaveTo
AnchorSideTop.Side = asrBottom
Left = 10
Height = 17
Top = 55
Width = 223
Height = 23
Top = 66
Width = 302
BorderSpacing.Top = 6
Caption = 'Create separate checksum file for each file'
Caption = 'C&reate separate checksum file for each file'
OnChange = cbSeparateFileChange
TabOrder = 1
end
@ -72,7 +73,7 @@ object frmCheckSumCalc: TfrmCheckSumCalc
Default = True
Kind = bkOK
ModalResult = 1
TabOrder = 2
TabOrder = 3
end
object btnCancel: TBitBtn
AnchorSideRight.Control = edtSaveTo
@ -86,23 +87,23 @@ object frmCheckSumCalc: TfrmCheckSumCalc
Anchors = [akRight, akBottom]
BorderSpacing.Bottom = 10
Cancel = True
Caption = 'Cancel'
Caption = '&Cancel'
Kind = bkCancel
ModalResult = 2
TabOrder = 3
TabOrder = 4
end
object cmbHashAlgorithm: TComboBox
AnchorSideLeft.Control = cbSeparateFile
AnchorSideTop.Control = cbSeparateFile
AnchorSideTop.Side = asrBottom
Left = 10
Height = 21
Top = 78
Height = 30
Top = 95
Width = 132
BorderSpacing.Top = 6
ItemHeight = 13
ItemHeight = 0
OnChange = cmbHashAlgorithmChange
Style = csDropDownList
TabOrder = 4
TabOrder = 2
end
end

8
src/fchecksumcalc.lrt
View file

@ -1,5 +1,5 @@
TFRMCHECKSUMCALC.FRMCHECKSUMCALC.CAPTION=Calculate check sum...
TFRMCHECKSUMCALC.LBLSAVETO.CAPTION=Save check sum file(s) to:
TFRMCHECKSUMCALC.CBSEPARATEFILE.CAPTION=Create separate checksum file for each file
TFRMCHECKSUMCALC.CAPTION=Calculate check sum...
TFRMCHECKSUMCALC.LBLSAVETO.CAPTION=&Save check sum file(s) to:
TFRMCHECKSUMCALC.CBSEPARATEFILE.CAPTION=C&reate separate checksum file for each file
TFRMCHECKSUMCALC.BTNOK.CAPTION=&OK
TFRMCHECKSUMCALC.BTNCANCEL.CAPTION=Cancel
TFRMCHECKSUMCALC.BTNCANCEL.CAPTION=&Cancel

18
src/fconnectionmanager.lfm
View file

@ -8,7 +8,7 @@ object frmConnectionManager: TfrmConnectionManager
ClientWidth = 431
OnDestroy = FormDestroy
Position = poScreenCenter
LCLVersion = '0.9.29'
LCLVersion = '1.1'
object gbConnectTo: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
@ -26,16 +26,16 @@ object frmConnectionManager: TfrmConnectionManager
Caption = 'Connect to:'
ChildSizing.LeftRightSpacing = 4
ChildSizing.TopBottomSpacing = 4
ClientHeight = 342
ClientHeight = 337
ClientWidth = 277
TabOrder = 0
object tvConnections: TTreeView
Left = 4
Height = 334
Height = 329
Top = 4
Width = 269
Align = alClient
DefaultItemHeight = 22
DefaultItemHeight = 24
ReadOnly = True
StateImages = ImageList
TabOrder = 0
@ -52,7 +52,7 @@ object frmConnectionManager: TfrmConnectionManager
Width = 120
Anchors = [akTop, akRight]
BorderSpacing.Right = 12
Caption = 'Connect'
Caption = 'C&onnect'
Enabled = False
OnClick = btnConnectClick
TabOrder = 1
@ -69,7 +69,7 @@ object frmConnectionManager: TfrmConnectionManager
Width = 120
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 18
Caption = 'Add'
Caption = 'A&dd'
Enabled = False
OnClick = btnAddClick
TabOrder = 2
@ -86,7 +86,7 @@ object frmConnectionManager: TfrmConnectionManager
Width = 120
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = 'Edit'
Caption = '&Edit'
Enabled = False
OnClick = btnEditClick
TabOrder = 3
@ -103,7 +103,7 @@ object frmConnectionManager: TfrmConnectionManager
Width = 120
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = 'Delete'
Caption = '&Delete'
Enabled = False
OnClick = btnDeleteClick
TabOrder = 4
@ -121,7 +121,7 @@ object frmConnectionManager: TfrmConnectionManager
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Cancel = True
Caption = 'Cancel'
Caption = '&Cancel'
Kind = bkCancel
ModalResult = 2
TabOrder = 5

10
src/fconnectionmanager.lrt
View file

@ -1,7 +1,7 @@
TFRMCONNECTIONMANAGER.CAPTION=Connection manager
TFRMCONNECTIONMANAGER.GBCONNECTTO.CAPTION=Connect to:
TFRMCONNECTIONMANAGER.BTNCONNECT.CAPTION=Connect
TFRMCONNECTIONMANAGER.BTNADD.CAPTION=Add
TFRMCONNECTIONMANAGER.BTNEDIT.CAPTION=Edit
TFRMCONNECTIONMANAGER.BTNDELETE.CAPTION=Delete
TFRMCONNECTIONMANAGER.BTNCANCEL.CAPTION=Cancel
TFRMCONNECTIONMANAGER.BTNCONNECT.CAPTION=C&onnect
TFRMCONNECTIONMANAGER.BTNADD.CAPTION=A&dd
TFRMCONNECTIONMANAGER.BTNEDIT.CAPTION=&Edit
TFRMCONNECTIONMANAGER.BTNDELETE.CAPTION=&Delete
TFRMCONNECTIONMANAGER.BTNCANCEL.CAPTION=&Cancel

55
src/fcopymovedlg.lfm
View file

@ -18,7 +18,7 @@ object frmCopyDlg: TfrmCopyDlg
OnKeyDown = FormKeyDown
OnShow = frmCopyDlgShow
Position = poScreenCenter
LCLVersion = '0.9.31'
LCLVersion = '1.1'
object lblCopySrc: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
@ -42,7 +42,7 @@ object frmCopyDlg: TfrmCopyDlg
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 8
Height = 29
Height = 28
Top = 34
Width = 596
Anchors = [akTop, akLeft, akRight]
@ -61,7 +61,7 @@ object frmCopyDlg: TfrmCopyDlg
AnchorSideRight.Side = asrBottom
Left = 8
Height = 38
Top = 71
Top = 70
Width = 596
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
@ -75,19 +75,19 @@ object frmCopyDlg: TfrmCopyDlg
AnchorSideRight.Control = edtDst
AnchorSideRight.Side = asrBottom
Left = 8
Height = 35
Top = 113
Height = 36
Top = 112
Width = 596
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 4
BevelOuter = bvNone
ClientHeight = 35
ClientHeight = 36
ClientWidth = 596
TabOrder = 2
object btnOptions: TButton
Left = 0
Height = 35
Height = 36
Top = 0
Width = 100
Align = alLeft
@ -99,14 +99,14 @@ object frmCopyDlg: TfrmCopyDlg
TabOrder = 0
end
object btnAddToQueue: TBitBtn
Left = 212
Height = 35
Left = 251
Height = 36
Top = 0
Width = 144
Width = 128
Align = alRight
AutoSize = True
BorderSpacing.InnerBorder = 2
Caption = 'Add To Queue'
Caption = 'A&dd To Queue'
Constraints.MinHeight = 34
Constraints.MinWidth = 88
Glyph.Data = {
@ -146,16 +146,15 @@ object frmCopyDlg: TfrmCopyDlg
0000000000000000000000000000000000000000000000000000
}
ModalResult = 1
NumGlyphs = 0
OnClick = btnAddToQueueClick
OnMouseUp = btnAddToQueueMouseUp
TabOrder = 1
end
object btnCreateSpecialQueue: TButton
Left = 356
Height = 35
Left = 379
Height = 36
Top = 0
Width = 38
Width = 25
Align = alRight
AutoSize = True
BorderSpacing.Right = 12
@ -164,26 +163,25 @@ object frmCopyDlg: TfrmCopyDlg
Visible = False
end
object btnCancel: TBitBtn
Left = 406
Height = 35
Left = 416
Height = 36
Top = 0
Width = 94
Width = 84
Align = alRight
AutoSize = True
BorderSpacing.Left = 12
BorderSpacing.Right = 8
BorderSpacing.InnerBorder = 2
Cancel = True
Caption = 'Cancel'
Caption = '&Cancel'
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
OnMouseUp = btnCancelMouseUp
TabOrder = 3
end
object btnOK: TBitBtn
Left = 508
Height = 35
Height = 36
Top = 0
Width = 88
Align = alRight
@ -229,7 +227,6 @@ object frmCopyDlg: TfrmCopyDlg
0000000000000000000000000000000000000000000000000000
}
ModalResult = 1
NumGlyphs = 0
OnClick = btnOKClick
OnMouseUp = btnOKMouseUp
TabOrder = 4
@ -242,14 +239,14 @@ object frmCopyDlg: TfrmCopyDlg
AnchorSideRight.Control = edtDst
AnchorSideRight.Side = asrBottom
Left = 8
Height = 103
Height = 43
Top = 152
Width = 596
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 4
BevelOuter = bvNone
ClientHeight = 103
ClientHeight = 43
ClientWidth = 596
TabOrder = 3
OnResize = pnlOptionsResize
@ -259,7 +256,7 @@ object frmCopyDlg: TfrmCopyDlg
AnchorSideRight.Control = pnlOptions
AnchorSideRight.Side = asrBottom
Left = 0
Height = 64
Height = 4
Top = 0
Width = 596
Anchors = [akTop, akLeft, akRight]
@ -271,13 +268,13 @@ object frmCopyDlg: TfrmCopyDlg
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = grpOptions
AnchorSideTop.Side = asrBottom
Left = 186
Left = 197
Height = 31
Top = 72
Width = 224
Top = 12
Width = 203
AutoSize = True
BorderSpacing.Top = 8
Caption = 'Save these options as default'
Caption = 'Sa&ve these options as default'
OnClick = btnSaveOptionsClick
TabOrder = 1
end

6
src/fcopymovedlg.lrt
View file

@ -1,6 +1,6 @@
TFRMCOPYDLG.CAPTION=Copy file(s)
TFRMCOPYDLG.BTNOPTIONS.CAPTION=O&ptions
TFRMCOPYDLG.BTNADDTOQUEUE.CAPTION=Add To Queue
TFRMCOPYDLG.BTNADDTOQUEUE.CAPTION=A&dd To Queue
TFRMCOPYDLG.BTNCREATESPECIALQUEUE.CAPTION=...
TFRMCOPYDLG.BTNCANCEL.CAPTION=Cancel
TFRMCOPYDLG.BTNSAVEOPTIONS.CAPTION=Save these options as default
TFRMCOPYDLG.BTNCANCEL.CAPTION=&Cancel
TFRMCOPYDLG.BTNSAVEOPTIONS.CAPTION=Sa&ve these options as default

37
src/fdescredit.lfm
View file

@ -10,30 +10,32 @@ object frmDescrEdit: TfrmDescrEdit
ClientWidth = 400
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.27'
LCLVersion = '1.1'
object lblEditCommentFor: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 12
Height = 19
Height = 18
Top = 12
Width = 120
Width = 115
BorderSpacing.Left = 12
BorderSpacing.Top = 12
Caption = 'Edit comment for:'
Caption = 'E&dit comment for:'
FocusControl = memDescr
ParentColor = False
end
object lblEncoding: TLabel
AnchorSideTop.Control = cbEncoding
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbEncoding
Left = 209
Height = 19
Top = 217
Width = 67
Left = 214
Height = 18
Top = 216
Width = 62
Anchors = [akTop, akRight]
BorderSpacing.Right = 12
Caption = 'Encoding:'
Caption = '&Encoding:'
FocusControl = cbEncoding
ParentColor = False
end
object lblFileName: TLabel
@ -41,9 +43,9 @@ object frmDescrEdit: TfrmDescrEdit
AnchorSideTop.Control = lblEditCommentFor
AnchorSideTop.Side = asrBottom
Left = 12
Height = 19
Top = 37
Width = 25
Height = 18
Top = 36
Width = 27
BorderSpacing.Top = 6
Caption = '???'
Font.Style = [fsBold]
@ -59,7 +61,7 @@ object frmDescrEdit: TfrmDescrEdit
AnchorSideBottom.Control = cbEncoding
Left = 12
Height = 136
Top = 64
Top = 62
Width = 376
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 12
@ -74,11 +76,12 @@ object frmDescrEdit: TfrmDescrEdit
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnCancel
Left = 288
Height = 28
Top = 212
Height = 30
Top = 210
Width = 100
Anchors = [akRight, akBottom]
BorderSpacing.Bottom = 12
ItemHeight = 0
OnChange = cbEncodingChange
Style = csDropDownList
TabOrder = 1
@ -97,7 +100,6 @@ object frmDescrEdit: TfrmDescrEdit
Default = True
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
TabOrder = 2
end
object btnCancel: TBitBtn
@ -113,10 +115,9 @@ object frmDescrEdit: TfrmDescrEdit
Anchors = [akRight, akBottom]
BorderSpacing.Bottom = 18
Cancel = True
Caption = 'Cancel'
Caption = '&Cancel'
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
TabOrder = 3
end
end

6
src/fdescredit.lrt
View file

@ -1,6 +1,6 @@
TFRMDESCREDIT.CAPTION=File/folder comment
TFRMDESCREDIT.LBLEDITCOMMENTFOR.CAPTION=Edit comment for:
TFRMDESCREDIT.LBLENCODING.CAPTION=Encoding:
TFRMDESCREDIT.LBLEDITCOMMENTFOR.CAPTION=E&dit comment for:
TFRMDESCREDIT.LBLENCODING.CAPTION=&Encoding:
TFRMDESCREDIT.LBLFILENAME.CAPTION=???
TFRMDESCREDIT.BTNOK.CAPTION=&OK
TFRMDESCREDIT.BTNCANCEL.CAPTION=Cancel
TFRMDESCREDIT.BTNCANCEL.CAPTION=&Cancel

103
src/feditsearch.lfm
View file

@ -1,6 +1,6 @@
object frmEditSearchReplace: TfrmEditSearchReplace
inherited frmEditSearchReplace: TfrmEditSearchReplace
Left = 526
Height = 222
Height = 278
Top = 190
Width = 409
ActiveControl = cbSearchText
@ -8,61 +8,62 @@ object frmEditSearchReplace: TfrmEditSearchReplace
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
ChildSizing.TopBottomSpacing = 6
ClientHeight = 222
ClientHeight = 278
ClientWidth = 409
OnCloseQuery = FormCloseQuery
OnShow = FormShow
Position = poOwnerFormCenter
LCLVersion = '0.9.29'
object lblSearchFor: TLabel
object lblSearchFor: TLabel[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cbSearchText
AnchorSideTop.Side = asrCenter
Left = 12
Height = 14
Top = 15
Width = 55
Height = 18
Top = 17
Width = 72
BorderSpacing.Left = 12
Caption = '&Search for:'
FocusControl = cbSearchText
ParentColor = False
end
object lblReplaceWith: TLabel
object lblReplaceWith: TLabel[1]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cbReplaceText
AnchorSideTop.Side = asrCenter
Left = 12
Height = 14
Top = 42
Width = 66
Height = 18
Top = 51
Width = 89
BorderSpacing.Left = 12
Caption = '&Replace with:'
FocusControl = cbReplaceText
ParentColor = False
end
object cbSearchText: TComboBox
object cbSearchText: TComboBox[2]
AnchorSideLeft.Control = lblSearchFor
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 73
Height = 21
Left = 90
Height = 28
Top = 12
Width = 328
Width = 311
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 12
BorderSpacing.Right = 8
ItemHeight = 13
ItemHeight = 0
TabOrder = 0
end
object gbSearchOptions: TGroupBox
object gbSearchOptions: TGroupBox[3]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cbReplaceText
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnOK
Left = 12
Height = 113
Top = 72
Height = 148
Top = 86
Width = 197
Anchors = [akTop, akLeft, akRight]
AutoSize = True
@ -70,16 +71,16 @@ object frmEditSearchReplace: TfrmEditSearchReplace
BorderSpacing.Top = 12
BorderSpacing.Right = 6
Caption = 'Option'
ClientHeight = 95
ClientHeight = 125
ClientWidth = 193
TabOrder = 2
object cbSearchCaseSensitive: TCheckBox
AnchorSideLeft.Control = gbSearchOptions
AnchorSideTop.Control = gbSearchOptions
Left = 8
Height = 17
Height = 23
Top = 2
Width = 93
Width = 123
BorderSpacing.Left = 8
BorderSpacing.Top = 2
Caption = 'C&ase sensitivity'
@ -90,9 +91,9 @@ object frmEditSearchReplace: TfrmEditSearchReplace
AnchorSideTop.Control = cbSearchCaseSensitive
AnchorSideTop.Side = asrBottom
Left = 8
Height = 17
Top = 21
Width = 103
Height = 23
Top = 27
Width = 143
BorderSpacing.Left = 8
BorderSpacing.Top = 2
Caption = '&Whole words only'
@ -103,9 +104,9 @@ object frmEditSearchReplace: TfrmEditSearchReplace
AnchorSideTop.Control = cbSearchWholeWords
AnchorSideTop.Side = asrBottom
Left = 8
Height = 17
Top = 40
Width = 105
Height = 23
Top = 52
Width = 145
BorderSpacing.Left = 8
BorderSpacing.Top = 2
Caption = 'Selected &text only'
@ -116,12 +117,12 @@ object frmEditSearchReplace: TfrmEditSearchReplace
AnchorSideTop.Control = cbSearchSelectedOnly
AnchorSideTop.Side = asrBottom
Left = 8
Height = 17
Top = 59
Width = 104
Height = 23
Top = 77
Width = 139
BorderSpacing.Left = 8
BorderSpacing.Top = 2
Caption = 'Search from &caret'
Caption = 'S&earch from caret'
TabOrder = 3
end
object cbSearchRegExp: TCheckBox
@ -129,16 +130,16 @@ object frmEditSearchReplace: TfrmEditSearchReplace
AnchorSideTop.Control = cbSearchFromCursor
AnchorSideTop.Side = asrBottom
Left = 8
Height = 17
Top = 78
Width = 115
Height = 23
Top = 102
Width = 155
BorderSpacing.Left = 8
BorderSpacing.Top = 2
Caption = '&Regular expressions'
TabOrder = 4
end
end
object rgSearchDirection: TRadioGroup
object rgSearchDirection: TRadioGroup[4]
AnchorSideLeft.Control = gbSearchOptions
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbReplaceText
@ -147,7 +148,7 @@ object frmEditSearchReplace: TfrmEditSearchReplace
AnchorSideRight.Side = asrBottom
Left = 215
Height = 88
Top = 72
Top = 86
Width = 186
Anchors = [akTop, akLeft, akRight]
AutoFill = True
@ -163,7 +164,7 @@ object frmEditSearchReplace: TfrmEditSearchReplace
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 70
ClientHeight = 65
ClientWidth = 182
Items.Strings = (
'&Forward'
@ -171,25 +172,25 @@ object frmEditSearchReplace: TfrmEditSearchReplace
)
TabOrder = 3
end
object cbReplaceText: TComboBox
object cbReplaceText: TComboBox[5]
AnchorSideLeft.Control = lblReplaceWith
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbSearchText
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 84
Height = 21
Top = 39
Width = 317
Left = 107
Height = 28
Top = 46
Width = 294
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 8
ItemHeight = 13
ItemHeight = 0
TabOrder = 1
end
object btnOK: TBitBtn
object btnOK: TBitBtn[6]
AnchorSideTop.Control = gbSearchOptions
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnCancel
@ -197,7 +198,7 @@ object frmEditSearchReplace: TfrmEditSearchReplace
AnchorSideBottom.Side = asrBottom
Left = 215
Height = 31
Top = 185
Top = 234
Width = 90
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
@ -206,11 +207,10 @@ object frmEditSearchReplace: TfrmEditSearchReplace
Default = True
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
OnClick = btnOKClick
TabOrder = 4
end
object btnCancel: TBitBtn
object btnCancel: TBitBtn[7]
AnchorSideTop.Control = gbSearchOptions
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
@ -219,16 +219,15 @@ object frmEditSearchReplace: TfrmEditSearchReplace
AnchorSideBottom.Side = asrBottom
Left = 311
Height = 31
Top = 185
Top = 234
Width = 90
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
BorderSpacing.Bottom = 4
Cancel = True
Caption = 'Cancel'
Caption = '&Cancel'
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
TabOrder = 5
end
end

4
src/feditsearch.lrt
View file

@ -4,8 +4,8 @@ TFRMEDITSEARCHREPLACE.GBSEARCHOPTIONS.CAPTION=Option
TFRMEDITSEARCHREPLACE.CBSEARCHCASESENSITIVE.CAPTION=C&ase sensitivity
TFRMEDITSEARCHREPLACE.CBSEARCHWHOLEWORDS.CAPTION=&Whole words only
TFRMEDITSEARCHREPLACE.CBSEARCHSELECTEDONLY.CAPTION=Selected &text only
TFRMEDITSEARCHREPLACE.CBSEARCHFROMCURSOR.CAPTION=Search from &caret
TFRMEDITSEARCHREPLACE.CBSEARCHFROMCURSOR.CAPTION=S&earch from caret
TFRMEDITSEARCHREPLACE.CBSEARCHREGEXP.CAPTION=&Regular expressions
TFRMEDITSEARCHREPLACE.RGSEARCHDIRECTION.CAPTION=Direction
TFRMEDITSEARCHREPLACE.BTNOK.CAPTION=&OK
TFRMEDITSEARCHREPLACE.BTNCANCEL.CAPTION=Cancel
TFRMEDITSEARCHREPLACE.BTNCANCEL.CAPTION=&Cancel

171
src/ffileassoc.lfm
View file

@ -13,16 +13,16 @@ object frmFileAssoc: TfrmFileAssoc
Position = poScreenCenter
SessionProperties = 'Height;Width;WindowState;Left;Top'
ShowInTaskBar = stAlways
LCLVersion = '0.9.31'
LCLVersion = '1.1'
object pnlButtonPanel: TPanel
Left = 0
Height = 47
Top = 538
Height = 48
Top = 537
Width = 568
Align = alBottom
AutoSize = True
BevelInner = bvLowered
ClientHeight = 47
ClientHeight = 48
ClientWidth = 568
TabOrder = 1
object btnOK: TBitBtn
@ -41,7 +41,6 @@ object frmFileAssoc: TfrmFileAssoc
Constraints.MinWidth = 100
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
OnClick = btnOKClick
TabOrder = 0
end
@ -50,7 +49,7 @@ object frmFileAssoc: TfrmFileAssoc
AnchorSideRight.Control = pnlButtonPanel
AnchorSideRight.Side = asrBottom
Left = 454
Height = 31
Height = 32
Top = 8
Width = 100
Anchors = [akTop, akRight]
@ -59,24 +58,23 @@ object frmFileAssoc: TfrmFileAssoc
BorderSpacing.Right = 12
BorderSpacing.Bottom = 6
Cancel = True
Caption = 'Cancel'
Caption = '&Cancel'
Constraints.MinWidth = 100
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
OnClick = btnCancelClick
TabOrder = 1
end
end
object pnlSettings: TPanel
Left = 0
Height = 533
Height = 532
Top = 0
Width = 568
Align = alClient
BorderSpacing.Bottom = 5
BevelOuter = bvNone
ClientHeight = 533
ClientHeight = 532
ClientWidth = 568
TabOrder = 0
OnResize = pnlSettingsResize
@ -89,7 +87,7 @@ object frmFileAssoc: TfrmFileAssoc
AnchorSideBottom.Control = pnlSettings
AnchorSideBottom.Side = asrBottom
Left = 270
Height = 521
Height = 520
Top = 6
Width = 288
Anchors = [akTop, akLeft, akRight, akBottom]
@ -97,10 +95,10 @@ object frmFileAssoc: TfrmFileAssoc
BorderSpacing.Right = 4
BorderSpacing.Around = 6
BevelOuter = bvNone
ClientHeight = 521
ClientHeight = 520
ClientWidth = 288
Constraints.MinWidth = 200
TabOrder = 0
TabOrder = 1
OnResize = pnlRightSettingsResize
object gbActions: TGroupBox
AnchorSideLeft.Control = pnlRightSettings
@ -110,48 +108,50 @@ object frmFileAssoc: TfrmFileAssoc
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = gbIcon
Left = 0
Height = 307
Height = 305
Top = 144
Width = 288
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Actions'
ClientHeight = 285
ClientHeight = 282
ClientWidth = 284
TabOrder = 0
TabOrder = 1
object lbActions: TListBox
Left = 6
Height = 153
Height = 160
Top = 6
Width = 182
Width = 201
Align = alClient
BorderSpacing.Around = 6
ItemHeight = 0
OnSelectionChange = lbActionsSelectionChange
ScrollWidth = 199
TabOrder = 0
TopIndex = -1
end
object pnlActsButtons: TPanel
Left = 194
Height = 153
Left = 213
Height = 160
Top = 6
Width = 84
Width = 65
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
BevelOuter = bvNone
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ClientHeight = 153
ClientWidth = 84
ClientHeight = 160
ClientWidth = 65
TabOrder = 1
object btnUpAct: TButton
Left = 0
Height = 35
Top = 0
Width = 84
Width = 65
AutoSize = True
BorderSpacing.InnerBorder = 2
Caption = 'Up'
Caption = '&Up'
OnClick = btnUpActClick
TabOrder = 0
end
@ -159,10 +159,10 @@ object frmFileAssoc: TfrmFileAssoc
Left = 0
Height = 35
Top = 35
Width = 84
Width = 65
AutoSize = True
BorderSpacing.InnerBorder = 2
Caption = 'Down'
Caption = '&Down'
OnClick = btnDownActClick
TabOrder = 1
end
@ -170,7 +170,7 @@ object frmFileAssoc: TfrmFileAssoc
Left = 0
Height = 35
Top = 70
Width = 84
Width = 65
AutoSize = True
BorderSpacing.InnerBorder = 2
Caption = 'Add'
@ -181,23 +181,23 @@ object frmFileAssoc: TfrmFileAssoc
Left = 0
Height = 35
Top = 105
Width = 84
Width = 65
AutoSize = True
BorderSpacing.InnerBorder = 2
Caption = 'Remove'
Caption = 'Remo&ve'
OnClick = btnRemoveActClick
TabOrder = 3
end
end
object pnlActsEdits: TPanel
Left = 0
Height = 120
Top = 165
Height = 110
Top = 172
Width = 284
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 120
ClientHeight = 110
ClientWidth = 284
TabOrder = 2
object lblCommand: TLabel
@ -205,11 +205,12 @@ object frmFileAssoc: TfrmFileAssoc
AnchorSideTop.Control = edbAction
AnchorSideTop.Side = asrBottom
Left = 6
Height = 22
Top = 57
Width = 74
Height = 18
Top = 52
Width = 67
BorderSpacing.Top = 6
Caption = '&Command:'
FocusControl = fneCommand
ParentColor = False
end
object btnCommands: TSpeedButton
@ -220,10 +221,10 @@ object frmFileAssoc: TfrmFileAssoc
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = fneCommand
AnchorSideBottom.Side = asrBottom
Left = 255
Height = 29
Top = 85
Width = 23
Left = 258
Height = 28
Top = 76
Width = 20
Anchors = [akTop, akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 24
@ -264,18 +265,18 @@ object frmFileAssoc: TfrmFileAssoc
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
NumGlyphs = 0
OnClick = btnCommandsClick
end
object lblAction: TLabel
AnchorSideLeft.Control = pnlActsEdits
AnchorSideTop.Control = pnlActsEdits
Left = 6
Height = 22
Height = 18
Top = 0
Width = 47
Width = 46
BorderSpacing.Left = 6
Caption = 'Action:'
FocusControl = edbAction
ParentColor = False
end
object fneCommand: TFileNameEdit
@ -286,9 +287,9 @@ object frmFileAssoc: TfrmFileAssoc
AnchorSideBottom.Control = pnlActsEdits
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 29
Top = 85
Width = 225
Height = 28
Top = 76
Width = 228
OnAcceptFileName = fneCommandAcceptFileName
DialogOptions = []
FilterIndex = 0
@ -309,9 +310,9 @@ object frmFileAssoc: TfrmFileAssoc
AnchorSideRight.Control = fneCommand
AnchorSideRight.Side = asrBottom
Left = 6
Height = 29
Top = 22
Width = 225
Height = 28
Top = 18
Width = 228
Anchors = [akTop, akLeft, akRight]
ButtonWidth = 23
CharCase = ecNormal
@ -366,15 +367,15 @@ object frmFileAssoc: TfrmFileAssoc
AnchorSideBottom.Control = pnlRightSettings
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 66
Top = 455
Height = 67
Top = 453
Width = 288
Anchors = [akLeft, akRight, akBottom]
AutoSize = True
Caption = 'Icon'
ClientHeight = 44
ClientWidth = 284
TabOrder = 1
TabOrder = 2
object sbtnIcon: TSpeedButton
AnchorSideLeft.Control = gbIcon
AnchorSideTop.Control = gbIcon
@ -385,7 +386,6 @@ object frmFileAssoc: TfrmFileAssoc
BorderSpacing.Left = 6
BorderSpacing.Top = 2
BorderSpacing.Bottom = 4
NumGlyphs = 0
OnClick = sbtnIconClick
end
object btnRemoveIcon: TSpeedButton
@ -395,14 +395,13 @@ object frmFileAssoc: TfrmFileAssoc
AnchorSideBottom.Control = edtIconFileName
AnchorSideBottom.Side = asrBottom
Left = 255
Height = 29
Height = 28
Top = 7
Width = 23
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 6
Caption = 'X'
Font.Style = [fsBold]
NumGlyphs = 0
OnClick = btnRemoveIconClick
ParentFont = False
end
@ -413,7 +412,7 @@ object frmFileAssoc: TfrmFileAssoc
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnRemoveIcon
Left = 48
Height = 29
Height = 28
Top = 7
Width = 207
Anchors = [akTop, akLeft, akRight]
@ -434,41 +433,43 @@ object frmFileAssoc: TfrmFileAssoc
Anchors = [akTop, akLeft, akRight]
BorderSpacing.InnerBorder = 20
Caption = 'Extensions'
ClientHeight = 118
ClientHeight = 117
ClientWidth = 284
TabOrder = 2
TabOrder = 0
object lbExts: TListBox
Left = 6
Height = 106
Height = 105
Top = 6
Width = 182
Width = 201
Align = alClient
BorderSpacing.Around = 6
ItemHeight = 0
OnSelectionChange = lbExtsSelectionChange
ScrollWidth = 199
TabOrder = 0
TopIndex = -1
end
object pnlExtsButtons: TPanel
Left = 194
Height = 106
Left = 213
Height = 105
Top = 6
Width = 84
Width = 65
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
BevelOuter = bvNone
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ClientHeight = 106
ClientWidth = 84
ClientHeight = 105
ClientWidth = 65
TabOrder = 1
object btnAddExt: TButton
Left = 0
Height = 35
Top = 0
Width = 84
Width = 65
AutoSize = True
BorderSpacing.InnerBorder = 2
Caption = 'Add'
Caption = '&Add'
OnClick = btnAddExtClick
TabOrder = 0
end
@ -476,10 +477,10 @@ object frmFileAssoc: TfrmFileAssoc
Left = 0
Height = 35
Top = 35
Width = 84
Width = 65
AutoSize = True
BorderSpacing.InnerBorder = 2
Caption = 'Remove'
Caption = 'Re&move'
OnClick = btnRemoveExtClick
TabOrder = 1
end
@ -492,24 +493,24 @@ object frmFileAssoc: TfrmFileAssoc
AnchorSideBottom.Control = pnlSettings
AnchorSideBottom.Side = asrBottom
Left = 10
Height = 521
Height = 520
Top = 6
Width = 250
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 4
BorderSpacing.Around = 6
BevelOuter = bvNone
ClientHeight = 521
ClientHeight = 520
ClientWidth = 250
TabOrder = 1
TabOrder = 0
object gbFileTypes: TGroupBox
Left = 0
Height = 521
Height = 520
Top = 0
Width = 250
Align = alClient
Caption = 'File types'
ClientHeight = 499
ClientHeight = 497
ClientWidth = 246
TabOrder = 0
object lbFileTypes: TListBox
@ -519,7 +520,7 @@ object frmFileAssoc: TfrmFileAssoc
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnAddNewType
Left = 6
Height = 409
Height = 407
Top = 6
Width = 234
Anchors = [akTop, akLeft, akRight, akBottom]
@ -527,8 +528,10 @@ object frmFileAssoc: TfrmFileAssoc
ItemHeight = 20
OnDrawItem = lbFileTypesDrawItem
OnSelectionChange = lbFileTypesSelectionChange
ScrollWidth = 232
Style = lbOwnerDrawFixed
TabOrder = 0
TopIndex = -1
end
object btnAddNewType: TButton
AnchorSideLeft.Control = gbFileTypes
@ -539,7 +542,7 @@ object frmFileAssoc: TfrmFileAssoc
AnchorSideBottom.Control = btnRemoveType
Left = 6
Height = 35
Top = 421
Top = 419
Width = 234
Anchors = [akLeft, akRight, akBottom]
AutoSize = True
@ -547,7 +550,7 @@ object frmFileAssoc: TfrmFileAssoc
BorderSpacing.Right = 6
BorderSpacing.Bottom = 2
BorderSpacing.InnerBorder = 2
Caption = 'Add'
Caption = 'A&dd'
OnClick = btnAddNewTypeClick
TabOrder = 1
end
@ -555,12 +558,12 @@ object frmFileAssoc: TfrmFileAssoc
AnchorSideLeft.Control = btnAddNewType
Left = 6
Height = 35
Top = 458
Width = 84
Top = 456
Width = 65
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.InnerBorder = 2
Caption = 'Remove'
Caption = '&Remove'
OnClick = btnRemoveTypeClick
OnResize = btnRemoveTypeResize
TabOrder = 2
@ -568,14 +571,14 @@ object frmFileAssoc: TfrmFileAssoc
object btnRenameType: TButton
AnchorSideRight.Control = btnAddNewType
AnchorSideRight.Side = asrBottom
Left = 154
Left = 175
Height = 35
Top = 458
Width = 86
Top = 456
Width = 65
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.InnerBorder = 2
Caption = 'Rename'
Caption = 'R&ename'
OnClick = btnRenameTypeClick
OnResize = btnRenameTypeResize
TabOrder = 3

18
src/ffileassoc.lrt
View file

@ -1,22 +1,22 @@
TFRMFILEASSOC.CAPTION=File associations
TFRMFILEASSOC.BTNOK.CAPTION=&OK
TFRMFILEASSOC.BTNCANCEL.CAPTION=Cancel
TFRMFILEASSOC.BTNCANCEL.CAPTION=&Cancel
TFRMFILEASSOC.GBACTIONS.CAPTION=Actions
TFRMFILEASSOC.BTNUPACT.CAPTION=Up
TFRMFILEASSOC.BTNDOWNACT.CAPTION=Down
TFRMFILEASSOC.BTNUPACT.CAPTION=&Up
TFRMFILEASSOC.BTNDOWNACT.CAPTION=&Down
TFRMFILEASSOC.BTNADDACT.CAPTION=Add
TFRMFILEASSOC.BTNREMOVEACT.CAPTION=Remove
TFRMFILEASSOC.BTNREMOVEACT.CAPTION=Remo&ve
TFRMFILEASSOC.LBLCOMMAND.CAPTION=&Command:
TFRMFILEASSOC.LBLACTION.CAPTION=Action:
TFRMFILEASSOC.GBICON.CAPTION=Icon
TFRMFILEASSOC.BTNREMOVEICON.CAPTION=X
TFRMFILEASSOC.GBEXTS.CAPTION=Extensions
TFRMFILEASSOC.BTNADDEXT.CAPTION=Add
TFRMFILEASSOC.BTNREMOVEEXT.CAPTION=Remove
TFRMFILEASSOC.BTNADDEXT.CAPTION=&Add
TFRMFILEASSOC.BTNREMOVEEXT.CAPTION=Re&move
TFRMFILEASSOC.GBFILETYPES.CAPTION=File types
TFRMFILEASSOC.BTNADDNEWTYPE.CAPTION=Add
TFRMFILEASSOC.BTNREMOVETYPE.CAPTION=Remove
TFRMFILEASSOC.BTNRENAMETYPE.CAPTION=Rename
TFRMFILEASSOC.BTNADDNEWTYPE.CAPTION=A&dd
TFRMFILEASSOC.BTNREMOVETYPE.CAPTION=&Remove
TFRMFILEASSOC.BTNRENAMETYPE.CAPTION=R&ename
TFRMFILEASSOC.MIOPEN.CAPTION=Open
TFRMFILEASSOC.MIVIEW.CAPTION=View
TFRMFILEASSOC.MIEDIT.CAPTION=Edit

268
src/ffileproperties.lfm
View file

@ -17,7 +17,7 @@ object frmFileProperties: TfrmFileProperties
object pcPageControl: TPageControl
AnchorSideBottom.Control = gbOwner
Left = 8
Height = 290
Height = 281
Top = 8
Width = 502
ActivePage = tsProperties
@ -27,8 +27,8 @@ object frmFileProperties: TfrmFileProperties
TabOrder = 0
object tsProperties: TTabSheet
Caption = 'Properties'
ClientHeight = 263
ClientWidth = 500
ClientHeight = 242
ClientWidth = 496
object pnlData: TPanel
AnchorSideLeft.Control = pnlCaption
AnchorSideLeft.Side = asrBottom
@ -37,14 +37,14 @@ object frmFileProperties: TfrmFileProperties
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = tsProperties
AnchorSideBottom.Side = asrBottom
Left = 136
Height = 263
Left = 147
Height = 242
Top = 0
Width = 364
Width = 349
Anchors = [akTop, akLeft, akRight, akBottom]
BevelOuter = bvNone
ClientHeight = 263
ClientWidth = 364
ClientHeight = 242
ClientWidth = 349
TabOrder = 1
object lblFileName: TLabel
AnchorSideLeft.Control = pnlData
@ -54,7 +54,7 @@ object frmFileProperties: TfrmFileProperties
Left = 10
Height = 18
Top = 12
Width = 344
Width = 329
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 12
@ -72,7 +72,7 @@ object frmFileProperties: TfrmFileProperties
Left = 10
Height = 18
Top = 36
Width = 344
Width = 329
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = '???'
@ -88,7 +88,7 @@ object frmFileProperties: TfrmFileProperties
Left = 10
Height = 18
Top = 60
Width = 344
Width = 329
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = '???'
@ -104,7 +104,7 @@ object frmFileProperties: TfrmFileProperties
Left = 10
Height = 18
Top = 84
Width = 344
Width = 329
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = '???'
@ -120,7 +120,7 @@ object frmFileProperties: TfrmFileProperties
Left = 10
Height = 18
Top = 108
Width = 344
Width = 329
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = '???'
@ -136,7 +136,7 @@ object frmFileProperties: TfrmFileProperties
Left = 10
Height = 18
Top = 162
Width = 344
Width = 329
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 12
Caption = '???'
@ -152,7 +152,7 @@ object frmFileProperties: TfrmFileProperties
Left = 10
Height = 18
Top = 186
Width = 344
Width = 329
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = '???'
@ -168,7 +168,7 @@ object frmFileProperties: TfrmFileProperties
Left = 10
Height = 18
Top = 210
Width = 344
Width = 329
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = '???'
@ -184,7 +184,7 @@ object frmFileProperties: TfrmFileProperties
Left = 10
Height = 18
Top = 132
Width = 344
Width = 329
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = '???'
@ -198,16 +198,16 @@ object frmFileProperties: TfrmFileProperties
AnchorSideBottom.Control = tsProperties
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 263
Height = 242
Top = 0
Width = 136
Width = 147
Anchors = [akTop, akLeft, akBottom]
AutoSize = True
BevelOuter = bvNone
ChildSizing.LeftRightSpacing = 10
ChildSizing.TopBottomSpacing = 10
ClientHeight = 263
ClientWidth = 136
ClientHeight = 242
ClientWidth = 147
TabOrder = 0
object lblFileNameStr: TLabel
AnchorSideTop.Control = pnlCaption
@ -227,7 +227,7 @@ object frmFileProperties: TfrmFileProperties
Left = 10
Height = 18
Top = 36
Width = 33
Width = 34
BorderSpacing.Top = 6
Caption = 'Path:'
ParentColor = False
@ -238,7 +238,7 @@ object frmFileProperties: TfrmFileProperties
Left = 10
Height = 18
Top = 60
Width = 34
Width = 36
BorderSpacing.Top = 6
Caption = 'Type:'
ParentColor = False
@ -249,7 +249,7 @@ object frmFileProperties: TfrmFileProperties
Left = 10
Height = 18
Top = 84
Width = 68
Width = 72
BorderSpacing.Top = 6
Caption = 'Symlink to:'
ParentColor = False
@ -260,7 +260,7 @@ object frmFileProperties: TfrmFileProperties
Left = 10
Height = 18
Top = 108
Width = 28
Width = 32
BorderSpacing.Top = 6
Caption = 'Size:'
ParentColor = False
@ -271,7 +271,7 @@ object frmFileProperties: TfrmFileProperties
Left = 10
Height = 18
Top = 162
Width = 71
Width = 79
BorderSpacing.Top = 12
Caption = 'Last access:'
ParentColor = False
@ -282,7 +282,7 @@ object frmFileProperties: TfrmFileProperties
Left = 10
Height = 18
Top = 186
Width = 108
Width = 113
BorderSpacing.Top = 6
Caption = 'Last modification:'
ParentColor = False
@ -293,7 +293,7 @@ object frmFileProperties: TfrmFileProperties
Left = 10
Height = 18
Top = 210
Width = 116
Width = 127
BorderSpacing.Top = 6
Caption = 'Last status change:'
ParentColor = False
@ -304,7 +304,7 @@ object frmFileProperties: TfrmFileProperties
Left = 10
Height = 18
Top = 132
Width = 58
Width = 61
BorderSpacing.Top = 6
Caption = 'Contains:'
ParentColor = False
@ -313,14 +313,14 @@ object frmFileProperties: TfrmFileProperties
end
object tsAttributes: TTabSheet
Caption = 'Attributes'
ClientHeight = 263
ClientWidth = 500
ClientHeight = 242
ClientWidth = 496
object lblFileStr: TLabel
AnchorSideTop.Control = tsAttributes
Left = 8
Height = 20
Height = 18
Top = 12
Width = 72
Width = 62
BorderSpacing.Top = 12
Caption = 'File name'
ParentColor = False
@ -328,9 +328,9 @@ object frmFileProperties: TfrmFileProperties
object lblFile: TLabel
AnchorSideTop.Control = tsAttributes
Left = 104
Height = 20
Height = 18
Top = 12
Width = 72
Width = 62
BorderSpacing.Top = 12
Caption = 'File name'
Font.Color = clBlack
@ -341,9 +341,9 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = cbReadOwner
AnchorSideTop.Side = asrCenter
Left = 8
Height = 20
Height = 18
Top = 63
Width = 50
Width = 46
Caption = 'Owner'
ParentColor = False
end
@ -351,9 +351,9 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = lblFile
AnchorSideTop.Side = asrBottom
Left = 176
Height = 20
Top = 40
Width = 41
Height = 18
Top = 38
Width = 38
BorderSpacing.Top = 8
Caption = 'Write'
ParentColor = False
@ -362,9 +362,9 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = lblFile
AnchorSideTop.Side = asrBottom
Left = 104
Height = 20
Top = 40
Width = 39
Height = 18
Top = 38
Width = 32
BorderSpacing.Top = 8
Caption = 'Read'
ParentColor = False
@ -373,9 +373,9 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = lblFile
AnchorSideTop.Side = asrBottom
Left = 240
Height = 20
Top = 40
Width = 60
Height = 18
Top = 38
Width = 53
BorderSpacing.Top = 8
Caption = 'Execute'
ParentColor = False
@ -384,9 +384,9 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = cbReadGroup
AnchorSideTop.Side = asrCenter
Left = 8
Height = 20
Top = 83
Width = 46
Height = 18
Top = 89
Width = 41
Caption = 'Group'
ParentColor = False
end
@ -394,9 +394,9 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = cbReadOther
AnchorSideTop.Side = asrCenter
Left = 8
Height = 20
Top = 103
Width = 44
Height = 18
Top = 115
Width = 40
Caption = 'Other'
ParentColor = False
end
@ -405,9 +405,9 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = edtOctal
AnchorSideTop.Side = asrBottom
Left = 8
Height = 20
Top = 192
Width = 38
Height = 18
Top = 203
Width = 35
BorderSpacing.Left = 8
BorderSpacing.Top = 6
Caption = 'Text:'
@ -418,9 +418,9 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = lblAttrTextStr
AnchorSideTop.Side = asrCenter
Left = 112
Height = 20
Top = 192
Width = 67
Height = 18
Top = 203
Width = 55
Caption = '-----------'
Font.Color = clBlack
ParentColor = False
@ -430,9 +430,9 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = cbSuid
AnchorSideTop.Side = asrCenter
Left = 8
Height = 20
Top = 128
Width = 33
Height = 18
Top = 142
Width = 29
Caption = 'Bits:'
ParentColor = False
end
@ -441,20 +441,21 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = edtOctal
AnchorSideTop.Side = asrCenter
Left = 8
Height = 20
Top = 161
Width = 45
Height = 18
Top = 174
Width = 41
BorderSpacing.Left = 8
Caption = 'Octal:'
FocusControl = edtOctal
ParentColor = False
end
object cbReadOwner: TCheckBox
AnchorSideTop.Control = lblRead
AnchorSideTop.Side = asrBottom
Left = 112
Height = 14
Top = 66
Width = 13
Height = 20
Top = 62
Width = 20
BorderSpacing.Top = 6
OnClick = cbChangeModeClick
TabOrder = 0
@ -463,9 +464,9 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = lblWrite
AnchorSideTop.Side = asrBottom
Left = 184
Height = 14
Top = 66
Width = 13
Height = 20
Top = 62
Width = 20
BorderSpacing.Top = 6
OnClick = cbChangeModeClick
TabOrder = 1
@ -474,9 +475,9 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = lblExec
AnchorSideTop.Side = asrBottom
Left = 256
Height = 14
Top = 66
Width = 13
Height = 20
Top = 62
Width = 20
BorderSpacing.Top = 6
OnClick = cbChangeModeClick
TabOrder = 2
@ -485,9 +486,9 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = cbReadOwner
AnchorSideTop.Side = asrBottom
Left = 112
Height = 14
Top = 86
Width = 13
Height = 20
Top = 88
Width = 20
BorderSpacing.Top = 6
OnClick = cbChangeModeClick
TabOrder = 3
@ -496,9 +497,9 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = cbWriteOwner
AnchorSideTop.Side = asrBottom
Left = 184
Height = 14
Top = 86
Width = 13
Height = 20
Top = 88
Width = 20
BorderSpacing.Top = 6
OnClick = cbChangeModeClick
TabOrder = 4
@ -507,9 +508,9 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = cbExecOwner
AnchorSideTop.Side = asrBottom
Left = 256
Height = 14
Top = 86
Width = 13
Height = 20
Top = 88
Width = 20
BorderSpacing.Top = 6
OnClick = cbChangeModeClick
TabOrder = 5
@ -518,9 +519,9 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = cbReadGroup
AnchorSideTop.Side = asrBottom
Left = 112
Height = 14
Top = 106
Width = 13
Height = 20
Top = 114
Width = 20
BorderSpacing.Top = 6
OnClick = cbChangeModeClick
TabOrder = 6
@ -529,9 +530,9 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = cbWriteGroup
AnchorSideTop.Side = asrBottom
Left = 184
Height = 14
Top = 106
Width = 13
Height = 20
Top = 114
Width = 20
BorderSpacing.Top = 6
OnClick = cbChangeModeClick
TabOrder = 7
@ -540,9 +541,9 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = cbReadGroup
AnchorSideTop.Side = asrBottom
Left = 256
Height = 14
Top = 106
Width = 13
Height = 20
Top = 114
Width = 20
BorderSpacing.Top = 6
OnClick = cbChangeModeClick
TabOrder = 8
@ -551,9 +552,9 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = cbReadOther
AnchorSideTop.Side = asrBottom
Left = 112
Height = 25
Top = 126
Width = 61
Height = 23
Top = 140
Width = 57
BorderSpacing.Top = 6
Caption = 'SUID'
OnClick = cbChangeModeClick
@ -563,9 +564,9 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = cbWriteOther
AnchorSideTop.Side = asrBottom
Left = 184
Height = 25
Top = 126
Width = 62
Height = 23
Top = 140
Width = 58
BorderSpacing.Top = 6
Caption = 'SGID'
OnClick = cbChangeModeClick
@ -575,9 +576,9 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = cbExecOther
AnchorSideTop.Side = asrBottom
Left = 256
Height = 25
Top = 126
Width = 69
Height = 23
Top = 140
Width = 61
BorderSpacing.Top = 6
Caption = 'Sticky'
OnClick = cbChangeModeClick
@ -588,8 +589,8 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = cbSuid
AnchorSideTop.Side = asrBottom
Left = 112
Height = 29
Top = 157
Height = 28
Top = 169
Width = 80
BorderSpacing.Top = 6
MaxLength = 4
@ -602,14 +603,14 @@ object frmFileProperties: TfrmFileProperties
object gbOwner: TGroupBox
AnchorSideBottom.Control = btnSetProperties
Left = 8
Height = 89
Top = 304
Height = 95
Top = 295
Width = 502
Anchors = [akLeft, akRight, akBottom]
AutoSize = True
BorderSpacing.Bottom = 6
Caption = 'Owner'
ClientHeight = 70
ClientHeight = 72
ClientWidth = 498
TabOrder = 1
object lblOwnerStr: TLabel
@ -618,10 +619,11 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Side = asrCenter
Left = 24
Height = 18
Top = 10
Width = 41
Top = 11
Width = 46
BorderSpacing.Left = 24
Caption = 'Owner'
Caption = 'O&wner'
FocusControl = cbxUsers
ParentColor = False
end
object lblGroupStr: TLabel
@ -630,16 +632,17 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Side = asrCenter
Left = 24
Height = 18
Top = 41
Width = 39
Top = 43
Width = 41
BorderSpacing.Left = 24
Caption = 'Group'
Caption = '&Group'
FocusControl = cbxGroups
ParentColor = False
end
object cbxUsers: TComboBox
AnchorSideTop.Control = gbOwner
Left = 135
Height = 27
Height = 28
Top = 6
Width = 289
Anchors = [akTop, akLeft, akRight]
@ -652,8 +655,8 @@ object frmFileProperties: TfrmFileProperties
AnchorSideTop.Control = cbxUsers
AnchorSideTop.Side = asrBottom
Left = 135
Height = 27
Top = 37
Height = 28
Top = 38
Width = 289
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
@ -667,17 +670,16 @@ object frmFileProperties: TfrmFileProperties
AnchorSideRight.Control = btnSetPropertiesToAllFiles
AnchorSideBottom.Control = btnSetPropertiesToAllFiles
AnchorSideBottom.Side = asrBottom
Left = 116
Height = 30
Top = 399
Width = 117
Left = 67
Height = 31
Top = 396
Width = 128
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Right = 6
Caption = '&Set properties'
Default = True
Kind = bkOK
NumGlyphs = 0
OnClick = btnSetPropertiesClick
TabOrder = 2
end
@ -685,16 +687,15 @@ object frmFileProperties: TfrmFileProperties
AnchorSideRight.Control = btnSkipFile
AnchorSideBottom.Control = btnSkipFile
AnchorSideBottom.Side = asrBottom
Left = 239
Height = 30
Top = 399
Width = 162
Left = 201
Height = 31
Top = 396
Width = 188
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Right = 6
Caption = 'Set to &all selected files'
Kind = bkAll
NumGlyphs = 0
OnClick = btnSetPropertiesToAllFilesClick
TabOrder = 3
end
@ -702,17 +703,16 @@ object frmFileProperties: TfrmFileProperties
AnchorSideRight.Control = btnClose
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnClose
Left = 407
Height = 30
Top = 399
Width = 103
Left = 395
Height = 32
Top = 395
Width = 115
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Bottom = 4
Caption = 'Ski&p this file'
Kind = bkIgnore
ModalResult = 5
NumGlyphs = 0
OnClick = btnSkipFileClick
TabOrder = 4
end
@ -722,16 +722,16 @@ object frmFileProperties: TfrmFileProperties
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 445
Height = 30
Top = 433
Width = 65
Left = 437
Height = 32
Top = 431
Width = 73
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Right = 10
BorderSpacing.Bottom = 6
Cancel = True
Caption = 'Close'
Caption = '&Close'
Kind = bkClose
ModalResult = 2
OnClick = btnCloseClick

6
src/ffileproperties.lrt
View file

@ -35,9 +35,9 @@ TFRMFILEPROPERTIES.CBSUID.CAPTION=SUID
TFRMFILEPROPERTIES.CBSGID.CAPTION=SGID
TFRMFILEPROPERTIES.CBSTICKY.CAPTION=Sticky
TFRMFILEPROPERTIES.GBOWNER.CAPTION=Owner
TFRMFILEPROPERTIES.LBLOWNERSTR.CAPTION=Owner
TFRMFILEPROPERTIES.LBLGROUPSTR.CAPTION=Group
TFRMFILEPROPERTIES.LBLOWNERSTR.CAPTION=O&wner
TFRMFILEPROPERTIES.LBLGROUPSTR.CAPTION=&Group
TFRMFILEPROPERTIES.BTNSETPROPERTIES.CAPTION=&Set properties
TFRMFILEPROPERTIES.BTNSETPROPERTIESTOALLFILES.CAPTION=Set to &all selected files
TFRMFILEPROPERTIES.BTNSKIPFILE.CAPTION=Ski&p this file
TFRMFILEPROPERTIES.BTNCLOSE.CAPTION=Close
TFRMFILEPROPERTIES.BTNCLOSE.CAPTION=&Close

35
src/ffindview.lfm
View file

@ -1,4 +1,4 @@
object frmFindView: TfrmFindView
inherited frmFindView: TfrmFindView
Left = 365
Height = 104
Top = 311
@ -8,7 +8,6 @@ object frmFindView: TfrmFindView
VertScrollBar.Page = 96
VertScrollBar.Range = 90
ActiveControl = cbDataToFind
AutoScroll = False
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Find'
@ -16,24 +15,24 @@ object frmFindView: TfrmFindView
ClientWidth = 344
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '0.9.27'
object cbDataToFind: TComboBox
object cbDataToFind: TComboBox[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 8
Height = 30
Height = 28
Top = 12
Width = 328
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 12
BorderSpacing.Right = 8
ItemHeight = 0
OnKeyUp = cbDataToFindKeyUp
TabOrder = 0
end
object btnFind: TBitBtn
object btnFind: TBitBtn[1]
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnClose
AnchorSideBottom.Control = Owner
@ -45,13 +44,12 @@ object frmFindView: TfrmFindView
Anchors = [akRight, akBottom]
BorderSpacing.Right = 6
BorderSpacing.Bottom = 4
Caption = 'Find'
Caption = '&Find'
Default = True
NumGlyphs = 0
OnClick = btnFindClick
TabOrder = 1
TabOrder = 2
end
object btnClose: TBitBtn
object btnClose: TBitBtn[2]
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
@ -63,22 +61,21 @@ object frmFindView: TfrmFindView
Anchors = [akRight, akBottom]
BorderSpacing.Right = 8
BorderSpacing.Bottom = 4
Caption = 'Cancel'
Caption = '&Cancel'
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
TabOrder = 2
TabOrder = 3
end
object cbCaseSens: TCheckBox
object cbCaseSens: TCheckBox[3]
AnchorSideLeft.Control = cbDataToFind
AnchorSideTop.Control = cbDataToFind
AnchorSideTop.Side = asrBottom
Left = 8
Height = 22
Top = 48
Width = 121
Height = 23
Top = 46
Width = 115
BorderSpacing.Top = 6
Caption = 'Case sensitive'
TabOrder = 3
Caption = 'C&ase sensitive'
TabOrder = 1
end
end

6
src/ffindview.lrt
View file

@ -1,4 +1,4 @@
TFRMFINDVIEW.CAPTION=Find
TFRMFINDVIEW.BTNFIND.CAPTION=Find
TFRMFINDVIEW.BTNCLOSE.CAPTION=Cancel
TFRMFINDVIEW.CBCASESENS.CAPTION=Case sensitive
TFRMFINDVIEW.BTNFIND.CAPTION=&Find
TFRMFINDVIEW.BTNCLOSE.CAPTION=&Cancel
TFRMFINDVIEW.CBCASESENS.CAPTION=C&ase sensitive

34
src/fhardlink.lfm
View file

@ -13,17 +13,17 @@ object frmHardLink: TfrmHardLink
KeyPreview = True
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '0.9.31'
LCLVersion = '1.1'
object lblExistingFile: TLabel
AnchorSideLeft.Control = edtExistingFile
AnchorSideTop.Control = edtLinkToCreate
AnchorSideTop.Side = asrBottom
Left = 6
Height = 22
Top = 69
Width = 247
Height = 18
Top = 64
Width = 243
BorderSpacing.Top = 6
Caption = 'Destination that the link will point to'
Caption = '&Destination that the link will point to'
FocusControl = edtExistingFile
ParentColor = False
end
@ -31,11 +31,11 @@ object frmHardLink: TfrmHardLink
AnchorSideLeft.Control = edtLinkToCreate
AnchorSideTop.Control = Owner
Left = 6
Height = 22
Height = 18
Top = 6
Width = 72
Width = 64
BorderSpacing.Top = 6
Caption = 'Link name'
Caption = '&Link name'
FocusControl = edtLinkToCreate
ParentColor = False
end
@ -46,8 +46,8 @@ object frmHardLink: TfrmHardLink
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 29
Top = 97
Height = 28
Top = 88
Width = 500
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
@ -63,8 +63,8 @@ object frmHardLink: TfrmHardLink
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 29
Top = 34
Height = 28
Top = 30
Width = 500
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
@ -79,7 +79,7 @@ object frmHardLink: TfrmHardLink
AnchorSideRight.Control = btnCancel
Left = 300
Height = 35
Top = 138
Top = 128
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
@ -92,7 +92,6 @@ object frmHardLink: TfrmHardLink
Default = True
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
OnClick = btnOKClick
OnMouseUp = btnOKMouseUp
TabOrder = 2
@ -103,8 +102,8 @@ object frmHardLink: TfrmHardLink
AnchorSideRight.Control = edtExistingFile
AnchorSideRight.Side = asrBottom
Left = 406
Height = 35
Top = 138
Height = 36
Top = 128
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
@ -112,11 +111,10 @@ object frmHardLink: TfrmHardLink
BorderSpacing.Bottom = 6
BorderSpacing.InnerBorder = 2
Cancel = True
Caption = 'Cancel'
Caption = '&Cancel'
Constraints.MinWidth = 100
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
OnMouseUp = btnCancelMouseUp
TabOrder = 3
end

6
src/fhardlink.lrt
View file

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

29
src/fhotdir.lfm
View file

@ -9,7 +9,7 @@ object frmHotDir: TfrmHotDir
ClientWidth = 437
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.27'
LCLVersion = '1.1'
object lsHotDir: TListBox
AnchorSideRight.Control = btnOK
Left = 12
@ -22,6 +22,7 @@ object frmHotDir: TfrmHotDir
OnMouseMove = lsHotDirMouseMove
OnMouseDown = lsHotDirMouseDown
OnMouseUp = lsHotDirMouseUp
ScrollWidth = 263
TabOrder = 0
TopIndex = -1
end
@ -37,7 +38,6 @@ object frmHotDir: TfrmHotDir
Caption = '&OK'
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
OnClick = btnOKClick
TabOrder = 1
end
@ -54,11 +54,10 @@ object frmHotDir: TfrmHotDir
BorderSpacing.Top = 8
BorderSpacing.Right = 6
Cancel = True
Caption = 'Cancel'
Caption = '&Cancel'
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
TabOrder = 2
TabOrder = 4
end
object btnADD: TBitBtn
AnchorSideTop.Control = btnOK
@ -72,10 +71,9 @@ object frmHotDir: TfrmHotDir
Anchors = [akTop, akRight]
BorderSpacing.Top = 8
BorderSpacing.Right = 6
Caption = 'Add'
NumGlyphs = 0
Caption = '&Add'
OnClick = btnADDClick
TabOrder = 3
TabOrder = 2
end
object btnDelete: TBitBtn
AnchorSideTop.Control = btnADD
@ -89,10 +87,9 @@ object frmHotDir: TfrmHotDir
Anchors = [akTop, akRight]
BorderSpacing.Top = 8
BorderSpacing.Right = 6
Caption = 'Delete'
NumGlyphs = 0
Caption = '&Delete'
OnClick = btnDeleteClick
TabOrder = 6
TabOrder = 3
end
object btnAddMan: TBitBtn
AnchorSideRight.Control = Owner
@ -103,10 +100,9 @@ object frmHotDir: TfrmHotDir
Width = 142
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
Caption = 'Add manually'
NumGlyphs = 0
Caption = 'Add &manually'
OnClick = btnAddManClick
TabOrder = 4
TabOrder = 5
end
object btnEdit: TBitBtn
AnchorSideRight.Control = Owner
@ -117,9 +113,8 @@ object frmHotDir: TfrmHotDir
Width = 142
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
Caption = 'Edit'
NumGlyphs = 0
Caption = '&Edit'
OnClick = btnEditClick
TabOrder = 5
TabOrder = 6
end
end

10
src/fhotdir.lrt
View file

@ -1,7 +1,7 @@
TFRMHOTDIR.CAPTION=Directory Hotlist
TFRMHOTDIR.BTNOK.CAPTION=&OK
TFRMHOTDIR.BTNCANCEL.CAPTION=Cancel
TFRMHOTDIR.BTNADD.CAPTION=Add
TFRMHOTDIR.BTNDELETE.CAPTION=Delete
TFRMHOTDIR.BTNADDMAN.CAPTION=Add manually
TFRMHOTDIR.BTNEDIT.CAPTION=Edit
TFRMHOTDIR.BTNCANCEL.CAPTION=&Cancel
TFRMHOTDIR.BTNADD.CAPTION=&Add
TFRMHOTDIR.BTNDELETE.CAPTION=&Delete
TFRMHOTDIR.BTNADDMAN.CAPTION=Add &manually
TFRMHOTDIR.BTNEDIT.CAPTION=&Edit

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

@ -13,9 +13,9 @@ inherited FileSystemCopyMoveOperationOptionsUI: TFileSystemCopyMoveOperationOpti
AnchorSideTop.Control = Owner
AnchorSideRight.Control = pnlCheckboxes
Left = 0
Height = 82
Height = 90
Top = 0
Width = 404
Width = 377
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Right = 10
@ -25,16 +25,16 @@ inherited FileSystemCopyMoveOperationOptionsUI: TFileSystemCopyMoveOperationOpti
ChildSizing.VerticalSpacing = 10
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 82
ClientWidth = 404
ClientHeight = 90
ClientWidth = 377
TabOrder = 0
object lblFileExists: TLabel
Left = 0
Height = 16
Height = 18
Top = 5
Width = 138
Width = 173
BorderSpacing.CellAlignVertical = ccaCenter
Caption = 'When file exists'
Caption = 'When &file exists'
FocusControl = cmbFileExists
ParentColor = False
end
@ -45,22 +45,22 @@ inherited FileSystemCopyMoveOperationOptionsUI: TFileSystemCopyMoveOperationOpti
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = pnlComboBoxes
AnchorSideRight.Side = asrBottom
Left = 143
Height = 23
Top = 2
Width = 261
Left = 178
Height = 30
Top = -1
Width = 199
Anchors = [akTop, akLeft, akRight]
ItemHeight = 15
ItemHeight = 0
Style = csDropDownList
TabOrder = 0
end
object lblDirectoryExists: TLabel
Left = 0
Height = 16
Top = 31
Width = 138
Height = 18
Top = 33
Width = 173
BorderSpacing.CellAlignVertical = ccaCenter
Caption = 'When directory exists'
Caption = 'When dir&ectory exists'
FocusControl = cmbDirectoryExists
ParentColor = False
end
@ -71,22 +71,22 @@ inherited FileSystemCopyMoveOperationOptionsUI: TFileSystemCopyMoveOperationOpti
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = pnlComboBoxes
AnchorSideRight.Side = asrBottom
Left = 143
Height = 23
Top = 28
Width = 261
Left = 178
Height = 30
Top = 27
Width = 199
Anchors = [akTop, akLeft, akRight]
ItemHeight = 15
ItemHeight = 0
Style = csDropDownList
TabOrder = 1
end
object lblSetPropertyError: TLabel
Left = 0
Height = 16
Top = 57
Width = 138
Height = 18
Top = 61
Width = 173
BorderSpacing.CellAlignVertical = ccaCenter
Caption = 'When cannot set property'
Caption = 'When ca&nnot set property'
FocusControl = cmbSetPropertyError
ParentColor = False
end
@ -97,13 +97,13 @@ inherited FileSystemCopyMoveOperationOptionsUI: TFileSystemCopyMoveOperationOpti
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = pnlComboBoxes
AnchorSideRight.Side = asrBottom
Left = 143
Height = 23
Left = 178
Height = 30
Hint = 'What to do when cannot set file time, attributes, etc.'
Top = 54
Width = 261
Top = 55
Width = 199
Anchors = [akTop, akLeft, akRight]
ItemHeight = 15
ItemHeight = 0
ParentShowHint = False
ShowHint = True
Style = csDropDownList
@ -114,25 +114,25 @@ inherited FileSystemCopyMoveOperationOptionsUI: TFileSystemCopyMoveOperationOpti
AnchorSideTop.Control = pnlComboBoxes
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 414
Height = 152
Left = 387
Height = 184
Top = 0
Width = 128
Width = 155
Anchors = [akTop, akRight]
AutoSize = True
BevelOuter = bvNone
BevelWidth = 8
ClientHeight = 152
ClientWidth = 128
ClientHeight = 184
ClientWidth = 155
TabOrder = 2
object cbCheckFreeSpace: TCheckBox
AnchorSideLeft.Control = pnlCheckboxes
AnchorSideTop.Control = pnlCheckboxes
Left = 0
Height = 19
Height = 23
Top = 0
Width = 109
Caption = 'Check free space'
Width = 134
Caption = 'C&heck free space'
TabOrder = 0
end
object cbFollowLinks: TCheckBox
@ -140,12 +140,12 @@ inherited FileSystemCopyMoveOperationOptionsUI: TFileSystemCopyMoveOperationOpti
AnchorSideTop.Control = cbReserveSpace
AnchorSideTop.Side = asrBottom
Left = 0
Height = 19
Top = 38
Width = 82
Height = 23
Top = 46
Width = 102
AllowGrayed = True
Caption = 'Follow links'
TabOrder = 1
Caption = 'Fo&llow links'
TabOrder = 2
Visible = False
end
object cbCorrectLinks: TCheckBox
@ -153,35 +153,35 @@ inherited FileSystemCopyMoveOperationOptionsUI: TFileSystemCopyMoveOperationOpti
AnchorSideTop.Control = cbFollowLinks
AnchorSideTop.Side = asrBottom
Left = 0
Height = 19
Top = 57
Width = 86
Caption = 'Correct links'
TabOrder = 2
Height = 23
Top = 69
Width = 107
Caption = 'Correct lin&ks'
TabOrder = 3
end
object cbCopyAttributes: TCheckBox
AnchorSideLeft.Control = cbCorrectLinks
AnchorSideTop.Control = cbCorrectLinks
AnchorSideTop.Side = asrBottom
Left = 0
Height = 19
Top = 76
Width = 101
Caption = 'Copy attributes'
Height = 23
Top = 92
Width = 124
Caption = 'Cop&y attributes'
OnChange = cbCopyAttributesChange
TabOrder = 3
TabOrder = 4
end
object cbDropReadOnlyFlag: TCheckBox
AnchorSideLeft.Control = cbCopyAttributes
AnchorSideTop.Control = cbCopyAttributes
AnchorSideTop.Side = asrBottom
Left = 10
Height = 19
Top = 95
Width = 118
Height = 23
Top = 115
Width = 145
BorderSpacing.Left = 10
Caption = 'Drop readonly flag'
TabOrder = 4
Caption = 'Drop readonly fla&g'
TabOrder = 5
Visible = False
end
object cbCopyTime: TCheckBox
@ -189,34 +189,34 @@ inherited FileSystemCopyMoveOperationOptionsUI: TFileSystemCopyMoveOperationOpti
AnchorSideTop.Control = cbDropReadOnlyFlag
AnchorSideTop.Side = asrBottom
Left = 0
Height = 19
Top = 114
Width = 103
Caption = 'Copy date/time'
TabOrder = 5
Height = 23
Top = 138
Width = 121
Caption = 'Copy d&ate/time'
TabOrder = 6
end
object cbCopyOwnership: TCheckBox
AnchorSideLeft.Control = cbCopyTime
AnchorSideTop.Control = cbCopyTime
AnchorSideTop.Side = asrBottom
Left = 0
Height = 19
Top = 133
Width = 106
Caption = 'Copy ownership'
TabOrder = 6
Height = 23
Top = 161
Width = 127
Caption = 'Copy o&wnership'
TabOrder = 7
end
object cbReserveSpace: TCheckBox
AnchorSideLeft.Control = pnlCheckboxes
AnchorSideTop.Control = cbCheckFreeSpace
AnchorSideTop.Side = asrBottom
Left = 0
Height = 19
Top = 19
Width = 93
Caption = 'Reserve space'
Height = 23
Top = 23
Width = 116
Caption = '&Reserve space'
OnChange = cbReserveSpaceChange
TabOrder = 7
TabOrder = 1
end
end
object gbFileTemplate: TGroupBox[2]
@ -226,21 +226,21 @@ inherited FileSystemCopyMoveOperationOptionsUI: TFileSystemCopyMoveOperationOpti
AnchorSideRight.Control = pnlComboBoxes
AnchorSideRight.Side = asrBottom
Left = 0
Height = 74
Top = 82
Width = 404
Height = 83
Top = 90
Width = 377
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Use file template'
ClientHeight = 56
ClientWidth = 400
ClientHeight = 60
ClientWidth = 373
TabOrder = 1
object btnSearchTemplate: TBitBtn
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbFileTemplate
AnchorSideRight.Control = gbFileTemplate
AnchorSideRight.Side = asrBottom
Left = 363
Left = 336
Height = 32
Hint = 'Choose template...'
Top = 0
@ -294,9 +294,9 @@ inherited FileSystemCopyMoveOperationOptionsUI: TFileSystemCopyMoveOperationOpti
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnSearchTemplate
Left = 5
Height = 16
Top = 8
Width = 348
Height = 18
Top = 7
Width = 321
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 5
BorderSpacing.Right = 10
@ -308,13 +308,13 @@ inherited FileSystemCopyMoveOperationOptionsUI: TFileSystemCopyMoveOperationOpti
AnchorSideTop.Control = btnSearchTemplate
AnchorSideTop.Side = asrBottom
Left = 5
Height = 19
Height = 23
Top = 37
Width = 155
Width = 192
BorderSpacing.Left = 5
BorderSpacing.Top = 5
BorderSpacing.Right = 5
Caption = 'Exclude empty directories'
Caption = 'E&xclude empty directories'
Checked = True
State = cbChecked
TabOrder = 1

24
src/filesources/filesystem/ffilesystemcopymoveoperationoptions.lrt
View file

@ -1,16 +1,16 @@
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.LBLFILEEXISTS.CAPTION=When file exists
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.LBLDIRECTORYEXISTS.CAPTION=When directory exists
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.LBLSETPROPERTYERROR.CAPTION=When cannot set property
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.LBLFILEEXISTS.CAPTION=When &file exists
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.LBLDIRECTORYEXISTS.CAPTION=When dir&ectory exists
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.LBLSETPROPERTYERROR.CAPTION=When ca&nnot set property
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.CMBSETPROPERTYERROR.HINT=What to do when cannot set file time, attributes, etc.
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.CBCHECKFREESPACE.CAPTION=Check free space
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.CBFOLLOWLINKS.CAPTION=Follow links
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.CBCORRECTLINKS.CAPTION=Correct links
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.CBCOPYATTRIBUTES.CAPTION=Copy attributes
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.CBDROPREADONLYFLAG.CAPTION=Drop readonly flag
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.CBCOPYTIME.CAPTION=Copy date/time
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.CBCOPYOWNERSHIP.CAPTION=Copy ownership
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.CBRESERVESPACE.CAPTION=Reserve space
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.CBCHECKFREESPACE.CAPTION=C&heck free space
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.CBFOLLOWLINKS.CAPTION=Fo&llow links
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.CBCORRECTLINKS.CAPTION=Correct lin&ks
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.CBCOPYATTRIBUTES.CAPTION=Cop&y attributes
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.CBDROPREADONLYFLAG.CAPTION=Drop readonly fla&g
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.CBCOPYTIME.CAPTION=Copy d&ate/time
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.CBCOPYOWNERSHIP.CAPTION=Copy o&wnership
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.CBRESERVESPACE.CAPTION=&Reserve space
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.GBFILETEMPLATE.CAPTION=Use file template
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.BTNSEARCHTEMPLATE.HINT=Choose template...
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.LBLTEMPLATENAME.CAPTION=<no template>
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.CBEXCLUDEEMPTYDIRECTORIES.CAPTION=Exclude empty directories
TFILESYSTEMCOPYMOVEOPERATIONOPTIONSUI.CBEXCLUDEEMPTYDIRECTORIES.CAPTION=E&xclude empty directories

43
src/flinker.lfm
View file

@ -13,7 +13,7 @@ object frmLinker: TfrmLinker
ClientHeight = 337
ClientWidth = 360
Position = poScreenCenter
LCLVersion = '0.9.29'
LCLVersion = '1.1'
object gbSaveTo: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = lstFile
@ -26,19 +26,20 @@ object frmLinker: TfrmLinker
BorderSpacing.Left = 6
BorderSpacing.Bottom = 6
Caption = 'Save to...'
ClientHeight = 62
ClientHeight = 57
ClientWidth = 238
TabOrder = 0
TabOrder = 1
object lblFileName: TLabel
AnchorSideLeft.Control = gbSaveTo
AnchorSideTop.Control = gbSaveTo
Left = 6
Height = 14
Height = 18
Top = 6
Width = 46
Width = 62
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'File name'
Caption = '&File name'
FocusControl = edSave
ParentColor = False
end
object edSave: TEdit
@ -47,8 +48,8 @@ object frmLinker: TfrmLinker
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnSave
Left = 6
Height = 21
Top = 26
Height = 28
Top = 30
Width = 195
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
@ -63,8 +64,8 @@ object frmLinker: TfrmLinker
AnchorSideBottom.Control = edSave
AnchorSideBottom.Side = asrBottom
Left = 207
Height = 21
Top = 26
Height = 28
Top = 30
Width = 25
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 6
@ -87,9 +88,9 @@ object frmLinker: TfrmLinker
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 6
Caption = 'Item'
ClientHeight = 224
ClientHeight = 219
ClientWidth = 96
TabOrder = 1
TabOrder = 2
object spbtnUp: TButton
AnchorSideLeft.Control = grbxControl
AnchorSideRight.Control = grbxControl
@ -103,7 +104,7 @@ object frmLinker: TfrmLinker
BorderSpacing.Left = 4
BorderSpacing.Right = 4
BorderSpacing.InnerBorder = 4
Caption = 'Up'
Caption = '&Up'
OnClick = spbtnUpClick
ParentShowHint = False
TabOrder = 0
@ -124,7 +125,7 @@ object frmLinker: TfrmLinker
BorderSpacing.Top = 6
BorderSpacing.Right = 4
BorderSpacing.InnerBorder = 4
Caption = 'Down'
Caption = 'Do&wn'
OnClick = spbtnDownClick
ParentShowHint = False
TabOrder = 1
@ -145,7 +146,7 @@ object frmLinker: TfrmLinker
BorderSpacing.Top = 6
BorderSpacing.Right = 4
BorderSpacing.InnerBorder = 4
Caption = 'Delete'
Caption = '&Delete'
OnClick = spbtnDelClick
ParentShowHint = False
TabOrder = 2
@ -162,10 +163,10 @@ object frmLinker: TfrmLinker
Anchors = [akRight, akBottom]
BorderSpacing.Bottom = 6
BorderSpacing.InnerBorder = 4
Caption = 'OK'
Caption = '&OK'
Default = True
ModalResult = 1
TabOrder = 2
TabOrder = 3
end
object btnExit: TButton
AnchorSideTop.Side = asrBottom
@ -181,9 +182,9 @@ object frmLinker: TfrmLinker
BorderSpacing.Top = 6
BorderSpacing.InnerBorder = 4
Cancel = True
Caption = 'Cancel'
Caption = '&Cancel'
ModalResult = 2
TabOrder = 3
TabOrder = 4
end
object lstFile: TListBox
AnchorSideLeft.Control = Owner
@ -200,7 +201,9 @@ object frmLinker: TfrmLinker
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
ItemHeight = 0
TabOrder = 4
ScrollWidth = 240
TabOrder = 0
TopIndex = -1
end
object dlgSaveAll: TSaveDialog
Filter = 'All files|*.*'

12
src/flinker.lrt
View file

@ -1,13 +1,13 @@
TFRMLINKER.CAPTION=Linker
TFRMLINKER.GBSAVETO.CAPTION=Save to...
TFRMLINKER.LBLFILENAME.CAPTION=File name
TFRMLINKER.LBLFILENAME.CAPTION=&File name
TFRMLINKER.BTNSAVE.CAPTION=...
TFRMLINKER.GRBXCONTROL.CAPTION=Item
TFRMLINKER.SPBTNUP.HINT=Up
TFRMLINKER.SPBTNUP.CAPTION=Up
TFRMLINKER.SPBTNUP.CAPTION=&Up
TFRMLINKER.SPBTNDOWN.HINT=Down
TFRMLINKER.SPBTNDOWN.CAPTION=Down
TFRMLINKER.SPBTNDOWN.CAPTION=Do&wn
TFRMLINKER.SPBTNDEL.HINT=Delete
TFRMLINKER.SPBTNDEL.CAPTION=Delete
TFRMLINKER.BTNOK.CAPTION=OK
TFRMLINKER.BTNEXIT.CAPTION=Cancel
TFRMLINKER.SPBTNDEL.CAPTION=&Delete
TFRMLINKER.BTNOK.CAPTION=&OK
TFRMLINKER.BTNEXIT.CAPTION=&Cancel

33
src/fmaskinputdlg.lfm
View file

@ -12,7 +12,7 @@ object frmMaskInputDlg: TfrmMaskInputDlg
ClientWidth = 339
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.29'
LCLVersion = '1.1'
object lblPrompt: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
@ -33,11 +33,12 @@ object frmMaskInputDlg: TfrmMaskInputDlg
AnchorSideTop.Control = cmbMask
AnchorSideTop.Side = asrBottom
Left = 10
Height = 22
Top = 52
Height = 18
Top = 51
Width = 238
BorderSpacing.Top = 6
Caption = 'Or select predefined selection type:'
Caption = 'O&r select predefined selection type:'
FocusControl = lbxSearchTemplate
ParentColor = False
WordWrap = True
end
@ -48,7 +49,7 @@ object frmMaskInputDlg: TfrmMaskInputDlg
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 10
Height = 29
Height = 28
Top = 17
Width = 319
Anchors = [akTop, akLeft, akRight]
@ -56,7 +57,7 @@ object frmMaskInputDlg: TfrmMaskInputDlg
BorderSpacing.Top = 6
BorderSpacing.Right = 10
DropDownCount = 10
ItemHeight = 21
ItemHeight = 0
TabOrder = 0
end
object btnOK: TBitBtn
@ -65,7 +66,7 @@ object frmMaskInputDlg: TfrmMaskInputDlg
AnchorSideRight.Control = btnCancel
Left = 123
Height = 35
Top = 179
Top = 174
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
@ -85,8 +86,8 @@ object frmMaskInputDlg: TfrmMaskInputDlg
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 229
Height = 35
Top = 179
Height = 36
Top = 174
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
@ -94,11 +95,11 @@ object frmMaskInputDlg: TfrmMaskInputDlg
BorderSpacing.Right = 10
BorderSpacing.InnerBorder = 2
Cancel = True
Caption = 'Cancel'
Caption = '&Cancel'
Constraints.MinWidth = 100
Kind = bkCancel
ModalResult = 2
TabOrder = 2
TabOrder = 4
end
object lbxSearchTemplate: TListBox
AnchorSideLeft.Control = Owner
@ -108,7 +109,7 @@ object frmMaskInputDlg: TfrmMaskInputDlg
AnchorSideRight.Side = asrBottom
Left = 10
Height = 93
Top = 80
Top = 75
Width = 319
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
@ -117,23 +118,25 @@ object frmMaskInputDlg: TfrmMaskInputDlg
ItemHeight = 0
OnClick = lbxSearchTemplateClick
OnDblClick = lbxSearchTemplateDblClick
ScrollWidth = 317
Sorted = True
TabOrder = 1
TopIndex = -1
end
object btnDefineTemplate: TBitBtn
AnchorSideTop.Control = btnOK
AnchorSideRight.Control = btnOK
Left = 17
Height = 35
Top = 179
Top = 174
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 6
BorderSpacing.InnerBorder = 2
Caption = 'Define...'
Caption = '&Define...'
Constraints.MinWidth = 100
OnClick = btnDefineTemplateClick
TabOrder = 4
TabOrder = 2
end
end

6
src/fmaskinputdlg.lrt
View file

@ -1,4 +1,4 @@
TFRMMASKINPUTDLG.LBLSEARCHTEMPLATE.CAPTION=Or select predefined selection type:
TFRMMASKINPUTDLG.LBLSEARCHTEMPLATE.CAPTION=O&r select predefined selection type:
TFRMMASKINPUTDLG.BTNOK.CAPTION=&OK
TFRMMASKINPUTDLG.BTNCANCEL.CAPTION=Cancel
TFRMMASKINPUTDLG.BTNDEFINETEMPLATE.CAPTION=Define...
TFRMMASKINPUTDLG.BTNCANCEL.CAPTION=&Cancel
TFRMMASKINPUTDLG.BTNDEFINETEMPLATE.CAPTION=&Define...

43
src/fmkdir.lfm
View file

@ -15,23 +15,24 @@ object frmMkDir: TfrmMkDir
KeyPreview = True
OnKeyPress = FormKeyPress
Position = poScreenCenter
LCLVersion = '0.9.30.2'
LCLVersion = '1.1'
object lblMakeDir: TLabel
Left = 6
Height = 14
Height = 18
Top = 3
Width = 338
Align = alTop
BorderSpacing.Left = 6
BorderSpacing.Top = 3
BorderSpacing.Right = 6
Caption = 'Input new directory name:'
Caption = '&Input new directory name:'
FocusControl = cbMkDir
ParentColor = False
end
object cbMkDir: TComboBox
Left = 6
Height = 21
Top = 17
Height = 28
Top = 21
Width = 338
Align = alTop
AutoComplete = True
@ -40,13 +41,13 @@ object frmMkDir: TfrmMkDir
BorderSpacing.Right = 6
BorderSpacing.Bottom = 3
DropDownCount = 5
ItemHeight = 13
ItemHeight = 0
TabOrder = 0
end
object pnlBottom: TPanel
Left = 6
Height = 30
Top = 44
Height = 36
Top = 55
Width = 338
Align = alTop
AutoSize = True
@ -55,25 +56,25 @@ object frmMkDir: TfrmMkDir
BorderSpacing.Right = 6
BorderSpacing.Bottom = 3
BevelOuter = bvNone
ClientHeight = 30
ClientHeight = 36
ClientWidth = 338
TabOrder = 1
object pnlButtons: TPanel
Left = 191
Height = 30
Left = 192
Height = 36
Top = 0
Width = 147
Width = 146
Align = alRight
AutoSize = True
BevelOuter = bvNone
ClientHeight = 30
ClientWidth = 147
ClientHeight = 36
ClientWidth = 146
TabOrder = 0
object btnOK: TBitBtn
Left = 0
Height = 30
Height = 36
Top = 0
Width = 63
Width = 59
Align = alRight
AutoSize = True
BorderSpacing.Right = 3
@ -83,23 +84,21 @@ object frmMkDir: TfrmMkDir
Default = True
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
TabOrder = 0
end
object btnCancel: TBitBtn
Left = 66
Height = 30
Left = 62
Height = 36
Top = 0
Width = 81
Width = 84
Align = alRight
AutoSize = True
BorderSpacing.InnerBorder = 2
Cancel = True
Caption = 'Cancel'
Caption = '&Cancel'
Constraints.MinWidth = 50
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
TabOrder = 1
end
end

4
src/fmkdir.lrt
View file

@ -1,4 +1,4 @@
TFRMMKDIR.CAPTION=Create new directory
TFRMMKDIR.LBLMAKEDIR.CAPTION=Input new directory name:
TFRMMKDIR.LBLMAKEDIR.CAPTION=&Input new directory name:
TFRMMKDIR.BTNOK.CAPTION=&OK
TFRMMKDIR.BTNCANCEL.CAPTION=Cancel
TFRMMKDIR.BTNCANCEL.CAPTION=&Cancel

217
src/fmultirename.lfm
View file

@ -12,10 +12,10 @@ object frmMultiRename: TfrmMultiRename
Position = poScreenCenter
SessionProperties = 'Height;Width;WindowState;Left;Top'
ShowInTaskBar = stAlways
LCLVersion = '0.9.30.1'
LCLVersion = '1.1'
object StringGrid: TStringGrid
Left = 6
Height = 198
Height = 211
Top = 6
Width = 791
Align = alClient
@ -37,7 +37,7 @@ object frmMultiRename: TfrmMultiRename
end
item
Title.Caption = 'File Path'
Width = 290
Width = 292
end>
ExtendedSelect = False
FixedCols = 0
@ -50,19 +50,19 @@ object frmMultiRename: TfrmMultiRename
ColWidths = (
248
249
290
292
)
end
object pnlOptions: TPanel
Left = 6
Height = 249
Top = 210
Height = 236
Top = 223
Width = 791
Align = alBottom
AutoSize = True
BorderSpacing.Around = 6
BevelOuter = bvNone
ClientHeight = 249
ClientHeight = 236
ClientWidth = 791
TabOrder = 1
object gbMaska: TGroupBox
@ -70,21 +70,21 @@ object frmMultiRename: TfrmMultiRename
AnchorSideTop.Control = pnlOptions
AnchorSideRight.Side = asrBottom
Left = 0
Height = 139
Height = 132
Top = 0
Width = 342
AutoSize = True
Caption = 'Mask'
ClientHeight = 117
ClientHeight = 109
ClientWidth = 338
TabOrder = 0
object lbName: TLabel
AnchorSideLeft.Control = gbMaska
AnchorSideTop.Control = gbMaska
Left = 6
Height = 22
Height = 18
Top = 1
Width = 69
Width = 65
BorderSpacing.Left = 6
BorderSpacing.Top = 1
Caption = 'File &Name'
@ -96,9 +96,9 @@ object frmMultiRename: TfrmMultiRename
AnchorSideTop.Control = cmbNameStyle
AnchorSideTop.Side = asrBottom
Left = 6
Height = 22
Top = 64
Width = 67
Height = 18
Top = 60
Width = 64
BorderSpacing.Left = 6
BorderSpacing.Top = 10
Caption = '&Extension'
@ -110,8 +110,8 @@ object frmMultiRename: TfrmMultiRename
AnchorSideTop.Control = lbName
AnchorSideTop.Side = asrBottom
Left = 6
Height = 29
Top = 25
Height = 28
Top = 21
Width = 136
BorderSpacing.Left = 6
BorderSpacing.Top = 2
@ -124,8 +124,8 @@ object frmMultiRename: TfrmMultiRename
AnchorSideTop.Control = lbExt
AnchorSideTop.Side = asrBottom
Left = 6
Height = 29
Top = 88
Height = 28
Top = 80
Width = 136
BorderSpacing.Left = 6
BorderSpacing.Top = 2
@ -139,8 +139,8 @@ object frmMultiRename: TfrmMultiRename
AnchorSideBottom.Control = edName
AnchorSideBottom.Side = asrBottom
Left = 146
Height = 29
Top = 25
Height = 28
Top = 21
Width = 20
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 4
@ -156,8 +156,8 @@ object frmMultiRename: TfrmMultiRename
AnchorSideBottom.Control = edExt
AnchorSideBottom.Side = asrBottom
Left = 146
Height = 29
Top = 88
Height = 28
Top = 80
Width = 20
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 4
@ -175,12 +175,12 @@ object frmMultiRename: TfrmMultiRename
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 170
Height = 29
Top = 25
Height = 30
Top = 20
Width = 164
BorderSpacing.Left = 4
BorderSpacing.Right = 4
ItemHeight = 21
ItemHeight = 0
OnChange = cmbNameStyleChange
Style = csDropDownList
TabOrder = 2
@ -193,13 +193,13 @@ object frmMultiRename: TfrmMultiRename
AnchorSideRight.Control = gbMaska
AnchorSideRight.Side = asrBottom
Left = 170
Height = 29
Top = 88
Height = 30
Top = 79
Width = 164
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
BorderSpacing.Right = 4
ItemHeight = 21
ItemHeight = 0
OnChange = cmbNameStyleChange
Style = csDropDownList
TabOrder = 5
@ -212,24 +212,24 @@ object frmMultiRename: TfrmMultiRename
AnchorSideRight.Control = gbCounter
AnchorSideBottom.Side = asrBottom
Left = 348
Height = 212
Height = 199
Top = 0
Width = 224
Width = 226
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6
Caption = 'Find && Replace'
ChildSizing.TopBottomSpacing = 2
ClientHeight = 190
ClientWidth = 220
TabOrder = 1
ClientHeight = 176
ClientWidth = 222
TabOrder = 2
object lbFind: TLabel
AnchorSideLeft.Control = gbFindReplace
AnchorSideTop.Control = gbFindReplace
Left = 6
Height = 22
Height = 18
Top = 6
Width = 43
Width = 39
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = '&Find...'
@ -241,9 +241,9 @@ object frmMultiRename: TfrmMultiRename
AnchorSideTop.Control = edFind
AnchorSideTop.Side = asrBottom
Left = 6
Height = 22
Top = 65
Width = 67
Height = 18
Top = 60
Width = 64
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'Re&place...'
@ -257,9 +257,9 @@ object frmMultiRename: TfrmMultiRename
AnchorSideRight.Control = gbFindReplace
AnchorSideRight.Side = asrBottom
Left = 4
Height = 29
Top = 30
Width = 212
Height = 28
Top = 26
Width = 214
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
BorderSpacing.Top = 2
@ -274,9 +274,9 @@ object frmMultiRename: TfrmMultiRename
AnchorSideRight.Control = gbFindReplace
AnchorSideRight.Side = asrBottom
Left = 4
Height = 29
Top = 89
Width = 212
Height = 28
Top = 80
Width = 214
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
BorderSpacing.Top = 2
@ -289,9 +289,9 @@ object frmMultiRename: TfrmMultiRename
AnchorSideTop.Control = edReplace
AnchorSideTop.Side = asrBottom
Left = 4
Height = 25
Top = 128
Width = 163
Height = 23
Top = 118
Width = 155
BorderSpacing.Left = 4
BorderSpacing.Top = 10
Caption = 'Regular e&xpressions'
@ -303,9 +303,9 @@ object frmMultiRename: TfrmMultiRename
AnchorSideTop.Control = cbRegExp
AnchorSideTop.Side = asrBottom
Left = 4
Height = 25
Top = 163
Width = 138
Height = 23
Top = 151
Width = 129
BorderSpacing.Left = 4
BorderSpacing.Top = 10
Caption = '&Use substitution'
@ -320,10 +320,10 @@ object frmMultiRename: TfrmMultiRename
AnchorSideTop.Control = gbFindReplace
AnchorSideRight.Control = pnlOptions
AnchorSideRight.Side = asrBottom
Left = 578
Height = 113
Left = 580
Height = 109
Top = 0
Width = 213
Width = 211
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Left = 6
@ -337,21 +337,22 @@ object frmMultiRename: TfrmMultiRename
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ClientHeight = 91
ClientWidth = 209
TabOrder = 2
ClientHeight = 86
ClientWidth = 207
TabOrder = 3
object lbStNb: TLabel
Left = 6
Height = 22
Top = 3
Width = 92
Height = 18
Top = 5
Width = 90
BorderSpacing.CellAlignVertical = ccaCenter
Caption = 'Start Number'
Caption = 'S&tart Number'
FocusControl = edPoc
ParentColor = False
end
object edPoc: TEdit
Left = 103
Height = 29
Left = 101
Height = 28
Top = 0
Width = 100
MaxLength = 5
@ -361,17 +362,18 @@ object frmMultiRename: TfrmMultiRename
end
object lbInterval: TLabel
Left = 6
Height = 22
Top = 34
Width = 92
Height = 18
Top = 35
Width = 90
BorderSpacing.CellAlignVertical = ccaCenter
Caption = 'Interval'
Caption = '&Interval'
FocusControl = edInterval
ParentColor = False
end
object edInterval: TEdit
Left = 103
Height = 29
Top = 31
Left = 101
Height = 28
Top = 30
Width = 100
MaxLength = 5
OnChange = edIntervalChange
@ -380,19 +382,20 @@ object frmMultiRename: TfrmMultiRename
end
object lbWidth: TLabel
Left = 6
Height = 22
Top = 65
Width = 92
Height = 18
Top = 64
Width = 90
BorderSpacing.CellAlignVertical = ccaCenter
Caption = 'Width'
Caption = '&Width'
FocusControl = cmbxWidth
ParentColor = False
end
object cmbxWidth: TComboBox
Left = 103
Height = 29
Top = 62
Left = 101
Height = 26
Top = 60
Width = 100
ItemHeight = 21
ItemHeight = 0
ItemIndex = 0
Items.Strings = (
'01'
@ -419,7 +422,7 @@ object frmMultiRename: TfrmMultiRename
AnchorSideRight.Control = btnClose
Left = 454
Height = 31
Top = 218
Top = 205
Width = 231
Anchors = [akTop, akLeft, akRight]
AutoSize = True
@ -428,7 +431,7 @@ object frmMultiRename: TfrmMultiRename
Constraints.MinWidth = 100
Default = True
OnClick = btnRenameClick
TabOrder = 3
TabOrder = 6
end
object btnClose: TButton
AnchorSideLeft.Side = asrBottom
@ -437,7 +440,7 @@ object frmMultiRename: TfrmMultiRename
AnchorSideRight.Side = asrBottom
Left = 691
Height = 31
Top = 218
Top = 205
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
@ -446,7 +449,7 @@ object frmMultiRename: TfrmMultiRename
Caption = '&Close'
Constraints.MinWidth = 100
OnClick = btnCloseClick
TabOrder = 4
TabOrder = 7
end
object gbLog: TGroupBox
AnchorSideLeft.Control = gbCounter
@ -456,16 +459,16 @@ object frmMultiRename: TfrmMultiRename
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = gbFindReplace
AnchorSideBottom.Side = asrBottom
Left = 578
Height = 99
Top = 113
Width = 213
Left = 580
Height = 90
Top = 109
Width = 211
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = True
Caption = 'Log Result'
ClientHeight = 77
ClientWidth = 209
TabOrder = 5
ClientHeight = 67
ClientWidth = 207
TabOrder = 4
object edFile: TEdit
AnchorSideLeft.Control = gbLog
AnchorSideTop.Control = cbLog
@ -473,27 +476,27 @@ object frmMultiRename: TfrmMultiRename
AnchorSideRight.Control = gbLog
AnchorSideRight.Side = asrBottom
Left = 4
Height = 29
Top = 31
Width = 201
Height = 28
Top = 29
Width = 199
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Right = 4
TabOrder = 0
TabOrder = 1
end
object cbLog: TCheckBox
AnchorSideLeft.Control = gbLog
AnchorSideTop.Control = gbLog
Left = 4
Height = 25
Height = 23
Top = 2
Width = 75
Width = 66
BorderSpacing.Left = 4
BorderSpacing.Top = 2
Caption = 'Enable'
Caption = 'Ena&ble'
OnClick = cbLogClick
TabOrder = 1
TabOrder = 0
end
end
object btnRestore: TButton
@ -502,14 +505,14 @@ object frmMultiRename: TfrmMultiRename
AnchorSideTop.Side = asrBottom
Left = 348
Height = 31
Top = 218
Top = 205
Width = 100
AutoSize = True
BorderSpacing.Top = 6
Caption = 'Reset all'
Caption = 'Reset &all'
Constraints.MinWidth = 100
OnClick = btnRestoreClick
TabOrder = 6
TabOrder = 5
end
object gbPresets: TGroupBox
AnchorSideLeft.Control = gbMaska
@ -519,28 +522,28 @@ object frmMultiRename: TfrmMultiRename
AnchorSideRight.Side = asrBottom
Left = 0
Height = 102
Top = 139
Top = 132
Width = 342
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Presets'
ClientHeight = 80
ClientHeight = 79
ClientWidth = 338
TabOrder = 7
TabOrder = 1
object cbPresets: TComboBox
AnchorSideLeft.Control = gbPresets
AnchorSideTop.Control = gbPresets
AnchorSideRight.Control = gbPresets
AnchorSideRight.Side = asrBottom
Left = 6
Height = 29
Height = 28
Top = 6
Width = 326
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
ItemHeight = 21
ItemHeight = 0
TabOrder = 0
end
object btnLoadPreset: TButton
@ -549,7 +552,7 @@ object frmMultiRename: TfrmMultiRename
AnchorSideTop.Side = asrBottom
Left = 6
Height = 31
Top = 43
Top = 42
Width = 100
AutoSize = True
BorderSpacing.Top = 8
@ -565,7 +568,7 @@ object frmMultiRename: TfrmMultiRename
AnchorSideTop.Control = btnLoadPreset
Left = 119
Height = 31
Top = 43
Top = 42
Width = 100
AutoSize = True
BorderSpacing.CellAlignHorizontal = ccaCenter
@ -582,7 +585,7 @@ object frmMultiRename: TfrmMultiRename
AnchorSideRight.Side = asrBottom
Left = 232
Height = 31
Top = 43
Top = 42
Width = 100
Anchors = [akTop, akRight]
AutoSize = True

18
src/fmultirename.lrt
View file

@ -1,4 +1,7 @@
TFRMMULTIRENAME.FRMMULTIRENAME.CAPTION=MultiRename
TFRMMULTIRENAME.CAPTION=MultiRename
TFRMMULTIRENAME.STRINGGRID.COLUMNS[0].TITLE.CAPTION=Old File Name
TFRMMULTIRENAME.STRINGGRID.COLUMNS[1].TITLE.CAPTION=New File Name
TFRMMULTIRENAME.STRINGGRID.COLUMNS[2].TITLE.CAPTION=File Path
TFRMMULTIRENAME.GBMASKA.CAPTION=Mask
TFRMMULTIRENAME.LBNAME.CAPTION=File &Name
TFRMMULTIRENAME.LBEXT.CAPTION=&Extension
@ -10,24 +13,21 @@ TFRMMULTIRENAME.LBREPLACE.CAPTION=Re&place...
TFRMMULTIRENAME.CBREGEXP.CAPTION=Regular e&xpressions
TFRMMULTIRENAME.CBUSESUBS.CAPTION=&Use substitution
TFRMMULTIRENAME.GBCOUNTER.CAPTION=Counter
TFRMMULTIRENAME.LBSTNB.CAPTION=Start Number
TFRMMULTIRENAME.LBSTNB.CAPTION=S&tart Number
TFRMMULTIRENAME.EDPOC.TEXT=1
TFRMMULTIRENAME.LBINTERVAL.CAPTION=Interval
TFRMMULTIRENAME.LBINTERVAL.CAPTION=&Interval
TFRMMULTIRENAME.EDINTERVAL.TEXT=1
TFRMMULTIRENAME.LBWIDTH.CAPTION=Width
TFRMMULTIRENAME.LBWIDTH.CAPTION=&Width
TFRMMULTIRENAME.CMBXWIDTH.TEXT=01
TFRMMULTIRENAME.BTNRENAME.CAPTION=&Rename
TFRMMULTIRENAME.BTNCLOSE.CAPTION=&Close
TFRMMULTIRENAME.GBLOG.CAPTION=Log Result
TFRMMULTIRENAME.CBLOG.CAPTION=Enable
TFRMMULTIRENAME.BTNRESTORE.CAPTION=Reset all
TFRMMULTIRENAME.CBLOG.CAPTION=Ena&ble
TFRMMULTIRENAME.BTNRESTORE.CAPTION=Reset &all
TFRMMULTIRENAME.GBPRESETS.CAPTION=Presets
TFRMMULTIRENAME.BTNLOADPRESET.CAPTION=&Load
TFRMMULTIRENAME.BTNSAVEPRESET.CAPTION=&Save
TFRMMULTIRENAME.BTNDELETEPRESET.CAPTION=&Delete
TFRMMULTIRENAME.STRINGGRID.COLUMNS[0].TGRIDCOLUMNTITLE.CAPTION=Old File Name
TFRMMULTIRENAME.STRINGGRID.COLUMNS[1].TGRIDCOLUMNTITLE.CAPTION=New File Name
TFRMMULTIRENAME.STRINGGRID.COLUMNS[2].TGRIDCOLUMNTITLE.CAPTION=File Path
TFRMMULTIRENAME.MINEXTNAME.CAPTION=Name...
TFRMMULTIRENAME.MINAME.CAPTION=[N] Name
TFRMMULTIRENAME.MINAMEX.CAPTION=[Nx] Character at position x

107
src/fpackdlg.lfm
View file

@ -17,15 +17,16 @@ object frmPackDlg: TfrmPackDlg
Constraints.MinWidth = 482
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '0.9.30.4'
LCLVersion = '1.1'
object lblPrompt: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 5
Height = 22
Height = 18
Top = 5
Width = 147
Width = 145
Caption = 'Pack file(s) to the file:'
FocusControl = edtPackCmd
ParentColor = False
ShowAccelChar = False
end
@ -35,13 +36,13 @@ object frmPackDlg: TfrmPackDlg
AnchorSideRight.Control = btnCancel
Left = 304
Height = 32
Top = 277
Top = 244
Width = 90
Anchors = [akTop, akRight]
BorderSpacing.Top = 24
BorderSpacing.Right = 6
BorderSpacing.InnerBorder = 4
Caption = 'OK'
Caption = '&OK'
Default = True
ModalResult = 1
TabOrder = 6
@ -51,13 +52,13 @@ object frmPackDlg: TfrmPackDlg
AnchorSideRight.Control = btnHelp
Left = 400
Height = 32
Top = 277
Top = 244
Width = 90
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
BorderSpacing.InnerBorder = 4
Cancel = True
Caption = 'Cancel'
Caption = '&Cancel'
ModalResult = 2
TabOrder = 7
end
@ -67,11 +68,11 @@ object frmPackDlg: TfrmPackDlg
AnchorSideRight.Side = asrBottom
Left = 496
Height = 32
Top = 277
Top = 244
Width = 90
Anchors = [akTop, akRight]
BorderSpacing.InnerBorder = 4
Caption = 'Help'
Caption = '&Help'
TabOrder = 8
end
object edtPackCmd: TDirectoryEdit
@ -81,9 +82,9 @@ object frmPackDlg: TfrmPackDlg
AnchorSideRight.Control = pnlOptions
AnchorSideRight.Side = asrBottom
Left = 5
Height = 29
Top = 27
Width = 363
Height = 28
Top = 23
Width = 351
OnAcceptDirectory = edtPackCmdAcceptDirectory
ShowHidden = False
ButtonWidth = 23
@ -98,10 +99,10 @@ object frmPackDlg: TfrmPackDlg
AnchorSideTop.Control = lblPrompt
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 400
Left = 388
Height = 100
Top = 5
Width = 186
Width = 198
Anchors = [akTop, akLeft, akRight]
AutoFill = True
AutoSize = True
@ -129,15 +130,15 @@ object frmPackDlg: TfrmPackDlg
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = rgPacker
AnchorSideRight.Side = asrBottom
Left = 454
Height = 29
Left = 442
Height = 30
Top = 111
Width = 124
Width = 136
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 8
Enabled = False
ItemHeight = 21
ItemHeight = 0
OnChange = cbOtherPluginsChange
ParentFont = False
Style = csDropDownList
@ -150,16 +151,16 @@ object frmPackDlg: TfrmPackDlg
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = rgPacker
AnchorSideRight.Side = asrBottom
Left = 406
Left = 394
Height = 32
Top = 146
Width = 174
Top = 147
Width = 186
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.InnerBorder = 4
Caption = '&Configure'
Caption = 'Con&figure'
OnClick = btnConfigClick
TabOrder = 5
end
@ -167,9 +168,9 @@ object frmPackDlg: TfrmPackDlg
AnchorSideLeft.Control = rgPacker
AnchorSideTop.Control = cbPackerList
AnchorSideTop.Side = asrCenter
Left = 406
Height = 27
Top = 112
Left = 394
Height = 20
Top = 116
Width = 48
BorderSpacing.Left = 6
BorderSpacing.Top = 6
@ -184,22 +185,22 @@ object frmPackDlg: TfrmPackDlg
AnchorSideTop.Control = edtPackCmd
AnchorSideTop.Side = asrBottom
Left = 5
Height = 189
Top = 64
Width = 363
Height = 161
Top = 59
Width = 351
AutoSize = True
BorderSpacing.Top = 8
BevelOuter = bvNone
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ClientHeight = 189
ClientWidth = 363
ClientHeight = 161
ClientWidth = 351
Constraints.MinWidth = 340
TabOrder = 1
object cbStoreDir: TCheckBox
Left = 0
Height = 27
Height = 23
Top = 0
Width = 363
Width = 351
Caption = 'Also &pack path names (only recursed)'
Checked = True
State = cbChecked
@ -207,52 +208,52 @@ object frmPackDlg: TfrmPackDlg
end
object cbMultivolume: TCheckBox
Left = 0
Height = 27
Top = 27
Width = 363
Height = 23
Top = 23
Width = 351
Caption = '&Multiple disk archive'
TabOrder = 1
end
object cbMoveToArchive: TCheckBox
Left = 0
Height = 27
Top = 54
Width = 363
Caption = 'M&ove to archive'
Height = 23
Top = 46
Width = 351
Caption = 'Mo&ve to archive'
TabOrder = 2
end
object cbCreateSFX: TCheckBox
Left = 0
Height = 27
Top = 81
Width = 363
Height = 23
Top = 69
Width = 351
Caption = 'Create self e&xtracting archive'
OnClick = cbCreateSFXClick
TabOrder = 3
end
object cbEncrypt: TCheckBox
Left = 0
Height = 27
Top = 108
Width = 363
Height = 23
Top = 92
Width = 351
Caption = 'Encr&ypt'
TabOrder = 4
end
object cbPutInTarFirst: TCheckBox
Left = 0
Height = 27
Top = 135
Width = 363
Caption = 'Put in the TAR archive first'
Height = 23
Top = 115
Width = 351
Caption = 'P&ut in the TAR archive first'
OnChange = cbPutInTarFirstChange
TabOrder = 5
end
object cbCreateSeparateArchives: TCheckBox
Left = 0
Height = 27
Top = 162
Width = 363
Caption = 'Create separate archives, o&ne per selected file/dir'
Height = 23
Top = 138
Width = 351
Caption = 'C&reate separate archives, one per selected file/dir'
OnChange = cbCreateSeparateArchivesChange
TabOrder = 6
end

14
src/fpackdlg.lrt
View file

@ -1,15 +1,15 @@
TFRMPACKDLG.CAPTION=Pack files
TFRMPACKDLG.LBLPROMPT.CAPTION=Pack file(s) to the file:
TFRMPACKDLG.BTNOK.CAPTION=OK
TFRMPACKDLG.BTNCANCEL.CAPTION=Cancel
TFRMPACKDLG.BTNHELP.CAPTION=Help
TFRMPACKDLG.BTNOK.CAPTION=&OK
TFRMPACKDLG.BTNCANCEL.CAPTION=&Cancel
TFRMPACKDLG.BTNHELP.CAPTION=&Help
TFRMPACKDLG.RGPACKER.CAPTION=Packer
TFRMPACKDLG.BTNCONFIG.CAPTION=&Configure
TFRMPACKDLG.BTNCONFIG.CAPTION=Con&figure
TFRMPACKDLG.CBOTHERPLUGINS.CAPTION==>
TFRMPACKDLG.CBSTOREDIR.CAPTION=Also &pack path names (only recursed)
TFRMPACKDLG.CBMULTIVOLUME.CAPTION=&Multiple disk archive
TFRMPACKDLG.CBMOVETOARCHIVE.CAPTION=M&ove to archive
TFRMPACKDLG.CBMOVETOARCHIVE.CAPTION=Mo&ve to archive
TFRMPACKDLG.CBCREATESFX.CAPTION=Create self e&xtracting archive
TFRMPACKDLG.CBENCRYPT.CAPTION=Encr&ypt
TFRMPACKDLG.CBPUTINTARFIRST.CAPTION=Put in the TAR archive first
TFRMPACKDLG.CBCREATESEPARATEARCHIVES.CAPTION=Create separate archives, o&ne per selected file/dir
TFRMPACKDLG.CBPUTINTARFIRST.CAPTION=P&ut in the TAR archive first
TFRMPACKDLG.CBCREATESEPARATEARCHIVES.CAPTION=C&reate separate archives, one per selected file/dir

163
src/fpackinfodlg.lfm
View file

@ -10,16 +10,16 @@ object frmPackInfoDlg: TfrmPackInfoDlg
ClientHeight = 400
ClientWidth = 284
Position = poScreenCenter
LCLVersion = '0.9.29'
LCLVersion = '1.1'
object pnlInfo: TPanel
Left = 0
Height = 329
Height = 313
Top = 0
Width = 284
Align = alClient
AutoSize = True
BevelOuter = bvNone
ClientHeight = 329
ClientHeight = 313
ClientWidth = 284
TabOrder = 0
object pnlInfoFile: TPanel
@ -28,7 +28,7 @@ object frmPackInfoDlg: TfrmPackInfoDlg
AnchorSideRight.Control = pnlInfo
AnchorSideRight.Side = asrBottom
Left = 15
Height = 31
Height = 38
Top = 0
Width = 254
Anchors = [akTop, akLeft, akRight]
@ -36,7 +36,7 @@ object frmPackInfoDlg: TfrmPackInfoDlg
BorderSpacing.Left = 15
BorderSpacing.Right = 15
BevelOuter = bvNone
ClientHeight = 31
ClientHeight = 38
ClientWidth = 254
TabOrder = 1
object lblPackedFile: TLabel
@ -44,11 +44,12 @@ object frmPackInfoDlg: TfrmPackInfoDlg
AnchorSideTop.Control = edtPackedFile
AnchorSideTop.Side = asrCenter
Left = 0
Height = 14
Top = 13
Width = 21
Height = 18
Top = 15
Width = 28
BorderSpacing.Top = 10
Caption = 'File:'
FocusControl = edtPackedFile
ParentColor = False
end
object edtPackedFile: TEdit
@ -57,10 +58,10 @@ object frmPackInfoDlg: TfrmPackInfoDlg
AnchorSideTop.Control = pnlInfoFile
AnchorSideRight.Control = pnlInfoFile
AnchorSideRight.Side = asrBottom
Left = 36
Height = 21
Left = 43
Height = 28
Top = 10
Width = 218
Width = 211
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 15
BorderSpacing.Top = 10
@ -81,7 +82,7 @@ object frmPackInfoDlg: TfrmPackInfoDlg
AnchorSideRight.Side = asrBottom
Left = 15
Height = 9
Top = 41
Top = 48
Width = 254
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 15
@ -96,8 +97,8 @@ object frmPackInfoDlg: TfrmPackInfoDlg
AnchorSideRight.Control = pnlInfo
AnchorSideRight.Side = asrBottom
Left = 15
Height = 147
Top = 50
Height = 179
Top = 57
Width = 254
Anchors = [akTop, akLeft, akRight]
AutoSize = True
@ -112,134 +113,134 @@ object frmPackInfoDlg: TfrmPackInfoDlg
ChildSizing.ShrinkVertical = crsHomogenousChildResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ClientHeight = 147
ClientHeight = 179
ClientWidth = 254
TabOrder = 0
object lblPacker: TLabel
Left = 0
Height = 14
Height = 18
Top = 0
Width = 157
Width = 173
Caption = 'Packer:'
ParentColor = False
end
object lblPackedPacker: TLabel
Left = 187
Height = 14
Left = 203
Height = 18
Top = 0
Width = 67
Width = 51
ParentColor = False
ShowAccelChar = False
end
object lblOriginalSize: TLabel
Left = 0
Height = 14
Top = 19
Width = 157
Height = 18
Top = 23
Width = 173
Caption = 'Original size:'
ParentColor = False
end
object lblPackedOrgSize: TLabel
Left = 187
Height = 14
Top = 19
Width = 67
Left = 203
Height = 18
Top = 23
Width = 51
ParentColor = False
ShowAccelChar = False
end
object lblPackedSize: TLabel
Left = 0
Height = 14
Top = 38
Width = 157
Height = 18
Top = 46
Width = 173
Caption = 'Packed size:'
ParentColor = False
end
object lblPackedPackedSize: TLabel
Left = 187
Height = 14
Top = 38
Width = 67
Left = 203
Height = 18
Top = 46
Width = 51
ParentColor = False
ShowAccelChar = False
end
object lblCompressionRatio: TLabel
Left = 0
Height = 14
Top = 57
Width = 157
Height = 18
Top = 69
Width = 173
Caption = 'Compression ratio:'
ParentColor = False
end
object lblPackedCompression: TLabel
Left = 187
Height = 14
Top = 57
Width = 67
Left = 203
Height = 18
Top = 69
Width = 51
ParentColor = False
ShowAccelChar = False
end
object lblMethod: TLabel
Left = 0
Height = 14
Top = 76
Width = 157
Height = 18
Top = 92
Width = 173
Caption = 'Method:'
ParentColor = False
end
object lblPackedMethod: TLabel
Left = 187
Height = 14
Top = 76
Width = 67
Left = 203
Height = 18
Top = 92
Width = 51
ParentColor = False
ShowAccelChar = False
end
object lblDate: TLabel
Left = 0
Height = 14
Top = 95
Width = 157
Height = 18
Top = 115
Width = 173
Caption = 'Date:'
ParentColor = False
end
object lblPackedDate: TLabel
Left = 187
Height = 14
Top = 95
Width = 67
Left = 203
Height = 18
Top = 115
Width = 51
ParentColor = False
ShowAccelChar = False
end
object lblTime: TLabel
Left = 0
Height = 14
Top = 114
Width = 157
Height = 18
Top = 138
Width = 173
Caption = 'Time:'
ParentColor = False
end
object lblPackedTime: TLabel
Left = 187
Height = 14
Top = 114
Width = 67
Left = 203
Height = 18
Top = 138
Width = 51
ParentColor = False
ShowAccelChar = False
end
object lblAttributes: TLabel
Left = 0
Height = 14
Top = 133
Width = 157
Height = 18
Top = 161
Width = 173
Caption = 'Attributes:'
ParentColor = False
end
object lblPackedAttr: TLabel
Left = 187
Height = 14
Top = 133
Width = 67
Left = 203
Height = 18
Top = 161
Width = 51
ParentColor = False
ShowAccelChar = False
end
@ -250,7 +251,7 @@ object frmPackInfoDlg: TfrmPackInfoDlg
AnchorSideBottom.Control = lblDate
Left = 0
Height = 4
Top = 86
Top = 106
Width = 254
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Bottom = 4
@ -260,14 +261,14 @@ object frmPackInfoDlg: TfrmPackInfoDlg
end
object pnlButtons: TPanel
Left = 0
Height = 56
Top = 344
Height = 72
Top = 328
Width = 284
Align = alBottom
AutoSize = True
BorderSpacing.Top = 15
BevelOuter = bvNone
ClientHeight = 56
ClientHeight = 72
ClientWidth = 284
TabOrder = 1
object btnClose: TButton
@ -276,14 +277,14 @@ object frmPackInfoDlg: TfrmPackInfoDlg
AnchorSideBottom.Control = btnUnpackAndExec
AnchorSideBottom.Side = asrBottom
Left = 10
Height = 23
Height = 31
Top = 0
Width = 52
Width = 48
Anchors = [akTop, akLeft, akBottom]
AutoSize = True
BorderSpacing.Left = 10
Cancel = True
Caption = 'Close'
Caption = '&Close'
Default = True
ModalResult = 2
OnKeyUp = btnCloseKeyUp
@ -295,10 +296,10 @@ object frmPackInfoDlg: TfrmPackInfoDlg
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnUnpackAllAndExec
Left = 66
Height = 23
Left = 62
Height = 31
Top = 0
Width = 208
Width = 212
Anchors = [akLeft, akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 4
@ -315,8 +316,8 @@ object frmPackInfoDlg: TfrmPackInfoDlg
AnchorSideBottom.Control = pnlButtons
AnchorSideBottom.Side = asrBottom
Left = 10
Height = 23
Top = 27
Height = 31
Top = 35
Width = 264
Anchors = [akLeft, akRight, akBottom]
AutoSize = True

2
src/fpackinfodlg.lrt
View file

@ -8,6 +8,6 @@ TFRMPACKINFODLG.LBLMETHOD.CAPTION=Method:
TFRMPACKINFODLG.LBLDATE.CAPTION=Date:
TFRMPACKINFODLG.LBLTIME.CAPTION=Time:
TFRMPACKINFODLG.LBLATTRIBUTES.CAPTION=Attributes:
TFRMPACKINFODLG.BTNCLOSE.CAPTION=Close
TFRMPACKINFODLG.BTNCLOSE.CAPTION=&Close
TFRMPACKINFODLG.BTNUNPACKANDEXEC.CAPTION=&Unpack and execute
TFRMPACKINFODLG.BTNUNPACKALLANDEXEC.CAPTION=Unpack &all and execute

21
src/fselecttextrange.lfm
View file

@ -8,15 +8,15 @@ object frmSelectTextRange: TfrmSelectTextRange
ClientHeight = 112
ClientWidth = 320
Position = poOwnerFormCenter
LCLVersion = '0.9.31'
LCLVersion = '1.1'
object edtSelectText: TEdit
AnchorSideLeft.Control = lblSelectText
AnchorSideTop.Control = lblSelectText
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 10
Height = 23
Top = 32
Height = 28
Top = 34
Width = 300
AutoSelect = False
BorderSpacing.Top = 6
@ -29,28 +29,33 @@ object frmSelectTextRange: TfrmSelectTextRange
AnchorSideTop.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 10
Height = 16
Height = 18
Top = 10
Width = 158
Width = 206
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'Select the characters to insert:'
Caption = '&Select the characters to insert:'
FocusControl = edtSelectText
ParentColor = False
end
object btpPanel: TButtonPanel
Left = 10
Height = 34
Top = 72
Height = 40
Top = 66
Width = 300
OKButton.Name = 'OKButton'
OKButton.Caption = '&OK'
OKButton.DefaultCaption = False
HelpButton.Name = 'HelpButton'
HelpButton.Caption = '&Help'
HelpButton.DefaultCaption = False
CloseButton.Name = 'CloseButton'
CloseButton.Caption = '&Close'
CloseButton.DefaultCaption = False
CancelButton.Name = 'CancelButton'
CancelButton.Caption = 'Cancel'
CancelButton.DefaultCaption = False
TabOrder = 1
ShowButtons = [pbOK, pbCancel]
end

2
src/fselecttextrange.lrt
View file

@ -1,4 +1,4 @@
TFRMSELECTTEXTRANGE.LBLSELECTTEXT.CAPTION=Select the characters to insert:
TFRMSELECTTEXTRANGE.LBLSELECTTEXT.CAPTION=&Select the characters to insert:
TFRMSELECTTEXTRANGE.BTPPANEL.OKBUTTON.CAPTION=&OK
TFRMSELECTTEXTRANGE.BTPPANEL.HELPBUTTON.CAPTION=&Help
TFRMSELECTTEXTRANGE.BTPPANEL.CLOSEBUTTON.CAPTION=&Close

256
src/fsetfileproperties.lfm
View file

@ -1,17 +1,17 @@
object frmSetFileProperties: TfrmSetFileProperties
Left = 749
Height = 512
Top = 356
Left = 734
Height = 593
Top = 80
Width = 309
AutoSize = True
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Change attributes'
ClientHeight = 512
ClientHeight = 593
ClientWidth = 309
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.29'
LCLVersion = '1.1'
object btnOK: TBitBtn
AnchorSideTop.Control = chkRecursive
AnchorSideTop.Side = asrBottom
@ -19,8 +19,8 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 95
Height = 26
Top = 479
Height = 31
Top = 552
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
@ -33,7 +33,7 @@ object frmSetFileProperties: TfrmSetFileProperties
Kind = bkOK
ModalResult = 1
OnClick = btnOKClick
TabOrder = 5
TabOrder = 4
end
object btnCancel: TBitBtn
AnchorSideTop.Control = btnOK
@ -42,62 +42,62 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 201
Height = 26
Top = 479
Height = 32
Top = 552
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 8
BorderSpacing.Bottom = 10
Cancel = True
Caption = 'Cancel'
Caption = '&Cancel'
Constraints.MinWidth = 100
Kind = bkCancel
ModalResult = 2
TabOrder = 0
TabOrder = 5
end
object chkRecursive: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = gbUnixAttributes
AnchorSideTop.Side = asrBottom
Left = 12
Height = 17
Top = 456
Width = 116
Height = 23
Top = 523
Width = 156
BorderSpacing.Left = 12
BorderSpacing.Top = 8
Caption = 'Including subfolders'
TabOrder = 4
TabOrder = 3
end
object gbTimeSamp: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 6
Height = 120
Height = 125
Top = 6
Width = 297
Width = 395
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Timestamp properties'
ClientHeight = 102
ClientWidth = 293
TabOrder = 1
ClientWidth = 391
TabOrder = 0
object DatesPanel: TPanel
AnchorSideLeft.Control = ChecksPanel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbTimeSamp
AnchorSideRight.Control = gbTimeSamp
AnchorSideRight.Side = asrBottom
Left = 93
Left = 112
Height = 90
Top = 6
Width = 200
Width = 279
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Around = 6
BevelOuter = bvNone
ClientHeight = 90
ClientWidth = 200
ClientWidth = 279
TabOrder = 1
object ZVCreationDateTime: TZVDateTimePicker
AnchorSideLeft.Control = DatesPanel
@ -107,7 +107,7 @@ object frmSetFileProperties: TfrmSetFileProperties
Left = 0
Height = 26
Top = 0
Width = 161
Width = 240
CenturyFrom = 1941
MaxDate = 2958465
MinDate = -53780
@ -121,7 +121,7 @@ object frmSetFileProperties: TfrmSetFileProperties
TimeDisplay = tdHMSMs
DateMode = dmComboBox
Date = 40608
Time = 0.06846932870394
Time = 0.0684693287039408
UseDefaultSeparators = True
OnChange = ZVCreationDateTimeChange
end
@ -133,7 +133,7 @@ object frmSetFileProperties: TfrmSetFileProperties
Left = 0
Height = 26
Top = 32
Width = 161
Width = 240
CenturyFrom = 1941
MaxDate = 2958465
MinDate = -53780
@ -149,7 +149,7 @@ object frmSetFileProperties: TfrmSetFileProperties
TimeDisplay = tdHMSMs
DateMode = dmComboBox
Date = 40608
Time = 0.06846932870394
Time = 0.0684693287039408
UseDefaultSeparators = True
OnChange = ZVLastWriteDateTimeChange
end
@ -161,7 +161,7 @@ object frmSetFileProperties: TfrmSetFileProperties
Left = 0
Height = 26
Top = 64
Width = 161
Width = 240
CenturyFrom = 1941
MaxDate = 2958465
MinDate = -53780
@ -176,7 +176,7 @@ object frmSetFileProperties: TfrmSetFileProperties
TimeDisplay = tdHMSMs
DateMode = dmComboBox
Date = 40608
Time = 0.06846932870394
Time = 0.0684693287039408
UseDefaultSeparators = True
OnChange = ZVLastAccessDateTimeChange
end
@ -187,7 +187,7 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideTop.Side = asrCenter
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 167
Left = 246
Height = 21
Top = 35
Width = 23
@ -230,7 +230,6 @@ object frmSetFileProperties: TfrmSetFileProperties
0000000000000000000000000000E8EBEB297E8481337B827E3383898633CED3
D137000000000000000000000000000000000000000000000000
}
NumGlyphs = 0
OnClick = btnLastWriteTimeClick
end
object btnCreationTime: TSpeedButton
@ -240,7 +239,7 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideTop.Side = asrCenter
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 167
Left = 246
Height = 20
Top = 3
Width = 23
@ -283,7 +282,6 @@ object frmSetFileProperties: TfrmSetFileProperties
0000000000000000000000000000E8EBEB297E8481337B827E3383898633CED3
D137000000000000000000000000000000000000000000000000
}
NumGlyphs = 0
OnClick = btnCreationTimeClick
end
object btnLastAccessTime: TSpeedButton
@ -293,7 +291,7 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideTop.Side = asrCenter
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 167
Left = 246
Height = 21
Top = 67
Width = 23
@ -336,7 +334,6 @@ object frmSetFileProperties: TfrmSetFileProperties
0000000000000000000000000000E8EBEB297E8481337B827E3383898633CED3
D137000000000000000000000000000000000000000000000000
}
NumGlyphs = 0
OnClick = btnLastAccessTimeClick
end
end
@ -347,20 +344,20 @@ object frmSetFileProperties: TfrmSetFileProperties
Left = 6
Height = 90
Top = 6
Width = 75
Width = 94
Anchors = [akTop, akLeft, akBottom]
AutoSize = True
BevelOuter = bvNone
ClientHeight = 90
ClientWidth = 75
ClientWidth = 94
TabOrder = 0
object chkCreationTime: TCheckBox
AnchorSideLeft.Control = ChecksPanel
AnchorSideTop.Control = ChecksPanel
Left = 6
Height = 17
Height = 23
Top = 6
Width = 63
Width = 79
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'Created:'
@ -373,9 +370,9 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideTop.Control = ChecksPanel
AnchorSideTop.Side = asrCenter
Left = 6
Height = 17
Top = 37
Width = 64
Height = 23
Top = 34
Width = 82
BorderSpacing.Left = 6
Caption = 'Modified:'
Enabled = False
@ -388,9 +385,9 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideBottom.Control = ChecksPanel
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 17
Top = 67
Width = 69
Height = 23
Top = 61
Width = 88
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Bottom = 6
@ -408,24 +405,24 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 90
Top = 132
Height = 111
Top = 137
Width = 297
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Attributes'
ClientHeight = 72
ClientHeight = 88
ClientWidth = 293
TabOrder = 2
TabOrder = 1
Visible = False
object chkSystem: TCheckBox
AnchorSideLeft.Control = chkHidden
AnchorSideTop.Control = chkReadOnly
Left = 174
Height = 17
Top = 29
Width = 55
Left = 166
Height = 23
Top = 35
Width = 70
BorderSpacing.Bottom = 6
Caption = 'System'
OnClick = chkChangeAttrClick
@ -433,10 +430,10 @@ object frmSetFileProperties: TfrmSetFileProperties
end
object chkHidden: TCheckBox
AnchorSideTop.Control = chkArchive
Left = 174
Height = 17
Left = 166
Height = 23
Top = 6
Width = 53
Width = 68
Anchors = [akTop]
Caption = 'Hidden'
OnClick = chkChangeAttrClick
@ -446,9 +443,9 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideLeft.Control = gbWinAttributes
AnchorSideTop.Control = gbWinAttributes
Left = 6
Height = 17
Height = 23
Top = 6
Width = 56
Width = 71
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'Archive'
@ -460,9 +457,9 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideTop.Control = chkArchive
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 29
Width = 68
Height = 23
Top = 35
Width = 86
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
Caption = 'Read only'
@ -475,9 +472,9 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 16
Top = 52
Width = 173
Height = 20
Top = 64
Width = 229
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
@ -493,25 +490,25 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 220
Top = 228
Height = 261
Top = 254
Width = 297
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Attributes'
ClientHeight = 202
ClientHeight = 238
ClientWidth = 293
TabOrder = 3
TabOrder = 2
Visible = False
object lblRead: TLabel
AnchorSideLeft.Control = cbReadOwner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = gbUnixAttributes
Left = 94
Height = 14
Left = 91
Height = 18
Top = 0
Width = 26
Width = 32
Caption = 'Read'
ParentColor = False
end
@ -519,10 +516,10 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideLeft.Control = cbWriteOwner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = lblRead
Left = 169
Height = 14
Left = 163
Height = 18
Top = 0
Width = 27
Width = 38
Caption = 'Write'
ParentColor = False
end
@ -530,18 +527,18 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideLeft.Control = cbExecOwner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = lblRead
Left = 235
Height = 14
Left = 229
Height = 18
Top = 0
Width = 40
Width = 53
Caption = 'Execute'
ParentColor = False
end
object cbExecOwner: TCheckBox
AnchorSideTop.Control = cbReadOwner
Left = 245
Height = 17
Top = 20
Height = 20
Top = 24
Width = 20
Anchors = [akTop]
OnClick = cbChangeModeClick
@ -550,8 +547,8 @@ object frmSetFileProperties: TfrmSetFileProperties
object cbWriteOwner: TCheckBox
AnchorSideTop.Control = cbReadOwner
Left = 172
Height = 17
Top = 20
Height = 20
Top = 24
Width = 20
Anchors = [akTop]
OnClick = cbChangeModeClick
@ -562,8 +559,8 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideTop.Control = lblRead
AnchorSideTop.Side = asrBottom
Left = 97
Height = 17
Top = 20
Height = 20
Top = 24
Width = 20
Anchors = [akTop]
BorderSpacing.Top = 6
@ -575,9 +572,9 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideTop.Control = cbReadOwner
AnchorSideTop.Side = asrCenter
Left = 7
Height = 14
Top = 21
Width = 33
Height = 18
Top = 25
Width = 46
BorderSpacing.Left = 7
Caption = 'Owner'
ParentColor = False
@ -587,9 +584,9 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideTop.Control = cbReadGroup
AnchorSideTop.Side = asrCenter
Left = 7
Height = 14
Top = 44
Width = 30
Height = 18
Top = 51
Width = 41
Caption = 'Group'
ParentColor = False
end
@ -598,8 +595,8 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideTop.Control = cbReadOwner
AnchorSideTop.Side = asrBottom
Left = 97
Height = 17
Top = 43
Height = 20
Top = 50
Width = 20
BorderSpacing.Top = 6
OnClick = cbChangeModeClick
@ -609,8 +606,8 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideLeft.Control = cbWriteOwner
AnchorSideTop.Control = cbReadGroup
Left = 172
Height = 17
Top = 43
Height = 20
Top = 50
Width = 20
OnClick = cbChangeModeClick
TabOrder = 4
@ -619,8 +616,8 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideLeft.Control = cbExecOwner
AnchorSideTop.Control = cbReadGroup
Left = 245
Height = 17
Top = 43
Height = 20
Top = 50
Width = 20
OnClick = cbChangeModeClick
TabOrder = 5
@ -630,9 +627,9 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideTop.Control = cbReadOther
AnchorSideTop.Side = asrCenter
Left = 7
Height = 14
Top = 67
Width = 29
Height = 18
Top = 77
Width = 40
Caption = 'Other'
ParentColor = False
end
@ -641,8 +638,8 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideTop.Control = cbReadGroup
AnchorSideTop.Side = asrBottom
Left = 97
Height = 17
Top = 66
Height = 20
Top = 76
Width = 20
BorderSpacing.Top = 6
OnClick = cbChangeModeClick
@ -652,8 +649,8 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideLeft.Control = cbWriteOwner
AnchorSideTop.Control = cbReadOther
Left = 172
Height = 17
Top = 66
Height = 20
Top = 76
Width = 20
OnClick = cbChangeModeClick
TabOrder = 7
@ -662,8 +659,8 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideLeft.Control = cbExecOwner
AnchorSideTop.Control = cbReadOther
Left = 245
Height = 17
Top = 66
Height = 20
Top = 76
Width = 20
OnClick = cbChangeModeClick
TabOrder = 8
@ -674,7 +671,7 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideRight.Side = asrBottom
Left = 4
Height = 4
Top = 89
Top = 102
Width = 289
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
@ -688,9 +685,9 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideTop.Control = cbSuid
AnchorSideTop.Side = asrBottom
Left = 97
Height = 17
Top = 122
Width = 48
Height = 23
Top = 141
Width = 61
BorderSpacing.Top = 6
Caption = 'Sticky'
OnClick = cbChangeModeClick
@ -701,9 +698,9 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
Left = 172
Height = 17
Top = 99
Width = 44
Height = 23
Top = 112
Width = 58
BorderSpacing.Top = 6
Caption = 'SGID'
OnClick = cbChangeModeClick
@ -714,9 +711,9 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
Left = 97
Height = 17
Top = 99
Width = 44
Height = 23
Top = 112
Width = 57
BorderSpacing.Top = 6
Caption = 'SUID'
OnClick = cbChangeModeClick
@ -727,9 +724,9 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideTop.Control = cbSuid
AnchorSideTop.Side = asrCenter
Left = 7
Height = 14
Top = 100
Width = 22
Height = 18
Top = 114
Width = 29
Caption = 'Bits:'
ParentColor = False
end
@ -739,7 +736,7 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideRight.Side = asrBottom
Left = 4
Height = 4
Top = 145
Top = 170
Width = 289
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
@ -753,10 +750,11 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideTop.Control = edtOctal
AnchorSideTop.Side = asrCenter
Left = 7
Height = 14
Top = 158
Width = 30
Height = 18
Top = 185
Width = 41
Caption = 'Octal:'
FocusControl = edtOctal
ParentColor = False
end
object edtOctal: TEdit
@ -764,8 +762,8 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideTop.Control = Bevel2
AnchorSideTop.Side = asrBottom
Left = 97
Height = 21
Top = 155
Height = 28
Top = 180
Width = 80
BorderSpacing.Top = 6
MaxLength = 4
@ -778,9 +776,9 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideTop.Control = edtOctal
AnchorSideTop.Side = asrBottom
Left = 7
Height = 14
Top = 182
Width = 27
Height = 18
Top = 214
Width = 35
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
Caption = 'Text:'
@ -791,9 +789,9 @@ object frmSetFileProperties: TfrmSetFileProperties
AnchorSideTop.Control = lblAttrTextStr
AnchorSideTop.Side = asrCenter
Left = 97
Height = 14
Top = 182
Width = 45
Height = 18
Top = 214
Width = 55
BorderSpacing.Bottom = 6
Caption = '-----------'
Font.Color = clBlack

2
src/fsetfileproperties.lrt
View file

@ -1,6 +1,6 @@
TFRMSETFILEPROPERTIES.CAPTION=Change attributes
TFRMSETFILEPROPERTIES.BTNOK.CAPTION=&OK
TFRMSETFILEPROPERTIES.BTNCANCEL.CAPTION=Cancel
TFRMSETFILEPROPERTIES.BTNCANCEL.CAPTION=&Cancel
TFRMSETFILEPROPERTIES.CHKRECURSIVE.CAPTION=Including subfolders
TFRMSETFILEPROPERTIES.GBTIMESAMP.CAPTION=Timestamp properties
TFRMSETFILEPROPERTIES.CHKCREATIONTIME.CAPTION=Created:

98
src/fsplitter.lfm
View file

@ -1,6 +1,6 @@
object frmSplitter: TfrmSplitter
Left = 283
Height = 240
Height = 293
Top = 122
Width = 399
HorzScrollBar.Page = 464
@ -13,17 +13,17 @@ object frmSplitter: TfrmSplitter
Caption = 'Splitter'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ClientHeight = 240
ClientHeight = 293
ClientWidth = 399
Position = poScreenCenter
LCLVersion = '0.9.29'
LCLVersion = '1.1'
object grbxFile: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = btnCancel
AnchorSideRight.Side = asrBottom
Left = 6
Height = 118
Height = 143
Top = 6
Width = 385
Anchors = [akTop, akLeft, akRight]
@ -33,26 +33,28 @@ object frmSplitter: TfrmSplitter
Caption = 'File name'
ChildSizing.LeftRightSpacing = 10
ChildSizing.TopBottomSpacing = 4
ClientHeight = 100
ClientHeight = 120
ClientWidth = 381
TabOrder = 0
object lbFileSource: TLabel
Left = 10
Height = 14
Height = 18
Top = 4
Width = 52
Caption = 'File source'
Width = 72
Caption = 'File &source'
FocusControl = edFileSource
ParentColor = False
end
object lbDirTarget: TLabel
AnchorSideTop.Control = edFileSource
AnchorSideTop.Side = asrBottom
Left = 10
Height = 14
Top = 55
Width = 78
Height = 18
Top = 66
Width = 107
BorderSpacing.Top = 12
Caption = 'Directory target'
Caption = 'Directory &target'
FocusControl = edDirTarget
ParentColor = False
end
object edFileSource: TEdit
@ -60,8 +62,8 @@ object frmSplitter: TfrmSplitter
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 10
Height = 21
Top = 22
Height = 28
Top = 26
Width = 360
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
@ -73,8 +75,8 @@ object frmSplitter: TfrmSplitter
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnFTChoice
Left = 10
Height = 21
Top = 73
Height = 28
Top = 88
Width = 330
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
@ -88,7 +90,7 @@ object frmSplitter: TfrmSplitter
AnchorSideRight.Side = asrBottom
Left = 346
Height = 23
Top = 73
Top = 88
Width = 24
Anchors = [akTop, akRight]
BorderSpacing.Left = 4
@ -102,8 +104,8 @@ object frmSplitter: TfrmSplitter
AnchorSideTop.Control = grbxFile
AnchorSideTop.Side = asrBottom
Left = 6
Height = 103
Top = 130
Height = 128
Top = 155
Width = 300
Anchors = [akTop, akLeft, akRight]
AutoSize = True
@ -112,7 +114,7 @@ object frmSplitter: TfrmSplitter
Caption = 'Size and number of parts'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ClientHeight = 85
ClientHeight = 105
ClientWidth = 296
Constraints.MinWidth = 300
TabOrder = 1
@ -121,11 +123,11 @@ object frmSplitter: TfrmSplitter
AnchorSideTop.Control = grbxSize
AnchorSideRight.Side = asrBottom
Left = 6
Height = 21
Height = 28
Top = 6
Width = 276
Anchors = [akTop, akLeft, akRight]
ItemHeight = 13
ItemHeight = 0
ItemIndex = 0
Items.Strings = (
'1457664B - 3.5"'
@ -145,11 +147,12 @@ object frmSplitter: TfrmSplitter
AnchorSideTop.Control = cmbxSize
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 33
Width = 61
Height = 23
Top = 40
Width = 84
BorderSpacing.Top = 6
Caption = 'Kilobytes'
Caption = '&Kilobytes'
Checked = True
OnChange = rbtnKiloBChange
TabOrder = 1
end
@ -157,12 +160,12 @@ object frmSplitter: TfrmSplitter
AnchorSideLeft.Control = rbtnKiloB
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = rbtnKiloB
Left = 69
Height = 17
Top = 33
Width = 71
Left = 92
Height = 23
Top = 40
Width = 94
BorderSpacing.Left = 2
Caption = 'Megabytes'
Caption = '&Megabytes'
OnChange = rbtnKiloBChange
TabOrder = 2
end
@ -170,12 +173,12 @@ object frmSplitter: TfrmSplitter
AnchorSideLeft.Control = rbtnMegaB
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = rbtnMegaB
Left = 142
Height = 17
Top = 33
Width = 66
Left = 188
Height = 23
Top = 40
Width = 87
BorderSpacing.Left = 2
Caption = 'Gigabytes'
Caption = '&Gigabytes'
OnChange = rbtnKiloBChange
TabOrder = 3
end
@ -184,9 +187,9 @@ object frmSplitter: TfrmSplitter
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = rbtnMegaB
AnchorSideTop.Side = asrBottom
Left = 89
Height = 21
Top = 58
Left = 117
Height = 28
Top = 71
Width = 72
BorderSpacing.Left = 4
BorderSpacing.Top = 8
@ -199,10 +202,11 @@ object frmSplitter: TfrmSplitter
AnchorSideTop.Control = teNumberParts
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 61
Width = 79
Caption = 'Number of parts'
Height = 18
Top = 76
Width = 107
Caption = '&Number of parts'
FocusControl = teNumberParts
ParentColor = False
end
end
@ -212,11 +216,11 @@ object frmSplitter: TfrmSplitter
AnchorSideBottom.Control = btnCancel
Left = 316
Height = 32
Top = 163
Top = 213
Width = 75
Anchors = [akRight, akBottom]
BorderSpacing.Bottom = 6
Caption = 'OK'
Caption = '&OK'
Default = True
ModalResult = 1
TabOrder = 2
@ -229,12 +233,12 @@ object frmSplitter: TfrmSplitter
AnchorSideBottom.Side = asrBottom
Left = 316
Height = 32
Top = 201
Top = 251
Width = 75
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 10
Cancel = True
Caption = 'Cancel'
Caption = '&Cancel'
ModalResult = 2
TabOrder = 3
end

16
src/fsplitter.lrt
View file

@ -1,13 +1,13 @@
TFRMSPLITTER.CAPTION=Splitter
TFRMSPLITTER.GRBXFILE.CAPTION=File name
TFRMSPLITTER.LBFILESOURCE.CAPTION=File source
TFRMSPLITTER.LBDIRTARGET.CAPTION=Directory target
TFRMSPLITTER.LBFILESOURCE.CAPTION=File &source
TFRMSPLITTER.LBDIRTARGET.CAPTION=Directory &target
TFRMSPLITTER.BTNFTCHOICE.CAPTION=...
TFRMSPLITTER.GRBXSIZE.CAPTION=Size and number of parts
TFRMSPLITTER.CMBXSIZE.TEXT=1457664B - 3.5"
TFRMSPLITTER.RBTNKILOB.CAPTION=Kilobytes
TFRMSPLITTER.RBTNMEGAB.CAPTION=Megabytes
TFRMSPLITTER.RBTNGIGAB.CAPTION=Gigabytes
TFRMSPLITTER.LBLNUMBERPARTS.CAPTION=Number of parts
TFRMSPLITTER.BTNOK.CAPTION=OK
TFRMSPLITTER.BTNCANCEL.CAPTION=Cancel
TFRMSPLITTER.RBTNKILOB.CAPTION=&Kilobytes
TFRMSPLITTER.RBTNMEGAB.CAPTION=&Megabytes
TFRMSPLITTER.RBTNGIGAB.CAPTION=&Gigabytes
TFRMSPLITTER.LBLNUMBERPARTS.CAPTION=&Number of parts
TFRMSPLITTER.BTNOK.CAPTION=&OK
TFRMSPLITTER.BTNCANCEL.CAPTION=&Cancel

34
src/fsymlink.lfm
View file

@ -17,17 +17,17 @@ object frmSymLink: TfrmSymLink
KeyPreview = True
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '0.9.31'
LCLVersion = '1.1'
object lblExistingFile: TLabel
AnchorSideLeft.Control = edtExistingFile
AnchorSideTop.Control = edtLinkToCreate
AnchorSideTop.Side = asrBottom
Left = 6
Height = 22
Top = 69
Width = 247
Height = 18
Top = 64
Width = 243
BorderSpacing.Top = 6
Caption = 'Destination that the link will point to'
Caption = '&Destination that the link will point to'
FocusControl = edtExistingFile
ParentColor = False
end
@ -35,11 +35,11 @@ object frmSymLink: TfrmSymLink
AnchorSideLeft.Control = edtLinkToCreate
AnchorSideTop.Control = Owner
Left = 6
Height = 22
Height = 18
Top = 6
Width = 72
Width = 64
BorderSpacing.Top = 6
Caption = 'Link name'
Caption = '&Link name'
FocusControl = edtLinkToCreate
ParentColor = False
end
@ -50,8 +50,8 @@ object frmSymLink: TfrmSymLink
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 29
Top = 97
Height = 28
Top = 88
Width = 590
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
@ -67,8 +67,8 @@ object frmSymLink: TfrmSymLink
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 29
Top = 34
Height = 28
Top = 30
Width = 590
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
@ -83,7 +83,7 @@ object frmSymLink: TfrmSymLink
AnchorSideRight.Control = btnCancel
Left = 390
Height = 35
Top = 138
Top = 128
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
@ -96,7 +96,6 @@ object frmSymLink: TfrmSymLink
Default = True
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
OnClick = btnOKClick
OnMouseUp = btnOKMouseUp
TabOrder = 2
@ -107,8 +106,8 @@ object frmSymLink: TfrmSymLink
AnchorSideRight.Control = edtExistingFile
AnchorSideRight.Side = asrBottom
Left = 496
Height = 35
Top = 138
Height = 36
Top = 128
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
@ -116,11 +115,10 @@ object frmSymLink: TfrmSymLink
BorderSpacing.Bottom = 6
BorderSpacing.InnerBorder = 2
Cancel = True
Caption = 'Cancel'
Caption = '&Cancel'
Constraints.MinWidth = 100
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
OnMouseUp = btnCancelMouseUp
TabOrder = 3
end

6
src/fsymlink.lrt
View file

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

31
src/fviewoperations.lfm
View file

@ -14,16 +14,16 @@ object frmViewOperations: TfrmViewOperations
OnDestroy = FormDestroy
Position = poScreenCenter
SessionProperties = 'Height;Left;Top;Width;WindowState;cbAlwaysOnTop.Checked'
LCLVersion = '0.9.30.1'
LCLVersion = '1.1'
object pnlHeader: TPanel
Left = 0
Height = 68
Height = 64
Top = 0
Width = 507
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 68
ClientHeight = 64
ClientWidth = 507
TabOrder = 0
object pnlTopHeader: TPanel
@ -49,7 +49,7 @@ object frmViewOperations: TfrmViewOperations
Left = 0
Height = 40
Top = 0
Width = 91
Width = 70
Anchors = [akTop, akLeft, akBottom]
AutoSize = True
BorderSpacing.Right = 40
@ -63,7 +63,7 @@ object frmViewOperations: TfrmViewOperations
AnchorSideTop.Control = pnlTopHeader
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 131
Left = 110
Height = 40
Top = 0
Width = 80
@ -72,7 +72,6 @@ object frmViewOperations: TfrmViewOperations
Constraints.MinHeight = 40
Constraints.MinWidth = 80
Enabled = False
NumGlyphs = 0
OnClick = btnStopClick
TabOrder = 1
end
@ -81,7 +80,7 @@ object frmViewOperations: TfrmViewOperations
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pnlTopHeader
AnchorSideBottom.Side = asrBottom
Left = 221
Left = 200
Height = 40
Top = 0
Width = 80
@ -91,7 +90,6 @@ object frmViewOperations: TfrmViewOperations
Constraints.MinHeight = 40
Constraints.MinWidth = 80
Enabled = False
NumGlyphs = 0
OnClick = btnStartPauseClick
TabOrder = 2
end
@ -103,7 +101,7 @@ object frmViewOperations: TfrmViewOperations
AnchorSideRight.Control = pnlHeader
AnchorSideRight.Side = asrBottom
Left = 10
Height = 22
Height = 18
Top = 43
Width = 487
Anchors = [akTop, akLeft, akRight]
@ -111,7 +109,8 @@ object frmViewOperations: TfrmViewOperations
BorderSpacing.Top = 3
BorderSpacing.Right = 10
BorderSpacing.Bottom = 3
Caption = 'Use "drag && drop" to move operations between queues'
Caption = '&Use "drag && drop" to move operations between queues'
FocusControl = tvOperations
ParentColor = False
end
object cbAlwaysOnTop: TCheckBox
@ -119,10 +118,10 @@ object frmViewOperations: TfrmViewOperations
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = pnlTopHeader
AnchorSideRight.Side = asrBottom
Left = 384
Height = 27
Top = 7
Width = 123
Left = 391
Height = 23
Top = 9
Width = 116
Anchors = [akTop, akRight]
Caption = 'Always on top'
OnChange = cbAlwaysOnTopChange
@ -138,8 +137,8 @@ object frmViewOperations: TfrmViewOperations
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 285
Top = 68
Height = 289
Top = 64
Width = 507
Anchors = [akTop, akLeft, akRight, akBottom]
AutoExpand = True