创建FireMonkey 3D 应用
1. 选择 File > New >Multi-DeviceApplication - Delphi. 在 Multi-Device Application 向导, 选3D Application ,然后点击 OK按钮。
2. Form Designer 出现了, 显示一个 FMX.Forms.TForm3D。
添加与调整控件
1. 在 Tool Palette, 添加以下 FireMonkey 3D 控件 (通过在Search 框输入控件名称后回车): § 一个 TLight § 两个 TCube
2. 在 Form Designer, 根据需要调整FireMonkey 3D 控件的位置与大小:
§ 要移动控件,拖放即可。
§ 要旋转一个3D控件,使用当点击该控件时出现的3个蓝色handles 。 每个handle在其相关联的控件平面旋转控件。(即 x, y, or z 顶点). 当点击某个handle时, 它变为红色表示被选中。注: 也可以使用Object Inspector中的RotationAngle 属性(x, y, 和 z)。
§ 要改变控件大小,使用resizer control, 就是位于控件角上的一个蓝色小立方体。resizer 一次只能处理一个维; resizer 立方体红色的一面就是选中(激活)的维。注:也可以使用Object Inspector 中的属性(对于 TCube, 大小相关的属性是Depth, Width, 和 Height)。
3. 要改变两个立方体的材质:
1. 添加一个 TTextureMaterialSource 到窗体。
§ 在 Object Inspector, 使用 TTextureMaterialSource, 点击省略号 […] >Edit 修改Texture 属性。 这时 Bitmap Editor 向导打开。 点击Load 按钮来装载需要的纹理。纹理装载完成之后,点击 OK 按钮。
§ 在 Object Inspector, 选中第一个立方体, 通过点击省略号[…],从列表选择 要添加的TTextureMaterialSource 来修改 MaterialSource 属性。 TTextureMaterialSource 只用来给cube添加纹理。
2. 添加一个 TLightMaterialSource 到窗体。
§ 要指定材质的颜色和纹理,使用 TLightMaterialSource 属性。
§ 在 Object Inspector, 使用 TLightMaterialSource:
§ 点击省略号[…]>Edit 来修改Texture 属性。这时 Bitmap Editor 向导打开了。点击Load 按钮装载需要的纹理。完成后点击OK 按钮。
§ Ambient, Diffuse,Emissive, 和Specular 默认设置为如下图。
设计阶段的效果如下图。
到这里,你可以按 F9 编译,构建和运行你的第一个 FireMonkey 3D 应用。
|