俄罗斯方块9.txt

学习Delphi最好的教材。通过一个个简单而实用的实例

13.把盒子(Box)及其格与格之间的横线与竖线画出来
当然是在窗体Form1的OnPaint(重画)事件中添加代码
procedure TForm1.FormPaint(Sender: TObject);
var
  i:Integer;
begin
  Canvas.Brush.Color:=clRed;
  for i:=0 to 10 do
  begin
    Canvas.MoveTo(20+20*i,20);  //第i条竖线的起点坐标
    Canvas.LineTo(20+20*i,420); //第i条竖线的终点坐标
  end;
  for i:=0 to 20 do
  begin
    Canvas.MoveTo(20,20+20*i);  //第i条横线的起点坐标
    Canvas.LineTo(220,20+20*i); //第i条横线的终点坐标
  end;
  Canvas.Rectangle(20+x*20,20+y*20,40+x*20,100+y*20);
end;