其他

TPictureCollectionItem.DrawRotate();

TDirectDrawSurface.PokeLine();TDirectDrawSurface.PokeLinePolar();TDirectDrawSurface.PokeBox();TDirectDrawSurface.PokeBlendPixel();TDirectDrawSurface.PokeCircle();TDirectDrawSurface.PokeEllipse();TDirectDrawSurface.PokeFilledEllipse();TDirectDrawSurfa

此類函數有:TPictureCollectionItem.DrawWaveX();TPictureCollectionItem.DrawWaveXAdd();TPictureCollectionItem.DrawWaveXAlpha();TPictureCollectionItem.DrawWaveXSub();TPictureCollectionItem.DrawWaveY();TPictureCollectionItem.DrawWaveYAdd();TPictureCollectionIt

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) ListBox1: TListBox; procedure FormCreate(Sender: TObject); procedure

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXClass, DXDraws, ComCtrls;type TForm1 = class(TForm) DXDraw1: TDXDraw; TrackBar1: TTrackBar; procedure

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}uses GDIPOBJ,

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls;type TForm1 = class(TForm) DXDraw1: TDXDraw; Button1: TButton; Button2: TButton; Button3: TButton;

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls;type TForm1 = class(TForm) DXDraw1: TDXDraw; DXImageList1: TDXImageList; Button1: TButton; Button2:

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls, DXClass;type TForm1 = class(TForm) DXDraw1: TDXDraw; DXImageList1: TDXImageList; Button1: TButton;

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls;type TForm1 = class(TForm) DXDraw1: TDXDraw; DXImageList1: TDXImageList; Button1: TButton; Button2:

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls, DXClass;type TForm1 = class(TForm) DXDraw1: TDXDraw; DXImageList1: TDXImageList; Button1: TButton;

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); procedure FormCreate(Sender: TObject); procedure

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); end;var Form1: TForm1;implementation{$R *

前面的繪圖命令都是來自 TDXImageList,準確地說是來自 TDXImageList.Items 所包含的 TPictureCollectionItem 對象.那 TDXDraw 本身有沒有繪圖命令呢?TDXDraw 本身沒有繪圖命令, 但它的有繪圖表面(TDirectDrawSurface), 譬如: Surface、Primary;TDXDraw 的繪圖表面有更多的繪圖命令, 另外 TDXDraw 可以多個繪圖表面.TDirectDrawSurface 的繪圖命令和

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls, DXClass, ComCtrls;type TForm1 = class(TForm) DXDraw1: TDXDraw; DXImageList1: TDXImageList; TrackBar1:

上個例子中 TDirectDrawSurface 是從 TDXImageList 中擷取的圖片,其實 TDirectDrawSurface 自己擷取圖片的方法有很多:TDirectDrawSurface.LoadFromFile();TDirectDrawSurface.LoadFromStream();TDirectDrawSurface.LoadFromGraphic();TDirectDrawSurface.LoadFromGraphicRect();TDirectDrawSurface.

本例(實際效果是相當流暢的, gif 只能說明個動作趨勢):代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls, DXClass, ComCtrls;type TForm1 = class(TForm) DXDraw1: TDXDraw; DXImageList1:

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); procedure FormCreate(Sender: TObject); procedure

已知 GDI+ 可以支援的映像格式: BMP、JPEG、GIF、TIFF、PNG、ICO、WMF、EMFTGPGraphics.DrawImage 函數有太多重載了, 一起列在這吧:function DrawImage(image: TGPImage; const point: TGPPointF): TStatus; overload;function DrawImage(image: TGPImage; x, y: Single): TStatus; overload;function

TDirectDrawSurface.Fill();TDirectDrawSurface.FillRect();TDirectDrawSurface.FillRectAlpha();TDirectDrawSurface.FillRectAdd();TDirectDrawSurface.FillRectSub();其中 Fill 在前面每個例子中都有用到; 另外注意: 這幾個函數中的顏色格式有點亂:Fill 與 FillRect 使用的是非 Delphi 的顏色格式, 它們使用的紅色應該是: