程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> [修正] Firemonkey TSelection 控件等比縮放時,左下角拉動問題,selection

[修正] Firemonkey TSelection 控件等比縮放時,左下角拉動問題,selection

編輯:Delphi

[修正] Firemonkey TSelection 控件等比縮放時,左下角拉動問題,selection


說明:TSelection 控件,當在屬性 Proportional = True 為等比縮放時,拉動左下角,右上角會跟著移動。

適用:Berlin 10.1.1 (或之前版本) Firemonkey

修正方法:

請將源碼 FMX.Objects.pas 復制到自己的工程目錄裡,再進行修改。

procedure TSelection.GetTransformLeftBottom(AX, AY: Single; var NewSize: TPointF; var Pivot: TPointF);

...略...

{---> AY := AY + LCorrect.Y; // 刪除代碼
{+++>}AY := AY - LCorrect.Y; // 新增代碼:修正等比縮放時,拉動左下角,右上角會跟著移動 by Aone @ 2016.10.10

...略...

end;

 

修正前:

 

修正後:

 

QC:

https://quality.embarcadero.com/browse/RSP-16061

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved