对齐到网格

最新推荐文章于 2018-09-01 00:03:09 发布

原创最新推荐文章于 2018-09-01 00:03:09 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#网格 #integer #button #div

博客给出一段代码，定义网格大小为16，在窗体绘制时按网格绘制点。还包含图形鼠标事件处理代码，如鼠标按下记录位置，移动时图形随之移动，鼠标松开时将图形位置对齐到网格上。

var iGridSize : Integer = 16; procedure TForm1.FormPaint(Sender: TObject); var i, j : integer; begin Self.DoubleBuffered := True; for i := 0 to Self.Width do for j := 0 to Self.Height do if (j mod iGridSize = 0) and (i mod iGridSize = 0) then Self.Canvas.Pixels[i, j] := clNavy; end; procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button = mbLeft then begin Self.iOldX := X; Self.iOldY := Y; end; end; procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if ssLeft in Shift then begin Shape1.Left := Shape1.Left + X - iOldX; Shape1.Top := Shape1.Top + Y - iOldY; end; end; procedure TForm1.Shape1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button = mbLeft then begin if (Shape1.Left - (Shape1.Left div iGridSize) * iGridSize) > (iGridSize div 2) then begin Shape1.Left := (Shape1.Left div iGridSize) * iGridSize + iGridSize; end else begin Shape1.Left := (Shape1.Left div iGridSize) * iGridSize; end; if (Shape1.Top - (Shape1.Top div iGridSize) * iGridSize) > (iGridSize div 2) then begin Shape1.Top := (Shape1.Top div iGridSize) * iGridSize + iGridSize; end else begin Shape1.Top := (Shape1.Top div iGridSize) * iGridSize; end; end; end;