Changeset 657 for trunk

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.

Location:

trunk

Files:

• Packages/CevoComponents/BaseWin.pas (modified) (3 diffs)
• Packages/DpiControls/Dpi.Common.pas (modified) (2 diffs)
• readme.txt (modified) (1 diff)

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

trunk/readme.txt

@@ -24 +24 @@
 * Home page: https://app.zdechov.net/c-evo/
 * Source code: https://svn.zdechov.net/c-evo/
-* Developed in [http://www.lazarus-ide.org/ Lazarus/FPC] 3.2.0
+* Developed in [http://www.lazarus-ide.org/ Lazarus/FPC] 4.0.0
 * To build new Windows installer run Install/build.bat. InnoSetup (http://www.jrsoftware.org/isdl.php) needs to be installed).