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

ide: fix sourceeditor pointer to name assigning

Browse Source 
git-svn-id: trunk@24207 -
This commit is contained in:
paul 2010-03-25 08:38:46 +00:00
parent db2312a9d8
commit 6bce7d6359
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/sourceeditor.pp
View File

@ -5098,7 +5098,7 @@ begin
if EnvironmentOptions.IDEWindowLayoutList.ItemByFormID(Self.Name) <> nil then
EnvironmentOptions.IDEWindowLayoutList.ItemByFormID(Self.Name).CloseForm;
// Make the name unique, because it may not immediately be released
Name := Name + '___' + IntToStr(PtrInt(Pointer(Self)));
Name := Name + '___' + IntToStr(PtrUInt(Pointer(Self)));
CloseAction := caFree;
end else
{$ENDIF}