本例效果图:代码文件: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DIB;type TForm1 = class(TForm) DXPaintBox1: TDXPaintBox; Button1: TButton; Button2: TButton;// procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { P...

本例效果图:代码文件: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DIB;type TForm1 = class(TForm) DXPaintBox1: TDXPaintBox; Button1: TButton; Button2: TButton;// procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { P...

效果显示:文件代码: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; DXPaintBox1: TDXPaintBox; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public decl...

代码效果演示:文件代码:[pre class=deiphi]unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DIB;type TForm1 = class(TForm) DXPaintBox1: TDXPaintBox; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}proce...

效果演示图片:文件代码: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DXDraws, DIB;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; DXPaintBox1: TDXPaintBox; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TFo...

本例效果图: 代码文件: unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, DIB; type  TForm1 = class(TForm)    DXPaintBox1: TDXPaintBox;    Button1: TButton;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Private declara...

TDXPaintBox 和 TPaintBox 一样拥有重要的属性 Canvas; 现在要关心的是 TDXPaintBox 另一个主要属性: DIB(TDIB 对象);在下面学习 TDIB 时, 应该会大量用到这个 TDXPaintBox. 虽然叫它 TDXPaintBox, 但我觉得它更像 TImage, 只是把 TImage.Picture 换做了 TDXPaintBox.DIB. 在设计时可以给 TDXPaintBox 的 DIB 对象添加图片, 不过本例是运行时添加的; 运行效果图: 代码文件:      unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, For...

DelphiX 的组件面板上, 第二个就是 TDXDIB; TDXDIB.DIB 是 TDXDIB 的唯一属性(其他是 TComponent 固有的); TDXDIB.DIB 属性是一个 TDIB 对象; TDIB 和 TBitmap 一样都直接继承自 TGraphic, 是一个图片容器, 它还有个别名: TDIBitmap; TDIB 和 TDXDraw.Surface 还有 TDXImageList 中的元素(TPictureCollectionItem)功能都差不多, 不过它更强大. 使用 TDIB 需要 uses DIB 单元;但如果添加了 TDXDIB 组件, DIB 单元会自动添加, 并可以在设计时装载图片. 本例测试了 TDIB 的模糊图像的功能, 效果图如下:    ...

这两个函数可不是一般的麻烦, 特别是 Blt(); 暂时搞不彻底, 这是照着万一老师的教材尝试的例子,我选用的图片太小,button2的实现的时候没有效果. 万一老师的显示效果: 程序文件: unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, DXDraws,DirectX; type  TForm1 = class(TForm)    DXDraw1: TDXDraw;    Button1: TButton;    Button2: TButton;    pr...

本例效果图: 代码文件: unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, DXDraws, ComCtrls; type  TForm1 = class(TForm)    TrackBar1: TTrackBar;    DXDraw1: TDXDraw;    procedure FormCreate(Sender: TObject);    procedure TrackBar1Change(Sender: TObject);  private    { Private declarations }  public  &nb...

本例效果图: 代码文件:     unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, DXDraws; type  TForm1 = class(TForm)    DXDraw1: TDXDraw;    Button1: TButton;    Button2: TButton;    Button3: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject)...

TDirectDrawSurface.PokeLine();TDirectDrawSurface.PokeLinePolar();TDirectDrawSurface.PokeBox();TDirectDrawSurface.PokeBlendPixel();TDirectDrawSurface.PokeCircle();TDirectDrawSurface.PokeEllipse();TDirectDrawSurface.PokeFilledEllipse();TDirectDrawSurface.PokeWuLine();TDirectDrawSurface.PokeVLine();TDirectDrawSurface.DoRotate(); 这些绘图命令都需要在 TDirectDrawSurface.Lock 和 TDirectDrawSurface.UnLock 之间进行, 并不是特别好用. 另外还有两个读写属性: Pixel 和 Pixels, 绘制时前者...