Changeset 533 for trunk/LocalPlayer

Timestamp:

Apr 12, 2024, 8:58:58 PM (7 months ago)

Author:

chronos

Message:

• Fixed: Eliminated unwanted second map resize and redraw during displaying of the main game window.

Location:

trunk/LocalPlayer

Files:

• IsoEngine.pas (modified) (4 diffs)
• Term.lfm (modified) (1 diff)
• Term.pas (modified) (8 diffs)

trunk/LocalPlayer/IsoEngine.pas

@@ -380 +380 @@
     for Y := -2 to 6 do
       BitBltBitmap(LandPatch, (X + 2) * (xxt * 2), (Y + 2) * yyt, xxt,
-        yyt, HGrTerrain.Data, xSrc + xxt, ySrc + yyt,
-        SRCPAINT);
+        yyt, HGrTerrain.Data, xSrc + xxt, ySrc + yyt, SRCPAINT);
     for Y := -2 to 6 do
       BitBltBitmap(LandPatch, (X + 2) * (xxt * 2) + xxt, (Y + 2) * yyt,
-        xxt, yyt, HGrTerrain.Data, xSrc, ySrc + yyt,
-        SRCPAINT);
+        xxt, yyt, HGrTerrain.Data, xSrc, ySrc + yyt, SRCPAINT);
     for Y := -2 to 6 do
       BitBltBitmap(LandPatch, (X + 2) * (xxt * 2), (Y + 2) * yyt, xxt,
@@ -413 +411 @@
     for X := 0 to 7 do
       BitBltBitmap(LandMore, (X + 2) * (xxt * 2) - xxt, (Y + 2) * yyt,
-        xxt * 2, yyt, HGrTerrain.Data, xSrc, ySrc + yyt,
-        SRCPAINT);
+        xxt * 2, yyt, HGrTerrain.Data, xSrc, ySrc + yyt, SRCPAINT);
     for X := -2 to 6 do
       BitBltBitmap(LandMore, (X + 2) * (xxt * 2), (Y + 2) * yyt,
@@ -432 +429 @@
       begin
         BitBltBitmap(OceanPatch, X * (xxt * 2), Y * yyt, xxt, yyt,
-          HGrTerrain.Data, xSrc + xxt, ySrc + yyt,
-          SRCPAINT);
+          HGrTerrain.Data, xSrc + xxt, ySrc + yyt, SRCPAINT);
         BitBltBitmap(OceanPatch, X * (xxt * 2) + xxt, Y * yyt, xxt, yyt,
           HGrTerrain.Data, xSrc, ySrc + yyt, SRCPAINT);
@@ -456 +452 @@
       begin
         BitBltBitmap(OceanMore, X * (xxt * 2), Y * yyt, xxt, yyt,
-          HGrTerrain.Data, xSrc + xxt, ySrc + yyt,
-          SRCPAINT);
+          HGrTerrain.Data, xSrc + xxt, ySrc + yyt, SRCPAINT);
         BitBltBitmap(OceanMore, X * (xxt * 2) + xxt, Y * yyt, xxt, yyt,
           HGrTerrain.Data, xSrc, ySrc + yyt, SRCPAINT);

trunk/LocalPlayer/Term.lfm

@@ -33 +33 @@
   LCLVersion = '2.2.0.4'
   Scaled = False
-  WindowState = wsMaximized
+  WindowState = wsNormal
   object UnitBtn: TButtonB
     Tag = 14

trunk/LocalPlayer/Term.pas

@@ -245 +245 @@
     procedure FormResize(Sender: TObject);
     procedure PanelBtnClick(Sender: TObject);
-    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
     procedure Toggle(Sender: TObject);
     procedure PanelBoxMouseMove(Sender: TObject; Shift: TShiftState;
@@ -260 +259 @@
       Shift: TShiftState; X, Y: Integer);
     procedure FormPaint(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+    procedure FormShow(Sender: TObject);
     procedure mRepClicked(Sender: TObject);
     procedure mLogClick(Sender: TObject);
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
-    procedure FormShow(Sender: TObject);
     procedure Radio(Sender: TObject);
     procedure mManipClick(Sender: TObject);
@@ -329 +329 @@
     NoMap: TIsoMap;
     NoMapPanel: TIsoMap;
+    LastResizeWidth: Integer;
+    LastResizeHeight: Integer;
+    LastWindowState: TWindowState;
     // Forms
     FWondersDlg: TWondersDlg;
@@ -2815 +2818 @@
           Brush.Style := TBrushStyle.bsClear;
         end;
-        FormResize(nil); // place mini map correctly according to its size
         Show;
         Update;
@@ -4197 +4199 @@
   MiniFrame, MaxMapWidth: Integer;
 begin
+  if (LastResizeWidth = Width) and (LastResizeHeight = Height) and
+    (LastWindowState = WindowState) then Exit
+  else begin
+    LastResizeWidth := Width;
+    LastResizeHeight := Height;
+    LastWindowState := WindowState;
+  end;
+
   SmallScreen := Width < 1024;
   with MainMap do begin
@@ -7091 +7101 @@
     if not Active and (CurrentWindowState = TWindowState.wsFullScreen) then begin
       if PrevWindowState = TWindowState.wsMaximized then begin
-        CurrentWindowState := TWindowState.wsMaximized;
+        CurrentWindowState := TWindowState.wsNormal;
         WindowState := CurrentWindowState;
       end else begin
-        CurrentWindowState := TWindowState.wsNormal;
+        CurrentWindowState := PrevWindowState;
         WindowState := CurrentWindowState;
         WindowState := TWindowState.wsFullScreen;
@@ -8106 +8116 @@
 procedure TMainScreen.FormShow(Sender: TObject);
 begin
+  if FullScreen then BoundsRect := Bounds(0, 0, Screen.Width, Screen.Height)
+    else BoundsRect := TermBounds;
   SetFullScreen(FullScreen);
+  FormResize(nil); // place mini map correctly according to its size
   Timer1.Enabled := True;
 end;
@@ -8112 +8125 @@
 procedure TMainScreen.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
+  TermBounds := BoundsRect;
   Timer1.Enabled := False;
 end;