Changeset 733

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk

Files:

• Packages/CevoComponents/BaseWin.pas (modified) (3 diffs)
• Packages/CevoComponents/ScreenTools.pas (modified) (1 diff)
• Start.pas (modified) (1 diff)

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;

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -1233 +1233 @@
   FormHeight: Integer);
 begin
-  Fill(Canvas, Left, Top, Width, Height, 0, 0)
+  Fill(Canvas, Left, Top, Width, Height, 0, 0);
 end;
 

trunk/Start.pas

@@ -600 +600 @@
 begin
   inherited;
+  ClearOffscreen(Offscreen);
 
   with Offscreen do begin