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