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

IDE: Allow dragging a newly created file to package editor. Issue #41435.

Browse Source
This commit is contained in:
Juha 2025-02-19 10:14:40 +02:00
parent 94021dc8b0
commit 0e2a394a0c
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/packages/idepackager/packagedefs.pas
View File

@ -3469,6 +3469,7 @@ begin
NewFlags:=[];
NewUnitName:='';
if (NewFileType=pftUnit) then begin
InvalidateFileStateCache; // File may not be in cache in some d-n-d situations.
Code:=CodeToolBoss.LoadFile(aFilename,true,false);
NewUnitName:=CodeToolBoss.GetSourceName(Code,false);
Assert(NewUnitName<>'', 'TLazPackage.AddFileByName: NewUnitName is empty.');