Changeset 457 for trunk/LocalPlayer/Term.pas

Timestamp:

Nov 27, 2023, 12:10:57 AM (5 months ago)

Author:

chronos

Message:

• Modified: Use enumeration type in Help unit for better readability.
• Fixed: Corruption external help image referenced with incorrect file name case.
• Fixed: Chinese translation converted to UTF-8.
• Modified: Code cleanup.

File:

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

trunk/LocalPlayer/Term.pas

@@ -2646 +2646 @@
         HelpDlg.Difficulty := 0;
         if Command = cStartCredits then
-          HelpDlg.ShowNewContent(wmModal, hkMisc, miscCredits)
+          HelpDlg.ShowNewContent(wmModal, hkMisc, Integer(miscCredits))
         else
-          HelpDlg.ShowNewContent(wmModal, hkMisc, miscMain);
+          HelpDlg.ShowNewContent(wmModal, hkMisc, Integer(miscMain));
         Tribes.Done;
       end;
@@ -3838 +3838 @@
     HelpDlg.ShowNewContent(wmPersistent, hkText, HelpDlg.TextIndex('MAPEDIT'))
   else
-    HelpDlg.ShowNewContent(wmPersistent, hkMisc, miscMain);
+    HelpDlg.ShowNewContent(wmPersistent, hkMisc, Integer(miscMain));
 end;
 
@@ -6330 +6330 @@
             PaintLoc(ToLoc, 1);
           end;
-        rExecuted .. maxint:
+        rExecuted..MaxInt:
           begin
             if Result and rUnitRemoved <> 0 then
@@ -6458 +6458 @@
         CityOptimizer_BeginOfTurn;
         NeedEcoUpdate := True;
-      end
-      else
-      begin
+      end else begin
         if cixChanged >= 0 then
         begin