|
@@ -530,7 +530,7 @@ begin
|
|
|
|
|
|
if not justDown and not Assigned(newShape) then
|
|
if not justDown and not Assigned(newShape) then
|
|
begin
|
|
begin
|
|
- newStartPoint := AffineMatrixInverse(vectorTransform)*imgPtF;
|
|
|
|
|
|
+ newStartPoint := AffineMatrixInverse(AffineMatrixTranslation(-0.5,-0.5)*vectorTransform*AffineMatrixTranslation(0.5,0.5))*imgPtF;
|
|
newButton := Button;
|
|
newButton := Button;
|
|
justDown := true;
|
|
justDown := true;
|
|
end;
|
|
end;
|
|
@@ -816,7 +816,7 @@ begin
|
|
img.MouseMove(Shift, imgPtF.X, imgPtF.Y, cur, handled);
|
|
img.MouseMove(Shift, imgPtF.X, imgPtF.Y, cur, handled);
|
|
UpdateViewCursor(cur);
|
|
UpdateViewCursor(cur);
|
|
|
|
|
|
- ptF := AffineMatrixInverse(vectorTransform)*imgPtF;
|
|
|
|
|
|
+ ptF := AffineMatrixInverse(AffineMatrixTranslation(-0.5,-0.5)*vectorTransform*AffineMatrixTranslation(0.5,0.5))*imgPtF;
|
|
if justDown and not Assigned(newShape) and IsCreateShapeTool(currentTool) and
|
|
if justDown and not Assigned(newShape) and IsCreateShapeTool(currentTool) and
|
|
(VectLen(ptF-newStartPoint) >= EditorPointSize) then
|
|
(VectLen(ptF-newStartPoint) >= EditorPointSize) then
|
|
begin
|
|
begin
|