其他

畫筆類 TDirect2DPen 的 Brush 屬性是 TDirect2DBrush，現在的單色畫筆其實是調用的實心畫刷。因為畫刷的強大，所以讓畫筆豐富起來不是難事。TDirect2DPen 的 StrokeStyle 屬性是 ID2D1StrokeStyle 類型，它決定著線帽、拐角樣式等；但遺憾的是該屬性是唯讀，基本無用。但 TDirect2DPen 的 Style 屬性還是巧妙實現了 psSolid, psDash, psDot, psDashDot,

表單上需要 TImage、TOpenDialog 和六個按鈕.unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Objects;type TForm1 = class(TForm) Image1: TImage;

 前段時間在我在AIX平台做EBS DB CLONE的時候遇到了不少問題。現在我把主要的一些問題羅列一下，對需要注意的地方進行了注釋。希望大家做CLONE的時候順利一點。$ perl adcfgclone.pl dbTier   Enter the APPS password [APPS]:  appsERROR : Unable to set CLASSPATH     /u01/orauat/uatdb/9.2.0/appsutil/clone/bin/../jlib/classes111.

    在使用Frame作為基類實現繼承時，發現視窗出現“Property OldCreateOrder does not exist ”的錯誤，在網上找了一大圈也沒有。後來在Borland網站上找到了一些線索http://qc.borland.com/wc/qcmain.aspx?d=9481 和 http://qc.borland.com/wc/qcmain.aspx?d=5866 ，看一下My

uses Direct2D, D2D1;procedure TForm1.FormPaint(Sender: TObject);var cvs: TDirect2DCanvas; iLayer: ID2D1Layer; rLayerParameters: TD2D1LayerParameters; wic: TWICImage; R: TRect; iLinearGradientBrush: ID2D1LinearGradientBrush; rLinear:

FillGeometry() 可通過兩個畫刷的重疊運算擷取蒙版效果，作為蒙版畫刷的漸層色中應該至少有一個透明色。使用放射漸層畫刷做蒙版：uses Direct2D, D2D1, Wincodec, ActiveX;{從指定檔案建立 ID2D1Bitmap 的函數}function GetD2D1Bitmap(RenderTarget: ID2D1RenderTarget; imgPath: string): ID2D1Bitmap;var iWicFactory:

參考: 和 FMX

一、全設計時操作:先在表單上放置控制項:DataSource1 : TDataSource;ClientDataSet1 : TClientDataSet;Label1 : TLabel;Edit1 : TEdit;Memo1 : TMemo;ImageControl1 : TImageControl;BindNavigator1 : TBindNavigator;{在串連過程中, 會自動添加下面組件}BindingsList1

    原本在開發一個報表外掛程式,因為需要遠程傳輸,因此需要序列化報表,序列化FastReport有兩種方式,   1.僅序列化資料,由用戶端接受到資料,並呈現報表,這種方式需要在用戶端儲存報表格式檔案xxx.Frf,   2.序列化FastReport的結果集(即,得到資料後可以存成的frp檔案),這樣frf檔案不需要在用戶端存在.我傾向於採用這種方式,畢竟用戶端越輕越好.   簡單開啟一個表之後,將fr產生結果存成frp後,發現有64k大,這是不能忍受的,這還僅僅是2xx資料而已,不過這個

Delphi6中的TServerSocket線上程阻塞模式(TThreadBlocking)下，OnRead/OnWrite事件的是在主線程中執行的，雖為多線程，實際效率不高。故我們若需要利用TServerSocket來開發真正多線程的伺服器，則需要寫TServerClientThread的子類，在這個子類中，自行處理資料的接收與發送，而重寫的的重點在ClientExecute方法。下面為代碼描述了這種編程思路。type  TServerForm=class(TForm)  ... 

修改StdRegComps.pas單元1.添加引用單元進來uses    {$IFDEF EHLIB}     DBGridEh, PrnDbgeh, GridsEh, DBCtrlsEh,    {$ENDIF}    {$IFDEF DBANYWHERE}    remotestoredproc, remoteupdatesql, remoteudpconnection, remoteudpdataset,    applicationupdate, remotetcpconnection,

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations }

// \d 匹配所有數字, 相當於 [0-9]var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := '期待Delphi 2008 for Win32！'; reg.RegEx := '\d'; reg.Replacement := '◆'; reg.ReplaceAll; ShowMessage(reg.Subject); //返回: 期待Delphi ◆◆◆◆ for Win◆◆！

如果在結構中再拿出 4 個位元組的地址空間指向上一個節點, 就成了雙向鏈表了.本例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure

問題來源: http://www.cnblogs.com/del/archive/2008/04/26/973346.html#1171927在 Delphi 中儲存系列對象, 大家常用 TList 類; 有了 TObjectList(在 Contnrs 單元)以後, 儲存物件就有了更好的選擇, 因為從 TObjectList 列表中移除的對象同時會得到釋放.很少有人使用 TStringList 儲存對象, 殊不知用 TStringList 儲存對象也有 TList 和 TObjectList

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

問題來源: http://www.cnblogs.com/del/archive/2008/08/02/1022539.html#1275599本例是在這個例子的基礎上修改的: http://www.cnblogs.com/del/archive/2008/01/01/1022539.html本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,

//路徑漸層畫刷var g: TGPGraphics; path: TGPGraphicsPath; pb: TGPPathGradientBrush; {聲明漸層畫刷} num: Integer;const colors: array[0..0] of TGPColor = (aclAqua);begin g := TGPGraphics.Create(Canvas.Handle); path := TGPGraphicsPath.Create;

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

DXClass |DXDraws |DIB |DXSounds |DXWave |DXPlay |DXSprite |DXInputDXClass