Changeset 613 for trunk/LocalPlayer/Select.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/Select.pas (modified) (4 diffs)

trunk/LocalPlayer/Select.pas

@@ -69 +69 @@
     procedure InitLines;
     procedure Line(ca: TCanvas; L: Integer; NonText, lit: Boolean);
-    function RenameCity(cix: Integer): Boolean;
     function RenameModel(mix: Integer): Boolean;
     procedure OnScroll(var Msg: TMessage); message WM_VSCROLL;
@@ -75 +74 @@
   public
     Result: Integer;
+    function RenameCity(cix: Integer): Boolean;
     function OnlyChoice(TestKind: TListKind): Integer;
     // -2=empty, -1=ambiguous, other=only choice
@@ -248 +248 @@
   if ScrollBar.Position + L >= FirstShrinkedLine[Layer] then
     ofs := (ScrollBar.Position + L - FirstShrinkedLine[Layer]) and 1 * 33
-  else { if FirstShrinkedLine[Layer]<Lines[Layer] then }
+  else { if FirstShrinkedLine[Layer] < Lines[Layer] then }
     ofs := 33;
 
@@ -973 +973 @@
       case Kind of
         kCities, kCityEvents:
-          if RenameCity(lix) then
+          if RenameCity(lix) then begin
             SmartUpdateContent;
+            Term.MainScreen.RepaintAll;
+          end;
         kModels:
-          if RenameModel(lix) then
+          if RenameModel(lix) then begin
             SmartUpdateContent;
+            Term.MainScreen.RepaintAll;
+          end;
       end;
   end;