Ignore:
Timestamp:
Nov 27, 2023, 12:10:57 AM (6 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:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LocalPlayer/MessgEx.pas

    r456 r457  
    77  Messg, Protocol, ScreenTools, Platform, DateUtils, LCLIntf, LCLType, Messages,
    88  SysUtils, Classes, Graphics, Controls, Forms, ButtonA, ButtonB, StdCtrls,
    9   DrawDlg;
     9  DrawDlg, Help;
    1010
    1111type
    … …  
    3434    Kind: TMessageKind;
    3535    IconIndex: Integer;
    36     HelpKind: Integer;
     36    HelpKind: TLinkCategory;
    3737    HelpNo: Integer;
    3838    CenterTo: Integer;
    … …  
    5757  : Integer;
    5858procedure ContextMessage(SimpleText, SoundItem: string;
    59   ContextKind, ContextNo: Integer);
     59  ContextKind: TLinkCategory; ContextNo: Integer);
    6060
    6161
    … …  
    6363
    6464uses
    65   ClientTools, BaseWin, Term, Help, UnitStat, Tribes, PixelPointer,
     65  ClientTools, BaseWin, Term, UnitStat, Tribes, PixelPointer,
    6666  Diagram, Sound;
    6767
    … …  
    525525
    526526procedure ContextMessage(SimpleText, SoundItem: string;
    527   ContextKind, ContextNo: Integer);
     527  ContextKind: TLinkCategory; ContextNo: Integer);
    528528begin
    529529  with MessgExDlg do
Note: See TracChangeset for help on using the changeset viewer.