Changeset 361 for branches/highdpi/LocalPlayer/Help.pas

Timestamp:

Apr 9, 2021, 5:56:50 PM (3 years ago)

Author:

chronos

Message:

• Modified: Merged changes from trunk r360 into highdpi branch.

File:

• branches/highdpi/LocalPlayer/Help.pas (modified) (13 diffs)

branches/highdpi/LocalPlayer/Help.pas

@@ -301 +301 @@
   CaptionFont.Assign(UniFont[ftNormal]);
   CaptionFont.Style := CaptionFont.Style + [fsItalic, fsBold];
-  InitButtons();
+  InitButtons;
 
   TopBtn.Hint := Phrases.Lookup('BTN_CONTENTS');
@@ -1248 +1248 @@
           MainText[Count - 1] := Format(HelpText.Lookup('REQUIRED'),
             [MainText[Count - 1]]);
-        end
+        end;
       end;
-    end
+    end;
   end;
 
@@ -1422 +1422 @@
                     LineFeed;
                     LineFeed;
-                  end
-                end
+                  end;
+                end;
               end;
             miscSearchResult:
@@ -1642 +1642 @@
                 NextSection('REPLACE');
                 AddItem('REPLACETEXT');
-                j := 1
+                j := 1;
               end;
               AddImprovement(ImpReplacement[i].OldImp);
@@ -1676 +1676 @@
             AddLine(HelpText.Lookup('HELPTITLE_JOBLIST'), pkNormal, 0,
               hkMisc + hkCrossLink, miscJobList);
-          CheckSeeAlso := true
+          CheckSeeAlso := true;
         end;
 
@@ -1696 +1696 @@
           begin
             TerrType := fDesert;
-            TerrSubType := 0
+            TerrSubType := 0;
           end;
           with Terrain[TerrType] do
@@ -1766 +1766 @@
                   [Phrases.Lookup('TERRAIN', fGrass + 12)]), pkTer, fGrass + 12,
                   hkTer + hkCrossLink, fGrass + 12);
-              end
+              end;
             end;
             NextSection('SPECIAL');
@@ -1778 +1778 @@
                 AddLine(Phrases.Lookup('TERRAIN', 3 * 12 + Special), pkTer,
                   3 * 12 + Special);
-              end
+              end;
             end
             else if (no < 12) and (no <> fGrass) and (no <> fOcean) then
@@ -1814 +1814 @@
               AddImprovement(woGardens);
               CheckSeeAlso := true
-            end
-          end
+            end;
+          end;
         end;
 
@@ -1882 +1882 @@
                 AddLine(Format(HelpText.Lookup('WEIGHT'), ['+2']),
                   pkDomain, dGround);
-            end
+            end;
           end;
           if Feature[no].Preq <> preNone then
@@ -1969 +1969 @@
       Line(Canvas, Sel0, False);
     if Sel <> -1 then
-      Line(Canvas, Sel, True)
-  end
+      Line(Canvas, Sel, True);
+  end;
 end;
 
@@ -1992 +1992 @@
         else
           ShowNewContent(FWindowMode, Link shr 8 and $3F, Link and $FF);
-      end
+      end;
 end;
 
@@ -2036 +2036 @@
 function THelpDlg.TextIndex(Item: string): Integer;
 begin
-  Result := HelpText.Gethandle(Item)
+  Result := HelpText.Gethandle(Item);
 end;