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 var
Columns: TVirtualTreeColumns; Columns: TVirtualTreeColumns;
TreeViewColor: TColor;
begin begin
if coParentColor in FOptions then if coParentColor in FOptions then
begin begin
Columns := GetOwner as TVirtualTreeColumns; Columns := GetOwner as TVirtualTreeColumns;
if Assigned(Columns) and (FColor <> Columns.FHeader.Treeview.Color) then if Assigned(Columns) then
begin begin
FColor := Columns.FHeader.Treeview.Color; TreeViewColor := Columns.FHeader.Treeview.Brush.Color;
Changed(False); if FColor <> TreeViewColor then
begin
FColor := TreeViewColor;
Changed(False);
end;
end; end;
end; end;
end; end;