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

IDE: search units with Pascal case insensitivity, instead of UTF-8

Browse Source 
git-svn-id: trunk@53404 -
This commit is contained in:
mattias 2016-11-21 16:12:38 +00:00
parent e53ad0a63b
commit dfcce2b301
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
converter/convertdelphi.pas
View File

@ -1011,7 +1011,7 @@ begin
fDelphiPFilename:=ChangeFileExt(fSettings.MainFilename,fDelphiPSuffix);
if not FileExistsUTF8(fDelphiPFilename) then
fDelphiPFilename:=FindDiskFileCaseInsensitive(fSettings.MainFilename);
// ? fDelphiPFilename:=CodeToolBoss.DirectoryCachePool.FindDiskFilename(fDelphiPFilename);
// ? fDelphiPFilename:=CodeToolBoss.DirectoryCachePool.FindDiskFilename(fSettings.MainFilename);
// Actual conversion.
Result:=ConvertSub;

2
packager/packagedefs.pas
View File

@ -2177,7 +2177,7 @@ begin
AFilename:=AppendPathDelim(CurDir)+AFilename;
end;
if not FilenameIsAbsolute(AFilename) then exit;
AFilename:=FindDiskFileCaseInsensitive(AFilename);
AFilename:=CodeToolBoss.DirectoryCachePool.FindDiskFilename(AFilename);
if not FileExistsCached(AFilename) then exit;
Result:=AFilename;
end;

2
packager/packagesystem.pas
View File

@ -5639,7 +5639,7 @@ begin
if (CurDir<>'') then begin
if pvPkgSearch in Verbosity then
debugln(['Info: (lazarus) Open dependency ['+Dependency.PackageName+']: trying in owner directory "'+AppendPathDelim(CurDir)+'" ...']);
AFilename:=FindDiskFileCaseInsensitive(
AFilename:=CodeToolBoss.DirectoryCachePool.FindDiskFilename(
AppendPathDelim(CurDir)+Dependency.PackageName+'.lpk');
if FileExistsCached(AFilename) then begin
OpenFile(AFilename);