操做一下 万一老师给出的 TDXImageList 加载图片的方案.思路如下 1.将TDXImageLIst跟TPictureCollectionItem关联,然后向TPictureCollectionItem的picture中添加图片. 2.用TDXImageLIst的draw方式来显示图片. 本例效果图: unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, DXDraws, StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    DXDraw1: TDXDraw;    DXImag...

本例测试了两个问题:1、其他 VCL 加载的图片能否给 TDXImageList 使用;2、TDXImageList 中的图片能否给其他 VCL 使用.  一般认识图片vcl控件是可以相互加载的~例子中先用 TPicture 加载了图片, 然后给 TDXImageList;然后把图片绘制在了窗体上, 而非 TDXDraw 中. 继续了解点 TDXImageList:TDXImageList 控件只有两个属性: DXDraw 和 Items.DXDraw 是图像的目的地, 很好理解; Items 是一个对象集合: TPictureCollection;TPictureCollection 集合中包含的是一组 TPictureCollectionItem 对象;TPictureCollection...

新建工程后, 在窗体上分别添加: DXDraw1、DXImageList1;然后只需要下面四行代码即可在 DXDraw1 中显示 DelphiX.dxg 图像: procedure TForm1.Button1Click(Sender: TObject);begin  DXImageList1.Items.LoadFromFile('C:\Temp\DelphiX.dxg');  DXImageList1.DXDraw := DXDraw1;  DXImageList1.Items[0].Draw(DXDraw1.Surface, 10, 10, 0);  DXDraw1.Flip;end;  你如果没有 dxg 格式的图像, 就下载本例用到的图像吧(下载后解压到 C:\Temp\): http://files.cnblogs.com/del/DelphiX_img.rar...

DelphiX 提供了高性能的计时器 TDXTimer, 使用方法和 Timer 基本一样. 我们在使用 Timer 时, 很少把 Interval 设为 50 以下(这应该是它精确度的极限);使用 TDXTimer 可以把 Interval 置为 0, 表示尽可能地快! 本例效果图: 代码部分: unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, DXDraws, DXClass, ComCtrls; type  TForm1 = class(TForm)    tdx: TDXTimer;    DXDraw1: TDXDraw; &n...

   在 DelphiX 中, 所能看到的一般都是画在 TDXDraw. TDXDraw 默认两个绘图表面: TDXDraw.Surface 和 TDXDraw.Primary;一般先在后台(Surface)绘图, 然后再用 TDXDraw.Flip 命令切换前后台, 从而看到绘制效果. TDXDraw.Flip 会置换 Surface 和 Primary 两个对象, 所以我们尽可以只在 Surface 上绘图;由于 DirectX 的工作机制, 让这个切换速度异常地快(只是切换一个指针), 从而可以完成非常流畅的动画、游戏. 从 TDXDraw 的绘图表面也可以获取 Canvas 对象, 因而在 TDXDraw 中也可以使用 GDI/GDI+ 的绘图...

DXClass 单元 TControlSubClassTControlSubClassProcTCustomDXTimerTDirectXTDirectXDriverTDirectXDriversTDXFormTDXPictureClipTDXTimerTDXTimerEventTHashCollectionTHashCollectionItem TDblPoint Min(Val1,Val2: Integer): Integer PointInRect(const Poin: TPoint; const Rect: TRect): BooleanRectInRect(const Rect1,Rect2: TRect): BooleanOverlapRect(const Rect1,Rect2: TRect): BooleanWideRect(ALeft,ATop,AWidth,AHeight: Integer): TRectInitCosinTableCos256(i: Integer): DoubleSin256(i...

今天跟着万一老师的blog 开始学习 direcXt技术,接触delphi这么久~现在才开始学习这个,可能是晚了点,自己的记忆力一直在衰退,所以把学到的都写下来~以后方便才找 测试 Demo 下载: http://files.cnblogs.com/del/DelphiX_1.rar (在 Delphi 2007 和 2009 下均编译通过) 其实按照 这里 的介绍, 比下载来的快, 也不需要下载. DirectX, 微软很久的技术了; 从 Windows Vista 开始, DirectX 已经是微软操作系统的界面基础了. 在 Delphi 下使用 DirectX 比较流行的有下面四种方式:DelphiXDSPackAsphyre (?)Delphi DirectX D...