正文

[控件] 加强版 TOneSelection (改良自 Berlin 10.1 TSelection)

IP云
IP云V管理员/5 阅读
07/30
提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

本控件修改自 Delphi Berlin 10.1 的 TSelection (FMX.Controls.pas)

修改重点：

  1. 移动点显示在上方
  2. 增加（左中，上中，右中，下中）控制点，含原来的总共有 8 个控制点

代码说明：

  1. 代码内 {+++> 代表我增加的代码
  2. 代码内 {---> 代表我删除的代码
  3. 未来新版 Delphi 可以自己将 {+++> {---> 移植到新版代码内
  4. 本控件不含 Register; 若需要请自行加入

效果：

源码及例子下载：(2016/12/30 修正更新)

[控件]TOneSelection(等比修正版)_by_龟山Aone.zip