其他

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

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

建立 GDI+ 的地區有五種辦法:1、根據一個矩形建立(矩形地區);2、根據路徑建立;3、根據 GDI 地區的控制代碼建立;4、根據從地區中擷取的資料建立;5、無參數建立.本例示範了前三種建立方法.本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1

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

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) ListView1: TListView; Button1: TButton; CheckBox1: TCheckBox; procedure

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5:

本例(用 gif 動畫示範, 無論如何也出不來 DirectX 的流暢效果):代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls, DXClass;type TForm1 = class(TForm) DXDraw1: TDXDraw; DXImageList1:

Intersect {交集}Union {聯合}Xor_ {減去交集}Exclude {減去}Complement {不相交}//GDI+ 的地區能和矩形、路徑、另一個地區三種對象進行運算.本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,

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

TDXImageList.Items 中的每個 TPictureCollectionItem 的預設透明色是黑色, 並預設透明.本例使用的測試圖片: http://files.cnblogs.com/del/Transparent.rar本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws,

剛幫朋友解決了一個小問題, 這是其中的小片段:本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Panel1: TPanel; procedure FormCreate(Sender: TObject); end;

在 DelphiX 中, 所能看到的一般都是畫在 TDXDraw.TDXDraw 預設兩個繪圖表面: TDXDraw.Surface 和 TDXDraw.Primary;一般先在後台(Surface)繪圖, 然後再用 TDXDraw.Flip 命令切換前後台, 從而看到繪製效果.TDXDraw.Flip 會置換 Surface 和 Primary 兩個對象, 所以我們盡可以只在 Surface 上繪圖;由於 DirectX 的工作機制, 讓這個切換速度異常地快(只是切換一個指標),

矩陣變換(Matrix)功能很強大, 這裡只是旋轉了一下.本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) TrackBar1: TTrackBar; procedure FormPaint(Sender:

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

本來這個例子是要擷取地區的詳細資料的, 但非常遺憾, 這個版本的 GDI+ 的標頭檔少定義了一個 TRegionData 類!不過也不要緊, 通過 TRegionData 主要也是擷取地區中的矩形資料, GetRegionScans 函數可以完成這個任務!本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,

DelphiX 提供了高效能的計時器 TDXTimer, 使用方法和 Timer 基本一樣.我們在使用 Timer 時, 很少把 Interval 設為 50 以下(這應該是它精確度的極限);使用 TDXTimer 可以把 Interval 置為 0, 表示儘可能地快!本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

建立工程後, 在表單上分別添加: DXDraw1、DXImageList1;然後只需要下面四行代碼即可在 DXDraw1 中顯示 DelphiX.dxg 映像:procedure TForm1.Button1Click(Sender: TObject);begin DXImageList1.Items.LoadFromFile('C:\Temp\DelphiX.dxg'); DXImageList1.DXDraw := DXDraw1;

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

本例測試了兩個問題:1、其他 VCL 載入的圖片能否給 TDXImageList 使用;2、TDXImageList 中的圖片能否給其他 VCL 使用.例子中先用 TPicture 載入了圖片, 然後給 TDXImageList;然後把圖片繪製在了表單上, 而非 TDXDraw 中.繼續瞭解點 TDXImageList:TDXImageList 控制項只有兩個屬性: DXDraw 和 Items.DXDraw 是映像的目的地, 很好理解; Items 是一個對象集合:

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