DelphiXE2 FireMonkey3D体验

一、创建一个新的 FireMonkey 3D Application



 

二、从3D Scene 中拖一个 TLight 控件， 一个 TSphere控件到窗体上



 

三、设置 Sphere 的材质中 Diffuse 的颜色



设置后效果如下



 

 

四、设置 Sphere 的长宽高





 

效果如图



 

 

窗体代码为：

object Form1: TForm1
Left = 0
Top = 0
BiDiMode = bdLeftToRight
Caption = 'Form1'
ClientHeight = 601
ClientWidth = 681
Transparency = False
Visible = False
object Sphere1: TSphere
RotationAngle.Point = '(0,-5.6288743019104,0)'
Width = 3.000000000000000000
Height = 3.000000000000000000
Depth = 3.000000000000000000
Opacity = 1.000000000000000000
Material.Diffuse = claGreen
Quanternion = '(0,-0.0491016022861004,0,0.998793303966522)'
end
object Light1: TLight
Position.Point = '(1,1,-5)'
Width = 1.000000000000000000
Height = 1.000000000000000000
Depth = 1.000000000000000000
Opacity = 1.000000000000000000
LightType = ltDirectional
Quanternion = '(0,0,0,1)'
end
end