File: treeviewpropedit.lfm

package info (click to toggle)
lazarus 4.0%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 275,760 kB
  • sloc: pascal: 2,341,904; xml: 509,420; makefile: 348,726; cpp: 93,608; sh: 3,387; java: 609; perl: 297; sql: 222; ansic: 137
file content (292 lines) | stat: -rw-r--r-- 6,675 bytes parent folder | download
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
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
  Left = 329
  Height = 326
  Top = 230
  Width = 635
  ActiveControl = treEditor
  BorderIcons = [biSystemMenu, biHelp]
  Caption = 'TreeView Items Editor'
  ClientHeight = 326
  ClientWidth = 635
  Constraints.MinHeight = 240
  Constraints.MinWidth = 400
  KeyPreview = True
  Position = poScreenCenter
  LCLVersion = '3.99.0.0'
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  object ButtonPanel: TButtonPanel
    Left = 6
    Height = 26
    Top = 294
    Width = 623
    OKButton.Name = 'OKButton'
    OKButton.Hint = '[Ctrl+Enter]'
    OKButton.DefaultCaption = True
    HelpButton.Name = 'HelpButton'
    HelpButton.Hint = '[F1]'
    HelpButton.DefaultCaption = True
    CloseButton.Name = 'CloseButton'
    CloseButton.DefaultCaption = True
    CancelButton.Name = 'CancelButton'
    CancelButton.Hint = '[Esc]'
    CancelButton.DefaultCaption = True
    TabOrder = 3
    DefaultButton = pbNone
    ShowButtons = [pbOK, pbCancel, pbHelp]
    ShowBevel = False
    object btnApply: TBitBtn
      AnchorSideBottom.Side = asrBottom
      Left = 357
      Height = 26
      Hint = '[Shift+Enter]'
      Top = 0
      Width = 75
      Align = alCustom
      Anchors = []
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = '&Apply'
      Constraints.MinHeight = 25
      Constraints.MinWidth = 75
      TabOrder = 4
      OnClick = btnApplyClick
    end
  end
  object ToolBar: TToolBar
    Left = 0
    Height = 26
    Top = 0
    Width = 635
    Caption = 'ToolBar'
    TabOrder = 0
    object tbNewItem: TToolButton
      Left = 1
      Top = 2
      Caption = 'tbNewItem'
      OnClick = tbNewItemClick
    end
    object tbNewSubItem: TToolButton
      Left = 24
      Top = 2
      Caption = 'tbNewSubItem'
      OnClick = tbNewItemClick
    end
    object tb1: TToolButton
      Left = 47
      Height = 22
      Top = 2
      Caption = 'tb1'
      Style = tbsDivider
    end
    object tbDelete: TToolButton
      Left = 52
      Top = 2
      Caption = 'tbDelete'
      OnClick = tbDeleteClick
    end
    object tb2: TToolButton
      Left = 75
      Height = 22
      Top = 2
      Caption = 'tb2'
      Style = tbsDivider
    end
    object tbRename: TToolButton
      Left = 80
      Top = 2
      Caption = 'tbRename'
      OnClick = tbRenameClick
    end
    object tb3: TToolButton
      Left = 103
      Height = 22
      Top = 2
      Caption = 'tb3'
      Style = tbsDivider
    end
    object tbMoveDown: TToolButton
      Left = 108
      Top = 2
      Caption = 'tbMoveDown'
      OnClick = tbMoveClick
    end
    object tbMoveUp: TToolButton
      Left = 131
      Top = 2
      Caption = 'tbMoveUp'
      OnClick = tbMoveClick
    end
    object tb4: TToolButton
      Left = 154
      Height = 22
      Top = 2
      Caption = 'tb4'
      Style = tbsDivider
    end
    object tbSave: TToolButton
      Left = 159
      Top = 2
      Caption = 'tbSave'
      OnClick = tbSaveClick
    end
    object tbOpen: TToolButton
      Left = 182
      Top = 2
      Caption = 'tbOpen'
      OnClick = tbOpenClick
    end
  end
  object pnlImageIndexes: TPanel
    Left = 0
    Height = 27
    Top = 26
    Width = 635
    Align = alTop
    AutoSize = True
    BevelOuter = bvNone
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 2
    ChildSizing.HorizontalSpacing = 6
    ChildSizing.Layout = cclTopToBottomThenLeftToRight
    ClientHeight = 27
    ClientWidth = 635
    TabOrder = 1
    object pnlImageIndex: TPanel
      Left = 6
      Height = 23
      Top = 2
      Width = 124
      AutoSize = True
      BevelOuter = bvNone
      ClientHeight = 23
      ClientWidth = 124
      TabOrder = 0
      object lblImageIndex: TLabel
        Left = 0
        Height = 23
        Top = 0
        Width = 68
        Align = alClient
        Caption = 'Image Index:'
        Layout = tlCenter
        ParentColor = False
      end
      object spnImageIndex: TSpinEdit
        Left = 74
        Height = 23
        Top = 0
        Width = 50
        Align = alRight
        Alignment = taRightJustify
        BorderSpacing.Left = 6
        MaxValue = 99999
        MinValue = -1
        TabOrder = 0
        Value = -1
        OnChange = spnIndexChange
      end
    end
    object pnlSelectedIndex: TPanel
      Left = 142
      Height = 23
      Top = 2
      Width = 135
      AutoSize = True
      BorderSpacing.Left = 12
      BevelOuter = bvNone
      ClientHeight = 23
      ClientWidth = 135
      TabOrder = 1
      object lblSelectedIndex: TLabel
        Left = 0
        Height = 23
        Top = 0
        Width = 79
        Align = alClient
        Caption = 'Selected index:'
        Layout = tlCenter
        ParentColor = False
      end
      object spnSelectedIndex: TSpinEdit
        Left = 85
        Height = 23
        Top = 0
        Width = 50
        Align = alRight
        Alignment = taRightJustify
        BorderSpacing.Left = 6
        MaxValue = 99999
        MinValue = -1
        TabOrder = 0
        Value = -1
        OnChange = spnIndexChange
      end
    end
    object pnlStateIndex: TPanel
      Left = 289
      Height = 23
      Top = 2
      Width = 117
      AutoSize = True
      BorderSpacing.Left = 12
      BevelOuter = bvNone
      ClientHeight = 23
      ClientWidth = 117
      TabOrder = 2
      object lblStateIndex: TLabel
        Left = 0
        Height = 23
        Top = 0
        Width = 61
        Align = alClient
        Caption = 'State Index:'
        Layout = tlCenter
        ParentColor = False
      end
      object spnStateIndex: TSpinEdit
        Left = 67
        Height = 23
        Top = 0
        Width = 50
        Align = alRight
        Alignment = taRightJustify
        BorderSpacing.Left = 6
        MaxValue = 99999
        MinValue = -1
        TabOrder = 0
        Value = -1
        OnChange = spnIndexChange
      end
    end
  end
  object treEditor: TTreeView
    Left = 6
    Height = 231
    Top = 57
    Width = 623
    Align = alClient
    BorderSpacing.Left = 6
    BorderSpacing.Top = 4
    BorderSpacing.Right = 6
    HideSelection = False
    TabOrder = 2
    Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
    OnSelectionChanged = treEditorSelectionChanged
  end
  object dlgOpen: TOpenDialog
    Title = 'Open'
    FilterIndex = 0
    Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
    Left = 72
    Top = 160
  end
  object dlgSave: TSaveDialog
    Title = 'Save'
    FilterIndex = 0
    Left = 136
    Top = 160
  end
end