paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-11 04:48:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: codehelp search fpdoc case sensitive

Browse Source
This commit is contained in:
mattias 2022-05-29 19:22:01 +02:00
parent 26fb8e8750
commit 231700f9fa
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/codehelp.pas
View File

@ -1281,7 +1281,7 @@ begin
exit;
end;
// fpdoc directory found
Result:=AppendPathDelim(NewPath)+lowercase(ExtractFileNameOnly(SrcFilename))+'.xml';
Result:=AppendPathDelim(NewPath)+ExtractFileNameOnly(SrcFilename)+'.xml';
Code:=CodeToolBoss.LoadFile(SrcFilename,true,false);
// get unitname
CurUnitName:=ExtractFileNameOnly(SrcFilename);
@ -1756,7 +1756,7 @@ begin
// first check if the file is owned by any project/package
SearchedPaths:='';
FPDocName:=lowercase(ExtractFileNameOnly(SrcFilename))+'.xml';
FPDocName:=ExtractFileNameOnly(SrcFilename)+'.xml';
if (not CheckUnitOwners(false,Result)) // first check if file is owned by a package/project
and (not CheckUnitOwners(true,Result))// then check if the file is in a source directory of a package/project
and (not CheckIfInLazarus(Result))
@ -2002,7 +2002,7 @@ function TCodeHelpManager.ExpandFPDocLinkID(const LinkID,
Result:='';
if BaseDir='' then exit;
if not IDEMacros.CreateAbsoluteSearchPath(SearchPath,BaseDir) then exit;
FPDocFilename:=lowercase(AUnitName)+'.xml';
FPDocFilename:=AUnitName+'.xml';
Result:=SearchFileInPath(FPDocFilename,'',SearchPath,';',ctsfcDefault);
end;