diff --git a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas index b2bfec762..a34c3a72e 100644 --- a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas +++ b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas @@ -7185,15 +7185,19 @@ procedure TVirtualTreeColumn.ParentColorChanged; var Columns: TVirtualTreeColumns; - + TreeViewColor: TColor; begin if coParentColor in FOptions then begin Columns := GetOwner as TVirtualTreeColumns; - if Assigned(Columns) and (FColor <> Columns.FHeader.Treeview.Color) then + if Assigned(Columns) then begin - FColor := Columns.FHeader.Treeview.Color; - Changed(False); + TreeViewColor := Columns.FHeader.Treeview.Brush.Color; + if FColor <> TreeViewColor then + begin + FColor := TreeViewColor; + Changed(False); + end; end; end; end;