对齐到网格

原创 2004年09月18日 15:22:00
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;

word中段落里面的选项“如果定义了文档网格,则对齐到网格”起什么作用?

上面这张图片大家都不陌生吧,但相信很多朋友都不知道“文档网格”的作用。我最近在调整论文格式时就被这个所谓的“文档网格”给搞惨啦! 出现的问题是:我完全按照论文的模板地使用了相同的段落设置,也就是段前...
  • foreverhuylee
  • foreverhuylee
  • 2014年12月17日 16:53
  • 5703

JavaScript实现拖拽元素对齐到网格(每次移动固定距离)

这几天在做一个拖拽元素的附加功能,就是对齐到网格,实际上就是确定好元素的初始位置,然后拖拽元素时,每次移动固定的距离。让元素都可以在网格内对齐。先上效果图,然后在详细说明一下细节问题 做了一个g...
  • ooim802
  • ooim802
  • 2017年01月09日 20:17
  • 247

jquery-ui中div拖动出现辅助线方便对齐

先上效果: 代码说明: html部分: 第一个11111111111111div 第二个22div 第三个333333...
  • promise_sun
  • promise_sun
  • 2017年03月15日 16:05
  • 899

Ionic Grid栅格布局居中实例

一、目录结构 二、引用指定 .responsive-sm .col { background: gray; } ...
  • u011127019
  • u011127019
  • 2017年02月02日 21:36
  • 3974

Cadence Allegro原理图绘制:如何让错位的连接线准确接上管脚

在Cadence绘制原理图时可能会遇到连接线无法画上或者线错位无法调整的问题,本文教会你技巧。...
  • RhythmWANG
  • RhythmWANG
  • 2017年03月06日 08:59
  • 518

gridster.js–可拖拽的网格插件

gridster.js 是一个 jQuery 插件用来构建直观的可拖放的布局,支持多列布局,你还可以动态的添加和删除表格中的元素。 \ 主要特性 1.只依赖jQuery 2.支...
  • gebitan505
  • gebitan505
  • 2016年08月24日 16:58
  • 1269

CorelDRAW中网状填充工具该怎么使用

CorelDRAW中的网状填充工具主要是为造型做立体感的填充。用网状填充填充对象时可以产生独特的效果。网状填充工具可以创建任何方向的平滑的颜色的过渡,而无需创建调和或轮廓图。下面通过枫叶的案例一起来体...
  • coreldraw2016
  • coreldraw2016
  • 2016年12月07日 11:27
  • 1336

OpenGL系列教程之十一:OpenGL网格化

网格化是将凹多边形或有边相交的多边形划分成凸多边形。由于openGL渲染时只接受凸多边形,这些非凸多边形在渲染之前必须先被网格化。 第一行中第一个图形是4条边的凹多边形,第二个图形...
  • u012501459
  • u012501459
  • 2013年10月22日 11:18
  • 3754

网格变形动画

原文:Mesh Transforms 作者:Bartosz Ciechanowski 译者:kmyhy 我是 transform 属性的超级粉丝。让 UIView 或者 CALayer 的...
  • kmyhy
  • kmyhy
  • 2017年03月21日 17:22
  • 2204

关于cocos2d-x 3.3网格特效笔记

记录一些关于网格特效的笔记,在3.x与2.x中,网格特效这块区别还是挺大的,下面是一些笔记和代码: #include "HelloWorldScene.h" USING_NS_CC...
  • u012727080
  • u012727080
  • 2016年11月16日 14:43
  • 386
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:对齐到网格
举报原因:
原因补充:

(最多只允许输入30个字)