如何实现两种颜色的平稳过渡,比如红色和蓝色(内空)? 用循环不可以FOR I:=CLRED TO CLBLUE? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 分解RGB色,然后用循环处理每个颜色(都是0~255大小),在合成RGB procedure TForm1.BitBtn1Click(Sender: TObject);var myRect:TRect; i,j:integer;begin j:=Form1.Height; for i:=0 to 255 do begin Canvas.brush.Color:=RGB(255-i,0,i); myRect:=Rect(i*20,0,(i+1)*2,j); Canvas.FillRect(myRect); end;end; DBEdit中数据值判断的问题 请问大虾,关于字符串查询... 续:exe文件生成exe文件的问题!(做过电子杂志的高手请进) 被撤了,还好不是炒鱿鱼 异构数据库的相互转换! 对WINDOWS资源管理器中的文件、文件夹加密,有没这样的API? 关于用adoconnection连接sqlserver数据库产生异常的问题 如何判断sql库中image型字段为空 pchar(201)是什么意思?不好意思,有点简单 送分解决Delphi打印问题 ☆☆☆ 程序员 ☆☆☆ 有关SQL查询的怪问题
var myRect:TRect;
i,j:integer;
begin
j:=Form1.Height;
for i:=0 to 255 do
begin
Canvas.brush.Color:=RGB(255-i,0,i);
myRect:=Rect(i*20,0,(i+1)*2,j);
Canvas.FillRect(myRect);
end;end;