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

virtualtreeview-new: Fix "Cannot click tree items if tree is scrolled down", issue #26590, patch by Tsvetoslav

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3712 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-11-09 17:36:22 +00:00
parent 91dcfc5a4a
commit 44f1fc48da
1 changed files with 3 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
components/virtualtreeview-new/trunk/VirtualTrees.pas
View File

@ -27074,6 +27074,9 @@ begin
begin
if X >= Header.Columns.GetVisibleFixedWidth then
Inc(X, FEffectiveOffsetX);
//lclheader
if hoVisible in FHeader.Options then
Dec(Y, FHeader.Height);
Inc(Y, -FOffsetY);
end;
HitInfo.HitPoint.X := X;
@ -27082,17 +27085,6 @@ begin
// If the point is in the tree area then check the nodes.
if HitInfo.HitPositions = [] then
begin
// Convert position into absolute coordinate if necessary.
if Relative then
begin
if X > Header.Columns.GetVisibleFixedWidth then
Inc(X, FEffectiveOffsetX);
//lclheader
if hoVisible in FHeader.Options then
Dec(Y, FHeader.Height);
Dec(Y, FOffsetY);
end;
HitInfo.HitNode := InternalGetNodeAt(X, Y, False, NodeTop);
if HitInfo.HitNode = nil then
Include(HitInfo.HitPositions, hiNowhere)