forked from doublecmd/doublecmd
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathfdescredit.lfm
134 lines (134 loc) · 3.24 KB
/
fdescredit.lfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
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