paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 02:29:26 +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);
LoadCodeBuffer(ACodeBuffer,IdentifierFileName,[lbfCheckIfText]);
if ACodeBuffer<>nil then begin
ListOfCodeBuffer:=nil;
CodeToolBoss.GetIncludeCodeChain(ACodeBuffer,true,ListOfCodeBuffer);
if ListOfCodeBuffer<>nil then begin
for i:=0 to ListOfCodeBuffer.Count-1 do begin
@ -395,6 +394,7 @@ begin
s:=CurCode.Filename;
CurrentListBox.Items.Insert(0,s);
end;
ListOfCodeBuffer.Free;
end;
if CodeToolBoss.GetIdentifierAt(ACodeBuffer,
NewIdentifierPosition.X,NewIdentifierPosition.Y,NewIdentifier) then

3
ideintf/columndlg.pp
View File

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