Changeset 733 for trunk/Packages/CevoComponents/BaseWin.pas

Timestamp:

Jan 17, 2026, 10:05:28 AM (4 hours ago)

Author:

chronos

Message:

• Fixed: Clear offscreen bitmap in Start dialog to fix drawing of tabs background.

File:

• trunk/Packages/CevoComponents/BaseWin.pas (modified) (3 diffs)

trunk/Packages/CevoComponents/BaseWin.pas

@@ -73 +73 @@
 
 procedure CreateOffscreen(var Offscreen: TBitmap; Width, Height: Integer);
+procedure ClearOffscreen(Offscreen: TBitmap);
 function WindowModeMakePersistent(Mode: TWindowMode): TWindowMode;
 procedure Register;
@@ -81 +82 @@
 uses
   ButtonBase, Area;
+
+procedure ClearOffscreen(Offscreen: TBitmap);
+begin
+  with Offscreen.Canvas do begin
+    Brush.Color := clBlack;
+    Brush.Style := TBrushStyle.bsSolid;
+    FillRect(0, 0, Offscreen.Width, OffScreen.Height);
+    Brush.Style := TBrushStyle.bsClear;
+  end;
+end;
 
 function WindowModeMakePersistent(Mode: TWindowMode): TWindowMode;
@@ -500 +511 @@
   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;
-    Offscreen.Canvas.FillRect(0, 0, Offscreen.Width, OffScreen.Height);
-    Offscreen.Canvas.Brush.Style := TBrushStyle.bsClear;
+    ClearOffscreen(Offscreen);
   end;
 end;