/examples/exploremenu/frmexploremenu.lfm

 1object ExploreIDEMenuForm: TExploreIDEMenuForm
 2  Left = 468
 3  Height = 336
 4  Top = 378
 5  Width = 468
 6  ActiveControl = TVIDEMenu
 7  Caption = 'Lazarus IDE menus'
 8  ClientHeight = 336
 9  ClientWidth = 468
10  OnCreate = FormCreate
11  Position = poDesktopCenter
12  LCLVersion = '0.9.31'
13  object LTree: TLabel
14    Left = 6
15    Height = 16
16    Top = 6
17    Width = 456
18    Align = alTop
19    BorderSpacing.Around = 6
20    Caption = 'Menu Tree'
21    ParentColor = False
22  end
23  object TVIDEMenu: TTreeView
24    Left = 0
25    Height = 225
26    Top = 28
27    Width = 468
28    Align = alTop
29    Anchors = [akTop, akLeft, akRight, akBottom]
30    DefaultItemHeight = 17
31    ReadOnly = True
32    TabOrder = 0
33    OnChange = TVIDEMenuChange
34    Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
35  end
36  object LPAth: TMemo
37    AnchorSideBottom.Control = BCLose
38    Left = 0
39    Height = 36
40    Top = 258
41    Width = 468
42    Align = alTop
43    Anchors = [akBottom]
44    BorderSpacing.Bottom = 6
45    Color = clBtnFace
46    Lines.Strings = (
47      'Path of selected item:'
48    )
49    TabOrder = 1
50  end
51  object Splitter1: TSplitter
52    Cursor = crVSplit
53    Left = 0
54    Height = 5
55    Top = 253
56    Width = 468
57    Align = alTop
58    ResizeAnchor = akTop
59  end
60  object BCLose: TBitBtn
61    AnchorSideBottom.Control = Owner
62    AnchorSideBottom.Side = asrBottom
63    Left = 392
64    Height = 30
65    Top = 300
66    Width = 75
67    Anchors = [akRight, akBottom]
68    BorderSpacing.Bottom = 6
69    Caption = '&Close'
70    Kind = bkClose
71    ModalResult = 1
72    NumGlyphs = 0
73    TabOrder = 2
74  end
75end