Changeset 515 for trunk/Packages/DpiControls/Dpi.Common.pas

Timestamp:

Jan 3, 2024, 4:53:46 PM (4 months ago)

Author:

chronos

Message:

• Modified: Improved scaling of ImageOp_BCC procedure.
• Fixed: Do not initialize City dialog on game closure.

File:

• trunk/Packages/DpiControls/Dpi.Common.pas (modified) (4 diffs)

trunk/Packages/DpiControls/Dpi.Common.pas

@@ -185 +185 @@
   DstWidth, DstHeight: Integer;
   SrcWidth, SrcHeight: Integer;
-  ReduceWidth, ReduceHeight: Integer;
 begin
   {$IFDEF WINDOWS}
@@ -198 +197 @@
   SrcWidth := ScaleToNativeDist(XSrc, Width);
   SrcHeight := ScaleToNativeDist(YSrc, Height);
-  if (Frac(ScaleFloatToNative(XSrc)) > 0) or
-    (Frac(ScaleFloatToNative(X)) > 0) then ReduceWidth := 1
-    else ReduceWidth := 0;
-  if (Frac(ScaleFloatToNative(YSrc)) > 0) or
-    (Frac(ScaleFloatToNative(Y)) > 0) then ReduceHeight := 1
-    else ReduceHeight := 0;
   if (DstWidth = SrcWidth) and (DstHeight = SrcHeight) then begin
     Result := LCLIntf.BitBlt(DestDC, ScaleToNative(X), ScaleToNative(Y),
@@ -210 +203 @@
   end else begin
     Result := LCLIntf.BitBlt(DestDC, ScaleToNative(X), ScaleToNative(Y),
-      DstWidth - ReduceWidth, DstHeight - ReduceHeight, SrcDC,
+      SrcWidth, SrcHeight, SrcDC,
       ScaleToNative(XSrc), ScaleToNative(YSrc), Rop);
 
@@ -224 +217 @@
         ScaleToNative(XSrc), ScaleToNative(YSrc) + SrcHeight - (DstHeight - SrcHeight), Rop);
     end;
-
   {  Result := LCLIntf.StretchBlt(DestDC, ScaleToNative(X), ScaleToNative(Y),
       DstWidth, DstHeight, SrcDC,