Simple single-color 8x8x8 LED Cube with AVRs
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

frame.jfm 4.6KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252
  1. object frame: TFGUIFormular
  2. Left = 1
  3. Top = 3
  4. Width = 662
  5. Height = 416
  6. BorderIcons = [biSystemMenu, biMinimize]
  7. Caption = 'H:\CT\cube\frame.jfm'
  8. Color = clBtnFace
  9. Font.Charset = DEFAULT_CHARSET
  10. Font.Color = clWindowText
  11. Font.Height = -13
  12. Font.Name = 'MS Sans Serif'
  13. Font.Style = []
  14. FormStyle = fsMDIChild
  15. OldCreateOrder = True
  16. Visible = True
  17. OnActivate = FormActivate
  18. OnClose = FormClose
  19. OnCloseQuery = FormCloseQuery
  20. OnResize = FormResize
  21. PixelsPerInch = 96
  22. TextHeight = 16
  23. object jLabel4: TLabel
  24. Left = 536
  25. Top = 208
  26. Width = 111
  27. Height = 16
  28. Caption = 'Frames remaining:'
  29. end
  30. object cubeCanvas: TPanel
  31. Left = 8
  32. Top = 8
  33. Width = 250
  34. Height = 250
  35. Caption = 'cubeCanvas'
  36. Color = clGray
  37. TabOrder = 0
  38. end
  39. object editA: TButton
  40. Left = 264
  41. Top = 8
  42. Width = 107
  43. Height = 25
  44. Caption = 'Layer A'
  45. TabOrder = 1
  46. end
  47. object editB: TButton
  48. Left = 264
  49. Top = 40
  50. Width = 107
  51. Height = 25
  52. Caption = 'Layer B'
  53. TabOrder = 2
  54. end
  55. object editC: TButton
  56. Left = 264
  57. Top = 72
  58. Width = 107
  59. Height = 25
  60. Caption = 'Layer C'
  61. TabOrder = 3
  62. end
  63. object editD: TButton
  64. Left = 264
  65. Top = 104
  66. Width = 107
  67. Height = 25
  68. Caption = 'Layer D'
  69. TabOrder = 4
  70. end
  71. object editE: TButton
  72. Left = 264
  73. Top = 136
  74. Width = 107
  75. Height = 25
  76. Caption = 'Layer E'
  77. TabOrder = 5
  78. end
  79. object editF: TButton
  80. Left = 264
  81. Top = 168
  82. Width = 107
  83. Height = 25
  84. Caption = 'Layer F'
  85. TabOrder = 6
  86. end
  87. object editG: TButton
  88. Left = 264
  89. Top = 200
  90. Width = 107
  91. Height = 25
  92. Caption = 'Layer G'
  93. TabOrder = 7
  94. end
  95. object editH: TButton
  96. Left = 264
  97. Top = 232
  98. Width = 107
  99. Height = 25
  100. Caption = 'Layer H'
  101. TabOrder = 8
  102. end
  103. object frameList: TListBox
  104. Left = 384
  105. Top = 8
  106. Width = 145
  107. Height = 249
  108. ItemHeight = 16
  109. Items.Strings = (
  110. 'Frame 1'
  111. 'Frame 2')
  112. TabOrder = 9
  113. end
  114. object frameUp: TButton
  115. Left = 544
  116. Top = 8
  117. Width = 107
  118. Height = 33
  119. Caption = 'Move up'
  120. TabOrder = 10
  121. end
  122. object frameDown: TButton
  123. Left = 544
  124. Top = 152
  125. Width = 107
  126. Height = 33
  127. Caption = 'Move down'
  128. TabOrder = 11
  129. end
  130. object frameAdd: TButton
  131. Left = 544
  132. Top = 56
  133. Width = 107
  134. Height = 33
  135. Caption = 'Add'
  136. TabOrder = 12
  137. end
  138. object frameRemove: TButton
  139. Left = 544
  140. Top = 104
  141. Width = 107
  142. Height = 33
  143. Caption = 'Remove'
  144. TabOrder = 13
  145. end
  146. object jList2: TListBox
  147. Left = 8
  148. Top = 264
  149. Width = 209
  150. Height = 121
  151. ItemHeight = 16
  152. Items.Strings = (
  153. 'Animation 1'
  154. 'Animation 2')
  155. TabOrder = 14
  156. end
  157. object animUp: TButton
  158. Left = 224
  159. Top = 264
  160. Width = 99
  161. Height = 25
  162. Caption = 'Move up'
  163. TabOrder = 15
  164. end
  165. object animDown: TButton
  166. Left = 224
  167. Top = 360
  168. Width = 99
  169. Height = 25
  170. Caption = 'Move down'
  171. TabOrder = 16
  172. end
  173. object animAdd: TButton
  174. Left = 224
  175. Top = 296
  176. Width = 99
  177. Height = 25
  178. Caption = 'Add'
  179. TabOrder = 17
  180. end
  181. object animRemove: TButton
  182. Left = 224
  183. Top = 328
  184. Width = 99
  185. Height = 25
  186. Caption = 'Remove'
  187. TabOrder = 18
  188. end
  189. object animPath: TEdit
  190. Left = 344
  191. Top = 264
  192. Width = 305
  193. Height = 24
  194. Color = clBtnFace
  195. Enabled = False
  196. TabOrder = 19
  197. Text = 'Load/Save an animation file...'
  198. end
  199. object load: TButton
  200. Left = 344
  201. Top = 296
  202. Width = 147
  203. Height = 25
  204. Caption = 'Load'
  205. TabOrder = 20
  206. end
  207. object save: TButton
  208. Left = 504
  209. Top = 296
  210. Width = 147
  211. Height = 25
  212. Caption = 'Save'
  213. TabOrder = 21
  214. end
  215. object jComboBox1: TComboBox
  216. Left = 344
  217. Top = 328
  218. Width = 305
  219. Height = 24
  220. ItemHeight = 16
  221. TabOrder = 22
  222. Text = 'jComboBox1'
  223. Items.Strings = (
  224. 'Select serial port...')
  225. end
  226. object upload: TButton
  227. Left = 344
  228. Top = 360
  229. Width = 147
  230. Height = 25
  231. Caption = 'Upload'
  232. TabOrder = 23
  233. end
  234. object download: TButton
  235. Left = 504
  236. Top = 360
  237. Width = 147
  238. Height = 25
  239. Caption = 'Download'
  240. TabOrder = 24
  241. end
  242. object frameRemaining: TEdit
  243. Left = 536
  244. Top = 232
  245. Width = 113
  246. Height = 24
  247. Color = clBtnFace
  248. Enabled = False
  249. TabOrder = 25
  250. Text = '2048'
  251. end
  252. end