From f4655c513f732490c63c21fc1488f541880dd8e2 Mon Sep 17 00:00:00 2001
From: 4aiman <konsorumaniakku@ya.ru>
Date: Wed, 21 Feb 2024 18:03:50 +0300
Subject: [PATCH] Fixed window normalization; Added 'The Prologue' room; Fixed
 app caption

---
 mmbn5m.lpi |   2 +-
 mmbn5m.lps |   4 ++--
 mmbn5m.res | Bin 12216 -> 12216 bytes
 rooms.ini  |   1 +
 unit1.pas  |  10 +++++++---
 5 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/mmbn5m.lpi b/mmbn5m.lpi
index 07689a1..6ac1b86 100644
--- a/mmbn5m.lpi
+++ b/mmbn5m.lpi
@@ -18,7 +18,7 @@
       <UseVersionInfo Value="True"/>
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="1"/>
-      <RevisionNr Value="4"/>
+      <RevisionNr Value="5"/>
       <BuildNr Value="18"/>
       <Attributes pvaPrivateBuild="True"/>
     </VersionInfo>
diff --git a/mmbn5m.lps b/mmbn5m.lps
index 63957db..aa61f45 100644
--- a/mmbn5m.lps
+++ b/mmbn5m.lps
@@ -59,8 +59,8 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="352"/>
-        <CursorPos X="94" Y="363"/>
+        <TopLine Value="330"/>
+        <CursorPos X="81" Y="340"/>
         <UsageCount Value="44"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
diff --git a/mmbn5m.res b/mmbn5m.res
index b7b63f4ec370492d2f540b02d575898e22d719c6..e1299328831ae17daaf210481f39ba2b0c462a0a 100644
GIT binary patch
delta 20
bcmdlHzaxG_89O8E<Z||}jHa7&IlR>YRe%RL

delta 20
bcmdlHzaxG_89O7(<Z||}j3%3NIlR>YRc;41

diff --git a/rooms.ini b/rooms.ini
index 99b69b6..fe62670 100644
--- a/rooms.ini
+++ b/rooms.ini
@@ -119,6 +119,7 @@
 1414=Undernet 4
 653=Tree Comp
 3469=Message Comp
+394=Prologue Room
 
 [Spoils]
 397=RegUP2,1000z
diff --git a/unit1.pas b/unit1.pas
index a7bd40c..835e94c 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -337,7 +337,7 @@ end;
 procedure TForm1.WMHotKey(var MSG: TWMHotKey);
 begin
   fullscreen_map := not fullscreen_map;
-  Form1.Caption := (BoolToStr(fullscreen_map));
+
   Form1.Visible := False;
   if (fullscreen_map = True) then
   begin
@@ -345,6 +345,7 @@ begin
     y := Form1.top;
     w := Form1.Width;
     h := Form1.Height;
+    Application.ProcessMessages;
     state := Form1.WindowState;
     Form1.FormStyle := fsStayOnTop;
     Form1.BorderStyle := bsNone;
@@ -355,13 +356,16 @@ begin
   end
   else
   begin
+    Form1.WindowState := state;
     Form1.FormStyle := fsNormal;
-    Form1.BorderStyle := bsSingle;
+    Form1.BorderStyle := bsSizeable;
+    Application.ProcessMessages;
+    Form1.Position:=poDesigned;
     Form1.Left := x;
     Form1.Top := y;
     form1.Width := w;
     Form1.Height := h;
-    Form1.WindowState := state;
+
   end;
   Form1.Visible := True;
   RegisterHotKey(Handle, 111000, MOD_WIN, VK_Y);