pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Remove unnecessary check for FHeader

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2609 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2012-12-31 13:45:43 +00:00
parent db9b5d5168
commit 6e2a018f82
1 changed files with 6 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
View File

@ -11354,8 +11354,7 @@ begin
if HandleAllocated then
DestroyWindowHandle;
}
FHeader.Free;
FHeader := nil;
FreeAndNil(FHeader);
if FCheckImages <> FCustomCheckImages then
FCheckImages.Free;
@ -22149,15 +22148,12 @@ begin
PopupMenu := nil
else
// Check for components linked to the header.
if Assigned(FHeader) then
begin
if AComponent = FHeader.FImages then
FHeader.Images := nil
else
if AComponent = FHeader.PopupMenu then
FHeader.PopupMenu := nil;
end;
end;
inherited;
end;