FRxColorEditor.fmx 3.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118
  1. object ColorEditorFrame: TColorEditorFrame
  2. Size.Width = 372.000000000000000000
  3. Size.Height = 132.000000000000000000
  4. Size.PlatformDefault = False
  5. OnResize = FrameResize
  6. object ColorEditorPaintBox: TPaintBox
  7. Align = Client
  8. Size.Width = 372.000000000000000000
  9. Size.Height = 132.000000000000000000
  10. Size.PlatformDefault = False
  11. OnMouseDown = ColorEditorPaintBoxMouseDown
  12. OnMouseMove = ColorEditorPaintBoxMouseMove
  13. OnMouseUp = ColorEditorPaintBoxMouseUp
  14. OnPaint = ColorEditorPaintBoxPaint
  15. end
  16. object Panel1: TPanel
  17. Align = Client
  18. Margins.Left = 3.000000000000000000
  19. Margins.Top = 3.000000000000000000
  20. Margins.Right = 3.000000000000000000
  21. Margins.Bottom = 3.000000000000000000
  22. Size.Width = 366.000000000000000000
  23. Size.Height = 126.000000000000000000
  24. Size.PlatformDefault = False
  25. end
  26. object AlphaEdit: TEdit
  27. Touch.InteractiveGestures = [LongTap, DoubleTap]
  28. Text = '0'
  29. Position.X = 160.000000000000000000
  30. Position.Y = 80.000000000000000000
  31. Size.Width = 49.000000000000000000
  32. Size.Height = 22.000000000000000000
  33. Size.PlatformDefault = False
  34. OnChange = AlphaEditChange
  35. end
  36. object BlueEdit: TEdit
  37. Touch.InteractiveGestures = [LongTap, DoubleTap]
  38. Text = '0'
  39. Position.X = 160.000000000000000000
  40. Position.Y = 56.000000000000000000
  41. Size.Width = 49.000000000000000000
  42. Size.Height = 22.000000000000000000
  43. Size.PlatformDefault = False
  44. OnChange = BlueEditChange
  45. end
  46. object GreenEdit: TEdit
  47. Touch.InteractiveGestures = [LongTap, DoubleTap]
  48. Text = '0'
  49. Position.X = 160.000000000000000000
  50. Position.Y = 32.000000000000000000
  51. Size.Width = 49.000000000000000000
  52. Size.Height = 22.000000000000000000
  53. Size.PlatformDefault = False
  54. OnChange = GreenEditChange
  55. end
  56. object Label1: TLabel
  57. StyledSettings = [Family, Size]
  58. Position.X = 8.000000000000000000
  59. Position.Y = 8.000000000000000000
  60. Size.Width = 81.000000000000000000
  61. Size.Height = 17.000000000000000000
  62. Size.PlatformDefault = False
  63. TextSettings.Font.StyleExt = {00070000000000000004000000}
  64. TextSettings.FontColor = claRed
  65. Text = 'Red'
  66. end
  67. object Label2: TLabel
  68. StyledSettings = [Family, Size]
  69. Position.X = 8.000000000000000000
  70. Position.Y = 32.000000000000000000
  71. Size.Width = 73.000000000000000000
  72. Size.Height = 17.000000000000000000
  73. Size.PlatformDefault = False
  74. TextSettings.Font.StyleExt = {00070000000000000004000000}
  75. TextSettings.FontColor = claGreen
  76. Text = 'Green'
  77. end
  78. object Label3: TLabel
  79. StyledSettings = [Family, Size]
  80. Position.X = 8.000000000000000000
  81. Position.Y = 56.000000000000000000
  82. Size.Width = 73.000000000000000000
  83. Size.Height = 17.000000000000000000
  84. Size.PlatformDefault = False
  85. TextSettings.Font.StyleExt = {00070000000000000004000000}
  86. TextSettings.FontColor = claBlue
  87. Text = 'Blue'
  88. end
  89. object Label4: TLabel
  90. StyledSettings = [Family, Size, FontColor]
  91. Position.X = 8.000000000000000000
  92. Position.Y = 80.000000000000000000
  93. Size.Width = 73.000000000000000000
  94. Size.Height = 17.000000000000000000
  95. Size.PlatformDefault = False
  96. TextSettings.Font.StyleExt = {00070000000000000004000000}
  97. Text = 'Alpha'
  98. end
  99. object RedEdit: TEdit
  100. Touch.InteractiveGestures = [LongTap, DoubleTap]
  101. Text = '0'
  102. Position.X = 160.000000000000000000
  103. Position.Y = 8.000000000000000000
  104. Size.Width = 49.000000000000000000
  105. Size.Height = 22.000000000000000000
  106. Size.PlatformDefault = False
  107. OnChange = RedEditChange
  108. end
  109. object PAPreview: TColorPanel
  110. Color = claWhite
  111. Position.X = 216.000000000000000000
  112. Position.Y = 8.000000000000000000
  113. Size.Width = 105.000000000000000000
  114. Size.Height = 105.000000000000000000
  115. Size.PlatformDefault = False
  116. OnDblClick = PAPreviewDblClick
  117. end
  118. end