MainFormUnit.dfm 5.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252
  1. object Form1: TForm1
  2. Left = 140
  3. Top = 116
  4. Caption = 'Gui Skin Editor and Manager'
  5. ClientHeight = 553
  6. ClientWidth = 895
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -11
  11. Font.Name = 'MS Sans Serif'
  12. Font.Style = []
  13. Menu = MainMenu1
  14. Position = poScreenCenter
  15. OnCreate = FormCreate
  16. TextHeight = 13
  17. object GLSceneViewer1: TGLSceneViewer
  18. Left = 247
  19. Top = 0
  20. Width = 648
  21. Height = 553
  22. Camera = GLCamera1
  23. Buffer.BackgroundColor = clBackground
  24. FieldOfView = 159.499740600585900000
  25. PenAsTouch = False
  26. Align = alClient
  27. TabOrder = 0
  28. end
  29. object Panel1: TPanel
  30. Left = 0
  31. Top = 0
  32. Width = 247
  33. Height = 553
  34. Align = alLeft
  35. Caption = 'Panel1'
  36. TabOrder = 1
  37. ExplicitLeft = 648
  38. object Label1: TLabel
  39. Left = 8
  40. Top = 16
  41. Width = 99
  42. Height = 13
  43. Caption = 'Layouts in collection:'
  44. end
  45. object ListBox: TListBox
  46. Left = 8
  47. Top = 64
  48. Width = 233
  49. Height = 281
  50. ItemHeight = 13
  51. PopupMenu = ListPopup
  52. TabOrder = 0
  53. OnClick = ListBoxClick
  54. end
  55. object Button2: TButton
  56. Left = 208
  57. Top = 32
  58. Width = 33
  59. Height = 25
  60. Caption = 'Edit'
  61. TabOrder = 1
  62. OnClick = Button2Click
  63. end
  64. object Button1: TButton
  65. Left = 168
  66. Top = 32
  67. Width = 33
  68. Height = 25
  69. Caption = 'Add'
  70. TabOrder = 2
  71. OnClick = Button1Click
  72. end
  73. object Edit3: TEdit
  74. Left = 8
  75. Top = 32
  76. Width = 153
  77. Height = 21
  78. TabOrder = 3
  79. Text = 'Newly Added'
  80. OnChange = Edit3Change
  81. OnKeyPress = Edit3KeyPress
  82. end
  83. end
  84. object MainMenu1: TMainMenu
  85. Left = 160
  86. Top = 160
  87. object File1: TMenuItem
  88. Caption = '&File'
  89. object Open1: TMenuItem
  90. Caption = 'Open...'
  91. OnClick = Open1Click
  92. end
  93. object Save1: TMenuItem
  94. Caption = 'Save...'
  95. OnClick = Save1Click
  96. end
  97. object Close1: TMenuItem
  98. Caption = 'Close'
  99. OnClick = Close1Click
  100. end
  101. object N1: TMenuItem
  102. Caption = '-'
  103. end
  104. object Import1: TMenuItem
  105. Caption = 'Import...'
  106. OnClick = Import1Click
  107. end
  108. object N2: TMenuItem
  109. Caption = '-'
  110. end
  111. object Exit1: TMenuItem
  112. Caption = 'Exit'
  113. OnClick = Exit1Click
  114. end
  115. end
  116. object Edit1: TMenuItem
  117. Caption = 'Edit'
  118. object EditLayout1: TMenuItem
  119. Caption = 'Edit Layout'
  120. OnClick = EditLayout1Click
  121. end
  122. end
  123. object Image1: TMenuItem
  124. Caption = 'Image'
  125. object Load1: TMenuItem
  126. Caption = 'Load...'
  127. OnClick = Load1Click
  128. end
  129. end
  130. end
  131. object OpenDialog: TOpenDialog
  132. DefaultExt = '*.layout'
  133. Filter = 'Layouts|*.layout'
  134. Title = 'Open Layout'
  135. Left = 32
  136. Top = 208
  137. end
  138. object SaveDialog: TSaveDialog
  139. DefaultExt = '*.layout'
  140. Filter = 'Layouts|*.layout'
  141. Title = 'Save Layout'
  142. Left = 64
  143. Top = 272
  144. end
  145. object GLGuiLayout1: TGLGuiLayout
  146. BitmapFont = WindowsBitmapFont1
  147. Material.MaterialLibrary = GLMaterialLibrary1
  148. Material.LibMaterialName = 'LibMaterial'
  149. GuiComponents = <>
  150. Left = 32
  151. Top = 160
  152. end
  153. object ImportDialog: TOpenDialog
  154. DefaultExt = '*.layout'
  155. Filter = 'Layouts|*.layout'
  156. Options = [ofHideReadOnly, ofAllowMultiSelect, ofFileMustExist, ofEnableSizing]
  157. Left = 176
  158. Top = 208
  159. end
  160. object ListPopup: TPopupMenu
  161. Left = 104
  162. Top = 208
  163. object Add1: TMenuItem
  164. Caption = 'Add'
  165. OnClick = Add1Click
  166. end
  167. object Remove1: TMenuItem
  168. Caption = 'Remove'
  169. OnClick = Remove1Click
  170. end
  171. object N3: TMenuItem
  172. Caption = '-'
  173. end
  174. object Edit2: TMenuItem
  175. Caption = 'Edit'
  176. OnClick = Edit2Click
  177. end
  178. end
  179. object GLScene1: TGLScene
  180. Left = 56
  181. Top = 64
  182. object HUDSprite1: TGLHUDSprite
  183. Material.MaterialLibrary = GLMaterialLibrary1
  184. Material.LibMaterialName = 'LibMaterial'
  185. Position.Coordinates = {0000164300001643000000000000803F}
  186. Width = 200.000000000000000000
  187. Height = 200.000000000000000000
  188. Rotation = 0.000000000000000000
  189. end
  190. object GLPanel1: TGLPanel
  191. Autosize = False
  192. RedrawAtOnce = False
  193. GuiLayout = GLGuiLayout1
  194. Rotation = 0.000000000000000000
  195. NoZWrite = False
  196. DoChangesOnProgress = False
  197. Width = 200.000000000000000000
  198. Height = 200.000000000000000000
  199. Left = 50.000000000000000000
  200. Top = 50.000000000000000000
  201. Position.Coordinates = {0000484200004842000000000000803F}
  202. end
  203. object GLCamera1: TGLCamera
  204. DepthOfView = 100.000000000000000000
  205. FocalLength = 50.000000000000000000
  206. end
  207. end
  208. object WindowsBitmapFont1: TGLWindowsBitmapFont
  209. Font.Charset = DEFAULT_CHARSET
  210. Font.Color = clWhite
  211. Font.Height = -16
  212. Font.Name = 'Verdana'
  213. Font.Style = []
  214. Ranges = <
  215. item
  216. StartASCII = 'A'
  217. StopASCII = 'Z'
  218. StartGlyphIdx = 0
  219. end
  220. item
  221. StartASCII = 'a'
  222. StopASCII = 'z'
  223. StartGlyphIdx = 26
  224. end
  225. item
  226. StartASCII = '0'
  227. StopASCII = '9'
  228. StartGlyphIdx = 52
  229. end
  230. item
  231. StartASCII = ' '
  232. StopASCII = ' '
  233. StartGlyphIdx = 62
  234. end>
  235. Left = 160
  236. Top = 64
  237. end
  238. object OpenPictureDialog: TOpenPictureDialog
  239. Left = 144
  240. Top = 272
  241. end
  242. object GLMaterialLibrary1: TGLMaterialLibrary
  243. Materials = <
  244. item
  245. Name = 'LibMaterial'
  246. Tag = 0
  247. Material.Texture.Disabled = False
  248. end>
  249. Left = 104
  250. Top = 112
  251. end
  252. end