Draw Grid

Top  Previous  Next

Draw a 0.5 cm grid using light blue color, this grid is also printed

 

var i,j : Integer;

begin

   toCanvas.Pen.Width := 0;

   toCanvas.Pen.Color := $00FAD5AF;

   toCanvas.Pen.Style := psSolid;

  for i:=1 to 1000 do

  begin

     j := PageRect.Left + MulDiv(WPCentimeterToTwips(0.5 * i), Xres, 1440);

    if j>= PageRect.Right then break;

     toCanvas.MoveTo(j, PageRect.Top);

     toCanvas.LineTo(j, PageRect.Bottom);

  end;

 

  for i:=1 to 1000 do

  begin

     j := PageRect.Top + MulDiv(WPCentimeterToTwips(0.5 * i), Yres, 1440);

    if j>= PageRect.Bottom then break;

     toCanvas.MoveTo(PageRect.Left, j);

     toCanvas.LineTo(PageRect.Right, j);

  end;

end;