Changeset 533 for trunk/LocalPlayer/Term.pas

Timestamp:

Apr 12, 2024, 8:58:58 PM (4 weeks ago)

Author:

chronos

Message:

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

File:

• trunk/LocalPlayer/Term.pas (modified) (8 diffs)

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;