cool !!! DELPHI圖形編輯技巧二則

一、介面色彩漸層效果的實現
　　介面色彩漸層效果是通過用漸層的畫刷刷繪依次相鄰的矩形塊實現的。下面列舉執行個體說明:
　　1.建立一個表單,假設其Width為500,設定一個按鈕Button1,按此按鈕將把表單置為由左向右由黃變白的漸層效果。
　　2.Button1按鈕的代碼如下:
　　procedure TForm1.Button1Click(Sender: TObject);
　　var i,j:Integer;
　　Dct:TRect;
　　begin
　　j:=Form1.height;
　　//獲得表單高度
　　for i:=0 to 255 do
　　//此處設定RGB()中一個顏色值
　　begin
　　Canvas.Brush.Color:=RGB(255,255,i);
　　//每次畫矩形的畫刷顏色
　　Dct:=Rect(i＊2,0,(i＋1)＊2,j);
　　//每次刷繪的矩形地區
　　Canvas.FillRect(Dct);
　　//填充顏色
　　end;
　　end;
　　二、圖形整體拉出效果
　　單純的圖形整體拉出效果比較簡單,動態地改變繪圖區域的大小就可以實現,但事先應將圖形的“Stretch”設定為“True”。
　　舉例說明下拉效果:
　　1.在表單上放置一圖片,高度為200,屬性“Height”設為0,“Stretch”設定為True。添加“Timer”構件, “Interval”設為200,“Enable”設為Ture。
　　2.在Timer1Timer中添加代碼:
　　procedure TForm1.Timer1Timer(Sender: TObject);
　　begin
　　Image1.Height:=Image1.Height＋20;
　　//設定增量
　　if image1.Height=200 then Timer1.Enabled:=FALSE;
　　//圖形整體拉出完畢
　　end;
　　以上兩例在Windows95,Delphi3.0環境下運行通過