其他

今天寫了四個小函數, 拿來與大家共用: Dir2Doc: 把檔案夾下的所有檔案(不包括子檔案夾)儲存成一個複合檔案;Doc2Dir: Dir2Doc 的反操作;ZipDir2Doc: 同 Dir2Doc, 只是同時執行了壓縮;UnZipDoc2Dir: ZipDir2Doc 的反操作.函數及測試代碼(分別在 Delphi 2007 和 Delphi 2009 下測試通過):unit Unit1;interfaceuses Windows, Messages, SysUtils,

//線帽var g: TGPGraphics; p: TGPPen;begin g := TGPGraphics.Create(Canvas.Handle); p:= TGPPen.Create(aclBlue, 8); p.SetStartCap(LineCapArrowAnchor); {起點線帽} p.SetEndCap(LineCapRoundAnchor); {終點線帽} g.DrawLine(p, 20, 20, 300, 175); p.Free;

這裡有所有相關參數的解釋: http://www.cnblogs.com/del/archive/2008/04/15/1154359.html//已最大化的視窗procedure TForm1.CreateParams(var Params: TCreateParams);begin inherited; Params.Style := Params.Style or WS_MAXIMIZE; {WS_MINIMIZE 是最小化}end;//取消系統功能表(如果沒法關閉就用 Alt+F4

//虛線樣式var g: TGPGraphics; p: TGPPen;begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,255,0,0),3); g.DrawLine(p, 11, 11, 333, 11); {實線} p.SetDashStyle(DashStyleDashDot); {設定虛線樣式} g.DrawLine(p, 11, 33, 333, 33);

//實心畫刷var g: TGPGraphics; sb: TGPSolidBrush;begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(aclGreen); {參數是顏色} g.FillEllipse(sb, 11, 11, 222, 111); sb.Free; g.Free;end;//設定畫刷顏色var g: TGPGraphics; sb:

問題來源: http://www.cnblogs.com/del/archive/2008/09/07/1124919.html#1310663本例通過存取結構, 慢慢引入了數群組類型與指標的一些使用方法; 其中六個小例子的測試內容和結果都是一樣的.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type

//筆對齊var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush; rect: TGPRect;begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,255,0,0),5); sb := TGPSolidBrush.Create(MakeColor(255,255,255,0));

問題來源: http://www.cnblogs.com/del/archive/2008/09/03/989467.html#1306651unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject);

//填充與描邊var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush;begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(255,255,255)); p := TGPPen.Create(MakeColor(255,0,0),6); g.FillRectangle(sb, 0, 0, Self.ClientWidth,

代碼檔案: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:

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

//陰影畫刷var g: TGPGraphics; hb: TGPHatchBrush;begin g := TGPGraphics.Create(Canvas.Handle); hb := TGPHatchBrush.Create(HatchStyleHorizontal, aclRed, aclYellow); {參數1是陰影樣式; 參數2是前景色彩; 參數3是背景色, 參數3可選, 預設黑色} g.FillEllipse(hb, 11, 11, 222, 111);

代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; procedure Button1Click(Sender:

//複合畫筆var g: TGPGraphics; p: TGPPen; arr: array[0..9] of Single; {10 個元素可以分成 5 條線, 每條線需要起點和終點}begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,255,0,0),100); {筆寬定為 100 好算帳} arr[0] := 0.00; {第一條線起點} arr[1] := 0.01;

製作步驟:1、添加一個 TImageList: ImageList1, 然後載入些表徵圖;2、添加兩個 TPopupMenu: PopupMenu1、PopupMenu2, 並分別添加些功能表項目;3、添加一個 TToolBar 控制項: ToolBar1, 通過其右鍵菜單 New Button 添加兩個按鈕: ToolButton1、ToolButton2;4、選擇屬性:    ToolBar1.Images := ImageList1;    ToolButton1.Style :=

方法1: 使用 TForm 的 BorderIcons 屬性unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;var Form1: TForm1;implementation{$

//紋理畫刷var g: TGPGraphics; img: TGPImage; tb: TGPTextureBrush;begin g := TGPGraphics.Create(Canvas.Handle); img := TGPImage.Create('c:\temp\small.jpg'); tb := TGPTextureBrush.Create(img); g.FillEllipse(tb, 0, 0, Self.ClientWidth,

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Memo2: TMemo; Button1: TButton; procedure Button1Click(Sender:

//線性漸層畫刷var g: TGPGraphics; lb: TGPLinearGradientBrush; rect: TGPRect;begin g := TGPGraphics.Create(Canvas.Handle); rect := MakeRect(11,11,222,111); lb := TGPLinearGradientBrush.Create(rect, aclBlue, aclGreen, LinearGradientModeHorizontal); g.

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Memo1: TMemo; Memo2: TMemo; Panel1: TPanel; Button1: TButton; Button2