2
0

GR32.Design.BitmapEditor.dfm 5.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261
  1. object PictureEditorForm: TPictureEditorForm
  2. Left = 247
  3. Top = 357
  4. BorderIcons = [biSystemMenu]
  5. BorderStyle = bsSizeToolWin
  6. Caption = 'Bitmap32 Editor'
  7. ClientHeight = 411
  8. ClientWidth = 477
  9. Color = clBtnFace
  10. Constraints.MinHeight = 200
  11. Constraints.MinWidth = 310
  12. ParentFont = True
  13. Position = poScreenCenter
  14. TextHeight = 15
  15. object Bevel1: TBevel
  16. Left = 0
  17. Top = 42
  18. Width = 477
  19. Height = 6
  20. Align = alTop
  21. Shape = bsTopLine
  22. Style = bsRaised
  23. ExplicitTop = 54
  24. ExplicitWidth = 338
  25. end
  26. object ToolBar: TToolBar
  27. Left = 0
  28. Top = 0
  29. Width = 477
  30. Height = 42
  31. AutoSize = True
  32. BorderWidth = 1
  33. ButtonHeight = 38
  34. ButtonWidth = 42
  35. Caption = 'ToolBar'
  36. Images = ImageList
  37. ShowCaptions = True
  38. TabOrder = 0
  39. object ButtonLoad: TToolButton
  40. Left = 0
  41. Top = 0
  42. Action = ActionLoad
  43. end
  44. object ButtonSave: TToolButton
  45. Left = 42
  46. Top = 0
  47. Action = ActionSave
  48. end
  49. object ButtonClear: TToolButton
  50. Left = 84
  51. Top = 0
  52. Action = ActionClear
  53. end
  54. object ToolButton2: TToolButton
  55. Left = 126
  56. Top = 0
  57. Width = 8
  58. Caption = 'ToolButton2'
  59. ImageIndex = 3
  60. Style = tbsSeparator
  61. end
  62. object ButtonCopy: TToolButton
  63. Left = 134
  64. Top = 0
  65. Action = ActionCopy
  66. end
  67. object ButtonPaste: TToolButton
  68. Left = 176
  69. Top = 0
  70. Action = ActionPaste
  71. end
  72. object ToolButton1: TToolButton
  73. Left = 218
  74. Top = 0
  75. Width = 8
  76. Caption = 'ToolButton1'
  77. ImageIndex = 5
  78. Style = tbsSeparator
  79. end
  80. object ButtonHelp: TToolButton
  81. Left = 226
  82. Top = 0
  83. Action = ActionHelp
  84. end
  85. object ButtonGrid: TToolButton
  86. Left = 268
  87. Top = 0
  88. Action = ActionGrid
  89. end
  90. end
  91. object PageControl: TPageControl
  92. Left = 0
  93. Top = 48
  94. Width = 477
  95. Height = 311
  96. ActivePage = TabSheetRGBA
  97. Align = alClient
  98. HotTrack = True
  99. TabOrder = 1
  100. object TabSheetRGBA: TTabSheet
  101. Caption = 'All channels'
  102. ImageIndex = -1
  103. end
  104. object TabSheetRGB: TTabSheet
  105. Caption = 'RGB'
  106. end
  107. object TabSheetAlpha: TTabSheet
  108. Caption = 'Alpha'
  109. end
  110. end
  111. object Panel1: TPanel
  112. Left = 0
  113. Top = 359
  114. Width = 477
  115. Height = 33
  116. Align = alBottom
  117. BevelOuter = bvNone
  118. TabOrder = 2
  119. DesignSize = (
  120. 477
  121. 33)
  122. object LabelZoom: TLabel
  123. Left = 4
  124. Top = 9
  125. Width = 66
  126. Height = 15
  127. Caption = 'Zoom: 100%'
  128. ShowAccelChar = False
  129. end
  130. object OKButton: TButton
  131. Left = 325
  132. Top = 6
  133. Width = 64
  134. Height = 23
  135. Anchors = [akRight, akBottom]
  136. Caption = 'OK'
  137. Default = True
  138. ModalResult = 1
  139. TabOrder = 0
  140. end
  141. object Cancel: TButton
  142. Left = 400
  143. Top = 6
  144. Width = 65
  145. Height = 23
  146. Anchors = [akRight, akBottom]
  147. Cancel = True
  148. Caption = 'Cancel'
  149. ModalResult = 2
  150. TabOrder = 1
  151. end
  152. end
  153. object StatusBar: TStatusBar
  154. Left = 0
  155. Top = 392
  156. Width = 477
  157. Height = 19
  158. AutoHint = True
  159. Panels = <
  160. item
  161. Width = 105
  162. end
  163. item
  164. Width = 130
  165. end
  166. item
  167. Width = 50
  168. end
  169. item
  170. Width = 50
  171. end>
  172. end
  173. object ImageList: TImageList
  174. DrawingStyle = dsTransparent
  175. Masked = False
  176. Left = 48
  177. Top = 138
  178. end
  179. object PopupMenu: TPopupMenu
  180. Images = ImageList
  181. Left = 46
  182. Top = 184
  183. object MenuItemLoad: TMenuItem
  184. Action = ActionLoad
  185. end
  186. object MenuItemSave: TMenuItem
  187. Action = ActionSave
  188. end
  189. object MenuItemClear: TMenuItem
  190. Action = ActionClear
  191. end
  192. object mnSeparator: TMenuItem
  193. Caption = '-'
  194. end
  195. object MenuItemCopy: TMenuItem
  196. Action = ActionCopy
  197. end
  198. object MenuItemPaste: TMenuItem
  199. Action = ActionPaste
  200. end
  201. object mnSeparator2: TMenuItem
  202. Caption = '-'
  203. end
  204. object MenuItemInvert: TMenuItem
  205. Action = ActionInvert
  206. end
  207. end
  208. object ActionList: TActionList
  209. Images = ImageList
  210. Left = 48
  211. Top = 88
  212. object ActionLoad: TAction
  213. Caption = 'Load...'
  214. ImageIndex = 0
  215. OnExecute = ActionLoadExecute
  216. end
  217. object ActionSave: TAction
  218. Caption = 'Save...'
  219. ImageIndex = 1
  220. OnExecute = ActionSaveExecute
  221. OnUpdate = ActionHasBitmapUpdate
  222. end
  223. object ActionClear: TAction
  224. Caption = 'Clear'
  225. ImageIndex = 2
  226. OnExecute = ActionClearExecute
  227. OnUpdate = ActionHasBitmapUpdate
  228. end
  229. object ActionCopy: TAction
  230. Caption = 'Copy'
  231. ImageIndex = 3
  232. OnExecute = ActionCopyExecute
  233. OnUpdate = ActionHasBitmapUpdate
  234. end
  235. object ActionPaste: TAction
  236. Caption = 'Paste'
  237. ImageIndex = 4
  238. OnExecute = ActionPasteExecute
  239. OnUpdate = ActionPasteUpdate
  240. end
  241. object ActionInvert: TAction
  242. Caption = 'Invert'
  243. ImageIndex = 5
  244. OnExecute = ActionInvertExecute
  245. OnUpdate = ActionHasBitmapUpdate
  246. end
  247. object ActionHelp: TAction
  248. Caption = 'Help'
  249. ImageIndex = 6
  250. OnExecute = ActionHelpExecute
  251. end
  252. object ActionGrid: TAction
  253. AutoCheck = True
  254. Caption = 'Grid'
  255. Hint = 'Display pixel grid'
  256. ImageIndex = 7
  257. OnExecute = ActionGridExecute
  258. OnUpdate = ActionGridUpdate
  259. end
  260. end
  261. end