paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 20:40:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix hittest for treeview (issue #748)

Browse Source 
git-svn-id: trunk@8381 -
This commit is contained in:
micha 2005-12-28 16:13:40 +00:00
parent ee713312c6
commit e91eafaf42
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/treeview.inc
View File

@ -3167,16 +3167,16 @@ begin
Result := [];
if (X>=0) and (X<ClientWidth) and (Y>=0) and (Y<(ClientHeight-ScrollBarWidth))
then begin
inc(Y,FScrolledTop);
Node:=GetNodeAtY(Y);
if Node<>nil then begin
inc(X,FScrolledLeft);
Include(Result,htOnItem);
if X<Node.DisplayExpandSignLeft then
Include(Result,htOnIndent)
else if X<Node.DisplayIconLeft then
Include(Result,htOnButton)
else if X<Node.DisplayStateIconLeft then
Include(Result,htOnItem)
Include(Result,htOnIcon)
else if X<Node.DisplayTextLeft then
Include(Result,htOnStateIcon)
else if X<Node.DisplayTextRight then