覆盖OpenGL渲染参数
添加 FMX公司。 平台.pas 添加到您所在单位的用途列表中。 编写渲染设置过程: 程序 渲染设置回调 ( 常数 发件人 , 上下文 : TObject(目标) ; 无功功率,无功功率 颜色位 , 深度位 : 整数 ; 无功功率,无功功率 模具 : 布尔值 ; 无功功率,无功功率 多个样本 : 整数 ) ; 开始 //覆盖OpenGL渲染设置以使用自定义值。 颜色位 以下为:= 16 ; //默认值为24 深度位 以下为:= 0 ; //默认值为24 模具 以下为:= False(错误) ; //默认值为True 多个样本 以下为:= 0 ; //默认值取决于TForm。 质量或TForm3D。 多重采样 结束 ; 编写注册程序: 程序 注册渲染设置 ; 无功功率,无功功率 设置服务 : IFMX渲染设置服务 ; 开始 如果 T平台服务 . 当前 . 支持平台服务 ( IFMX渲染设置服务 , I接口 ( 设置服务 )) 然后 设置服务 . 订阅 ( 渲染设置回调 ) ; //还有SetupService。 取消订阅,这将删除挂钩。 结束 ; 致电 注册渲染设置 在中 初始化 单元的部分。
编写渲染和注册过程: 班 TCpp渲染设置回调 : 公众的 TCpp接口对象 < TRenderingSetupCallback(发送设置回拨) > { 公众的 : 空隙 __快速呼叫 调用 ( 系统 :: TObject(目标) * 常数 发件人 , 系统 :: TObject(目标) * 常数 上下文 , 整数 & 颜色位 , 整数 & 深度位 , 布尔 & 模具 , 整数 & 多个样本 ) { //覆盖OpenGL渲染设置以使用自定义值。 颜色位 = 16 ; //默认值为24 深度位 = 0 ; //默认值为24 模具 = 假 ; //默认为true 多个样本 = 0 ; //默认值取决于TForm。 质量或TForm3D。 多重采样 } }; 空隙 注册渲染设置 () { _di_IFMX投标安装服务 设置服务 ; 如果 ( T平台服务 :: 当前 -> 支持平台服务 ( __乌伊多夫 ( IFMX渲染设置服务 ), & 设置服务 )) { 设置服务 -> 订阅 ( 新的 TCpp渲染设置回调 ()); } } 功能 注册渲染设置() 应在中调用 FMX主 ,在呼叫之前 应用程序->初始化 ,如下所示: 外部 “C” 整数 FMX主 () { 注册渲染设置 (); 尝试 { 应用程序 -> 初始化 (); 应用程序 -> 创建表单 ( __分类的 ( T形式8 ), & 表格8 ); 应用程序 -> 运行 (); 另请参见