說明: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