Changeset 613 for trunk/LocalPlayer/Term.pas

Timestamp:

Sep 14, 2024, 11:02:08 AM (2 months ago)

Author:

chronos

Message:

• Added: Allow to rename city with mouse right click on city caption in City screen.
• Fixed: Do not overflow city name text in City screen.
• Fixed: Repaint main screen after city and unit rename.

File:

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

trunk/LocalPlayer/Term.pas

@@ -442 +442 @@
     procedure UpdateViews(UpdateCityScreen: Boolean = False);
     function ContactRefused(P: Integer; Item: String): Boolean;
+    procedure RepaintAll;
     // Forms
     property WondersDlg: TWondersDlg read GetWondersDlg;
@@ -4406 +4407 @@
                 MessgText := Format(Phrases.Lookup(MsgItem), [CityName(ID)]);
                 Kind := mkYesNo;
-                // BigIcon:=29;
+                // BigIcon := 29;
                 ShowModal;
                 Zoom := ModalResult <> mrOK;
@@ -4787 +4788 @@
   MiniMapPaint;
   PanelPaint;
+end;
+
+procedure TMainScreen.RepaintAll;
+begin
+  RectInvalidate(0, TopBarHeight, Width, TopBarHeight + MapHeight);
+  MapValid := False;
+  PaintAll;
 end;
 
@@ -8378 +8386 @@
   ManagementArea.Top := TopBarHeight + MapHeight - Overlap + yPalace;
   ArrangeMidPanel;
-  if RepaintOnResize then begin
-    RectInvalidate(0, TopBarHeight, Width, TopBarHeight + MapHeight);
-    MapValid := False;
-    PaintAll;
-  end;
+  if RepaintOnResize then RepaintAll;
 end;