突然发现原来的帖子无法浏览了,呵呵。这次在这里给出下载地址。
http://www.cnoop.com/opensoft.asp?soft_id=84&url=1
或在
http://www.cnoop.com/ 首页中查找
GLScene 为DELPHI提供了基本的OPENGL的3D模型及框架. 通过GLScene中的可视化组件,你可以轻松的创建和渲染你的3D场景。不用书写一行代码就可以制作一个复杂的场面,这是我见过的最好的OPENGL插件!
这次共翻译了 灯光,阴影,材质,声音,地形,火焰,粒子,地形,摄像机等部分,希望能够对大家有所帮助.由于本人水平有限,所以保留了原来英文帮助的原文,如果你认为我的翻译不够准确,请直接参照原文.
翻译样式如下 :
声 明
procedure MoveAroundTarget(pitchDelta, turnDelta : Single);描 述 以目标为中心旋转摄像机。 如果没有选择目标,则不产生任何影响。 pitchDelta和turnDelta是旋转参数,可以想像为对应X,Y。提 示 :该函数通常用于鼠标左键。可以产生用鼠标移动物体的效果,以下是代码实例:
//这里是我自己添加的部分,不用修改可以直接拷贝运行
procedure TForm1.GLSceneViewer1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
mdx:=x; mdy:=y;
end;procedure TForm1.GLSceneViewer1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
if Shift<>[] then
begin
Camera_third.MoveAroundTarget(mdy-y, mdx-x);
mdx:=x; mdy:=y;
end;
end;
http://www.cnoop.com/opensoft.asp?soft_id=84&url=1
或在
http://www.cnoop.com/ 首页中查找
GLScene 为DELPHI提供了基本的OPENGL的3D模型及框架. 通过GLScene中的可视化组件,你可以轻松的创建和渲染你的3D场景。不用书写一行代码就可以制作一个复杂的场面,这是我见过的最好的OPENGL插件!
这次共翻译了 灯光,阴影,材质,声音,地形,火焰,粒子,地形,摄像机等部分,希望能够对大家有所帮助.由于本人水平有限,所以保留了原来英文帮助的原文,如果你认为我的翻译不够准确,请直接参照原文.
翻译样式如下 :
声 明
procedure MoveAroundTarget(pitchDelta, turnDelta : Single);描 述 以目标为中心旋转摄像机。 如果没有选择目标,则不产生任何影响。 pitchDelta和turnDelta是旋转参数,可以想像为对应X,Y。提 示 :该函数通常用于鼠标左键。可以产生用鼠标移动物体的效果,以下是代码实例:
//这里是我自己添加的部分,不用修改可以直接拷贝运行
procedure TForm1.GLSceneViewer1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
mdx:=x; mdy:=y;
end;procedure TForm1.GLSceneViewer1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
if Shift<>[] then
begin
Camera_third.MoveAroundTarget(mdy-y, mdx-x);
mdx:=x; mdy:=y;
end;
end;
解决方案 »
- delphi hdc啥意思》?
- 第三十期:CSDN论坛秀-Delphi版-本期作秀:Drate(小虫)
- ====再问:如何动态获取股票数据====
- 菜鸟问题,送分题
- 有这样功能的控件吗?
- 如何在控制字体的大小?
- 如何将Delphi中已有的报表控件和Database控件,Table控件的属性,方法,事件集成为一个新的组件
- 一个关于窗体移动的问题
- 请问Delphi的Form有没有类似VB的一开始显示的位置的属性选择,屏幕居中或所有者居中,还有Delphi的copy paster cut 为什么不是ctrl+c ctrl+v ctrl+x,能改吗?
- 前辈,请帮忙
- ADOQuery的使用
- 如何将数据库中的数据导出成XML
-------------------------
up
-------------------------
up
-------------------------
up