Unit1.dfm 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'Gizmo'
  5. ClientHeight = 588
  6. ClientWidth = 584
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -11
  11. Font.Name = 'Tahoma'
  12. Font.Style = []
  13. OldCreateOrder = False
  14. WindowState = wsMaximized
  15. OnCreate = FormCreate
  16. OnDestroy = FormDestroy
  17. OnShow = FormShow
  18. PixelsPerInch = 96
  19. TextHeight = 13
  20. object Viewer: TGLSceneViewer
  21. Left = 201
  22. Top = 0
  23. Width = 383
  24. Height = 588
  25. Camera = Camera
  26. Buffer.BackgroundColor = clMedGray
  27. FieldOfView = 150.733886718750000000
  28. Align = alClient
  29. OnMouseDown = ViewerMouseDown
  30. OnMouseMove = ViewerMouseMove
  31. OnMouseUp = ViewerMouseUp
  32. TabOrder = 0
  33. end
  34. object Panel1: TPanel
  35. Left = 0
  36. Top = 0
  37. Width = 201
  38. Height = 588
  39. Align = alLeft
  40. TabOrder = 1
  41. ExplicitLeft = 8
  42. ExplicitTop = -8
  43. object Bevel1: TBevel
  44. Left = 1
  45. Top = 1
  46. Width = 199
  47. Height = 8
  48. Align = alTop
  49. Shape = bsTopLine
  50. end
  51. object Label1: TLabel
  52. Left = 8
  53. Top = 504
  54. Width = 100
  55. Height = 13
  56. Caption = 'Bounding Box Color :'
  57. end
  58. object Label2: TLabel
  59. Left = 8
  60. Top = 544
  61. Width = 81
  62. Height = 13
  63. Caption = 'Label Infos Color'
  64. end
  65. object Label3: TLabel
  66. Left = 8
  67. Top = 584
  68. Width = 69
  69. Height = 13
  70. Caption = 'Selected Color'
  71. end
  72. object Label4: TLabel
  73. Left = 24
  74. Top = 470
  75. Width = 84
  76. Height = 13
  77. Caption = 'Auto Zoom factor'
  78. end
  79. object Label5: TLabel
  80. Left = 48
  81. Top = 487
  82. Width = 60
  83. Height = 13
  84. Caption = 'Zoom Factor'
  85. end
  86. object Label6: TLabel
  87. Left = 23
  88. Top = 254
  89. Width = 59
  90. Height = 13
  91. Caption = 'Move Coef :'
  92. end
  93. object Label10: TLabel
  94. Left = 17
  95. Top = 299
  96. Width = 58
  97. Height = 13
  98. Caption = 'Scale Coef :'
  99. end
  100. object Label11: TLabel
  101. Left = 5
  102. Top = 229
  103. Width = 77
  104. Height = 13
  105. Caption = 'Gizmo Thickness'
  106. end
  107. object Label7: TLabel
  108. Left = 16
  109. Top = 276
  110. Width = 66
  111. Height = 13
  112. Caption = 'Rotate Coef :'
  113. end
  114. object CheckBox1: TCheckBox
  115. Tag = 1
  116. Left = 8
  117. Top = 88
  118. Width = 145
  119. Height = 17
  120. Caption = 'Exclude Objects in list'
  121. TabOrder = 0
  122. end
  123. object CheckBox2: TCheckBox
  124. Tag = 2
  125. Left = 8
  126. Top = 160
  127. Width = 97
  128. Height = 17
  129. Caption = 'Force Axis'
  130. TabOrder = 1
  131. end
  132. object CBXAxis: TComboBox
  133. Left = 108
  134. Top = 156
  135. Width = 89
  136. Height = 21
  137. Enabled = False
  138. ItemIndex = 0
  139. TabOrder = 2
  140. Text = 'None'
  141. OnChange = CBXAxisChange
  142. Items.Strings = (
  143. 'None'
  144. 'X'
  145. 'XY'
  146. 'XZ'
  147. 'Y'
  148. 'YZ'
  149. 'Z')
  150. end
  151. object CheckBox3: TCheckBox
  152. Tag = 3
  153. Left = 8
  154. Top = 179
  155. Width = 97
  156. Height = 17
  157. Caption = 'Force Operation'
  158. TabOrder = 3
  159. end
  160. object CBXOperation: TComboBox
  161. Left = 108
  162. Top = 178
  163. Width = 89
  164. Height = 21
  165. Enabled = False
  166. ItemIndex = 0
  167. TabOrder = 4
  168. Text = 'None'
  169. OnChange = CBXOperationChange
  170. Items.Strings = (
  171. 'None'
  172. 'Move'
  173. 'Rotate'
  174. 'Scale')
  175. end
  176. object CheckBox4: TCheckBox
  177. Tag = 4
  178. Left = 8
  179. Top = 200
  180. Width = 137
  181. Height = 17
  182. Caption = 'Force Uniform Scale'
  183. TabOrder = 5
  184. end
  185. object CheckBox5: TCheckBox
  186. Tag = 5
  187. Left = 8
  188. Top = 322
  189. Width = 97
  190. Height = 17
  191. Caption = 'Show Axis Label'
  192. Checked = True
  193. State = cbChecked
  194. TabOrder = 6
  195. end
  196. object CheckBox6: TCheckBox
  197. Tag = 6
  198. Left = 8
  199. Top = 362
  200. Width = 113
  201. Height = 17
  202. Caption = 'Show Infos Label'
  203. Checked = True
  204. State = cbChecked
  205. TabOrder = 7
  206. end
  207. object CheckBox7: TCheckBox
  208. Tag = 9
  209. Left = 32
  210. Top = 380
  211. Width = 97
  212. Height = 17
  213. Caption = 'Object Name'
  214. Checked = True
  215. State = cbChecked
  216. TabOrder = 8
  217. end
  218. object CheckBox8: TCheckBox
  219. Tag = 10
  220. Left = 32
  221. Top = 396
  222. Width = 97
  223. Height = 17
  224. Caption = 'Operation'
  225. Checked = True
  226. State = cbChecked
  227. TabOrder = 9
  228. end
  229. object CheckBox9: TCheckBox
  230. Tag = 11
  231. Left = 32
  232. Top = 412
  233. Width = 97
  234. Height = 17
  235. Caption = 'Coordonates'
  236. Checked = True
  237. State = cbChecked
  238. TabOrder = 10
  239. end
  240. object CheckBox10: TCheckBox
  241. Tag = 8
  242. Left = 8
  243. Top = 450
  244. Width = 97
  245. Height = 17
  246. Caption = 'Auto Zoom'
  247. Checked = True
  248. State = cbChecked
  249. TabOrder = 11
  250. end
  251. object CheckBox11: TCheckBox
  252. Tag = 7
  253. Left = 8
  254. Top = 433
  255. Width = 97
  256. Height = 17
  257. Caption = 'No Z-Write'
  258. Checked = True
  259. State = cbChecked
  260. TabOrder = 12
  261. end
  262. object ColorBox1: TColorBox
  263. Left = 5
  264. Top = 520
  265. Width = 188
  266. Height = 22
  267. DefaultColorColor = clWhite
  268. Selected = clWhite
  269. TabOrder = 13
  270. OnChange = ColorBox1Change
  271. end
  272. object ColorBox2: TColorBox
  273. Tag = 1
  274. Left = 5
  275. Top = 558
  276. Width = 188
  277. Height = 22
  278. Selected = clYellow
  279. TabOrder = 14
  280. end
  281. object ColorBox3: TColorBox
  282. Tag = 2
  283. Left = 5
  284. Top = 598
  285. Width = 188
  286. Height = 22
  287. Selected = clYellow
  288. TabOrder = 15
  289. end
  290. object edAutoZoomFactor: TEdit
  291. Left = 115
  292. Top = 464
  293. Width = 73
  294. Height = 21
  295. TabOrder = 16
  296. Text = '5'
  297. OnChange = edAutoZoomFactorChange
  298. OnKeyPress = edAutoZoomFactorKeyPress
  299. end
  300. object edZoomFactor: TEdit
  301. Left = 115
  302. Top = 484
  303. Width = 73
  304. Height = 21
  305. Enabled = False
  306. TabOrder = 17
  307. Text = '0.35'
  308. OnChange = edZoomFactorChange
  309. end
  310. object CheckBox12: TCheckBox
  311. Left = 8
  312. Top = 73
  313. Width = 65
  314. Height = 17
  315. Caption = 'Enabled'
  316. Checked = True
  317. State = cbChecked
  318. TabOrder = 18
  319. OnClick = CheckBox12Click
  320. end
  321. object edMoveCoef: TEdit
  322. Left = 88
  323. Top = 248
  324. Width = 73
  325. Height = 21
  326. TabOrder = 19
  327. Text = '0,1'
  328. OnChange = edMoveCoefChange
  329. end
  330. object edRotateCoef: TEdit
  331. Left = 88
  332. Top = 272
  333. Width = 73
  334. Height = 21
  335. TabOrder = 20
  336. Text = '1'
  337. OnChange = edRotateCoefChange
  338. end
  339. object CheckBox13: TCheckBox
  340. Tag = 12
  341. Left = 8
  342. Top = 105
  343. Width = 97
  344. Height = 17
  345. Caption = 'Show Move Part'
  346. Checked = True
  347. State = cbChecked
  348. TabOrder = 21
  349. end
  350. object CheckBox14: TCheckBox
  351. Tag = 13
  352. Left = 8
  353. Top = 121
  354. Width = 113
  355. Height = 17
  356. Caption = 'Show Rotate Part'
  357. Checked = True
  358. State = cbChecked
  359. TabOrder = 22
  360. end
  361. object CheckBox15: TCheckBox
  362. Tag = 14
  363. Left = 8
  364. Top = 139
  365. Width = 97
  366. Height = 17
  367. Caption = 'Show Scale Part'
  368. Checked = True
  369. State = cbChecked
  370. TabOrder = 23
  371. end
  372. object edGizmoThickness: TEdit
  373. Left = 88
  374. Top = 224
  375. Width = 73
  376. Height = 21
  377. TabOrder = 24
  378. Text = '1'
  379. OnChange = edGizmoThicknessChange
  380. end
  381. object OptPickMode: TRadioGroup
  382. Left = 8
  383. Top = 26
  384. Width = 169
  385. Height = 33
  386. Caption = 'PickMode'
  387. Columns = 2
  388. ItemIndex = 0
  389. Items.Strings = (
  390. 'PickObj'
  391. 'Raycast')
  392. TabOrder = 25
  393. OnClick = OptPickModeClick
  394. end
  395. end
  396. object edScaleCoef: TEdit
  397. Left = 88
  398. Top = 319
  399. Width = 73
  400. Height = 21
  401. TabOrder = 2
  402. Text = '0,1'
  403. OnChange = edScaleCoefChange
  404. end
  405. object GLScene1: TGLScene
  406. Left = 280
  407. Top = 120
  408. object GLDummyCube1: TGLDummyCube
  409. CubeSize = 1.000000000000000000
  410. object GLDodecahedron3: TGLDodecahedron
  411. object GLArrowLine3: TGLArrowLine
  412. Material.FrontProperties.Diffuse.Color = {0000803F8180003F8180803E0000803F}
  413. Position.Coordinates = {00000000000000000000003F0000803F}
  414. BottomRadius = 0.100000001490116100
  415. Height = 1.000000000000000000
  416. TopRadius = 0.100000001490116100
  417. TopArrowHeadHeight = 0.500000000000000000
  418. TopArrowHeadRadius = 0.200000002980232200
  419. BottomArrowHeadHeight = 0.500000000000000000
  420. BottomArrowHeadRadius = 0.200000002980232200
  421. object GLArrowLine4: TGLArrowLine
  422. Material.FrontProperties.Diffuse.Color = {000000000000803F8180803E0000803F}
  423. Direction.Coordinates = {000000000000803F0000000000000000}
  424. Position.Coordinates = {000000000000003F0000003F0000803F}
  425. Up.Coordinates = {0000000000000000000080BF00000000}
  426. BottomRadius = 0.100000001490116100
  427. Height = 1.000000000000000000
  428. TopRadius = 0.100000001490116100
  429. TopArrowHeadHeight = 0.500000000000000000
  430. TopArrowHeadRadius = 0.200000002980232200
  431. BottomArrowHeadHeight = 0.500000000000000000
  432. BottomArrowHeadRadius = 0.200000002980232200
  433. end
  434. end
  435. end
  436. object GLCube1: TGLCube
  437. Position.Coordinates = {0000803F00000000000000000000803F}
  438. object GLSphere1: TGLSphere
  439. Position.Coordinates = {0000803F00000000000000000000803F}
  440. Radius = 0.500000000000000000
  441. end
  442. end
  443. end
  444. object GLLightSource1: TGLLightSource
  445. ConstAttenuation = 1.000000000000000000
  446. Diffuse.Color = {9A99593F9A99593F9A99593F0000803F}
  447. Position.Coordinates = {0000803F00000040000040400000803F}
  448. LightStyle = lsOmni
  449. SpotCutOff = 180.000000000000000000
  450. end
  451. object GLLightSource2: TGLLightSource
  452. ConstAttenuation = 1.000000000000000000
  453. Diffuse.Color = {6666663F6666663F6666663F0000803F}
  454. Position.Coordinates = {000080BF00000040000000400000803F}
  455. LightStyle = lsOmni
  456. SpotCutOff = 180.000000000000000000
  457. end
  458. object RootGizmo: TGLDummyCube
  459. CubeSize = 1.000000000000000000
  460. end
  461. object Camera: TGLCamera
  462. DepthOfView = 100.000000000000000000
  463. FocalLength = 50.000000000000000000
  464. TargetObject = GLDummyCube1
  465. Position.Coordinates = {0000404000004040000040400000803F}
  466. Direction.Coordinates = {3ACD13BF3ACD13BF3ACD13BF00000000}
  467. Up.Coordinates = {EC05D1BEEC05513FEC05D1BE00000000}
  468. end
  469. end
  470. object GLCadencer1: TGLCadencer
  471. Scene = GLScene1
  472. OnProgress = GLCadencer1Progress
  473. Left = 248
  474. Top = 120
  475. end
  476. object WindowsBitmapFont: TGLWindowsBitmapFont
  477. Font.Charset = DEFAULT_CHARSET
  478. Font.Color = clWhite
  479. Font.Height = -11
  480. Font.Name = 'MS Sans Serif'
  481. Font.Style = []
  482. Left = 312
  483. Top = 120
  484. end
  485. end