Changeset 561

Timestamp:

Apr 28, 2024, 12:39:51 AM (2 weeks ago)

Author:

chronos

Message:

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

Location:

trunk

Files:

• LocalPlayer/Term.pas (modified) (3 diffs)
• Packages/CevoComponents/BaseWin.pas (modified) (1 diff)

trunk/LocalPlayer/Term.pas

@@ -1729 +1729 @@
   UnusedTribeFiles := TStringList.Create;
   UnusedTribeFiles.Sorted := True;
-  TribeNames := tstringlist.Create;
+  TribeNames := TStringList.Create;
 
   IsoEngine.Init(InitEnemyModel);
@@ -5624 +5624 @@
           PaintLocTemp(MyUn[UnFocus].Loc, pltsBlink);
           PaintDestination;
-          // if MoveHintToLoc>=0 then
-          // ShowMoveHint(MoveHintToLoc, true);
+          // if MoveHintToLoc >= 0 then
+          // ShowMoveHint(MoveHintToLoc, True);
         end;
       end
@@ -8287 +8287 @@
   MiniFrame, MaxMapWidth: Integer;
 begin
+  BaseWin.CreateOffscreen(Offscreen);
   SmallScreen := Width < 1024;
   with MainMap do begin

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;