procedure TForm1.FormPaint(Sender: TObject);
var i:Word;
Dy,y:Real;
begin
Dy:=ClientHeight/256;//ClientHeight不明白clien是个什么?
y:=0;
for i:=255 Downto 0 do//downto?
begin
Canvas.brush.color:=$00000000+i*$10000;//$00000000+i*$10000的定义是什么?
Canvas.fillrect(rect(0,round(y),clientwidth,round(y+Dy)));//这句起什么作用
y:=y+Dy;
end;
end;
var i:Word;
Dy,y:Real;
begin
Dy:=ClientHeight/256;//ClientHeight不明白clien是个什么?
y:=0;
for i:=255 Downto 0 do//downto?
begin
Canvas.brush.color:=$00000000+i*$10000;//$00000000+i*$10000的定义是什么?
Canvas.fillrect(rect(0,round(y),clientwidth,round(y+Dy)));//这句起什么作用
y:=y+Dy;
end;
end;
解决方案 »
- 不明白 scanline的出问题;我估计是指针引起的;但是找不出解决方法;help!~~~~~~~
- selcet...from..where 语句问题
- 瑞星升级的一个小问题
- 数据库多线程查询
- 技术文章荟萃,请大家支持。
- 学习Delphi不久,现在正处在迷茫状态,请各位高手帮帮我!
- 数据库问题
- 高手请进 ----在线给分
- 怎么让窗体居中?是不是DELPHI没这个属性?那么我用这条语句让窗体居中怎么出错啊?SplashForm.Left:=(Screen.Width-SplashForm.Width)/2
- delphi XE5 andriod连接 webservice乱码问题
- ???? 如何显示在输入后按键抬起时 DBGridEh 当前输入单元格的值 ????
- 如何声明颜色变量呢?
从大到小循环
蓝色值为i
填充这个是把窗体客户区画成由蓝到黑的256个长条。