paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-11 13:28:04 +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: branches/fixes_1_6@53412 -
This commit is contained in:
mattias 2016-11-21 16:21:41 +00:00
parent 6b5cd40de6
commit 3dcfbbb3ad
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

@ -1006,7 +1006,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

@ -2172,7 +2172,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

@ -5593,7 +5593,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);