StringMap_frMain.lfm 1.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778
  1. object frMain: TfrMain
  2. Left = 254
  3. Height = 240
  4. Top = 137
  5. Width = 320
  6. Caption = 'String map example'
  7. ClientHeight = 240
  8. ClientWidth = 320
  9. OnCreate = FormCreate
  10. OnDestroy = FormDestroy
  11. Position = poDesktopCenter
  12. LCLVersion = '2.0.10.0'
  13. object pnTop: TPanel
  14. Left = 0
  15. Height = 40
  16. Top = 0
  17. Width = 320
  18. Align = alTop
  19. ClientHeight = 40
  20. ClientWidth = 320
  21. TabOrder = 0
  22. object btAdd: TButton
  23. Cursor = crHandPoint
  24. Left = 7
  25. Height = 26
  26. Top = 7
  27. Width = 75
  28. Align = alLeft
  29. BorderSpacing.Around = 6
  30. Caption = 'Add'
  31. OnClick = btAddClick
  32. TabOrder = 0
  33. end
  34. object btRemove: TButton
  35. Cursor = crHandPoint
  36. Left = 88
  37. Height = 26
  38. Top = 7
  39. Width = 75
  40. Align = alLeft
  41. BorderSpacing.Around = 6
  42. Caption = 'Remove'
  43. Enabled = False
  44. OnClick = btRemoveClick
  45. TabOrder = 1
  46. end
  47. object btClear: TButton
  48. Cursor = crHandPoint
  49. Left = 169
  50. Height = 26
  51. Top = 7
  52. Width = 75
  53. Align = alLeft
  54. BorderSpacing.Around = 6
  55. Caption = 'Clear'
  56. Enabled = False
  57. OnClick = btClearClick
  58. TabOrder = 2
  59. end
  60. end
  61. object veMap: TValueListEditor
  62. Left = 0
  63. Height = 200
  64. Top = 40
  65. Width = 320
  66. Align = alClient
  67. AlternateColor = clSkyBlue
  68. AutoEdit = False
  69. FixedCols = 0
  70. RowCount = 2
  71. TabOrder = 1
  72. Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect, goThumbTracking]
  73. ColWidths = (
  74. 64
  75. 252
  76. )
  77. end
  78. end