Changeset 51

Timestamp:

Dec 19, 2017, 11:21:07 AM (6 years ago)

Author:

chronos

Message:

• Fixed: Zooming by mouse wheel was inverted. Not worked correctly with touch screen.

File:

• trunk/Forms/UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.pas

@@ -100 +100 @@
   Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
 begin
-  Engine.View.Zoom := Engine.View.Zoom * 1.2;
+  Engine.View.Zoom := Engine.View.Zoom / 1.2;
 end;
 
@@ -106 +106 @@
   MousePos: TPoint; var Handled: Boolean);
 begin
-  Engine.View.Zoom := Engine.View.Zoom / 1.2;
+  Engine.View.Zoom := Engine.View.Zoom * 1.2;
 end;