Changeset 304 for trunk/LocalPlayer/Help.pas

Timestamp:

Mar 9, 2021, 10:05:19 AM (4 years ago)

Author:

chronos

Message:

• Modified: Show configured homepage and contact page in C-evo start screen menu and help.

File:

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

trunk/LocalPlayer/Help.pas

@@ -241 +241 @@
 
   nSeeAlso = 14;
-  SeeAlso: array [0 .. nSeeAlso - 1] of record Kind, no, SeeKind,
-    SeeNo: integer end = ((Kind: hkImp; no: imWalls; SeeKind: hkFeature;
+  SeeAlso: array [0 .. nSeeAlso - 1] of record
+    Kind: Integer;
+    no: Integer;
+    SeeKind: Integer;
+    SeeNo: Integer;
+  end = ((Kind: hkImp; no: imWalls; SeeKind: hkFeature;
     SeeNo: mcArtillery), (Kind: hkImp; no: imHydro; SeeKind: hkImp;
     SeeNo: woHoover), (Kind: hkImp; no: imWalls; SeeKind: hkImp;
@@ -358 +362 @@
     Line(Canvas, Sel, false);
     Sel := -1
-  end
+  end;
 end;
 
@@ -436 +440 @@
     if (Kind = hkMisc) and (no = miscMain) then
       ca.Font.Assign(UniFont[ftNormal]);
-  end
+  end;
 end;
 
@@ -984 +988 @@
   procedure AddTextual(s: string);
   var
-    i, p, l, ofs, CurrentFormat, FollowFormat, Picpix, LinkCategory, LinkIndex,
-      RightMargin: integer;
+    i: Integer;
+    p: Integer;
+    l: Integer;
+    ofs: Integer;
+    CurrentFormat: Integer;
+    FollowFormat: Integer;
+    Picpix: Integer;
+    LinkCategory: Integer;
+    LinkIndex: Integer;
+    RightMargin: Integer;
     Name: string;
+    Text: string;
   begin
     RightMargin := InnerWidth - 16 - GetSystemMetrics(SM_CXVSCROLL);
@@ -1133 +1146 @@
             Break;
         until (p >= Length(s)) or (s[l + 1] = '\');
-        MainText.AddLine(Copy(s, 1, l), CurrentFormat, Picpix, LinkCategory,
+        Text := Copy(s, 1, l);
+        if LinkCategory and $3f = hkInternet then begin
+          if LinkIndex = 1 then Text := AITemplateManual
+          else if LinkIndex = 2 then Text := CevoHomepageShort
+          else if LinkIndex = 3 then Text := CevoContactShort;
+        end;
+        MainText.AddLine(Text, CurrentFormat, Picpix, LinkCategory,
           LinkIndex);
         if (l < Length(s)) and (s[l + 1] = '\') then