windowskincolourformunit.lfm 4.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205
  1. object WindowSkinColourForm: TWindowSkinColourForm
  2. Left = 248
  3. Height = 262
  4. Top = 119
  5. Width = 369
  6. Caption = 'Window skin colour'
  7. ClientHeight = 262
  8. ClientWidth = 369
  9. LCLVersion = '2.0.2.0'
  10. object RedGroupBox: TGroupBox
  11. Left = 8
  12. Height = 45
  13. Top = 8
  14. Width = 232
  15. AutoSize = True
  16. BorderSpacing.Left = 4
  17. BorderSpacing.Top = 4
  18. Caption = 'Red'
  19. ClientHeight = 25
  20. ClientWidth = 228
  21. TabOrder = 0
  22. object RedTrackBar: TTrackBar
  23. AnchorSideRight.Control = RedSpinEdit
  24. Left = 0
  25. Height = 25
  26. Top = 0
  27. Width = 178
  28. Max = 255
  29. Min = -255
  30. OnChange = RedTrackBarChange
  31. Position = 0
  32. TickStyle = tsNone
  33. TabOrder = 0
  34. end
  35. object RedSpinEdit: TSpinEdit
  36. AnchorSideLeft.Control = RedTrackBar
  37. AnchorSideLeft.Side = asrBottom
  38. Left = 178
  39. Height = 25
  40. Top = 0
  41. Width = 50
  42. Align = alRight
  43. Anchors = [akTop, akLeft, akRight, akBottom]
  44. MaxValue = 255
  45. MinValue = -255
  46. OnChange = RedSpinEditChange
  47. TabOrder = 1
  48. end
  49. end
  50. object GreenGroupBox: TGroupBox
  51. AnchorSideTop.Control = RedGroupBox
  52. AnchorSideTop.Side = asrBottom
  53. Left = 8
  54. Height = 45
  55. Top = 61
  56. Width = 232
  57. AutoSize = True
  58. BorderSpacing.Top = 8
  59. Caption = 'Green'
  60. ClientHeight = 25
  61. ClientWidth = 228
  62. TabOrder = 1
  63. object GreenTrackBar: TTrackBar
  64. AnchorSideRight.Control = GreenSpinEdit
  65. Left = 0
  66. Height = 25
  67. Top = 0
  68. Width = 178
  69. Max = 255
  70. Min = -255
  71. OnChange = GreenTrackBarChange
  72. Position = 0
  73. TickStyle = tsNone
  74. TabOrder = 0
  75. end
  76. object GreenSpinEdit: TSpinEdit
  77. AnchorSideLeft.Control = GreenTrackBar
  78. AnchorSideLeft.Side = asrBottom
  79. Left = 178
  80. Height = 25
  81. Top = 0
  82. Width = 50
  83. Align = alRight
  84. Anchors = [akTop, akLeft, akRight, akBottom]
  85. MaxValue = 255
  86. MinValue = -255
  87. OnChange = GreenSpinEditChange
  88. TabOrder = 1
  89. end
  90. end
  91. object BlueGroupBox: TGroupBox
  92. AnchorSideTop.Control = GreenGroupBox
  93. AnchorSideTop.Side = asrBottom
  94. Left = 8
  95. Height = 45
  96. Top = 114
  97. Width = 232
  98. AutoSize = True
  99. BorderSpacing.Top = 8
  100. Caption = 'Blue'
  101. ClientHeight = 25
  102. ClientWidth = 228
  103. TabOrder = 2
  104. object BlueTrackBar: TTrackBar
  105. AnchorSideRight.Control = BlueSpinEdit
  106. Left = 0
  107. Height = 25
  108. Top = 0
  109. Width = 178
  110. Max = 255
  111. Min = -255
  112. OnChange = BlueTrackBarChange
  113. Position = 0
  114. TickStyle = tsNone
  115. TabOrder = 0
  116. end
  117. object BlueSpinEdit: TSpinEdit
  118. AnchorSideLeft.Control = BlueTrackBar
  119. AnchorSideLeft.Side = asrBottom
  120. Left = 178
  121. Height = 25
  122. Top = 0
  123. Width = 50
  124. Align = alRight
  125. Anchors = [akTop, akLeft, akRight, akBottom]
  126. MaxValue = 255
  127. MinValue = -255
  128. OnChange = BlueSpinEditChange
  129. TabOrder = 1
  130. end
  131. end
  132. object PreviewPaintBox: TPaintBox
  133. AnchorSideTop.Control = RedGroupBox
  134. AnchorSideBottom.Control = BlueGroupBox
  135. AnchorSideBottom.Side = asrBottom
  136. Left = 256
  137. Height = 151
  138. Top = 8
  139. Width = 105
  140. Anchors = [akTop, akLeft, akBottom]
  141. OnPaint = PreviewPaintBoxPaint
  142. end
  143. object ResultPanel: TPanel
  144. Left = 0
  145. Height = 43
  146. Top = 219
  147. Width = 369
  148. Align = alBottom
  149. AutoSize = True
  150. BevelOuter = bvNone
  151. ClientHeight = 43
  152. ClientWidth = 369
  153. TabOrder = 3
  154. object ResultBevel: TBevel
  155. Left = 0
  156. Height = 4
  157. Top = 0
  158. Width = 369
  159. Align = alTop
  160. Shape = bsTopLine
  161. end
  162. object ResultButtonPanel: TPanel
  163. Left = 111
  164. Height = 39
  165. Top = 4
  166. Width = 258
  167. Align = alRight
  168. BevelOuter = bvNone
  169. ClientHeight = 39
  170. ClientWidth = 258
  171. TabOrder = 0
  172. object OkBitBtn: TBitBtn
  173. Left = 5
  174. Height = 30
  175. Top = 5
  176. Width = 120
  177. BorderSpacing.Left = 4
  178. BorderSpacing.Top = 4
  179. BorderSpacing.Right = 4
  180. BorderSpacing.Bottom = 4
  181. Default = True
  182. DefaultCaption = True
  183. Kind = bkOK
  184. ModalResult = 1
  185. TabOrder = 0
  186. end
  187. object CancelBitBtn: TBitBtn
  188. Left = 133
  189. Height = 30
  190. Top = 5
  191. Width = 120
  192. BorderSpacing.Left = 4
  193. BorderSpacing.Top = 4
  194. BorderSpacing.Right = 4
  195. BorderSpacing.Bottom = 4
  196. Cancel = True
  197. DefaultCaption = True
  198. Kind = bkCancel
  199. ModalResult = 2
  200. TabOrder = 1
  201. end
  202. end
  203. end
  204. end