Changeset 483 for trunk/LocalPlayer/Term.pas

Timestamp:

Dec 8, 2023, 11:23:59 AM (11 months ago)

Author:

chronos

Message:

• Fixed: Small improvements graphics scaling for high DPI.

File:

• trunk/LocalPlayer/Term.pas (modified) (1 diff)

trunk/LocalPlayer/Term.pas

@@ -713 +713 @@
 
 procedure InitSmallImp;
-const
-  Cut = 4;
-  Sharpen = 80;
-type
-  TBuffer = array [0 .. 99999, 0 .. 2] of Integer;
-var
-  Sum: Int64;
-  Cnt, dx, dy, nx, ny, ix, iy, ir, X, Y, C, ch: Integer;
-  xdivider, ydivider: Integer;
-  Resampled: ^TBuffer;
-  PixelPtr: TPixelPointer;
-  V: Integer;
-begin
-  nx := BigImp.Width div xSizeBig * xSizeSmall;
-  ny := BigImp.Height div ySizeBig * ySizeSmall;
-
-  // resample icons
-  GetMem(Resampled, nx * ny * 12);
-  FillChar(Resampled^, nx * ny * 12, 0);
-  BigImp.BeginUpdate;
-  for ix := 0 to BigImp.Width div xSizeBig - 1 do
-    for iy := 0 to BigImp.Height div ySizeBig - 1 do begin
-      PixelPtr := TPixelPointer.Create(BigImp, ScaleToNative(ix * xSizeBig),
-        ScaleToNative(Cut + iy * ySizeBig));
-      for Y := 0 to ScaleToNative(ySizeBig - 2 * Cut) - 1 do begin
-        ydivider := (ScaleFromNative(Y) * ySizeSmall div (ySizeBig - 2 * Cut) + 1) *
-          (ySizeBig - 2 * Cut) - ScaleFromNative(Y) * ySizeSmall;
-        if ydivider > ySizeSmall then
-          ydivider := ySizeSmall;
-        for X := 0 to ScaleToNative(xSizeBig) - 1 do begin
-          ir := ix * xSizeSmall + iy * nx * ySizeSmall + ScaleFromNative(X) *
-            xSizeSmall div xSizeBig + ScaleFromNative(Y) *
-            ySizeSmall div (ySizeBig - 2 * Cut) * nx;
-          xdivider := (ScaleFromNative(X) * xSizeSmall div xSizeBig + 1) *
-            xSizeBig - ScaleFromNative(X) * xSizeSmall;
-          if xdivider > xSizeSmall then
-            xdivider := xSizeSmall;
-          for ch := 0 to 2 do begin
-            C := PixelPtr.Pixel^.Planes[ch];
-            Inc(Resampled[ir, ch], C * xdivider * ydivider);
-            if xdivider < xSizeSmall then
-              Inc(Resampled[ir + 1, ch], C * (xSizeSmall - xdivider) *
-                ydivider);
-            if ydivider < ySizeSmall then
-              Inc(Resampled[ir + nx, ch],
-                C * xdivider * (ySizeSmall - ydivider));
-            if (xdivider < xSizeSmall) and (ydivider < ySizeSmall) then
-              Inc(Resampled[ir + nx + 1, ch], C * (xSizeSmall - xdivider) *
-                (ySizeSmall - ydivider));
-          end;
-          PixelPtr.NextPixel;
-        end;
-        PixelPtr.NextLine;
-      end;
-    end;
-  BigImp.EndUpdate;
-
-  // Sharpen Resampled icons
-  SmallImp.SetSize(nx, ny);
-  SmallImp.BeginUpdate;
-  PixelPtr := TPixelPointer.Create(SmallImp);
-  for Y := 0 to ScaleToNative(ny) - 1 do begin
-    for X := 0 to ScaleToNative(nx) - 1 do begin
-      for ch := 0 to 2 do begin
-        Sum := 0;
-        Cnt := 0;
-        for dy := -1 to 1 do
-          if ((dy >= 0) or (ScaleFromNative(Y) mod ySizeSmall > 0)) and
-            ((dy <= 0) or (ScaleFromNative(Y) mod ySizeSmall < ySizeSmall - 1)) then
-            for dx := -1 to 1 do
-              if ((dx >= 0) or (ScaleFromNative(X) mod xSizeSmall > 0)) and
-                ((dx <= 0) or (ScaleFromNative(X) mod xSizeSmall < xSizeSmall - 1)) then
-              begin
-                V := Resampled[ScaleFromNative(X) + dx + nx * (ScaleFromNative(Y) + dy), ch];
-                Inc(Sum, V);
-                Inc(Cnt);
-              end;
-        V := Resampled[ScaleFromNative(X) + nx * ScaleFromNative(Y), ch];
-        Sum := ((Cnt * Sharpen + 800) * V - Sum * Sharpen)
-          div (800 * xSizeBig * (ySizeBig - 2 * Cut));
-        Sum := Round(Sum / ScaleToNative(ScaleToNative(1)));
-        if Sum < 0 then Sum := 0;
-        if Sum > 255 then Sum := 255;
-        PixelPtr.Pixel^.Planes[ch] := Sum;
-      end;
-      PixelPtr.NextPixel;
-    end;
-    PixelPtr.NextLine;
-  end;
-  SmallImp.EndUpdate;
-  FreeMem(Resampled);
+begin
+  SmallImp.SetSize(BigImp.Width * xSizeSmall div xSizeBig,
+    BigImp.Height * ySizeSmall div ySizeBig);
+  UnshareBitmap(SmallImp);
+  SmallImp.Canvas.StretchDraw(Rect(0, 0, SmallImp.Width, SmallImp.Height), BigImp);
 end;