Changeset 657 for trunk/Packages

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Packages

Files:

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

trunk/Packages/CevoComponents/BaseWin.pas

@@ -64 +64 @@
 
 const
-  yUnused = 161;
   NarrowFrame = 11;
   WideFrame = 36;
@@ -477 +476 @@
 
 procedure CreateOffscreen(var Offscreen: TBitmap; Width, Height: Integer);
-var
-  NewWidth: Integer;
-  NewHeight: Integer;
 begin
   if not Assigned(Offscreen) then begin
@@ -485 +481 @@
     Offscreen.PixelFormat := TPixelFormat.pf24bit;
   end;
-  if Height - yUnused < 480 then begin
-    NewWidth := Width;
-    NewHeight := 480;
-  end else begin
-    NewWidth := Width;
-    NewHeight := Height - yUnused;
-  end;
-  if (Offscreen.Width <> NewWidth) or (Offscreen.Height <> NewHeight) then begin
-    Offscreen.SetSize(NewWidth, NewHeight);
+  if (Offscreen.Width <> Width) or (Offscreen.Height <> Height) then begin
+    Offscreen.SetSize(Width, Height);
     Offscreen.Canvas.Brush.Color := clBlack;
     Offscreen.Canvas.Brush.Style := TBrushStyle.bsSolid;

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