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

Timestamp:

Jun 3, 2025, 10:20:19 PM (3 weeks ago)

Author:

chronos

Message:

• Fixed: Missing offscreen black area at the bottom of Draft window.
• Fixed: Build under Lazarus 4.

File:

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

trunk/Packages/DpiControls/Dpi.Common.pas

@@ -22 +22 @@
 {$ENDIF}
 function ScrollDC(Canvas: TCanvas; dx: Longint; dy: Longint; const lprcScroll: TRect;
-  const lprcClip:TRect; hrgnUpdate: Handle; lprcUpdate: PRect): Boolean; overload;
+  const lprcClip:TRect; hrgnUpdate: HWND; lprcUpdate: PRect): Boolean; overload;
 function SetWindowPos(hWnd: HWND; hWndInsertAfter: HWND;
   X, Y, cx, cy: Integer; uFlags: UINT): Boolean;
@@ -202 +202 @@
 
 function ScrollDC(Canvas: TCanvas; dx: Longint; dy: Longint;
-  const lprcScroll: TRect; const lprcClip: TRect; hrgnUpdate: Handle;
+  const lprcScroll: TRect; const lprcClip: TRect; hrgnUpdate: HWND;
   lprcUpdate: PRect): Boolean;
 begin