Changeset 657 for trunk/Packages/CevoComponents/BaseWin.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/CevoComponents/BaseWin.pas (modified) (3 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;