mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
4d07f5a03c* ADD: Button Help for Options 1. Added HelpKeywords for remaining pages. 2. Added Help button to show that you open Help. Button will be invisible when no HelpKeyword. 3. Some small changes: Default and Cancel for TAttributesEdit and change owner for calling from Option page (because when Position=poOwnerFormCenter the owner have to be properly set to avoid showing not at the center as it was before).
563 lines
14 KiB
Text
563 lines
14 KiB
Text
object frmAttributesEdit: TfrmAttributesEdit
|
|
Left = 388
|
|
Height = 284
|
|
Top = 144
|
|
Width = 329
|
|
AutoSize = True
|
|
BorderIcons = [biSystemMenu]
|
|
Caption = 'Choose attributes'
|
|
ClientHeight = 284
|
|
ClientWidth = 329
|
|
FormStyle = fsStayOnTop
|
|
Position = poOwnerFormCenter
|
|
ShowInTaskBar = stNever
|
|
LCLVersion = '1.1'
|
|
object pnlTopAttrs: TPanel
|
|
Left = 0
|
|
Height = 23
|
|
Top = 5
|
|
Width = 329
|
|
Align = alTop
|
|
AutoSize = True
|
|
BorderSpacing.Top = 5
|
|
BevelOuter = bvNone
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousSpaceResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousSpaceResize
|
|
ChildSizing.ShrinkHorizontal = crsHomogenousSpaceResize
|
|
ChildSizing.ShrinkVertical = crsHomogenousSpaceResize
|
|
ChildSizing.Layout = cclTopToBottomThenLeftToRight
|
|
ClientHeight = 23
|
|
ClientWidth = 329
|
|
TabOrder = 0
|
|
object cbSymlink: TCheckBox
|
|
Left = 58
|
|
Height = 23
|
|
Top = 0
|
|
Width = 72
|
|
AllowGrayed = True
|
|
Caption = '&Symlink'
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 0
|
|
end
|
|
object cbDirectory: TCheckBox
|
|
Left = 188
|
|
Height = 23
|
|
Top = 0
|
|
Width = 84
|
|
AllowGrayed = True
|
|
Caption = '&Directory'
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object pnlUnixAttrs: TPanel
|
|
Left = 10
|
|
Height = 181
|
|
Top = 28
|
|
Width = 309
|
|
Align = alClient
|
|
BorderSpacing.Left = 10
|
|
BorderSpacing.Right = 10
|
|
BevelOuter = bvNone
|
|
ClientHeight = 181
|
|
ClientWidth = 309
|
|
TabOrder = 1
|
|
Visible = False
|
|
object lblAttrOwnerStr: TLabel
|
|
AnchorSideTop.Control = cbReadOwner
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 8
|
|
Height = 18
|
|
Top = 33
|
|
Width = 46
|
|
Caption = 'Owner'
|
|
ParentColor = False
|
|
end
|
|
object lblWrite: TLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 176
|
|
Height = 18
|
|
Top = 8
|
|
Width = 38
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Write'
|
|
ParentColor = False
|
|
end
|
|
object lblRead: TLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 104
|
|
Height = 18
|
|
Top = 8
|
|
Width = 32
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Read'
|
|
ParentColor = False
|
|
end
|
|
object lblExec: TLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 240
|
|
Height = 18
|
|
Top = 8
|
|
Width = 53
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Execute'
|
|
ParentColor = False
|
|
end
|
|
object lblAttrGroupStr: TLabel
|
|
AnchorSideTop.Control = cbReadGroup
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 8
|
|
Height = 18
|
|
Top = 59
|
|
Width = 41
|
|
Caption = 'Group'
|
|
ParentColor = False
|
|
end
|
|
object lblAttrOtherStr: TLabel
|
|
AnchorSideTop.Control = cbReadOther
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 8
|
|
Height = 18
|
|
Top = 85
|
|
Width = 40
|
|
Caption = 'Other'
|
|
ParentColor = False
|
|
end
|
|
object lblAttrBitsStr: TLabel
|
|
AnchorSideTop.Control = cbSuid
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 8
|
|
Height = 18
|
|
Top = 112
|
|
Width = 29
|
|
Caption = 'Bits:'
|
|
ParentColor = False
|
|
end
|
|
object cbReadOwner: TCheckBox
|
|
AnchorSideTop.Control = lblRead
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 112
|
|
Height = 20
|
|
Top = 32
|
|
Width = 20
|
|
AllowGrayed = True
|
|
BorderSpacing.Top = 6
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 0
|
|
end
|
|
object cbWriteOwner: TCheckBox
|
|
AnchorSideTop.Control = lblWrite
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 184
|
|
Height = 20
|
|
Top = 32
|
|
Width = 20
|
|
AllowGrayed = True
|
|
BorderSpacing.Top = 6
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 1
|
|
end
|
|
object cbExecOwner: TCheckBox
|
|
AnchorSideTop.Control = lblExec
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 256
|
|
Height = 20
|
|
Top = 32
|
|
Width = 20
|
|
AllowGrayed = True
|
|
BorderSpacing.Top = 6
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 2
|
|
end
|
|
object cbReadGroup: TCheckBox
|
|
AnchorSideTop.Control = cbReadOwner
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 112
|
|
Height = 20
|
|
Top = 58
|
|
Width = 20
|
|
AllowGrayed = True
|
|
BorderSpacing.Top = 6
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 3
|
|
end
|
|
object cbWriteGroup: TCheckBox
|
|
AnchorSideTop.Control = cbWriteOwner
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 184
|
|
Height = 20
|
|
Top = 58
|
|
Width = 20
|
|
AllowGrayed = True
|
|
BorderSpacing.Top = 6
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 4
|
|
end
|
|
object cbExecGroup: TCheckBox
|
|
AnchorSideTop.Control = cbExecOwner
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 256
|
|
Height = 20
|
|
Top = 58
|
|
Width = 20
|
|
AllowGrayed = True
|
|
BorderSpacing.Top = 6
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 5
|
|
end
|
|
object cbReadOther: TCheckBox
|
|
AnchorSideTop.Control = cbReadGroup
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 112
|
|
Height = 20
|
|
Top = 84
|
|
Width = 20
|
|
AllowGrayed = True
|
|
BorderSpacing.Top = 6
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 6
|
|
end
|
|
object cbWriteOther: TCheckBox
|
|
AnchorSideTop.Control = cbWriteGroup
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 184
|
|
Height = 20
|
|
Top = 84
|
|
Width = 20
|
|
AllowGrayed = True
|
|
BorderSpacing.Top = 6
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 7
|
|
end
|
|
object cbExecOther: TCheckBox
|
|
AnchorSideTop.Control = cbReadGroup
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 256
|
|
Height = 20
|
|
Top = 84
|
|
Width = 20
|
|
AllowGrayed = True
|
|
BorderSpacing.Top = 6
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 8
|
|
end
|
|
object cbSuid: TCheckBox
|
|
AnchorSideTop.Control = cbReadOther
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 112
|
|
Height = 23
|
|
Top = 110
|
|
Width = 57
|
|
AllowGrayed = True
|
|
BorderSpacing.Top = 6
|
|
Caption = 'SUID'
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 9
|
|
end
|
|
object cbSgid: TCheckBox
|
|
AnchorSideTop.Control = cbWriteOther
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 184
|
|
Height = 23
|
|
Top = 110
|
|
Width = 58
|
|
AllowGrayed = True
|
|
BorderSpacing.Top = 6
|
|
Caption = 'SGID'
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 10
|
|
end
|
|
object cbSticky: TCheckBox
|
|
AnchorSideTop.Control = cbExecOther
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 256
|
|
Height = 23
|
|
Top = 110
|
|
Width = 61
|
|
AllowGrayed = True
|
|
BorderSpacing.Top = 6
|
|
Caption = 'Sticky'
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 11
|
|
end
|
|
end
|
|
object pnlWinAttrs: TPanel
|
|
Left = 10
|
|
Height = 181
|
|
Top = 28
|
|
Width = 309
|
|
Align = alClient
|
|
AutoSize = True
|
|
BorderSpacing.Left = 10
|
|
BorderSpacing.Right = 10
|
|
BevelOuter = bvNone
|
|
ChildSizing.HorizontalSpacing = 10
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsHomogenousChildResize
|
|
ChildSizing.ShrinkVertical = crsHomogenousChildResize
|
|
ChildSizing.Layout = cclTopToBottomThenLeftToRight
|
|
ClientHeight = 181
|
|
ClientWidth = 309
|
|
TabOrder = 2
|
|
Visible = False
|
|
object gbWinGeneral: TGroupBox
|
|
Left = 0
|
|
Height = 181
|
|
Top = 0
|
|
Width = 150
|
|
AutoSize = True
|
|
Caption = 'General attributes'
|
|
ChildSizing.LeftRightSpacing = 5
|
|
ChildSizing.TopBottomSpacing = 5
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousSpaceResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousSpaceResize
|
|
ChildSizing.ShrinkHorizontal = crsHomogenousSpaceResize
|
|
ChildSizing.ShrinkVertical = crsHomogenousSpaceResize
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ClientHeight = 158
|
|
ClientWidth = 146
|
|
Constraints.MinWidth = 150
|
|
TabOrder = 0
|
|
object cbArchive: TCheckBox
|
|
Left = 30
|
|
Height = 23
|
|
Top = 12
|
|
Width = 86
|
|
AllowGrayed = True
|
|
Caption = '&Archive'
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 0
|
|
end
|
|
object cbReadOnly: TCheckBox
|
|
Left = 30
|
|
Height = 23
|
|
Top = 47
|
|
Width = 86
|
|
AllowGrayed = True
|
|
Caption = 'Read o&nly'
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 1
|
|
end
|
|
object cbHidden: TCheckBox
|
|
Left = 30
|
|
Height = 23
|
|
Top = 82
|
|
Width = 86
|
|
AllowGrayed = True
|
|
Caption = '&Hidden'
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 2
|
|
end
|
|
object cbSystem: TCheckBox
|
|
Left = 30
|
|
Height = 23
|
|
Top = 117
|
|
Width = 86
|
|
AllowGrayed = True
|
|
Caption = 'S&ystem'
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object gbNtfsAttributes: TGroupBox
|
|
Left = 160
|
|
Height = 181
|
|
Top = 0
|
|
Width = 150
|
|
AutoSize = True
|
|
Caption = 'NTFS attributes'
|
|
ChildSizing.LeftRightSpacing = 5
|
|
ChildSizing.TopBottomSpacing = 5
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousSpaceResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousSpaceResize
|
|
ChildSizing.ShrinkHorizontal = crsHomogenousSpaceResize
|
|
ChildSizing.ShrinkVertical = crsHomogenousSpaceResize
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ClientHeight = 158
|
|
ClientWidth = 146
|
|
Constraints.MinWidth = 150
|
|
TabOrder = 1
|
|
object cbCompressed: TCheckBox
|
|
Left = 22
|
|
Height = 23
|
|
Top = 12
|
|
Width = 103
|
|
AllowGrayed = True
|
|
Caption = 'Co&mpressed'
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 0
|
|
end
|
|
object cbEncrypted: TCheckBox
|
|
Left = 22
|
|
Height = 23
|
|
Top = 47
|
|
Width = 103
|
|
AllowGrayed = True
|
|
Caption = '&Encrypted'
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 1
|
|
end
|
|
object cbTemporary: TCheckBox
|
|
Left = 22
|
|
Height = 23
|
|
Top = 82
|
|
Width = 103
|
|
AllowGrayed = True
|
|
Caption = '&Temporary'
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 2
|
|
end
|
|
object cbSparse: TCheckBox
|
|
Left = 22
|
|
Height = 23
|
|
Top = 117
|
|
Width = 103
|
|
AllowGrayed = True
|
|
Caption = 'S&parse'
|
|
OnChange = cbAttrCheckBoxChanged
|
|
OnClick = cbAttrCheckBoxClicked
|
|
State = cbGrayed
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
end
|
|
object pnlTextAttrs: TPanel
|
|
Left = 10
|
|
Height = 28
|
|
Top = 214
|
|
Width = 309
|
|
Align = alBottom
|
|
AutoSize = True
|
|
BorderSpacing.Left = 10
|
|
BorderSpacing.Top = 5
|
|
BorderSpacing.Right = 10
|
|
BevelOuter = bvNone
|
|
ClientHeight = 28
|
|
ClientWidth = 309
|
|
TabOrder = 3
|
|
object lblTextAttrs: TLabel
|
|
AnchorSideLeft.Control = pnlTextAttrs
|
|
AnchorSideTop.Control = pnlTextAttrs
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 0
|
|
Height = 18
|
|
Top = 5
|
|
Width = 53
|
|
Caption = 'As te&xt:'
|
|
FocusControl = edtTextAttrs
|
|
ParentColor = False
|
|
end
|
|
object edtTextAttrs: TEdit
|
|
AnchorSideLeft.Control = lblTextAttrs
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = pnlTextAttrs
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 63
|
|
Height = 28
|
|
Top = 0
|
|
Width = 246
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 10
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object pnlButtons: TPanel
|
|
Left = 5
|
|
Height = 32
|
|
Top = 247
|
|
Width = 319
|
|
Align = alBottom
|
|
AutoSize = True
|
|
BorderSpacing.Around = 5
|
|
BevelOuter = bvNone
|
|
ChildSizing.HorizontalSpacing = 10
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsHomogenousChildResize
|
|
ChildSizing.ShrinkVertical = crsHomogenousChildResize
|
|
ChildSizing.Layout = cclTopToBottomThenLeftToRight
|
|
ClientHeight = 32
|
|
ClientWidth = 319
|
|
TabOrder = 4
|
|
object btnReset: TButton
|
|
Left = 0
|
|
Height = 32
|
|
Top = 0
|
|
Width = 87
|
|
Caption = '&Reset'
|
|
OnClick = btnResetClick
|
|
TabOrder = 0
|
|
end
|
|
object btnOk: TBitBtn
|
|
Left = 97
|
|
Height = 32
|
|
Top = 0
|
|
Width = 94
|
|
Caption = '&OK'
|
|
Constraints.MinHeight = 30
|
|
Default = True
|
|
Kind = bkOK
|
|
ModalResult = 1
|
|
OnClick = btnOkClick
|
|
TabOrder = 1
|
|
end
|
|
object btnCancel: TBitBtn
|
|
Left = 201
|
|
Height = 32
|
|
Top = 0
|
|
Width = 118
|
|
Cancel = True
|
|
Caption = '&Cancel'
|
|
Constraints.MinHeight = 30
|
|
Kind = bkCancel
|
|
ModalResult = 2
|
|
OnClick = btnCancelClick
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
end
|