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
|
object DrawTreeForm: TDrawTreeForm
Left = 333
Height = 453
Top = 339
Width = 710
ActiveControl = VDT1
Caption = 'DrawTreeForm'
ClientHeight = 453
ClientWidth = 710
OnCreate = FormCreate
LCLVersion = '2.1.0.0'
object Label7: TLabel
Left = 8
Height = 30
Top = 8
Width = 694
Align = alTop
BorderSpacing.Around = 8
Caption = 'A sample for a draw tree, which shows images of all known types as thumbnails. By default this tree uses the image loader library GraphicEx to support many common image formats like png, gif etc. (see www.delphi-gems.com for more infos and download).'
ParentColor = False
WordWrap = True
end
object Label1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = TrackBar1
Left = 8
Height = 15
Top = 415
Width = 220
BorderSpacing.Left = 8
Caption = 'Adjust vertical image alignment of nodes:'
ParentColor = False
end
object Label3: TLabel
AnchorSideLeft.Control = TrackBar1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = TrackBar1
AnchorSideBottom.Side = asrCenter
Left = 440
Height = 15
Top = 415
Width = 22
BorderSpacing.Left = 8
Caption = '50%'
ParentColor = False
end
object VDT1: TLazVirtualDrawTree
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Label7
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TrackBar1
Left = 8
Height = 361
Top = 46
Width = 694
Anchors = [akTop, akLeft, akRight, akBottom]
AutoExpandDelay = 200
AutoScrollDelay = 200
BorderSpacing.Left = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
ClipboardFormats.Strings = (
'Virtual Tree Data'
)
Colors.BorderColor = clWindowText
Colors.HotColor = clBlack
Colors.TreeLineColor = clBtnFace
DefaultNodeHeight = 32
Header.AutoSizeIndex = -1
Header.Background = clBtnHighlight
Header.Columns = <
item
BiDiMode = bdLeftToRight
Options = [coAllowClick, coEnabled, coParentColor, coResizable, coShowDropMark, coVisible]
Position = 0
Text = 'Image file name'
Width = 217
end
item
Position = 1
Text = 'Thumbnail'
Width = 200
end
item
Position = 2
Text = 'Properties'
Width = 160
end>
Header.DefaultHeight = 17
Header.Height = 22
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoRestrictDrag, hoShowSortGlyphs, hoVisible]
Header.ParentFont = True
Header.Style = hsPlates
HintMode = hmHint
Images = SystemImages
IncrementalSearch = isAll
Indent = 20
LineMode = lmBands
ParentShowHint = False
RootNodeCount = 10
ScrollBarOptions.VerticalIncrement = 32
ShowHint = True
TabOrder = 0
TreeOptions.AnimationOptions = [toAnimatedToggle]
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
TreeOptions.PaintOptions = [toShowBackground, toShowButtons, toShowDropmark, toShowHorzGridLines, toShowRoot, toShowTreeLines, toShowVertGridLines, toThemeAware]
TreeOptions.SelectionOptions = [toFullRowSelect]
OnCompareNodes = VDT1CompareNodes
OnDrawHint = VDT1DrawHint
OnDrawNode = VDT1DrawNode
OnFreeNode = VDT1FreeNode
OnGetHintSize = VDT1GetHintSize
OnGetImageIndex = VDT1GetImageIndex
OnGetNodeWidth = VDT1GetNodeWidth
OnHeaderClick = VDT1HeaderClick
OnInitChildren = VDT1InitChildren
OnInitNode = VDT1InitNode
OnStateChange = VDT1StateChange
end
object TrackBar1: TTrackBar
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 235
Height = 38
Top = 415
Width = 197
Max = 100
OnChange = TrackBar1Change
Position = 50
TickStyle = tsNone
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 7
TabOrder = 1
end
object SystemImages: TImageList
Left = 450
Top = 248
Bitmap = {
4C7A010000001000000010000000350100000000000078DA6360181CC078E699
FF46334EFF379876F2BFDE94E3FF49D58B0E34FB0FFD2745EF4C340C022A5D7B
FF2BB6EFFA2FD7B2FDBF4CD3D6FF520D9BFF8BD76E403117E4E689DFFFFFEFFB
8289B101D1EA7528FA41FE6D7DFDFF7FC3B3FFFF75261DC58AD57B0FFC57EEDC
F35FBE75C77FE9C62D60778030483F28ACAA1E40F4120340F6800057C162B07E
90BEBC2BFFFF83C26126967040C7F1477F8069F6DC05FF999999C1E19C060C42
503880C44161810F87ED790F56C79A3D0FAC1FE437907E903B40E2A0B0C0877D
373F03AB63CE9C03D60F8A23907EB59EFD60715058E0C3CE2BEF80D531A6CF02
EB07C52F483F286C41E2A0B0C087AD165C06AB63489B09D60F0A43E4B4018A5F
A18AD5FFF94B57FCE7295A0A0E67505881FD0B7433C85E905E2626268CF40932
8F584CAD7C07001950EBDD
}
end
end
|
