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

* Fix InvalidateColumn when header is visible

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@803 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-05-16 17:50:29 +00:00
parent 31f9f02355
commit 520d92a0ed
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/virtualtreeview-new/VirtualTrees.pas
View File

@ -28817,6 +28817,9 @@ begin
if (FUpdateCount = 0) and FHeader.FColumns.IsValidColumn(Column) then if (FUpdateCount = 0) and FHeader.FColumns.IsValidColumn(Column) then
begin begin
R := ClientRect; R := ClientRect;
//lclheader
if hoVisible in FHeader.FOptions then
OffsetRect(R, 0, FHeader.Height);
FHeader.Columns.GetColumnBounds(Column, R.Left, R.Right); FHeader.Columns.GetColumnBounds(Column, R.Left, R.Right);
InvalidateRect(Handle, @R, False); InvalidateRect(Handle, @R, False);
end; end;
@ -28862,7 +28865,7 @@ begin
R.Bottom := ClientHeight; R.Bottom := ClientHeight;
//lclheader //lclheader
if hoVisible in FHeader.FOptions then if hoVisible in FHeader.FOptions then
Inc(R.Bottom,FHeader.Height); Inc(R.Bottom, FHeader.Height);
InvalidateRect(Handle, @R, False); InvalidateRect(Handle, @R, False);
end; end;
end; end;