Changeset 522 for trunk/Database.pas

Timestamp:

Jan 7, 2024, 10:24:51 PM (4 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.
• Added: High DPI aware SetWindowPos function.

File:

• trunk/Database.pas (modified) (5 diffs)

trunk/Database.pas

@@ -510 +510 @@
 begin
   dxdy(Loc0, Loc1, dx, dy);
-  dx := abs(dx);
-  dy := abs(dy);
-  Result := dx + dy + abs(dx - dy) shr 1;
+  dx := Abs(dx);
+  dy := Abs(dy);
+  Result := dx + dy + Abs(dx - dy) shr 1;
 end;
 
@@ -978 +978 @@
   ShSwamp = 25; { of grassland }
   MinRivLen = 3;
-  unification = 70;
-  hotunification = 50; // min. 25
+  Unification = 70;
+  HotUnification = 50; // min. 25
 
   Zone: array [0 .. 3, 2 .. 9] of Single = { terrain distribution }
@@ -1165 +1165 @@
     CopyFrom[Loc0] := Loc0;
 
-  for N := 0 to unification * MapSize div 100 do
+  for N := 0 to Unification * MapSize div 100 do
   begin
     Y := DelphiRandom(ly);
-    if abs(Y - (ly shr 1)) > ly div 4 + DelphiRandom(ly * hotunification div 100) then
+    if Abs(Y - (ly shr 1)) > ly div 4 + DelphiRandom(ly * HotUnification div 100) then
       if Y < ly shr 1 then
         Y := ly shr 1 - Y
@@ -2792 +2792 @@
   begin
     dxMax := dy and 1;
-    while abs(dy) + (dxMax + 2) + abs(abs(dy) - (dxMax + 2)) shr 1 <=
+    while Abs(dy) + (dxMax + 2) + Abs(Abs(dy) - (dxMax + 2)) shr 1 <=
       CountryRadius do
       Inc(dxMax, 2);
@@ -2904 +2904 @@
     begin
       dxMax := dy and 1;
-      while abs(dy) + (dxMax + 2) + abs(abs(dy) - (dxMax + 2)) shr 1 <=
+      while Abs(dy) + (dxMax + 2) + Abs(Abs(dy) - (dxMax + 2)) shr 1 <=
         CountryRadius do
         Inc(dxMax, 2);