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

Timestamp:

Aug 26, 2024, 6:30:43 PM (2 months ago)

Author:

chronos

Message:

• Fixed: Build without DPI define.

File:

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

trunk/Packages/DpiControls/Dpi.Common.pas

@@ -14 +14 @@
 function BitBltCanvas(Dest: TCanvas; X, Y, Width, Height: Integer; Src: TCanvas;
   XSrc, YSrc: Integer; Rop: DWORD = SRCCOPY): Boolean;
-function BitBltBitmap(Dest: TBitmap; X, Y, Width, Height: Integer; Src: TBitmap;
+function BitBltBitmapPrecise(Dest: TBitmap; X, Y, Width, Height: Integer; Src: TBitmap;
   XSrc, YSrc: Integer; Rop: DWORD = SRCCOPY; Precise: Boolean = False): Boolean;
 function CreateRectRgn(X1, Y1, X2, Y2: Integer): HRGN;
@@ -55 +55 @@
 end;
 
-function BitBltBitmap(Dest: TBitmap; X, Y, Width, Height: Integer;
+function BitBltBitmapPrecise(Dest: TBitmap; X, Y, Width, Height: Integer;
   Src: TBitmap; XSrc, YSrc: Integer; Rop: DWORD = SRCCOPY;
   Precise: Boolean = False): Boolean;
@@ -64 +64 @@
   DstPixelX, DstPixelY: Integer;
   DstPixelWidth, DstPixelHeight: Integer;
-  NewY: Integer;
 begin
   if not Precise or (Frac(ScreenInfo.Dpi / 96) = 0) then begin