File: PropertiesDemo.lfm

package info (click to toggle)
lazarus 2.2.6%2Bdfsg2-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 219,980 kB
  • sloc: pascal: 1,944,919; xml: 357,634; makefile: 270,608; cpp: 57,115; sh: 3,249; java: 609; perl: 297; sql: 222; ansic: 137
file content (175 lines) | stat: -rw-r--r-- 6,814 bytes parent folder | download | duplicates (3)
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
object PropertiesForm: TPropertiesForm
  Left = 397
  Height = 389
  Top = 294
  Width = 637
  ActiveControl = VST3
  Caption = 'PropertiesForm'
  ClientHeight = 389
  ClientWidth = 637
  OnCreate = FormCreate
  LCLVersion = '2.1.0.0'
  object Label9: TLabel
    AnchorSideLeft.Control = VST3
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 417
    Height = 60
    Top = 8
    Width = 212
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 8
    Caption = 'This tree demonstrates a typical property page as it can be found in the property dialog for Word and other documents.'
    ParentColor = False
    WordWrap = True
  end
  object Label10: TLabel
    AnchorSideLeft.Control = Label9
    AnchorSideTop.Control = Label9
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Label9
    AnchorSideRight.Side = asrBottom
    Left = 417
    Height = 45
    Top = 78
    Width = 212
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Top = 10
    Caption = 'What makes this demonstration special is the sample implementation for node editors.'
    ParentColor = False
    WordWrap = True
  end
  object VST3: TLazVirtualStringTree
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 8
    Height = 373
    Top = 8
    Width = 401
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderSpacing.Around = 8
    Colors.BorderColor = clWindowText
    Colors.HotColor = clBlack
    DefaultNodeHeight = 20
    DefaultText = 'Node'
    Header.AutoSizeIndex = 1
    Header.Columns = <    
      item
        Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAutoSpring]
        Position = 0
        Text = 'Properties'
        Width = 204
      end    
      item
        Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAutoSpring]
        Position = 1
        Text = 'Values'
        Width = 193
      end>
    Header.DefaultHeight = 17
    Header.Font.Style = [fsBold]
    Header.Height = 18
    Header.Options = [hoAutoResize, hoColumnResize, hoVisible, hoAutoSpring]
    HintMode = hmHint
    Images = TreeImages
    IncrementalSearch = isAll
    IncrementalSearchTimeout = 500
    Indent = 19
    ParentShowHint = False
    RootNodeCount = 2
    ShowHint = True
    TabOrder = 0
    TreeOptions.AnimationOptions = [toAnimatedToggle]
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
    TreeOptions.MiscOptions = [toEditable, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning]
    TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toCenterScrollIntoView]
    TreeOptions.StringOptions = [toAutoAcceptEditChange]
    OnChange = VST3Change
    OnCreateEditor = VST3CreateEditor
    OnEditing = VST3Editing
    OnGetText = VST3GetText
    OnPaintText = VST3PaintText
    OnGetImageIndex = VST3GetImageIndex
    OnGetHint = VST3GetHint
    OnIncrementalSearch = VST3IncrementalSearch
    OnInitChildren = VST3InitChildren
    OnInitNode = VST3InitNode
    OnStateChange = VST3StateChange
  end
  object RadioGroup1: TRadioGroup
    AnchorSideLeft.Control = Label9
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 417
    Height = 70
    Top = 319
    Width = 220
    Anchors = [akLeft, akRight, akBottom]
    AutoFill = True
    AutoSize = True
    Caption = ' Incremental search direction: '
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 50
    ClientWidth = 216
    ItemIndex = 0
    Items.Strings = (
      'Forward'
      'Backward'
    )
    OnClick = RadioGroup1Click
    TabOrder = 1
  end
  object TreeImages: TImageList
    Left = 504
    Top = 200
    Bitmap = {
      4C7A120000001000000010000000200400000000000078DAED9A8B9283200C45
      F3E97CDAFE19BB6E4B1B631E37C1BA75AD338C7D7812406E0828D13B1CAD2F65
      396AD7DE7E8BED78FF4736D03A6A36D0B6E975C9F3563D8EF0AFB7BFDE7768FF
      63F77F8E8F6DE4FBBAA69763FC1C7EF4A084BC7580365C9ED999F1EFD9E8C8F1
      E1FF2F9F2857D03DCC17F5EEF280DE57FCF0393E37A3A0E3A629BF1B36D41863
      F1E38CFAE7ED32DA02FB97F633FE7991BC5612FEF55916F7EFF233FEA372224D
      E763C0D2F746FF4BB6B59FDCEDA7FC9E07CBED2CE7F1FFB886FBE6AC5747FD3A
      69D72CA17FF46CF8E7E760DCC4FE1D5D36D0BFA7EB957E1DFFBCDEF27BC5BF16
      7F50FFB21EDEF83D85FED93AE2B7DDF27BA061CE2C9F3BFB4CE07C3CAE956778
      3E164C1BF7FF5E382F6D6CAEBB17207FEF72021E36C6673E575839E0FD3AD2FA
      2C9B43F2B65A25C8417B9FF04FCE7C7925FF33FCD9D600488CF2E296176351BE
      C0CAB89DBA8747F1323665F8475C11B119E1254B4A4C65714BE5A343CC2D2ACF
      FD6BF509798335E6B6558E96F0AFCE67480973CD0BEC03CCE6383BE448A856DD
      3D1FEDFE2A7C9FF1BF8C484FEF2D587F8CEC869CB53FBFCE2BE4ACBD11DE680B
      15FCC3BA01D828539ED1DCAC5ECFA875336601DA74FF0BF848B32472012DA6BA
      3638EFC40A7B8E143CE97B6964E8CCF46FC78E6DCED99CF58966F3889CDDDB6F
      FBAFFEDF2DE777723D88EB4B9F3CFB6C196861FD39373AF5C1F262AD7B993F6B
      3EB6F22EADCE9B9C5BE4E4ABFBCFEA3DEAC9734899F7AEF273CEB3765AFED5B1
      E9F0B75C955869DBFD09C5C6F33AB69E686CEFCBE047E1FC603BA93C51C0AF7E
      4FF224D796DBF69366C3EA7F65FDB2D1B2F46F8D232F8739D3FAA1170F84A746
      D3BC65C3E23731C7B0A1F1F2BAAC7F8DCFB4DFBBBED27F6EDD023E6A8BC76BFD
      86F233F70FB96FD5F6CFF6BFC5BFDD9ABE16AF36FBD889F726541EA94773F6D1
      917A68EB10C97BF550F73415DEAA87B6D761F1F2F9D59EFEB5B907F58FDCC7E2
      7858D743F17FC478BCCA7B3CD575037FF6F5F5F5B53A23362C96DBF0EA86EC57
      3BFBD7C4733DAB0E46BB563CCA2EE78FFF7DFD570A05CFFFAFF61EDFACFE1D9D
      41AC769F7B42FFDA5879B5FE4BE34EF09998B514AE9F4CDDC77B5472FCA7DBFF
      7CC658D2BFE43336AC67873BE89FAEAA7FA09F4ADA07F649203ECAD540FFEEF3
      5EEB58C6DD28159EDBA8F29DE9EEC3EB3CBF4F56A1CF7BFB6FA3FFAEAC7751FD
      DFF667715EEEB57336A37F8D45F56FB1D0F877D8905FB33D9DBBDDD7DD15FD8E
      3CA5A27F991B7DF4FF5AED56EDA07B65961D74AFCA8A25595E7B7FB8E07F93FB
      22BC361633BC964B6479A9A577E0799C28E4028F58C1ED147289959DB3C492B3
      EABF2BCF7351FDF1392DAD7F237780C69F3297C23C63D3FA116C8A676C56BF7C
      FEAFE8DFD223A27F6F6FE4A3FFB77D57708F770DF77857718F771DF778577297
      772D0F7A46F50AFF7FD5FF7F35FE0E3FBE019F9389F2
    }
  end
end