123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114 |
- object RFaceEditor: TRFaceEditor
- Left = 0
- Top = 0
- Width = 355
- Height = 247
- TabOrder = 0
- object Label1: TLabel
- Left = 3
- Top = 214
- Width = 60
- Height = 20
- Caption = 'Shininess'
- end
- object PageControl: TPageControl
- Left = 0
- Top = 56
- Width = 305
- Height = 130
- ActivePage = TSEmission
- Images = ImageList
- MultiLine = True
- TabOrder = 0
- object TSAmbient: TTabSheet
- BorderWidth = 3
- Caption = 'Ambient'
- inline CEAmbiant: TRColorEditor
- Left = 0
- Top = 0
- Width = 289
- Height = 95
- AutoSize = True
- TabOrder = 0
- TabStop = True
- end
- end
- object TSDiffuse: TTabSheet
- BorderWidth = 3
- Caption = 'Diffuse'
- ImageIndex = 1
- inline CEDiffuse: TRColorEditor
- Left = 0
- Top = 0
- Width = 289
- Height = 95
- AutoSize = True
- TabOrder = 0
- TabStop = True
- end
- end
- object TSEmission: TTabSheet
- BorderWidth = 3
- Caption = 'Emission'
- ImageIndex = 2
- inline CEEmission: TRColorEditor
- Left = 0
- Top = 0
- Width = 341
- Height = 98
- AutoSize = True
- TabOrder = 0
- TabStop = True
- ExplicitWidth = 341
- ExplicitHeight = 98
- inherited ColorEditorPaintBox: TPaintBox
- Width = 341
- Height = 98
- ExplicitWidth = 341
- ExplicitHeight = 98
- end
- end
- end
- object TSSpecular: TTabSheet
- BorderWidth = 3
- Caption = 'Specular'
- ImageIndex = 3
- inline CESpecular: TRColorEditor
- Left = 0
- Top = 0
- Width = 289
- Height = 95
- AutoSize = True
- TabOrder = 0
- TabStop = True
- end
- end
- end
- inline TBEShininess: TRTrackBarEdit
- Left = 50
- Top = 0
- Width = 201
- Height = 33
- TabOrder = 1
- ExplicitLeft = 50
- ExplicitWidth = 201
- ExplicitHeight = 33
- inherited TrackBar: TTrackBar
- Left = -2
- Top = 1
- Max = 128
- Frequency = 16
- OnChange = TBEShininessTrackBarChange
- ExplicitLeft = -2
- ExplicitTop = 1
- end
- inherited Edit: TEdit
- Left = 160
- ExplicitLeft = 160
- end
- end
- object ImageList: TImageList
- Left = 264
- Top = 8
- end
- end
|