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

codetools: define template directory: fixed skipping empty directory

Browse Source 
git-svn-id: trunk@54688 -
This commit is contained in:
mattias 2017-04-22 14:44:08 +00:00
parent 9af0510f2d
commit 0bde8fa043
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/definetemplates.pas
View File

@ -5422,10 +5422,11 @@ var
begin begin
// template for a sub directory // template for a sub directory
ReadValue(DirDef,DefTempl.Value,CurPath,TempValue); ReadValue(DirDef,DefTempl.Value,CurPath,TempValue);
// CurPath can be '' // Note: CurPath can be ''
SubPath:=AppendPathDelim(CurPath)+TempValue; SubPath:=AppendPathDelim(CurPath)+TempValue;
// test if ExpandedDirectory is part of SubPath // test if ExpandedDirectory is part of SubPath
if FilenameIsMatching(SubPath,ExpandedDirectory,false) then begin if (SubPath<>'') and FilenameIsMatching(SubPath,ExpandedDirectory,false)
then begin
if Assigned(OnCalculate) then if Assigned(OnCalculate) then
OnCalculate(Self,DefTempl,true,SubPath,false,'',true); OnCalculate(Self,DefTempl,true,SubPath,false,'',true);
CalculateTemplate(DefTempl.FirstChild,SubPath); CalculateTemplate(DefTempl.FirstChild,SubPath);