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

IDE: call OnLoadSaveCustomData only if there is CustomData

Browse Source
This commit is contained in:
mattias 2022-04-11 13:47:27 +02:00
parent 59a8e8e6c9
commit 304aa2a528
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

@ -2911,7 +2911,7 @@ procedure TProject.LoadCustomData(Sender: TObject; Data: TStringToStringTree;
XMLConfig: TXMLConfig; const Path: string);
begin
LoadStringToStringTree(XMLConfig,Data,Path);
if Assigned(OnLoadSafeCustomData) then
if Assigned(OnLoadSafeCustomData) and (Data.Count>0) then
OnLoadSafeCustomData(Sender,true,Data,fPathDelimChanged);
end;