本控件修改自 Delphi Berlin 10.1 的 TSelection (FMX.Controls.pas)
修改重點:
- 移動點顯示在上方
- 增加(左中,上中,右中,下中)控制點,含原來的總共有 8 個控制點
代碼說明:
- 代碼內 {+++> 代表我增加的代碼
- 代碼內 {---> 代表我刪除的代碼
- 未來新版 Delphi 可以自己將 {+++> {---> 移植到新版代碼內
- 本控件不含 Register; 若需要請自行加入
效果:
源碼及例子下載:(2016/12/30 修正更新)