[修正] Firemonkey TSelection 控件等比缩放时，…

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;

procedure TSelection.ResetInSpace(const ARotationPoint: TPointF; ASize: TPointF);

...略...

  begin
    LLocalPos.X := LAbsPos.X - ASize.X * RotationCenter.X * Scale.X;
    LLocalPos.Y := LAbsPos.Y - ASize.Y * RotationCenter.Y * Scale.Y;
  end;
{+++>}if not FProportional or (FProportional and SameValue(ASize.X / ASize.Y, FRatio, 0.0001)) then // 加入代码
  SetBounds(LLocalPos.X, LLocalPos.Y, ASize.X, ASize.Y);
end;