Changeset 608 for trunk/Packages/CevoComponents/ScreenTools.pas

Timestamp:

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

Author:

chronos

Message:

• Fixed: Build without DPI define.

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (2 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}