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

Timestamp:

Dec 4, 2023, 9:42:30 PM (5 months ago)

Author:

chronos

Message:

• Fixed: Build under Windows.

File:

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

trunk/Packages/DpiControls/Dpi.Common.pas

@@ -4 +4 @@
 
 uses
+  {$IFDEF WINDOWS}Windows,{$ENDIF}
   Classes, SysUtils, LCLType, Types, LCLIntf, Graphics, Dpi.Graphics;
 
@@ -9 +10 @@
   DpiControlsComponentPaletteName = 'DpiControls';
 
-function BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc: Integer; Rop: DWORD = SRCCOPY): Boolean;
-function BitBltCanvas(Dest: TCanvas; X, Y, Width, Height: Integer; Src: TCanvas; XSrc, YSrc: Integer; Rop: DWORD = SRCCOPY): Boolean;
+function BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc,
+    YSrc: Integer; Rop: DWORD = SRCCOPY): Boolean;
+function BitBltCanvas(Dest: TCanvas; X, Y, Width, Height: Integer; Src: TCanvas;
+    XSrc, YSrc: Integer; Rop: DWORD = SRCCOPY): Boolean;
 function CreateRectRgn(X1, Y1, X2, Y2: Integer): HRGN;
+function ScrollDC(hDC: HDC; dx: longint; dy: longint; const lprcScroll: RECT;
+  const lprcClip:RECT;hrgnUpdate:HRGN; lprcUpdate: LPRECT): WINBOOL; overload;
 function ScrollDC(Canvas: TCanvas; dx: Longint; dy: Longint; const lprcScroll: TRect;
-  const lprcClip:TRect; hrgnUpdate: Handle; lprcUpdate: PRect): Boolean;
+  const lprcClip:TRect; hrgnUpdate: Handle; lprcUpdate: PRect): Boolean; overload;
 function ScaleToNative(Value: Integer): Integer;
 function ScaleToNativeDist(Base, Value: Integer): Integer;
@@ -44 +49 @@
   Result := LCLIntf.CreateRectRgn(ScaleToNative(X1), ScaleToNative(Y1), ScaleToNative(X2),
     ScaleToNative(Y2));
+end;
+
+function ScrollDC(hDC: HDC; dx: longint; dy: longint; const lprcScroll: RECT;
+  const lprcClip: RECT; hrgnUpdate: HRGN; lprcUpdate: LPRECT): WINBOOL;
+var
+  R: RECT;
+begin
+  if Assigned(lprcUpdate) then begin
+    R := ScaleRectToNative(lprcUpdate^);
+    lprcUpdate := @R;
+  end;
+  Result := Windows.ScrollDC(hDC, ScaleToNative(dx), ScaleToNative(dY),
+    ScaleRectToNative(lprcScroll), ScaleRectToNative(lprcClip), hrgnUpdate, lprcUpdate);
 end;