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

* Fix GetNodeAt when header is visible

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@405 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2008-04-06 13:39:04 +00:00
parent 7e0bcbe685
commit 03ad773153
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -25161,14 +25161,18 @@ begin
AbsolutePos := Y; AbsolutePos := Y;
if Relative then if Relative then
begin
Inc(AbsolutePos, -FOffsetY); Inc(AbsolutePos, -FOffsetY);
if hoVisible in FHeader.FOptions then
Inc(AbsolutePos, FHeader.Height);
end;
// CurrentPos tracks a running term of the current position to test for. // CurrentPos tracks a running term of the current position to test for.
// It corresponds always to the top position of the currently considered node. // It corresponds always to the top position of the currently considered node.
//lclheader: adjust position if Header is visible //lclheader: adjust position if Header is visible
if hoVisible in FHeader.FOptions then if hoVisible in FHeader.FOptions then
CurrentPos:=FHeader.Height CurrentPos := FHeader.Height
else else
CurrentPos := 0; CurrentPos := 0;