[控件] 加强版 TOneSelection (改良自 Berlin 10.1 TSelection)
本控件修改自 Delphi Berlin 10.1 的 TSelection (FMX.Controls.pas)
修改重点:
- 移动点显示在上方
- 增加(左中,上中,右中,下中)控制点,含原来的总共有 8 个控制点
代码说明:
- 代码内 {+++> 代表我增加的代码
- 代码内 {---> 代表我删除的代码
- 未来新版 Delphi 可以自己将 {+++> {---> 移植到新版代码内
- 本控件不含 Register; 若需要请自行加入
效果:
源码及例子下载:(2016/12/30 修正更新)