Changeset 246 for branches/highdpi/LocalPlayer/IsoEngine.pas

Timestamp:

May 21, 2020, 8:17:38 PM (4 years ago)

Author:

chronos

Message:

• Modified: Update from trunk rev 245.
• Modified: Vcl prefix/suffix changed to Native.

File:

• branches/highdpi/LocalPlayer/IsoEngine.pas (modified) (2 diffs)

branches/highdpi/LocalPlayer/IsoEngine.pas

@@ -1015 +1015 @@
             1 + 8 * (xxt * 2 + 1), 1 + yyt + 16 * (yyt * 3 + 1));
           Borders.BeginUpdate;
-          PixelPtr := PixelPointer(Borders, ScaleToVcl(0), ScaleToVcl(p1 * (yyt * 2)));
-          for dy := 0 to ScaleToVcl(yyt * 2) - 1 do begin
-            for dx := 0 to ScaleToVcl(xxt * 2) - 1 do begin
+          PixelPtr := PixelPointer(Borders, ScaleToNative(0), ScaleToNative(p1 * (yyt * 2)));
+          for dy := 0 to ScaleToNative(yyt * 2) - 1 do begin
+            for dx := 0 to ScaleToNative(xxt * 2) - 1 do begin
               if PixelPtr.Pixel^.B = 99 then begin
                 PixelPtr.Pixel^.B := Tribe[p1].Color shr 16 and $FF;
@@ -1339 +1339 @@
 begin
   FOutput.BeginUpdate;
-  Line := PixelPointer(FOutput, ScaleToVcl(x0), ScaleToVcl(y0));
-  for y := 0 to ScaleToVcl(Height) - 1 do begin
-    y_n := (ScaleFromVcl(y) + y0 - ym) / yyt;
-    if Abs(y_n) < rShade then begin
+  Line := PixelPointer(FOutput, ScaleToNative(x0), ScaleToNative(y0));
+  for y := 0 to ScaleToNative(Height) - 1 do begin
+    y_n := (ScaleFromNative(y) + y0 - ym) / yyt;
+    if abs(y_n) < rShade then begin
       // Darken left and right parts of elipsis
-      w_n := Sqrt(Sqr(rShade) - Sqr(y_n));
-      wBright := Trunc(w_n * xxt + 0.5);
+      w_n := sqrt(sqr(rShade) - sqr(y_n));
+      wBright := trunc(w_n * xxt + 0.5);
       Line.SetX(0);
-      MakeDark(@Line, ScaleToVcl(xm - wBright));
-      Line.SetX(ScaleToVcl(xm + wBright));
-      MakeDark(@Line, ScaleToVcl(Width - xm - wBright));
+      MakeDark(@Line, ScaleToNative(xm - wBright));
+      Line.SetX(ScaleToNative(xm + wBright));
+      MakeDark(@Line, ScaleToNative(Width - xm - wBright));
     end else begin
       // Darken entire line
       Line.SetX(0);
-      MakeDark(@Line, ScaleToVcl(Width));
+      MakeDark(@Line, ScaleToNative(Width));
     end;
     Line.NextLine;