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

16
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,14 +22148,11 @@ 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 if AComponent = FHeader.FImages then
begin FHeader.Images := nil
if AComponent = FHeader.FImages then else
FHeader.Images := nil if AComponent = FHeader.PopupMenu then
else FHeader.PopupMenu := nil;
if AComponent = FHeader.PopupMenu then
FHeader.PopupMenu := nil;
end;
end; end;
inherited; inherited;
end; end;