fidorido

摘要：***********使用前要先Uses Math*************1.Round（四舍六入五留双） 功能说明：对一个实数进行四舍五入。(按照银行家算法) 例：var i, j: Integer;begin i := Round(1.5); // i等于2 j := Round(2.5); 阅读全文

摘要：这个是自己项目在使用的，所以带有些业务功能的代码。 逻辑上使用的大多是 mouseup ，MouseMove，Mousedown。使用recttangle容器实现滑动。网上有这个下载demo。 另外移动端要注意线程的异步同步的控制。 unit UShowPictureZoomIn; interfac 阅读全文

摘要：此功能模仿微信朋友圈查看图片交互设计，预览图片的放大缩小左移右移。 还有很多缺陷，比如图片切换没有动画效果，2个月前写的，好多不记得了。 而且delphi自带手势滑动的快慢是有区别的，StandardGestures和interactiveGestures有描述。 手势都是窗体的。 unit UPr 阅读全文

摘要：unit Unit2; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Gra 阅读全文