Delphi 经典游戏程序设计40例 的学习 例36 增加格子线便于观察

 

procedure TRei36.LineRed;
var
  x,y : Byte;
begin
  MakeBmap.Canvas.Pen.Width := 1;
  MakeBmap.Canvas.Pen.Color := clRed;
  for y := 0 to 3 do
    begin
      MakeBmap.Canvas.MoveTo(0,y * 100 + 10);
      MakeBmap.Canvas.LineTo(Mwidth,y * 100 + 10);

    end;
  for x := 0 to 5 do
    begin
      MakeBmap.Canvas.MoveTo(x * 100 + 10,0);
      MakeBmap.Canvas.LineTo(x * 100 + 10,Mheight);
    end;


end;

简单增加了一个画线函数，将迷宫分为15格

 

 

procedure TRei36.LineRed;
var
  x,y : Byte;
begin
  MakeBmap.Canvas.Pen.Width := 1;
  MakeBmap.Canvas.Pen.Color := clRed;
  for y := 0 to 3 do
    begin
      MakeBmap.Canvas.MoveTo(10,y * 100 + 10);
      MakeBmap.Canvas.LineTo(Mwidth -10,y * 100 + 10);

    end;
  for x := 0 to 5 do
    begin
      MakeBmap.Canvas.MoveTo(x * 100 + 10,10);
      MakeBmap.Canvas.LineTo(x * 100 + 10,Mheight - 10);
    end;

更改，调整线条边界 美观一点。