/examples/exploremenu/frmexploremenu.lfm

http://github.com/graemeg/lazarus · Unknown · 75 lines · 75 code · 0 blank · 0 comment · 0 complexity · ac3d47dee89d95b745de7d16d30d665a MD5 · raw file

  1. object 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
  75. end