paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 09:38:13 +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
// template for a sub directory
ReadValue(DirDef,DefTempl.Value,CurPath,TempValue);
// CurPath can be ''
// Note: CurPath can be ''
SubPath:=AppendPathDelim(CurPath)+TempValue;
// 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
OnCalculate(Self,DefTempl,true,SubPath,false,'',true);
CalculateTemplate(DefTempl.FirstChild,SubPath);