Changeset 193 for branches/highdpi/LocalPlayer/Help.pas

Timestamp:

May 7, 2020, 7:05:57 PM (4 years ago)

Author:

chronos

Message:

• Modified: Improved code in HighDPI branch.

File:

• branches/highdpi/LocalPlayer/Help.pas (modified) (3 diffs)

branches/highdpi/LocalPlayer/Help.pas

@@ -367 +367 @@
   ImpPtr: array [-1 .. 1] of TPixelPointer;
 begin
+  { TODO
   // assume eiffel tower has free common heaven
   for dy := 0 to nHeaven - 1 do
@@ -376 +377 @@
   xSrc := iix mod 7 * xSizeBig;
   ySrc := (iix div 7 + 1) * ySizeBig;
-  for y := 0 to ySizeBig * 2 - 1 do
+  for y := 0 to ScaleToVcl(ySizeBig * 2) - 1 do
     if ((y0 + y) >= 0) and ((y0 + y) < InnerHeight) then begin
-      PaintPtr.Init(OffScreen, 0, y0 + y);
-      CoalPtr.Init(Templates, 0, yCoal + y);
+      PaintPtr.Init(OffScreen, 0, ScaleToVcl(y0 + y));
+      CoalPtr.Init(Templates, 0, ScaleToVcl(yCoal + y));
       for dy := -1 to 1 do
         if ((Max(y + dy, 0) shr 1) >= 0) and ((Max(y + dy, 0) shr 1) < ySizeBig) then
-          ImpPtr[dy].Init(BigImp, 0, ySrc + (Max(y + dy, 0) shr 1));
-      for x := 0 to xSizeBig * 2 - 1 do begin
+          ImpPtr[dy].Init(BigImp, 0, ScaleToVcl(ySrc + (Max(y + dy, 0) shr 1)));
+      for x := 0 to ScaleToVcl(xSizeBig * 2) - 1 do begin
         sum := 0;
         for dx := -1 to 1 do begin
@@ -412 +413 @@
   Offscreen.EndUpdate;
   BigImp.EndUpdate;
+  }
 end;