万一 - 博客园

2009年1月13日

Delphi 与 DirectX 之 DelphiX(13): TPictureCollectionItem.DrawRotate

摘要：本例效果图(实际效果是相当流畅的, gif 只能说明个动作趋势): 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls, DXClass, ComCtrls; t... 阅读全文

posted @ 2009-01-13 21:38 万一阅读(2232) 评论(7) 推荐(0)

Delphi 与 DirectX 之 DelphiX(12): TPictureCollectionItem.DrawAlpha

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls, DXClass, ComCtrls; type TForm1 = class(TForm)... 阅读全文

posted @ 2009-01-13 18:35 万一阅读(2282) 评论(0) 推荐(0)

Delphi 与 DirectX 之 DelphiX(11): TPictureCollectionItem.DrawAdd、DrawSub

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls, DXClass; type TForm1 = class(TForm) DXDra... 阅读全文

posted @ 2009-01-13 17:27 万一阅读(2486) 评论(7) 推荐(0)

Delphi 与 DirectX 之 DelphiX(10): TPictureCollectionItem.StretchDraw - 绘制到指定矩形

posted @ 2009-01-13 16:25 万一阅读(3092) 评论(0) 推荐(0)

Delphi 与 DirectX 之 DelphiX(9): 透明色与是否透明

摘要： TDXImageList.Items 中的每个 TPictureCollectionItem 的默认透明色是黑色, 并默认透明. 本例使用的测试图片: http://files.cnblogs.com/del/Transparent.rar 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils,... 阅读全文

posted @ 2009-01-13 15:24 万一阅读(3874) 评论(1) 推荐(0)

Delphi 与 DirectX 之 DelphiX(8): 第一个简单动画

摘要：本例效果图(用 gif 动画演示, 无论如何也出不来 DirectX 的流畅效果): 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls, DXClass; ty... 阅读全文

posted @ 2009-01-13 11:54 万一阅读(4309) 评论(4) 推荐(0)

Delphi 与 DirectX 之 DelphiX(7): 给 TDXImageList 加载图片的最后方案

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls; type TForm1 = class(TForm) DXDraw1: TDXDr... 阅读全文

posted @ 2009-01-13 09:38 万一阅读(3232) 评论(1) 推荐(0)

2009年1月12日

Delphi 与 DirectX 之 DelphiX(6): 让 TDXImageList 和常规 VCL 交互使用

摘要：本例测试了两个问题: 1、其他 VCL 加载的图片能否给 TDXImageList 使用; 2、TDXImageList 中的图片能否给其他 VCL 使用. 例子中先用 TPicture 加载了图片, 然后给 TDXImageList; 然后把图片绘制在了窗体上, 而非 TDXDraw 中. 继续了解点 TDXImageList: TDXImageList 控件只有两个属性: DXDraw ... 阅读全文

posted @ 2009-01-12 22:58 万一阅读(2906) 评论(0) 推荐(0)

Delphi 与 DirectX 之 DelphiX(5): 初识 TDXImageList

摘要：新建工程后, 在窗体上分别添加: DXDraw1、DXImageList1; 然后只需要下面四行代码即可在 DXDraw1 中显示 DelphiX.dxg 图像: procedure TForm1.Button1Click(Sender: TObject); begin DXImageList1.Items.LoadFromFile('C:\Temp\DelphiX.dxg'); D... 阅读全文

posted @ 2009-01-12 22:23 万一阅读(3340) 评论(1) 推荐(0)

Delphi 与 DirectX 之 DelphiX(4): 初识 TDXTimer

摘要： DelphiX 提供了高性能的计时器 TDXTimer, 使用方法和 Timer 基本一样. 我们在使用 Timer 时, 很少把 Interval 设为 50 以下(这应该是它精确度的极限); 使用 TDXTimer 可以把 Interval 置为 0, 表示尽可能地快! 本例效果图: 代码文件: unit Unit1; interface uses Windows, Mes... 阅读全文

posted @ 2009-01-12 17:15 万一阅读(3926) 评论(2) 推荐(0)