mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
134 lines
3.2 KiB
Text
134 lines
3.2 KiB
Text
object frmDescrEdit: TfrmDescrEdit
|
|
Left = 290
|
|
Height = 300
|
|
Top = 175
|
|
Width = 400
|
|
ActiveControl = memDescr
|
|
BorderIcons = [biSystemMenu, biMaximize]
|
|
Caption = 'File/folder comment'
|
|
ClientHeight = 300
|
|
ClientWidth = 400
|
|
Constraints.MinHeight = 300
|
|
Constraints.MinWidth = 400
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
Position = poScreenCenter
|
|
SessionProperties = 'Height;WindowState;Width'
|
|
LCLVersion = '2.0.4.0'
|
|
object lblEditCommentFor: TLabel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
Left = 12
|
|
Height = 15
|
|
Top = 12
|
|
Width = 96
|
|
BorderSpacing.Left = 12
|
|
BorderSpacing.Top = 12
|
|
Caption = 'E&dit comment for:'
|
|
FocusControl = memDescr
|
|
ParentColor = False
|
|
end
|
|
object lblEncoding: TLabel
|
|
AnchorSideLeft.Control = memDescr
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideBottom.Control = cbEncoding
|
|
AnchorSideBottom.Side = asrCenter
|
|
Left = 12
|
|
Height = 15
|
|
Top = 252
|
|
Width = 53
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = '&Encoding:'
|
|
ParentColor = False
|
|
end
|
|
object lblFileName: TLabel
|
|
AnchorSideLeft.Control = lblEditCommentFor
|
|
AnchorSideTop.Control = lblEditCommentFor
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 12
|
|
Height = 15
|
|
Top = 33
|
|
Width = 15
|
|
BorderSpacing.Top = 6
|
|
Caption = '???'
|
|
Font.Style = [fsBold]
|
|
ParentColor = False
|
|
ParentFont = False
|
|
end
|
|
object memDescr: TMemo
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = lblFileName
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = btnCancel
|
|
Left = 12
|
|
Height = 184
|
|
Top = 56
|
|
Width = 376
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Left = 12
|
|
BorderSpacing.Top = 8
|
|
BorderSpacing.Right = 12
|
|
BorderSpacing.Bottom = 12
|
|
OnKeyDown = memDescrKeyDown
|
|
TabOrder = 0
|
|
end
|
|
object btnOK: TBitBtn
|
|
AnchorSideTop.Control = btnCancel
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = btnCancel
|
|
Left = 202
|
|
Height = 30
|
|
Top = 252
|
|
Width = 90
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 6
|
|
Caption = '&OK'
|
|
Default = True
|
|
Kind = bkOK
|
|
ModalResult = 1
|
|
TabOrder = 1
|
|
end
|
|
object btnCancel: TBitBtn
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = memDescr
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = Owner
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 298
|
|
Height = 30
|
|
Top = 252
|
|
Width = 90
|
|
Anchors = [akRight, akBottom]
|
|
BorderSpacing.Bottom = 18
|
|
Cancel = True
|
|
Caption = '&Cancel'
|
|
Kind = bkCancel
|
|
ModalResult = 2
|
|
TabOrder = 2
|
|
end
|
|
object cbEncoding: TStaticText
|
|
AnchorSideLeft.Control = lblEncoding
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = btnCancel
|
|
AnchorSideBottom.Side = asrCenter
|
|
Left = 69
|
|
Height = 1
|
|
Top = 266
|
|
Width = 100
|
|
Anchors = [akLeft, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 4
|
|
TabOrder = 3
|
|
end
|
|
object ActionList: TActionList
|
|
left = 312
|
|
top = 8
|
|
object actSaveDescription: TAction
|
|
Caption = 'Save Description'
|
|
OnExecute = actExecute
|
|
end
|
|
end
|
|
end
|