建立 GDI+ 的地區有五種辦法:1、根據一個矩形建立(矩形地區);2、根據路徑建立;3、根據 GDI 地區的控制代碼建立;4、根據從地區中擷取的資料建立;5、無參數建立.本例示範了前三種建立方法.本例效果圖:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1
本例效果圖:代碼1: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;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, StdCtrls, CheckLst, ExtCtrls, TeCanvas, ComCtrls;type TForm1 = class(TForm) TrackBar1: TTrackBar; TrackBar2:
本例效果圖:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst, ExtCtrls, TeCanvas;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure
本例效果圖:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) ListBox1: TListBox; procedure FormCreate(Sender: TObject); procedure FormPaint(Sender:
本例效果圖:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure
A2D Framework增加了EF支援,加上原先支援ADO.NET:支援EF方式支援ADO.NET方式這次來講如何讓Entity Framework變成nb的讀寫分離1. 先設計EF模型, 可以圖形方式設計,也可以資料庫優先方式設計,總之設計完後,再轉換成 Code方式使用(用)2. 在DbContext類中,刪除EF自動添加的報錯代碼,如下:protected override void OnModelCreating(DbModelBuilder modelBuilder){
本例效果圖:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) CheckBox1: TCheckBox; CheckBox2: TCheckBox; procedure FormCreate(Sender:
這比用 Screen.Fonts; 擷取麻煩一些.本例效果圖:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); end;var Form1:
說到反射嘛,估計各位不陌生,儘管很多人不知道到底是什麼,當然也有人將其看作是“反編譯” ,有點像吧,但不能說是反編譯,雖然有個“反”字,但沒有“編譯”。所以,我給反射下了 這樣一個概述,準確與否,也不清楚:反射可以動態擷取程式集資訊,或程式集中的類型資訊 ,以方便動態調用。動態調用的好處是節約資源,通常情況下,我們添加程式集引用會在項目
本例效果圖:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, CheckLst;type TForm1 = class(TForm) RadioGroup1: TRadioGroup; procedure FormCreate(Sender:
TGPPen - TGPCustomLineCap、SetCustomStartCap、SetCustomEndCapGDI+ 可以自訂線帽, 本例定義的起始線帽是一個小矩形、終止線帽是一個小三角形.本例效果圖:代碼檔案: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, ExtCtrls;type TForm1 = class(TForm) Timer1: TTimer; procedure FormPaint(Sender: TObject); procedure Timer1Timer(Sender:
和在 Net 中不同的是, 在具體指定映像格式時, 這裡常常需要的不是格式名稱, 而是格式的 GUID;知道了格式名稱, 用 GetEncoderClsid 函數可以擷取格式的 GUID;GetEncoderClsid 函數來自 GDIPUTIL 單元, 本例並沒有用到前面一直不可或缺的 GDIPOBJ、GDIPAPI 單元.如果要擷取 image/bmp、image/jpeg、image/gif、image/tiff、image/png 格式以外的 GUID 不能使用此函數.另外, 為了把
本例效果圖:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) TrackBar1: TTrackBar; TrackBar2: TTrackBar; TrackBar3: TTrackBar; Label1:
本例效果圖:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) CheckBox1: TCheckBox; procedure FormCreate(Sender: TObject); procedure FormPaint(Sender:
本例效果圖:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) ListBox1: TListBox; procedure FormCreate(Sender: TObject); procedure FormPaint(Sender:
本例效果圖:代碼檔案: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
本例效果圖:代碼檔案: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 Form1: