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
|
object FormColumnSettings: TFormColumnSettings
Left = 364
Top = 252
Width = 295
Height = 370
BorderIcons = [biSystemMenu]
Caption = 'Column Settings'
Color = clBtnFace
Constraints.MinHeight = 370
Constraints.MinWidth = 295
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
OnKeyPress = FormKeyPress
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 16
Top = 280
Width = 252
Height = 14
Anchors = [akLeft, akTop, akRight, akBottom]
Shape = bsBottomLine
end
object Label2: TLabel
Left = 19
Top = 246
Width = 151
Height = 13
Alignment = taCenter
Anchors = [akBottom]
Caption = 'The selected column should be '
OnClick = FormCreate
end
object Label3: TLabel
Left = 211
Top = 246
Width = 51
Height = 13
Anchors = [akBottom]
Caption = 'pixels wide'
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 287
Height = 35
Align = alTop
BevelOuter = bvNone
BorderWidth = 4
TabOrder = 0
object Label1: TLabel
Left = 4
Top = 4
Width = 279
Height = 27
Align = alClient
Alignment = taCenter
AutoSize = False
Caption =
'Check the columns you would like to make visible in this Folder.' +
' Drag and Drop to reorder the columns. '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
WordWrap = True
end
end
object CheckBoxLiveUpdate: TCheckBox
Left = 18
Top = 268
Width = 81
Height = 17
Anchors = [akRight, akBottom]
Caption = 'Live Update'
TabOrder = 1
OnClick = CheckBoxLiveUpdateClick
end
object ButtonOk: TButton
Left = 104
Top = 304
Width = 75
Height = 25
Anchors = [akRight, akBottom]
Caption = '&OK'
ModalResult = 1
TabOrder = 2
end
object ButtonCancel: TButton
Left = 192
Top = 304
Width = 75
Height = 25
Anchors = [akRight, akBottom]
Caption = '&Cancel'
ModalResult = 2
TabOrder = 3
end
object VSTColumnNames: TVirtualStringTree
Left = 8
Top = 47
Width = 273
Height = 186
Anchors = [akLeft, akTop, akRight, akBottom]
CheckImageKind = ckDarkCheck
Header.AutoSizeIndex = 0
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'MS Sans Serif'
Header.Font.Style = []
Header.MainColumn = -1
Header.Options = [hoColumnResize, hoDrag]
HintAnimation = hatNone
TabOrder = 4
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking]
TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toInitOnSave, toToggleOnDblClick]
TreeOptions.PaintOptions = [toShowButtons, toShowRoot, toThemeAware, toUseBlendedImages]
OnChecking = VSTColumnNamesChecking
OnDragAllowed = VSTColumnNamesDragAllowed
OnDragOver = VSTColumnNamesDragOver
OnDragDrop = VSTColumnNamesDragDrop
OnFocusChanging = VSTColumnNamesFocusChanging
OnFreeNode = VSTColumnNamesFreeNode
OnGetText = VSTColumnNamesGetText
OnInitNode = VSTColumnNamesInitNode
Columns = <>
end
object EditPixelWidth: TEdit
Left = 172
Top = 244
Width = 35
Height = 21
Anchors = [akBottom]
TabOrder = 5
OnExit = EditPixelWidthExit
OnKeyPress = EditPixelWidthKeyPress
end
end
|
