窗体背景渐变

字体大小: 中小 标准 ->行高大小: 标准 中 大 
var i: word;

dy, y: real;

begin

dy := clientheight / 256;

y := 0;

for i := 255 downto 0 do

begin

canvas.brush.color := $00000000 + i * $10000;

canvas.fillrect(rect(0, round(y), clientwidth, round(y + dy)));

y := y + dy;

end;

end;

此文章由 http://www.ositren.com 收集整理 ,地址为: http://www.ositren.com/htmls/68090.html