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

Fixed memleak in rename identifier

Browse Source 
git-svn-id: trunk@8090 -
This commit is contained in:
vincents 2005-11-07 09:58:41 +00:00
parent 8ca9b4ebec
commit b7505abecb
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/findrenameidentifier.pas
View File

@ -386,7 +386,6 @@ begin
CurrentListBox.Items.Add(s); CurrentListBox.Items.Add(s);
LoadCodeBuffer(ACodeBuffer,IdentifierFileName,[lbfCheckIfText]); LoadCodeBuffer(ACodeBuffer,IdentifierFileName,[lbfCheckIfText]);
if ACodeBuffer<>nil then begin if ACodeBuffer<>nil then begin
ListOfCodeBuffer:=nil;
CodeToolBoss.GetIncludeCodeChain(ACodeBuffer,true,ListOfCodeBuffer); CodeToolBoss.GetIncludeCodeChain(ACodeBuffer,true,ListOfCodeBuffer);
if ListOfCodeBuffer<>nil then begin if ListOfCodeBuffer<>nil then begin
for i:=0 to ListOfCodeBuffer.Count-1 do begin for i:=0 to ListOfCodeBuffer.Count-1 do begin
@ -395,6 +394,7 @@ begin
s:=CurCode.Filename; s:=CurCode.Filename;
CurrentListBox.Items.Insert(0,s); CurrentListBox.Items.Insert(0,s);
end; end;
ListOfCodeBuffer.Free;
end; end;
if CodeToolBoss.GetIdentifierAt(ACodeBuffer, if CodeToolBoss.GetIdentifierAt(ACodeBuffer,
NewIdentifierPosition.X,NewIdentifierPosition.Y,NewIdentifier) then NewIdentifierPosition.X,NewIdentifierPosition.Y,NewIdentifier) then

3
ideintf/columndlg.pp
View File

@ -214,7 +214,8 @@ Begin
Parent := self; Parent := self;
Caption := 'OK'; Caption := 'OK';
Left := CaptionLabel.Left; Left := CaptionLabel.Left;
Top := MoveUpButton.Top; kind := bkOK; Top := MoveUpButton.Top;
kind := bkOK;
end; end;
btnCancel := TBitbtn.Create(self); btnCancel := TBitbtn.Create(self);