本文介绍了一个使用Delphi编程语言实现的简单程序，该程序能够在TForm窗体上绘制从白色到黑色的渐变背景效果。通过调整画刷的颜色并利用循环填充矩形区域，实现了颜色的平滑过渡。
procedure TForm1.FormPaint(Sender: TObject);
var
ARow, AHight: Word ;
begin
AHight := (ClientHeight + 255) div 256;
for ARow := 0 to 255 do
with Canvas do begin
Brush.Color := RGB(255, 255, ARow);
FillRect(Rect(0, ARow * AHight, ClientWidth, (ARow + 1) * AHight));
end;
end;
var
ARow, AHight: Word ;
begin
AHight := (ClientHeight + 255) div 256;
for ARow := 0 to 255 do
with Canvas do begin
Brush.Color := RGB(255, 255, ARow);
FillRect(Rect(0, ARow * AHight, ClientWidth, (ARow + 1) * AHight));
end;
end;
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
