Changeset 90 for trunk/Forms/UFormMain.pas

Timestamp:

Nov 16, 2014, 5:12:25 PM (10 years ago)

Author:

chronos

Message:

• Added: Computer player settings to be low, medium or highly aggresive in attacking.
• Fixed: Mouse move insensitivity zone is now DPI aware.

File:

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

trunk/Forms/UFormMain.pas

@@ -11 +11 @@
 const
   ZoomFactor = 1.5;
-  MouseMinDiff = 6;
+  MouseMinDiff = 0.1;
 
 type
@@ -359 +359 @@
   if Assigned(Core.Game.CurrentPlayer) then begin
     if MoveActive then
-    if (Abs(StartMousePoint.X - X) > MouseMinDiff) or (Abs(StartMousePoint.Y - Y) > MouseMinDiff) then
+    if (Abs(StartMousePoint.X - X) > Trunc(Screen.PixelsPerInch * MouseMinDiff)) or
+    (Abs(StartMousePoint.Y - Y) > Trunc(Screen.PixelsPerInch * MouseMinDiff)) then
     with Core.Game.CurrentPlayer do begin
       if Mode = pmHuman then begin
@@ -390 +391 @@
   Shift: TShiftState; X, Y: Integer);
 begin
-  if (Abs(StartMousePoint.X - X) < MouseMinDiff) and (Abs(StartMousePoint.Y - Y) < MouseMinDiff) then begin
+  if (Abs(StartMousePoint.X - X) < Trunc(Screen.PixelsPerInch * MouseMinDiff)) and
+  (Abs(StartMousePoint.Y - Y) < Trunc(Screen.PixelsPerInch * MouseMinDiff)) then begin
     if Core.Game.Running and (Core.Game.CurrentPlayer.Mode = pmHuman) then begin
       Core.Game.CurrentPlayer.View.SelectCell(Point(X, Y), Core.Game.CurrentPlayer, Shift);