123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485 |
- object Form1: TForm1
- Left = 0
- Top = 0
- Caption = 'Gizmo'
- ClientHeight = 588
- ClientWidth = 584
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- WindowState = wsMaximized
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Viewer: TGLSceneViewer
- Left = 201
- Top = 0
- Width = 383
- Height = 588
- Camera = Camera
- Buffer.BackgroundColor = clMedGray
- FieldOfView = 150.733886718750000000
- Align = alClient
- OnMouseDown = ViewerMouseDown
- OnMouseMove = ViewerMouseMove
- OnMouseUp = ViewerMouseUp
- TabOrder = 0
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 201
- Height = 588
- Align = alLeft
- TabOrder = 1
- ExplicitLeft = 8
- ExplicitTop = -8
- object Bevel1: TBevel
- Left = 1
- Top = 1
- Width = 199
- Height = 8
- Align = alTop
- Shape = bsTopLine
- end
- object Label1: TLabel
- Left = 8
- Top = 504
- Width = 100
- Height = 13
- Caption = 'Bounding Box Color :'
- end
- object Label2: TLabel
- Left = 8
- Top = 544
- Width = 81
- Height = 13
- Caption = 'Label Infos Color'
- end
- object Label3: TLabel
- Left = 8
- Top = 584
- Width = 69
- Height = 13
- Caption = 'Selected Color'
- end
- object Label4: TLabel
- Left = 24
- Top = 470
- Width = 84
- Height = 13
- Caption = 'Auto Zoom factor'
- end
- object Label5: TLabel
- Left = 48
- Top = 487
- Width = 60
- Height = 13
- Caption = 'Zoom Factor'
- end
- object Label6: TLabel
- Left = 23
- Top = 254
- Width = 59
- Height = 13
- Caption = 'Move Coef :'
- end
- object Label10: TLabel
- Left = 17
- Top = 299
- Width = 58
- Height = 13
- Caption = 'Scale Coef :'
- end
- object Label11: TLabel
- Left = 5
- Top = 229
- Width = 77
- Height = 13
- Caption = 'Gizmo Thickness'
- end
- object Label7: TLabel
- Left = 16
- Top = 276
- Width = 66
- Height = 13
- Caption = 'Rotate Coef :'
- end
- object CheckBox1: TCheckBox
- Tag = 1
- Left = 8
- Top = 88
- Width = 145
- Height = 17
- Caption = 'Exclude Objects in list'
- TabOrder = 0
- end
- object CheckBox2: TCheckBox
- Tag = 2
- Left = 8
- Top = 160
- Width = 97
- Height = 17
- Caption = 'Force Axis'
- TabOrder = 1
- end
- object CBXAxis: TComboBox
- Left = 108
- Top = 156
- Width = 89
- Height = 21
- Enabled = False
- ItemIndex = 0
- TabOrder = 2
- Text = 'None'
- OnChange = CBXAxisChange
- Items.Strings = (
- 'None'
- 'X'
- 'XY'
- 'XZ'
- 'Y'
- 'YZ'
- 'Z')
- end
- object CheckBox3: TCheckBox
- Tag = 3
- Left = 8
- Top = 179
- Width = 97
- Height = 17
- Caption = 'Force Operation'
- TabOrder = 3
- end
- object CBXOperation: TComboBox
- Left = 108
- Top = 178
- Width = 89
- Height = 21
- Enabled = False
- ItemIndex = 0
- TabOrder = 4
- Text = 'None'
- OnChange = CBXOperationChange
- Items.Strings = (
- 'None'
- 'Move'
- 'Rotate'
- 'Scale')
- end
- object CheckBox4: TCheckBox
- Tag = 4
- Left = 8
- Top = 200
- Width = 137
- Height = 17
- Caption = 'Force Uniform Scale'
- TabOrder = 5
- end
- object CheckBox5: TCheckBox
- Tag = 5
- Left = 8
- Top = 322
- Width = 97
- Height = 17
- Caption = 'Show Axis Label'
- Checked = True
- State = cbChecked
- TabOrder = 6
- end
- object CheckBox6: TCheckBox
- Tag = 6
- Left = 8
- Top = 362
- Width = 113
- Height = 17
- Caption = 'Show Infos Label'
- Checked = True
- State = cbChecked
- TabOrder = 7
- end
- object CheckBox7: TCheckBox
- Tag = 9
- Left = 32
- Top = 380
- Width = 97
- Height = 17
- Caption = 'Object Name'
- Checked = True
- State = cbChecked
- TabOrder = 8
- end
- object CheckBox8: TCheckBox
- Tag = 10
- Left = 32
- Top = 396
- Width = 97
- Height = 17
- Caption = 'Operation'
- Checked = True
- State = cbChecked
- TabOrder = 9
- end
- object CheckBox9: TCheckBox
- Tag = 11
- Left = 32
- Top = 412
- Width = 97
- Height = 17
- Caption = 'Coordonates'
- Checked = True
- State = cbChecked
- TabOrder = 10
- end
- object CheckBox10: TCheckBox
- Tag = 8
- Left = 8
- Top = 450
- Width = 97
- Height = 17
- Caption = 'Auto Zoom'
- Checked = True
- State = cbChecked
- TabOrder = 11
- end
- object CheckBox11: TCheckBox
- Tag = 7
- Left = 8
- Top = 433
- Width = 97
- Height = 17
- Caption = 'No Z-Write'
- Checked = True
- State = cbChecked
- TabOrder = 12
- end
- object ColorBox1: TColorBox
- Left = 5
- Top = 520
- Width = 188
- Height = 22
- DefaultColorColor = clWhite
- Selected = clWhite
- TabOrder = 13
- OnChange = ColorBox1Change
- end
- object ColorBox2: TColorBox
- Tag = 1
- Left = 5
- Top = 558
- Width = 188
- Height = 22
- Selected = clYellow
- TabOrder = 14
- end
- object ColorBox3: TColorBox
- Tag = 2
- Left = 5
- Top = 598
- Width = 188
- Height = 22
- Selected = clYellow
- TabOrder = 15
- end
- object edAutoZoomFactor: TEdit
- Left = 115
- Top = 464
- Width = 73
- Height = 21
- TabOrder = 16
- Text = '5'
- OnChange = edAutoZoomFactorChange
- OnKeyPress = edAutoZoomFactorKeyPress
- end
- object edZoomFactor: TEdit
- Left = 115
- Top = 484
- Width = 73
- Height = 21
- Enabled = False
- TabOrder = 17
- Text = '0.35'
- OnChange = edZoomFactorChange
- end
- object CheckBox12: TCheckBox
- Left = 8
- Top = 73
- Width = 65
- Height = 17
- Caption = 'Enabled'
- Checked = True
- State = cbChecked
- TabOrder = 18
- OnClick = CheckBox12Click
- end
- object edMoveCoef: TEdit
- Left = 88
- Top = 248
- Width = 73
- Height = 21
- TabOrder = 19
- Text = '0,1'
- OnChange = edMoveCoefChange
- end
- object edRotateCoef: TEdit
- Left = 88
- Top = 272
- Width = 73
- Height = 21
- TabOrder = 20
- Text = '1'
- OnChange = edRotateCoefChange
- end
- object CheckBox13: TCheckBox
- Tag = 12
- Left = 8
- Top = 105
- Width = 97
- Height = 17
- Caption = 'Show Move Part'
- Checked = True
- State = cbChecked
- TabOrder = 21
- end
- object CheckBox14: TCheckBox
- Tag = 13
- Left = 8
- Top = 121
- Width = 113
- Height = 17
- Caption = 'Show Rotate Part'
- Checked = True
- State = cbChecked
- TabOrder = 22
- end
- object CheckBox15: TCheckBox
- Tag = 14
- Left = 8
- Top = 139
- Width = 97
- Height = 17
- Caption = 'Show Scale Part'
- Checked = True
- State = cbChecked
- TabOrder = 23
- end
- object edGizmoThickness: TEdit
- Left = 88
- Top = 224
- Width = 73
- Height = 21
- TabOrder = 24
- Text = '1'
- OnChange = edGizmoThicknessChange
- end
- object OptPickMode: TRadioGroup
- Left = 8
- Top = 26
- Width = 169
- Height = 33
- Caption = 'PickMode'
- Columns = 2
- ItemIndex = 0
- Items.Strings = (
- 'PickObj'
- 'Raycast')
- TabOrder = 25
- OnClick = OptPickModeClick
- end
- end
- object edScaleCoef: TEdit
- Left = 88
- Top = 319
- Width = 73
- Height = 21
- TabOrder = 2
- Text = '0,1'
- OnChange = edScaleCoefChange
- end
- object GLScene1: TGLScene
- Left = 280
- Top = 120
- object GLDummyCube1: TGLDummyCube
- CubeSize = 1.000000000000000000
- object GLDodecahedron3: TGLDodecahedron
- object GLArrowLine3: TGLArrowLine
- Material.FrontProperties.Diffuse.Color = {0000803F8180003F8180803E0000803F}
- Position.Coordinates = {00000000000000000000003F0000803F}
- BottomRadius = 0.100000001490116100
- Height = 1.000000000000000000
- TopRadius = 0.100000001490116100
- TopArrowHeadHeight = 0.500000000000000000
- TopArrowHeadRadius = 0.200000002980232200
- BottomArrowHeadHeight = 0.500000000000000000
- BottomArrowHeadRadius = 0.200000002980232200
- object GLArrowLine4: TGLArrowLine
- Material.FrontProperties.Diffuse.Color = {000000000000803F8180803E0000803F}
- Direction.Coordinates = {000000000000803F0000000000000000}
- Position.Coordinates = {000000000000003F0000003F0000803F}
- Up.Coordinates = {0000000000000000000080BF00000000}
- BottomRadius = 0.100000001490116100
- Height = 1.000000000000000000
- TopRadius = 0.100000001490116100
- TopArrowHeadHeight = 0.500000000000000000
- TopArrowHeadRadius = 0.200000002980232200
- BottomArrowHeadHeight = 0.500000000000000000
- BottomArrowHeadRadius = 0.200000002980232200
- end
- end
- end
- object GLCube1: TGLCube
- Position.Coordinates = {0000803F00000000000000000000803F}
- object GLSphere1: TGLSphere
- Position.Coordinates = {0000803F00000000000000000000803F}
- Radius = 0.500000000000000000
- end
- end
- end
- object GLLightSource1: TGLLightSource
- ConstAttenuation = 1.000000000000000000
- Diffuse.Color = {9A99593F9A99593F9A99593F0000803F}
- Position.Coordinates = {0000803F00000040000040400000803F}
- LightStyle = lsOmni
- SpotCutOff = 180.000000000000000000
- end
- object GLLightSource2: TGLLightSource
- ConstAttenuation = 1.000000000000000000
- Diffuse.Color = {6666663F6666663F6666663F0000803F}
- Position.Coordinates = {000080BF00000040000000400000803F}
- LightStyle = lsOmni
- SpotCutOff = 180.000000000000000000
- end
- object RootGizmo: TGLDummyCube
- CubeSize = 1.000000000000000000
- end
- object Camera: TGLCamera
- DepthOfView = 100.000000000000000000
- FocalLength = 50.000000000000000000
- TargetObject = GLDummyCube1
- Position.Coordinates = {0000404000004040000040400000803F}
- Direction.Coordinates = {3ACD13BF3ACD13BF3ACD13BF00000000}
- Up.Coordinates = {EC05D1BEEC05513FEC05D1BE00000000}
- end
- end
- object GLCadencer1: TGLCadencer
- Scene = GLScene1
- OnProgress = GLCadencer1Progress
- Left = 248
- Top = 120
- end
- object WindowsBitmapFont: TGLWindowsBitmapFont
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Left = 312
- Top = 120
- end
- end
|