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

* Fix draw glitch when using animated toggle

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@419 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2008-04-12 19:02:31 +00:00
parent a1db697566
commit c42a0a1751
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/virtualtreeview-unstable/VirtualTrees.pas
View File

@@ -18654,7 +18654,7 @@ begin
Logger.Send([lcScroll], 'Rect to Scroll', R); Logger.Send([lcScroll], 'Rect to Scroll', R);
ScrollWindowEx(Handle, DeltaX, DeltaY, @R, @R,0, nil, SW_INVALIDATE or SW_SCROLLCHILDREN); ScrollWindowEx(Handle, DeltaX, DeltaY, @R, @R,0, nil, SW_INVALIDATE or SW_SCROLLCHILDREN);
//todo: temporary hack to avoid some drawing problems. Will be removed when the header is properly implemented //todo: temporary hack to avoid some drawing problems. Will be removed when the header is properly implemented
InvalidateRect(Handle, nil, True); //InvalidateRect(Handle, nil, True);
end; end;
end; end;
end; end;
@@ -28081,7 +28081,8 @@ begin
begin begin
Expand := False; Expand := False;
R := GetDisplayRect(Node, NoColumn, False); R := GetDisplayRect(Node, NoColumn, False);
R.Bottom := ClientHeight; //lclheader
R.Bottom := inherited GetClientRect.Bottom;
Inc(R.Top, NodeHeight[Node]); Inc(R.Top, NodeHeight[Node]);
// No animation necessary if the node is below the current client height. // No animation necessary if the node is below the current client height.
@@ -28152,7 +28153,8 @@ begin
with ToggleData do with ToggleData do
begin begin
Inc(R.Top, NodeHeight[Node]); Inc(R.Top, NodeHeight[Node]);
R.Bottom := ClientHeight; //lclheader
R.Bottom := inherited GetClientRect.Bottom;
if R.Bottom > R.Top then if R.Bottom > R.Top then
begin begin
Expand := True; Expand := True;