MathExpression_frMain.fmx 2.9 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697
  1. object frMain: TfrMain
  2. Left = 0
  3. Top = 0
  4. Caption = 'Math expression example'
  5. ClientHeight = 240
  6. ClientWidth = 410
  7. Position = DesktopCenter
  8. FormFactor.Width = 320
  9. FormFactor.Height = 480
  10. FormFactor.Devices = [Desktop]
  11. OnCreate = FormCreate
  12. DesignerMasterStyle = 0
  13. object lbExpression: TLabel
  14. Align = Top
  15. FocusControl = edExpression
  16. Margins.Left = 4.000000000000000000
  17. Margins.Top = 4.000000000000000000
  18. Margins.Right = 4.000000000000000000
  19. Margins.Bottom = 2.000000000000000000
  20. Position.X = 4.000000000000000000
  21. Position.Y = 4.000000000000000000
  22. Size.Width = 402.000000000000000000
  23. Size.Height = 17.000000000000000000
  24. Size.PlatformDefault = False
  25. Text = 'Expression:'
  26. end
  27. object edExpression: TEdit
  28. Touch.InteractiveGestures = [LongTap, DoubleTap]
  29. Align = Top
  30. Position.X = 4.000000000000000000
  31. Position.Y = 25.000000000000000000
  32. Margins.Left = 4.000000000000000000
  33. Margins.Top = 2.000000000000000000
  34. Margins.Right = 4.000000000000000000
  35. Margins.Bottom = 2.000000000000000000
  36. Size.Width = 402.000000000000000000
  37. Size.Height = 22.000000000000000000
  38. Size.PlatformDefault = False
  39. end
  40. object lbVariables: TLabel
  41. Align = Top
  42. FocusControl = gdVariables
  43. Margins.Left = 4.000000000000000000
  44. Margins.Top = 2.000000000000000000
  45. Margins.Right = 4.000000000000000000
  46. Margins.Bottom = 2.000000000000000000
  47. Position.X = 4.000000000000000000
  48. Position.Y = 51.000000000000000000
  49. Size.Width = 402.000000000000000000
  50. Size.Height = 17.000000000000000000
  51. Size.PlatformDefault = False
  52. Text = 'Variables:'
  53. end
  54. object gdVariables: TStringGrid
  55. Align = Client
  56. CanFocus = True
  57. ClipChildren = True
  58. Margins.Left = 4.000000000000000000
  59. Margins.Top = 2.000000000000000000
  60. Margins.Right = 4.000000000000000000
  61. Margins.Bottom = 2.000000000000000000
  62. Size.Width = 402.000000000000000000
  63. Size.Height = 138.000000000000000000
  64. Size.PlatformDefault = False
  65. Viewport.Width = 382.000000000000000000
  66. Viewport.Height = 113.000000000000000000
  67. object clName: TStringColumn
  68. Header = 'Name'
  69. Size.Width = 140.000000000000000000
  70. end
  71. object clValue: TStringColumn
  72. Header = 'Value'
  73. Size.Width = 140.000000000000000000
  74. end
  75. end
  76. object btCalculate: TButton
  77. Align = Bottom
  78. Default = True
  79. Margins.Left = 4.000000000000000000
  80. Margins.Top = 2.000000000000000000
  81. Margins.Right = 4.000000000000000000
  82. Margins.Bottom = 4.000000000000000000
  83. Position.X = 4.000000000000000000
  84. Position.Y = 214.000000000000000000
  85. Size.Width = 402.000000000000000000
  86. Size.Height = 22.000000000000000000
  87. Size.PlatformDefault = False
  88. Text = 'Calculate now!'
  89. OnClick = btCalculateClick
  90. end
  91. object BrookMathExpression1: TBrookMathExpression
  92. OnExtension = BrookMathExpression1Extension
  93. OnError = BrookMathExpression1Error
  94. Left = 64
  95. Top = 104
  96. end
  97. end