- for i:=0 to FBackPuffer.Width div (FZoom div 10) do begin
- FBackPuffer.Canvas.MoveTo(i*(FZoom div 10),0);
- FBackPuffer.Canvas.LineTo(i*(FZoom div 10),FBackPuffer.Height);
- end;
- FBackPuffer.Canvas.MoveTo(0,0);
- for i:=0 to FBackPuffer.Height div (FZoom div 10) do begin
- FBackPuffer.Canvas.MoveTo(0,i*(FZoom div 10));
- FBackPuffer.Canvas.LineTo(FBackPuffer.Width,i*(FZoom div 10));
- end;