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

IDE: lpi: store last unitname

Browse Source 
git-svn-id: trunk@45576 -
This commit is contained in:
mattias 2014-06-19 10:03:25 +00:00
parent a828ed780c
commit 7474d0f59c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/project.pp
View File

@ -1739,7 +1739,7 @@ begin
XMLConfig.SetDeleteValue(Path+'ResourceBaseClass/Value', XMLConfig.SetDeleteValue(Path+'ResourceBaseClass/Value',
PFComponentBaseClassNames[FResourceBaseClass], PFComponentBaseClassNames[FResourceBaseClass],
PFComponentBaseClassNames[pfcbcNone]); PFComponentBaseClassNames[pfcbcNone]);
XMLConfig.SetDeleteValue(Path+'UnitName/Value',fUnitName,ExtractFileNameOnly(AFilename)); XMLConfig.SetDeleteValue(Path+'UnitName/Value',fUnitName,'');
// save custom data // save custom data
SaveStringToStringTree(XMLConfig,CustomData,Path+'CustomData/'); SaveStringToStringTree(XMLConfig,CustomData,Path+'CustomData/');
end; end;