主页 > 编程 > delphi >

delphix 各个组件控件说明

2019-03-11 12:21 阅读:114 来源:智宇SEO自媒体

  Delphi作为一种方便的可视化程序设计语言,一直非常受大家喜爱。但它在图形处理、3D表现等方面 不很让人满意。如果说你要开发一个Windows95下的3D游戏,你会用什么工具呢?DirectX!不少人会不加 思索地答道。然而接触过DirectX的朋友们都知道它内部的结构复杂,一般来说结合VC开发是一个理想 的组合。而要在Delphi中利用DirectX SDK真是难上 加难。但现在一切都好啦,有了本文介绍的DelphiX 组件,你终于可以用你熟悉的Delphi来开发漂亮的图 形程序了。

  DelphiX是由日本人Hiroyuki Hori开发的使DirectX5.0在Delphi中更容易使用的一套控件,从网上 下载时叫DelphiX.zip,837KB。解开后在bin目录下 运行install_for?(根据你的Delphi版本号,支持3.0和 4.0),DelphiX会自动将控件安装到你的Delphi中,帮 助文件也自动融合到Delphi的帮助里,真是好用极了!

  DelphiX 包括的控件有如下这些:

  TDXDraw 最重要的控件,是DirectDraw和Direct3D的基础;

  TDXDIB   一个代表DIB图像的控件;

  TDXImageList 代表一组 Tpicture;

  TDX3D    Direct3D控件,要与TDXDraw共同使用;

  TDXSound DirectSound控件;

  TDXWave 一个代表波形Wave的控件;

  TDXWaveList 一组Wave;

  TDXInput 输入控制控件(操纵键盘和摇杆要靠它);

  TDXPlay 通讯控件;

  TDXSpriteEngine "精灵"引擎;

  TDXTimer 高速时间控件;

  TDXPaintbox TDXForm 专为DelphiX优化过的Form。

  DirectDraw中重要的对象有:

  TDirectDraw对象

  DirectDraw应用程序的核心,它是你创建的第一个对象。创建了DirectDraw对象后,可以在它的基础上创建其它所有相关的对象。在DelphiX中的TDXdraw.ddraw属性即是一个Tdi rectDraw对象。

  TDirectDrawSurface对象

  表征了一块内存区 域,在该区域的数据将作为图像显示在屏幕上或移动 到其它表面上。

  TDirectDrawPalette对象

  表征了一个用于表面 的16色或256色的索引调色板,它包含了一系列描述同表面相关的RGB颜色索引值。

  TDirectDrawClipper对象

  帮助你禁止向表面的 某一位置或超出表面的位置块写数据。

  Tsprite对象

  代表了"精灵",在许多视频游戏都使用了精灵。从最基本的意义上来讲,一个精灵就是 在屏幕上移动的图像。精灵画在一个表面上,覆盖在 已有的背景上,合成后的图像被送到屏幕上显示出来,在DelphiX中通过TspriteEngine实现对Tsprite的控制。

  TDirectDrawSurfaceCanvas对象

  提供方便的 访问机制,你可以像访问一般Canvas对象一样访问 它。TDXDraw.Surface.Canvas即是这样一个对象。

  TdirectDrawDisplay对象

  控制着DirectDraw的显示模式,TdxDraw.display是这样一个对象。

  DelphiX基本上严格按照Microsoft DirectX SDK 开发包来将其功能在Delphi中实现出来。所以,如果你对DirectX SDK比较熟悉的话,你会发现大多数程 序从C移植到Delphi是很容易的事。DelphiX中没有提供帮助的地方,你可以在DirectX SDK中获得答案。

  下面通过一个简单的例子对如何利用DelphiX编 程作一介绍,只涉及Ddraw二维的一小部分。

  Unit Unit1;

  interface

  uses Windows.Messages, SysUtils, Classes, Graphics,      Controls, Forms, Dialogs,

  DXClass, DXDraws, DIB;

  type

  TForm1=class(TDXForm)

  DXDraw1:TDXDraw;

  DXTimer1:TDXTimer;

  DXDIB1:TDXDIB;

  procedure DXDrawlFinalize(Sender:Tobject);

  procedure DXDraw1Initialize(Sender:Tobject);

  procedure DXDraw1RestoreSurfase(Sender:Tobject);

  procedure DXTimer1Timer(

  Sendsr:Tobject;LagCount:Integer);

  procedure FormActivate(Sender:Tobject);

  private

  {Private declarations}

  public

  {Public declarations}

  private

  Fsurface:TDirectDrawSurface;

  end;

  var

  Form1:TForm1;

  x,y:integer;

  implementation

  {$R *.DFM}

  procedure TForm1.DXDrawlInitialize(Sender:Tobject);

  begin

  Fsurface:=TDirectDrawSurface.Create(DXDraw1.Ddraw);

  {创建抽象图像表面}

  end;

  procedure TForm1.DXDraw1Finalize(Sender:Tobject);

  begin

  Fsurface.Free; Fsurface: = nil;

  {释放表面}

  end;

  procedure TForm1.DXDraw1RestoreSurfare(Sender:Tobject);

  begin

  Fsurface.LoadfromGraphic(DXDIB1.DIB);

  {将位图送入抽象表面}

  end;

  procedure TForm1.DXTimer1Timer(

  Sendsr.Tobject;LagCount integer);

  begin

  if not DXDraw1.CanDraw then Exit;

  {在绘制之前检验是否允许}

  DXDraw1.Surfaca.Fill(0);

  x: = x + 1;

  y: = y + 1;

  DXDraw1.Surface.Draw(X, Y,

  Fsurface.ClientRect,Fsur face, True);

  DXDraw1.Flip;

  {将内存中的表面再将映射入实际显存}

  end;

  procedure TForm1.FormActivate(Sender:Tobject);

  begin

  X: =0;

  y: =0;

  end;

  end.

  首先要在程序开头包含DXClass、DXDraws两个 Unit(TDXtimer、TDXForm在DXClass中定义,TDX Draw在DXDraws中定义)。程序用的Form不要从一般的Tform派生,而应从TDXForm中派生。在Form 中放入TDXDraw控件和TDXTimer控件,将其inter val值设为0。对DXDraw1控件改变其属性,使其与 Form大小一致。再放人一个TDXDIB控件,在其属性 中的DIB一项调人一个位图,如Windows下的bubbles.bmp。定义一个DirectDraw表面Fsurface,这是一 个抽象内存表面,以后会将它映射到DXDraw对象的 Surface上。在DXDraw的Events一栏中编写OnIni tialize、OnFinalize、OnRestoreSurface三个过程,之后便 可以根据需要对表面进行操纵。

  另外,要完成上面程序的功能,还有其他不少办 法。例如利用TDXImageList对象,可以用它的方法 Imagelist.items[N].draw来完成同样功能。

本文转自网络 https://blog.csdn.net/gzxyabcd/article/details/6326990