Changeset 608 for trunk/Packages

Timestamp:

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

Author:

chronos

Message:

• Fixed: Build without DPI define.

Location:

trunk/Packages

Files:

• CevoComponents/ScreenTools.pas (modified) (2 diffs)
• DpiControls/Dpi.Common.pas (modified) (3 diffs)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -106 +106 @@
 function ScaleToNativeDist(Base, Value: Integer): Integer;
 function ScaleFromNative(Value: Integer): Integer;
+function BitBltBitmapPrecise(Dest: TBitmap; X, Y, Width, Height: Integer; Src: TBitmap;
+  XSrc, YSrc: Integer; Rop: DWORD = SRCCOPY; Precise: Boolean = False): Boolean;
 {$ENDIF}
 procedure UnshareBitmap(Bitmap: TBitmap);
@@ -1683 +1685 @@
   Result := Value;
 end;
+
+function BitBltBitmapPrecise(Dest: TBitmap; X, Y, Width, Height: Integer; Src: TBitmap;
+  XSrc, YSrc: Integer; Rop: DWORD = SRCCOPY; Precise: Boolean = False): Boolean;
+begin
+  Result := BitBltBitmap(Dest, X, Y, Width, Height, Src, XSrc, YSrc, Rop);
+end;
 {$ENDIF}
 

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