Delphi實現美輪美奂的色彩效果[浮雕、燈光照射]

Delphi實現美輪美奂的色彩效果[浮雕、燈光照射]效果，Delphi編織帶效果，可拖動滑塊設置顏色，有兩個簡單點的效果：1、浮雕效果。2、燈光镂射效果。下面是測試圖：

vIEw source print? 01 unit Unit1; 02 interface 03 uses 04   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 05   Dialogs, StdCtrls, ComCtrls, ExtCtrls, ExtDlgs; 06 type 07   TForm1 = class(TForm) 08     Button1: TButton; 09     RadioButton1: TRadioButton; 10     RadioButton2: TRadioButton; 11     RadioButton3: TRadioButton; 12     TrackBar1: TTrackBar; 13     Label1: TLabel; 14     Image1: TImage; 15     Button2: TButton; 16     SavePictureDialog1: TSavePictureDialog; 17     procedure Button1Click(Sender: TObject); 18     procedure Button2Click(Sender: TObject); 19   private 20     { Private declarations } 21   public 22     { Public declarations } 23   end; 24 var 25   Form1: TForm1; 26 implementation 27 {$R *.dfm} 28 procedure TForm1.Button1Click(Sender: TObject); 29 const step=20;       //正方形的邊長 30 var n,i,j:Integer; 31 begin 32 Form1.Repaint; 33  For n:=0 to 20 do        //漸變的數量 34   For i:=0 To 10 DO       //控制水平填充效果 35    For j:=0 To 10 DO      //控制豎直填充效果 36 begin 37 With Image1 Do 38   Begin 39   If RadioButton1.Checked Then 40    Canvas.Brush.Color:=RGB(255-25*n,255-25*n,255-25*n) //浮雕色，也可以進行其他的設置 41   Else If RadioButton2.Checked Then 42    Canvas.Brush.Color:=RGB(TrackBar1.Position,255-12*n,255-12*n)  //镂射效果的燈光顏色 43   Else If RadioButton3.Checked Then 44    Canvas.Brush.Color:=RGB(Random(255),random(255),Random(255)); //編織帶顏色設置 45  //這一行代碼控制水平效果輸出 46 Canvas.FillRect(Rect(i,n,(i+1)*step,n+1));          // 水平漸變 47  //這兩行代碼控制豎直效果輸出 48 Canvas.FillRect(Rect(i,j*step+n,(i+1)*step,j*step+n+1));          //豎直漸變 49 Canvas.FillRect(Rect((i+1)*step+n,j*step,(i+1)*step+n+1,j*step+step)); 50 end; 51 end; 52 end; 53 procedure TForm1.Button2Click(Sender: TObject); 54 begin 55 If SavePictureDialog1.Execute Then 56  Image1.Picture.SaveToFile(SavePictureDialog1.FileName); //保存特殊效果 57 end; 58 end.