Ignore:
Timestamp:
Sep 21, 2007, 5:57:18 PM (18 years ago)
Author:
RBRi
Message:

fix for #33
fix usage of StrStartsWithIgnoringCase

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NewView/HelpTopic.pas

    r228 r252  
    10521052      ProgramFilename := ExtractFilename( ProgramPath );
    10531053
    1054       if    StrStartsWithIgnoringCase(PRGM_EXPLORER, ProgramFilename ) // web explorer?
    1055          or StrStartsWithIgnoringCase(PRGM_NETSCAPE, ProgramFilename )
    1056          or StrStartsWithIgnoringCase(PRGM_MOZILLA, ProgramFilename )
    1057          or StrStartsWithIgnoringCase(PRGM_FIREFOX, ProgramFilename )
     1054      if    StrStartsWithIgnoringCase(ProgramFilename, PRGM_EXPLORER)
     1055         or StrStartsWithIgnoringCase(ProgramFilename, PRGM_NETSCAPE)
     1056         or StrStartsWithIgnoringCase(ProgramFilename, PRGM_MOZILLA)
     1057         or StrStartsWithIgnoringCase(ProgramFilename, PRGM_FIREFOX)
    10581058         then
    10591059      begin
Note: See TracChangeset for help on using the changeset viewer.