Changeset 69 for trunk/Forms

Timestamp:

Sep 28, 2014, 5:42:51 PM (10 years ago)

Author:

chronos

Message:

 

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (5 diffs)
• UFormMain.pas (modified) (1 diff)

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 775
   Caption = 'xTactics'
-  ClientHeight = 600
+  ClientHeight = 595
   ClientWidth = 775
   Menu = MainMenu1
@@ -13 +13 @@
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '1.0.10.0'
+  LCLVersion = '1.3'
   WindowState = wsMaximized
   object PaintBox1: TPaintBox
     Left = 40
-    Height = 579
+    Height = 569
     Top = 0
     Width = 735
@@ -32 +32 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 21
-    Top = 579
+    Height = 26
+    Top = 569
     Width = 775
     Panels = <    
@@ -49 +49 @@
   object ToolBar1: TToolBar
     Left = 0
-    Height = 579
+    Height = 569
     Top = 0
     Width = 40
@@ -87 +87 @@
     object ToolButton6: TToolButton
       Left = 1
-      Top = 194
+      Top = 172
       Action = AZoomIn
     end
     object ToolButton7: TToolButton
       Left = 1
-      Top = 226
+      Top = 204
       Action = AZoomOut
     end
     object ToolButton8: TToolButton
       Left = 1
-      Top = 258
+      Top = 236
       Action = AZoomAll
     end

trunk/Forms/UFormMain.pas

@@ -343 +343 @@
 procedure TFormMain.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
-begin
-  if (Abs(StartMousePoint.X - X) < 5) and (Abs(StartMousePoint.Y - Y) < 5) then begin
+const
+  MouseMinDiff = 10;
+begin
+  if (Abs(StartMousePoint.X - X) < MouseMinDiff) and (Abs(StartMousePoint.Y - Y) < 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);