首  页   最新日志    火人论坛        火人作品    编程园地    网络日志    网友作品     留言本本     关于火人
用户登陆
用户:
密码:
 

站点日历
73 2019 - 4 48
 123456
78910111213
14151617181920
21222324252627
282930




日志搜索

 标题   内容

 
 
单机版泡泡堂(带DELPHI源码) DelphiX制作的Diablo示例
晴天 最新UnDelphiX(速度大幅提高)
   [分类:编程园地][发表日期:2006-5-27] [发表:火人[查看:87372]

按此在新窗口打开图片
坚持让这么老的控件焕发青春,我们应该向人家学习!
目前已能很好的支持硬件加速、并可顺利在D5、D6、D7、D2005和D2006下安装
用法:
1、按如下方式书写画图代码:
程序代码:[ 复制代码到剪贴板 ]
      DXDraw.BeginScene;
      //你的代码
      DXDraw.EndScene;

2、转换硬件/软件加速模式和全屏模式:
程序代码:[ 复制代码到剪贴板 ]
      DXDraw.Finalize; {done DXDraw}
      If HardwareSwitch Then
      {hardware}
      Begin
        if NOT (doDirectX7Mode in DXDraw.Options) then
          DXDraw.Options := DXDraw.Options + [doDirectX7Mode];
        if NOT (doHardware in DXDraw.Options) then
          DXDraw.Options := DXDraw.Options + [doHardware];
        if NOT (do3D in DXDraw.Options) then
          DXDraw.Options := DXDraw.Options + [do3D];
        if doSystemMemory in DXDraw.Options then
          DXDraw.Options := DXDraw.Options - [doSystemMemory];
      End
      Else
      {software}
      Begin
        if doDirectX7Mode in DXDraw.Options then
          DXDraw.Options := DXDraw.Options - [doDirectX7Mode];
        if do3D in DXDraw.Options then
          DXDraw.Options := DXDraw.Options - [do3D];
        if doHardware in DXDraw.Options then
          DXDraw.Options := DXDraw.Options - [doHardware];
        if NOT (doSystemMemory in DXDraw.Options) then
          DXDraw.Options := DXDraw.Options + [doSystemMemory];
      End;
      {to fullscreen}
      if doFullScreen in DXDraw.Options then
      begin
        RestoreWindow;
        DXDraw.Cursor := crDefault;
        BorderStyle := bsSingle;
        DXDraw.Options := DXDraw.Options - [doFullScreen];
        DXDraw.Options := DXDraw.Options + [doFlip];
      end else
      begin
        StoreWindow;
        DXDraw.Cursor := crNone;
        BorderStyle := bsNone;
        DXDraw.Options := DXDraw.Options + [doFullScreen];
        DXDraw.Options := DXDraw.Options - [doFlip];
      end;
      DXDraw.Initialize; {up DXDraw now}

3、 在设计阶段手工将DXDraw.Options 设为 [do3D, doDirectX7Mode, doHardware] 

注意1:如果在你的电脑上全屏模式有问题, 请在 DXDraws.Options中加入[doSelectedDriver] 
注意2:主窗口必须声明为:  TForm1 = class(TDXForm)
注意3:如果安装有问题,请在项目属性中勾选"Assignable typed constant"

远程下载
本地下载



[本日志由 火人 于 2006-05-27 04:47 PM 编辑]

引用这个评论 wujunhua2006 于 2007-04-25 08:59 PM 发表评论: 
装了这个以后,那个开源的传奇编译不了了,到处出错,郁闷

引用这个评论 king1994gw 于 2006-12-30 06:00 PM 发表评论: 
谢谢提示 再问个菜菜的问题 安装文件是source文件夹的哪个文件呀 第一次安装 见笑了

引用这个评论 火人 于 2006-12-30 03:15 PM 发表评论: 
在SOURCE文件夹有安装工程文件

引用这个评论 king1994gw 于 2006-12-30 02:19 PM 发表评论: 
老大 你这里下的delphix包里没有安装程序呀,就几个文件夹,那怎么安装呀 我的是d7 

引用这个评论 火人 于 2006-07-26 00:02 AM 发表评论: 
其实在我的电脑上大部分时候是800多,偶尔能达到1300,另外你要完全打开显卡的硬件加速。

引用这个评论 阿森 于 2006-07-25 11:42 PM 发表评论: 
哇!
那您是何等装备啊,1300!!

引用这个评论 火人 于 2006-07-25 10:24 PM 发表评论: 
跟机器配置有关,有240可以了。

引用这个评论 阿森 于 2006-07-25 05:36 PM 发表评论: 
按提示修改运行这个demo
fps最高在240 
机器配置原因??

 

发表评论
发表: 用户:  密码:   注册?  
验证码    
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
表  情
 

Copyright © 2006 All rights reserved. Design by huosoft

电话:13974847258    QQ群:7155339
Powered by L-Blog V-Blog 2004-2005