-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathdlgNewFile.dfm
152 lines (152 loc) · 4.13 KB
/
dlgNewFile.dfm
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
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
inherited NewFileDialog: TNewFileDialog
HelpContext = 640
Caption = 'New File'
ClientHeight = 297
ClientWidth = 466
OnDestroy = FormDestroy
OnShow = FormShow
ExplicitWidth = 472
ExplicitHeight = 325
PixelsPerInch = 96
TextHeight = 13
object Panel1: TSpTBXPanel
Left = 0
Top = 0
Width = 466
Height = 297
Color = clBtnFace
Align = alClient
UseDockManager = True
TabOrder = 0
TBXStyleBackground = True
object Panel2: TSpTBXPanel
Left = 2
Top = 2
Width = 462
Height = 255
Color = clBtnFace
Align = alTop
UseDockManager = True
TabOrder = 0
TBXStyleBackground = True
object Panel3: TSpTBXPanel
Left = 2
Top = 2
Width = 185
Height = 251
Color = clBtnFace
Align = alLeft
UseDockManager = True
TabOrder = 0
TBXStyleBackground = True
object tvCategories: TVirtualStringTree
Left = 2
Top = 26
Width = 181
Height = 223
Align = alBottom
BevelInner = bvNone
BevelOuter = bvNone
BevelKind = bkFlat
Header.AutoSizeIndex = 0
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'MS Shell Dlg 2'
Header.Font.Style = []
Header.MainColumn = -1
Header.Options = [hoColumnResize, hoDrag]
NodeDataSize = 0
TabOrder = 0
TreeOptions.PaintOptions = [toHotTrack, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseBlendedSelection]
OnChange = tvCategoriesChange
OnGetText = tvCategoriesGetText
Columns = <>
end
object Label1: TSpTBXLabel
Left = 9
Top = 7
Width = 62
Height = 19
Caption = 'Categories:'
end
end
object Panel4: TSpTBXPanel
Left = 190
Top = 2
Width = 270
Height = 251
Color = clBtnFace
Align = alClient
UseDockManager = True
TabOrder = 1
TBXStyleBackground = True
object Label2: TSpTBXLabel
Left = 6
Top = 7
Width = 59
Height = 19
Caption = 'Templates:'
end
object lvTemplates: TEasyListview
Left = 2
Top = 26
Width = 266
Height = 223
Align = alBottom
EditManager.Font.Charset = DEFAULT_CHARSET
EditManager.Font.Color = clWindowText
EditManager.Font.Height = -11
EditManager.Font.Name = 'Tahoma'
EditManager.Font.Style = []
Header.Columns.Items = {
0600000001000000110000005445617379436F6C756D6E53746F726564FFFECE
0006000000800800010100010000000000000161000000FFFFFF1F0001000000
00000000000000000000000000000000}
HotTrack.Enabled = True
PaintInfoGroup.MarginBottom.CaptionIndent = 4
TabOrder = 1
OnItemDblClick = lvTemplatesItemDblClick
OnItemSelectionsChanged = lvTemplatesItemSelectionsChanged
end
end
object Splitter1: TSpTBXSplitter
Left = 187
Top = 2
Width = 3
Height = 251
Cursor = crSizeWE
MinSize = 30
end
end
object btnCancel: TSpTBXButton
Left = 378
Top = 264
Width = 75
Height = 25
Caption = '&Cancel'
TabOrder = 1
Cancel = True
ModalResult = 2
end
object btnCreate: TSpTBXButton
Left = 293
Top = 265
Width = 75
Height = 25
Caption = 'C&reate'
Enabled = False
TabOrder = 2
OnClick = btnCreateClick
end
object btnManageTemplates: TSpTBXButton
Left = 13
Top = 263
Width = 166
Height = 25
Caption = 'Manage File Templates...'
TabOrder = 3
OnClick = btnManageTemplatesClick
end
end
end