paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 16:39:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed AddListToTreeOfPCodeXYPosition freeing old position, bug #15942

Browse Source 
git-svn-id: trunk@24260 -
This commit is contained in:
mattias 2010-03-27 23:38:32 +00:00
parent 4f5b4cc836
commit a0fc2ffad5
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/codeatom.pas
View File

@ -294,8 +294,8 @@ begin
NewCodePos:=CodePos;
DestTree.Add(NewCodePos);
end else if ClearList then begin
// position alread exists and items should be deleted
Dispose(NewCodePos);
// position already exists and items should be deleted
Dispose(CodePos);
end;
end;
if ClearList then

2
lcl/include/wincontrol.inc
View File

@ -33,7 +33,7 @@
{off $DEFINE CHECK_POSITION}
{$IFDEF CHECK_POSITION}
const CheckPostionClassName = 'xxTPage';
const CheckPostionName = 'IDEOptionsDialog';
const CheckPostionName = 'LazFindReplaceDialog';
const CheckPostionParentName = 'xxxEnvVarsPage';
function CheckPosition(AControl: TControl): boolean;