Changeset 254 for branches/highdpi/Packages/DpiControls/UDpiControls.pas

Timestamp:

May 23, 2020, 12:55:52 AM (4 years ago)

Author:

chronos

Message:

• Fixed: Build DpiScrollDC under Linux.

File:

• branches/highdpi/Packages/DpiControls/UDpiControls.pas (modified) (3 diffs)

branches/highdpi/Packages/DpiControls/UDpiControls.pas

@@ -941 +941 @@
 function DpiBitBltCanvas(Dest: TDpiCanvas; X, Y, Width, Height: Integer; Src: TDpiCanvas; XSrc, YSrc: Integer; Rop: DWORD = SRCCOPY): Boolean;
 function DpiCreateRectRgn(X1, Y1, X2, Y2: Integer): HRGN;
-function DpiScrollDC(hDC:HDC; dx:longint; dy:longint; const lprcScroll:RECT; const lprcClip:RECT;hrgnUpdate:HRGN; lprcUpdate: LPRECT): WINBOOL;
+function DpiScrollDC(Canvas: TDpiCanvas; dx: Longint; dy: Longint; const lprcScroll: TRect;
+  const lprcClip:TRect; hrgnUpdate: Handle; lprcUpdate: PRect): Boolean;
 function ScaleToNative(Value: Integer): Integer;
 function ScaleFromNative(Value: Integer): Integer;
@@ -984 +985 @@
 end;
 
-{$IFDEF LINUX}
-function LinuxScrollDC(Canvas: TDpiCanvas; dx: longint; dy: longint; const lprcScroll:TRect; const lprcClip:TRect; hrgnUpdate:HRGN; lprcUpdate: PRect):Boolean;
-begin
-end;
-{$ENDIF}
-
-function DpiScrollDC(hDC: HDC; dx: longint; dy: longint;
-  const lprcScroll: RECT; const lprcClip: RECT; hrgnUpdate: HRGN;
-  lprcUpdate: LPRECT): WINBOOL;
+function DpiScrollDC(Canvas: TDpiCanvas; dx: Longint; dy: Longint;
+  const lprcScroll: TRect; const lprcClip: TRect; hrgnUpdate: Handle;
+  lprcUpdate: PRect): Boolean;
 begin
   {$IFDEF WINDOWS}
-  Result := Windows.ScrollDC(hDC, ScaleToNative(dx), ScaleToNative(dy),
+  Result := Windows.ScrollDC(Canvas.Handle, ScaleToNative(dx), ScaleToNative(dy),
     ScaleRectToNative(lprcScroll), ScaleRectToNative(lprcClip),
     hrgnUpdate, lprcUpdate);
@@ -1001 +996 @@
   {$IFDEF LINUX}
   // Can't do scrolling of DC under Linux, then fallback into BitBlt.
-  Result := DpiBitCanvas(Canvas, lprcScroll.Left + dx, lprcScroll.Top + dy, lprcScroll.Right - lprcScroll.Left, lprcScroll.Bottom - lprcScroll.Top,
+  Result := DpiBitBltCanvas(Canvas, lprcScroll.Left + dx, lprcScroll.Top + dy, lprcScroll.Right - lprcScroll.Left, lprcScroll.Bottom - lprcScroll.Top,
     Canvas, lprcScroll.Left, lprcScroll.Top);
   {$ENDIF}