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

Timestamp:

Apr 28, 2024, 12:39:51 AM (7 months ago)

Author:

chronos

Message:

• Fixed: Resize Term window offscreen bitmap on screen size change. Needed for tablet PC where screen can rotate.

File:

• trunk/Packages/CevoComponents/BaseWin.pas (modified) (1 diff)

trunk/Packages/CevoComponents/BaseWin.pas

@@ -476 +476 @@
 
 procedure CreateOffscreen(var Offscreen: TBitmap);
-begin
-  if Offscreen <> nil then
-    Exit;
-  Offscreen := TBitmap.Create;
-  Offscreen.PixelFormat := TPixelFormat.pf24bit;
-  if Screen.Height - yUnused < 480 then
-    Offscreen.SetSize(Screen.Width, 480)
-  else
-    Offscreen.SetSize(Screen.Width, Screen.Height - yUnused);
-  Offscreen.Canvas.FillRect(0, 0, Offscreen.Width, OffScreen.Height);
-  Offscreen.Canvas.Brush.Style := TBrushStyle.bsClear;
+var
+  NewWidth: Integer;
+  NewHeight: Integer;
+begin
+  if not Assigned(Offscreen) then begin
+    Offscreen := TBitmap.Create;
+    Offscreen.PixelFormat := TPixelFormat.pf24bit;
+  end;
+  if Screen.Height - yUnused < 480 then begin
+    NewWidth := Screen.Width;
+    NewHeight := 480;
+  end else begin
+    NewWidth := Screen.Width;
+    NewHeight := Screen.Height - yUnused;
+  end;
+  if (Offscreen.Width <> NewWidth) or (Offscreen.Height <> NewHeight) then begin
+    Offscreen.SetSize(NewWidth, NewHeight);
+    Offscreen.Canvas.FillRect(0, 0, Offscreen.Width, OffScreen.Height);
+    Offscreen.Canvas.Brush.Style := TBrushStyle.bsClear;
+  end;
 end;