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

Merged revision(s) 51385 #0ce59a4f03, 51451 #bc4da6f46d from trunk:

Browse Source 
codetools: fix unused units feature broken by r50266 #d49143fd83. Issue #29486
........
IdeIntf: Make a freed BitMap Nil.
........

git-svn-id: branches/fixes_1_6@51519 -
This commit is contained in:
maxim 2016-02-06 14:26:44 +00:00
parent 6ba33c2775
commit ead5e6d5b1
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/stdcodetools.pas
View File

@ -1734,7 +1734,7 @@ var
Node:=Tree.Root;
while Node<>nil do begin
case Node.Desc of
ctnUseUnit,ctnUsesSection,
ctnUseUnit,ctnUsesSection,ctnUseUnitNamespace,ctnUseUnitClearName,
ctnProgram,ctnUnit,ctnPackage,ctnLibrary,ctnEndPoint:
begin
// skip node

2
components/ideintf/menuintf.pas
View File

@ -584,7 +584,7 @@ begin
if AValue<>nil then
Bitmap.Assign(AValue)
else
FBitmap.Free;
FreeAndNil(FBitmap);
if MenuItem<>nil then
MenuItem.Bitmap:=FBitmap;
end;