这种奇特的视觉效果制作起来相当简单，只需将屏幕分成许多行，每一行显示不同的颜色就可以了。渐变图形可以有许多种形式，有圆形渐变、矩形渐变、对角渐变等多种显示效果。要显示渐变，需使用到RGB 宏，每次使颜色值的各颜色分量稍有变化。
A：实现与应用
选择菜单 File | New Application，创建一个新的项目文件。在窗体 Form1 上放置一个 TColorDialog 控件，然后切换到Unit1.h，在 TForm1 的 private 部分加入两个变量的定义，分别用于设置起始颜色和终止颜色。
private: // User declarations
TColor StartColor,EndColor;
然后双击窗体，创建窗体的 OnCreate 事件处理函数，在其中加入如下代码，用于让用户选择起始颜色和结束颜色。
| //---------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { if(ColorDialog1->Execute()) StartColor=ColorDialog1->Color; if(ColorDialog1->Execute()) EndColor=ColorDialog1->Color; } //----------------------------------------------------------------- |
| //--------------------------------------------------------------------------- void __fastcall TForm1::FormPaint(TObject *Sender) { float pwidth; int redstart,greenstart,bluestart,redend,greenend, blueend; float redinc,greeninc,blueinc; pwidth=float(Width); redstart=GetRValue(StartColor); greenstart=GetGValue(StartColor); bluestart=GetBValue(StartColor); redend=GetRValue(EndColor); greenend=GetGValue(EndColor); blueend=GetBValue(EndColor); redinc=(redend-redstart)/pwidth; greeninc=(greenend-greenstart)/pwidth; blueinc=(blueend-bluestart)/pwidth; for(int i=0;i<Width;i++) { Canvas->Pen->Color=TColor(RGB(redstart+int(redinc*i), greenstart+int(greeninc*i), bluestart+int(blueinc*i))); Canvas->MoveTo(i,0); Canvas->LineTo(i,Height); } } //--------------------------------------------------------------------------- |
B：专家点评
程序中设渐变开始的颜色为 StartColor，结束的颜色为 EndColor。利用GetRValue、GetGValue、GetBValue 函数分别获得开始颜色的红、绿、蓝三原色分量 redstart greenstart bluestart 和结束颜色的三原色红、绿、蓝分量 redend greenend blueend。如果矩形的宽度为 pwidth 象素，则每次变化的各颜色分量值应分别为(redend-redstart)/pwidth、(greenend-greenstart)/pwidth、(blueend-bluestart)/pwidth，最后写一个循环，画一系列直线。
这里介绍的仅仅是颜色渐变的一种形式，读者完全可以参照其实现方法，改变数学运算，实现如“从上至下逐步加深”、“从左至右逐步加深”等颜色渐变形式，此外，还可以通过画一系列颜色不断变化的圆，制作圆形渐变效果。首先画一个最大的圆，然后依次画半径比前一个圆小一个象素的圆，然后依次画半径比前一个圆小一个象素的圆，同时圆的颜色也发生变化。