Changeset 503 for trunk/LocalPlayer

Timestamp:

Dec 23, 2023, 8:59:07 PM (11 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/LocalPlayer/Help.pas (modified) (12 diffs)

trunk/LocalPlayer/Help.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ScreenTools, BaseWin, StringTables, Math, LCLIntf, LCLType,
-  Messages, SysUtils, Classes, ButtonB, PVSB, Types, Generics.Collections, IsoEngine,
+  Protocol, ScreenTools, BaseWin, StringTables, Math, LCLIntf, LCLType, Messages,
+  SysUtils, Classes, ButtonB, PVSB, Types, Generics.Collections, IsoEngine,
   {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.ExtCtrls, Dpi.Common,
   System.UITypes{$ELSE}
@@ -858 +858 @@
           x0[I] := x0[I] + 8;
         end;
-        Self.Line(OffScreen.Canvas, I, False)
+        Self.Line(OffScreen.Canvas, I, False);
       end;
   end;
@@ -1113 +1113 @@
                 Delete(S, 1, P)
               else
-                Delete(S, 1, P - 1)
+                Delete(S, 1, P - 1);
             end;
           '!': // highlighted
@@ -1146 +1146 @@
         repeat
           repeat
-            Inc(P)
+            Inc(P);
           until (P > Length(S)) or (S[P] = ' ') or (S[P] = '\');
           if (BiColorTextWidth(OffScreen.Canvas, Copy(S, 1, P - 1)) <=
@@ -1211 +1211 @@
         MainText[Count - 1] := Format(HelpText.Lookup('REQUIRED'),
           [MainText[Count - 1]]);
-    end
+    end;
   end;
 
@@ -1253 +1253 @@
     I: Integer;
     S: string;
-    sr: TSearchRec;
+    SearchRec: TSearchRec;
     List, Plus: TStringList;
   begin
     List := TStringList.Create;
     Plus := TStringList.Create;
-    if FindFirst(GetGraphicsDir + DirectorySeparator + '*.credits.txt', $27, sr) = 0 then
+    if FindFirst(GetGraphicsDir + DirectorySeparator + '*.credits.txt', $27, SearchRec) = 0 then
       repeat
-        Plus.LoadFromFile(GetGraphicsDir + DirectorySeparator + sr.Name);
+        Plus.LoadFromFile(GetGraphicsDir + DirectorySeparator + SearchRec.Name);
         List.AddStrings(Plus);
-      until FindNext(sr) <> 0;
-    FindClose(sr);
+      until FindNext(SearchRec) <> 0;
+    FindClose(SearchRec);
     FreeAndNil(Plus);
 
@@ -1959 +1959 @@
   if (Sel + i0 >= MainText.Count) or (Sel >= 0) and
     (THelpLineInfo(MainText.Objects[Sel + i0]).Category = hkNoLink) and
-    (THelpLineInfo(MainText.Objects[Sel + i0]).Index = 0)then
+    (THelpLineInfo(MainText.Objects[Sel + i0]).Index = 0) then
     Sel := -1;
   if Sel <> Sel0 then
@@ -2166 +2166 @@
       SearchResult.AddLine(S, pkNormal, 0, hkImp, I, True);
       Include(mIMPHELP, I);
-    end
+    end;
   end;
   for I := 0 to nGov - 1 do
@@ -2187 +2187 @@
     begin
       if (I >= 0) and ((I <> PrevIndex) or (H <> PrevHandle)) and
-        not(I in mADVHELP) then
+        not (I in mADVHELP) then
       begin
         S := Phrases.Lookup('ADVANCES', I);
@@ -2200 +2200 @@
     begin
       if (I >= 0) and ((I <> PrevIndex) or (H <> PrevHandle)) and
-        not(I in mIMPHELP) then
+        not (I in mIMPHELP) then
       begin
         S := Phrases.Lookup('IMPROVEMENTS', I);
@@ -2219 +2219 @@
     begin
       if (I >= 0) and ((I <> PrevIndex) or (H <> PrevHandle)) and
-        not(I in mFEATUREHELP) then
+        not (I in mFEATUREHELP) then
       begin
         S := Phrases.Lookup('FEATURES', I);
@@ -2271 +2271 @@
     while BiColorTextWidth(OffScreen.Canvas, SearchResult[I]) >
       RightMargin - 32 do
-      SearchResult[I] := Copy(SearchResult[I], 1, Length(SearchResult[I]) - 1)
+      SearchResult[I] := Copy(SearchResult[I], 1, Length(SearchResult[I]) - 1);
   end;
 end;