Changeset 522 for trunk/LocalPlayer/Term.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/LocalPlayer/Term.pas (modified) (10 diffs)

trunk/LocalPlayer/Term.pas

@@ -1573 +1573 @@
       if Tribe[I] <> nil then
       begin
-        TestColorDistance := abs(Integer(UnusedTribeFiles.Objects[J])
+        TestColorDistance := Abs(Integer(UnusedTribeFiles.Objects[J])
           shr 16 and $FF - Tribe[I].Color shr 16 and $FF) +
           Abs(Integer(UnusedTribeFiles.Objects[J]) shr 8 and
@@ -1658 +1658 @@
       for I := 0 to nShipPart - 1 do
       begin
-        TestCost := abs(Ship1Change[I]) * Imp[imShipComp + I].Cost;
+        TestCost := Abs(Ship1Change[I]) * Imp[imShipComp + I].Cost;
         if TestCost > MostCost then
         begin
@@ -3534 +3534 @@
           (TButtonC(Components[I]).ButtonIndex <> 1) then
           TButtonC(Components[I]).ButtonIndex :=
-            Integer(MapOptionChecked) shr (Components[I].Tag shr 8) and 1 + 2
+            Integer(MapOptionChecked) shr (Components[I].Tag shr 8) and 1 + 2;
       end;
 
@@ -4585 +4585 @@
     xs := (x0 - xw) * (xxt * 2) + y0 and 1 * xxt - G.lx * (xxt * 2);
     // |xs+xl/2-MapWidth/2| -> min
-    while abs(2 * (xs + G.lx * (xxt * 2)) + xl - MapWidth) <
-      abs(2 * xs + xl - MapWidth) do
+    while Abs(2 * (xs + G.lx * (xxt * 2)) + xl - MapWidth) <
+      Abs(2 * xs + xl - MapWidth) do
         Inc(xs, G.lx * (xxt * 2));
     ys := (y0 - yw) * yyt - yyt;
@@ -4632 +4632 @@
     xMap := (x0 - xw) * (xxt * 2) + y0 and 1 * xxt - G.lx * (xxt * 2);
     // |xMap+xxt-MapWidth/2| -> min
-    while abs(2 * (xMap + G.lx * (xxt * 2)) + 2 * xxt - MapWidth) <
-      abs(2 * xMap + 2 * xxt - MapWidth) do
+    while Abs(2 * (xMap + G.lx * (xxt * 2)) + 2 * xxt - MapWidth) <
+      Abs(2 * xMap + 2 * xxt - MapWidth) do
       Inc(xMap, G.lx * (xxt * 2));
     yMap := (y0 - yw) * yyt - yyt;
@@ -5954 +5954 @@
           mod (2 * G.lx) - G.lx;
         dy := MouseLoc div G.lx - Loc div G.lx;
-        if abs(dx) + abs(dy) < 3 then
+        if Abs(dx) + Abs(dy) < 3 then
         begin
           DestinationMarkON := False;
@@ -6621 +6621 @@
     // ((xFromLoc-xw1)*2+yFromLoc and 1+1)*xxt+dx*xxt/2-MapWidth/2 -> min
     with MainMap do begin
-      while abs(((xFromLoc - xw1 + G.lx) * 2 + yFromLoc and 1 + 1) * xxt * 2 + dx
-        * xxt - MapWidth) < abs(((xFromLoc - xw1) * 2 + yFromLoc and 1 + 1) * xxt
+      while Abs(((xFromLoc - xw1 + G.lx) * 2 + yFromLoc and 1 + 1) * xxt * 2 + dx
+        * xxt - MapWidth) < Abs(((xFromLoc - xw1) * 2 + yFromLoc and 1 + 1) * xxt
         * 2 + dx * xxt - MapWidth) do
         Dec(xw1, G.lx);
@@ -6651 +6651 @@
     NoMap.SetOutput(Buffer);
     NoMap.SetPaintBounds(0, 0, xRange, yRange);
-    for Step := 0 to abs(Step1 - Step0) do
+    for Step := 0 to Abs(Step1 - Step0) do
     begin
       BitBltCanvas(Buffer.Canvas, 0, 0, xRange, yRange,
@@ -6658 +6658 @@
       begin
         xMoving := xFrom +
-          Round((Step0 + Step * (Step1 - Step0) div abs(Step1 - Step0)) *
+          Round((Step0 + Step * (Step1 - Step0) div Abs(Step1 - Step0)) *
           (xTo - xFrom) / nStep);
         yMoving := yFrom +
-          Round((Step0 + Step * (Step1 - Step0) div abs(Step1 - Step0)) *
+          Round((Step0 + Step * (Step1 - Step0) div Abs(Step1 - Step0)) *
           (yTo - yFrom) / nStep);
       end
@@ -6981 +6981 @@
   x0:=(Loc+(y0 and 1+G.lx*1024) div 2) mod G.lx;
   xs:=(x0-xw)*66+y0 and 1*33-G.lx*66;
-  while abs(2*(xs+G.lx*66)-MapWidth)<abs(2*xs-MapWidth) do
+  while Abs(2*(xs+G.lx*66)-MapWidth)<Abs(2*xs-MapWidth) do
   Inc(xs,G.lx*66);
   ys:=(y0-yw)*16;