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

* Use Brush.Color instead of Color in Column

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1379 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2010-11-20 13:38:28 +00:00
parent 91bf4d90a4
commit 15fa426cc3
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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;