Changeset 102 for trunk/Forms/FormMain.pas

Timestamp:

Dec 9, 2024, 11:55:53 AM (13 days ago)

Author:

chronos

Message:

• Modified: Lowered minimal swipe distance.
• Modified: Show score and best score as boxes. Place them according window size.
• Modified: Updated Common package.

File:

• trunk/Forms/FormMain.pas (modified) (1 diff)

trunk/Forms/FormMain.pas

@@ -137 +137 @@
   D: Real;
   Angle: Real;
+const
+  SwipeMinDistance = 50;
 begin
   if MouseDown then begin;
     D := MouseStart.Distance(Point(X, Y));
-    if D > ScaleX(100, 96) then begin
+    if D > ScaleX(SwipeMinDistance, 96) then begin
       MouseDown := False;
       Angle := AngleOfLine(MouseStart, Point(X, Y));