Delphi与DirectX之DelphiX(26)：TDIB的主要载体

TDXPaintBox和TPaintBox一样拥有重要的属性 Canvas;

现在要关心的是TDXPaintBox另一个主要属性: DIB(TDIB 对象);

在下面学习TDIB时, 应该会大量用到这个TDXPaintBox.

虽然叫它TDXPaintBox, 但我觉得它更像TImage, 只是把TImage.Picture换做了TDXPaintBox.DIB.

在设计时可以给TDXPaintBox 的DIB对象添加图片, 不过本例是运行时添加的;运行效果图:

另外, 这是本例中的图片, 应右键另存到C:\Temp\DX.jpg :

时间： 2024-10-03 17:22:22

Delphi与DirectX之DelphiX(26)：TDIB的主要载体的相关文章

Delphi与DirectX之DelphiX(87): TDIB.DrawTransparent、DrawTranslucent、Dra

Delphi与DirectX之DelphiX(87): TDIB.DrawTransparent.DrawTranslucent.DrawAlpha(); TDIB.DrawTransparent: 按指定的透明色透明; TDIB.DrawTranslucent: 先按指定的透明色透明, 然后再半透明; DIB.DrawAlpha: 先按指定的透明色透明, 再按指定的透明度透明. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages,

Delphi与DirectX之DelphiX(88): TDIB.DrawQuickAlpha();

本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPaintBox; Button1: TButton; Button2: TButton; Button3: TButton; Butt

Delphi与DirectX之DelphiX(95): TDIB.x

//让 TDIB 的这些特效烦透了: 多.还重复.又不完善; 还没有测试或测 试失败的方法: procedure DrawShadow(SrcDIB: TDIB; X, Y, Width, Height, Frame: Integer; FilterMode: TFilterMode); procedure DrawShadows(SrcDIB: TDIB; X, Y, Width, Height, Frame: Integer; Alpha: Byte); procedure DrawAnti

Delphi与DirectX之DelphiX(94): TDIB.DrawAdditive();

本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPaintBox; Button1: TButton; Button2: TButton; Button3: TButton; Butt

Delphi与DirectX之DelphiX(93): TDIB.DrawDarken();

本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPaintBox; Button1: TButton; Button2: TButton; Button3: TButton; Colo

Delphi与DirectX之DelphiX(92): TDIB.Draw3x3Matrix();

本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPaintBox; Button1: TButton; Button2: TButton; Button3: TButton; Butt

Delphi与DirectX之DelphiX(91): TDIB.DrawMono();

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

Delphi与DirectX之DelphiX(90): TDIB.DrawMorphed();

本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPaintBox; Button1: TButton; Button2: TButton; Button3: TButton; proc

Delphi与DirectX之DelphiX(89): TDIB.DrawAlphaMask();

本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls, ExtCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPaintBox; Button1: TButton; Button2: TButton; ColorBox1: T