Changeset 522 for trunk/LocalPlayer/Select.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/LocalPlayer/Select.pas (modified) (2 diffs)

trunk/LocalPlayer/Select.pas

@@ -8 +8 @@
   SysUtils, Classes, ButtonB, ButtonBase, Types,
   {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.ExtCtrls, Dpi.Menus,
-  System.UITypes{$ELSE}
+  Dpi.Common, System.UITypes{$ELSE}
   Graphics, Controls, Forms, ExtCtrls, Menus{$ENDIF};
 
@@ -1115 +1115 @@
             for dx := -2 to 2 do
               for dy := -2 to 2 do
-                if abs(dx) + abs(dy) = 2 then
+                if Abs(dx) + Abs(dy) = 2 then
                 begin
                   Loc1 := dLoc(MyCity[cixProject].Loc, dx, dy);