Changeset 24 for trunk/Packages


Ignore:
Timestamp:
Apr 5, 2025, 9:45:07 PM (12 days ago)
Author:
chronos
Message:
  • Fixed: Test cases executed with FormTests form from Common package.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Packages/Common/Translator.pas

    r21 r24  
    482482
    483483  Result := ChangeFileExt(ParamStr(0), LCExt);
    484   if FileExistsUTF8(Result) then
     484  if FileExists(Result) then
    485485    Exit;
    486486
    … …  
    500500    Result := ExtractFilePath(ParamStrUTF8(0)) + LangID +
    501501      DirectorySeparator + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
    502     if FileExistsUTF8(Result) then
     502    if FileExists(Result) then
    503503      exit;
    504504
    505505    Result := ExtractFilePath(ParamStrUTF8(0)) + 'languages' + DirectorySeparator + LangID +
    506506      DirectorySeparator + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
    507     if FileExistsUTF8(Result) then
     507    if FileExists(Result) then
    508508      exit;
    509509
    510510    Result := ExtractFilePath(ParamStrUTF8(0)) + 'locale' + DirectorySeparator
    511511      + LangID + DirectorySeparator + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
    512     if FileExistsUTF8(Result) then
     512    if FileExists(Result) then
    513513      exit;
    514514
    … …  
    516516      + LangID + DirectorySeparator + 'LC_MESSAGES' + DirectorySeparator +
    517517      ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
    518     if FileExistsUTF8(Result) then
     518    if FileExists(Result) then
    519519      exit;
    520520
    … …  
    523523    Result := '/usr/share/locale/' + LangID + '/LC_MESSAGES/' +
    524524      ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
    525     if FileExistsUTF8(Result) then
     525    if FileExists(Result) then
    526526      exit;
    527527    {$ENDIF}
    … …  
    531531    Result := ExtractFilePath(ParamStrUTF8(0)) + LangShortID +
    532532      DirectorySeparator + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
    533     if FileExistsUTF8(Result) then
     533    if FileExists(Result) then
    534534      exit;
    535535
    … …  
    537537      LangShortID + DirectorySeparator + ChangeFileExt(
    538538      ExtractFileName(ParamStrUTF8(0)), LCExt);
    539     if FileExistsUTF8(Result) then
     539    if FileExists(Result) then
    540540      exit;
    541541
    … …  
    543543      + LangShortID + DirectorySeparator + ChangeFileExt(
    544544      ExtractFileName(ParamStrUTF8(0)), LCExt);
    545     if FileExistsUTF8(Result) then
     545    if FileExists(Result) then
    546546      exit;
    547547
    … …  
    549549      + LangShortID + DirectorySeparator + 'LC_MESSAGES' + DirectorySeparator +
    550550      ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
    551     if FileExistsUTF8(Result) then
     551    if FileExists(Result) then
    552552      exit;
    553553
    … …  
    556556    try
    557557      Result := ExtractFilePath(ParamStrUTF8(0)) + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangID])) + LCExt;
    558       if FileExistsUTF8(Result) then
     558      if FileExists(Result) then
    559559        exit;
    560560      // Common location (like in Lazarus)
    561561      Result := ExtractFilePath(ParamStrUTF8(0)) + 'locale' + DirectorySeparator +
    562562        ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangID])) + LCExt;
    563       if FileExistsUTF8(Result) then
     563      if FileExists(Result) then
    564564        exit;
    565565
    566566      Result := ExtractFilePath(ParamStrUTF8(0)) + 'languages' +
    567567        DirectorySeparator + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangID])) + LCExt;
    568       if FileExistsUTF8(Result) then
     568      if FileExists(Result) then
    569569        exit;
    570570    except
    … …  
    575575    Result := '/usr/share/locale/' + LangShortID + '/LC_MESSAGES/' +
    576576      ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
    577     if FileExistsUTF8(Result) then
     577    if FileExists(Result) then
    578578      exit;
    579579    {$ENDIF}
    580580    Result := ExtractFilePath(ParamStrUTF8(0)) + ChangeFileExt(
    581581      ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangShortID])) + LCExt;
    582     if FileExistsUTF8(Result) then
     582    if FileExists(Result) then
    583583      exit;
    584584
    585585    Result := ExtractFilePath(ParamStrUTF8(0)) + 'locale' + DirectorySeparator +
    586586      ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangShortID])) + LCExt;
    587     if FileExistsUTF8(Result) then
     587    if FileExists(Result) then
    588588      exit;
    589589
    590590    Result := ExtractFilePath(ParamStrUTF8(0)) + 'languages' + DirectorySeparator +
    591591      ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangShortID])) + LCExt;
    592     if FileExistsUTF8(Result) then
     592    if FileExists(Result) then
    593593      exit;
    594594  end;
Note: See TracChangeset for help on using the changeset viewer.