paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 13:37:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed clicking on TTreeView expand sign when scrolled right

Browse Source 
git-svn-id: trunk@5666 -
This commit is contained in:
mattias 2004-07-11 13:10:14 +00:00
parent 477ec0d445
commit f4e75dad35
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/treeview.inc
View File

@ -4544,6 +4544,7 @@ procedure TCustomTreeView.MouseDown(Button: TMouseButton; Shift: TShiftState;
var
CursorNode: TTreeNode;
bStartDrag: boolean;
LogicalX: Integer;
begin
{$IFDEF VerboseDrag}
DebugLn('TCustomTreeView.MouseDown A ',Name,':',ClassName,' ');
@ -4565,16 +4566,17 @@ begin
inherited MouseDown(Button, Shift, X, Y);
CursorNode:=GetNodeAt(X,Y);
LogicalX:=X+FScrolledLeft-BorderWidth;
bStartDrag := false;
if ([ssDouble,ssTriple,ssQuad]*Shift)=[] then begin
if (Button = mbLeft) and (CursorNode<>nil) then begin
Exclude(fStates,tvsWaitForDragging);
if CursorNode.HasChildren
and (x>=CursorNode.DisplayExpandSignLeft)
and (x<CursorNode.DisplayExpandSignRight) then begin
and (LogicalX>=CursorNode.DisplayExpandSignLeft)
and (LogicalX<CursorNode.DisplayExpandSignRight) then begin
// mousedown occured on expand sign -> expand/collapse
CursorNode.Expanded:=not CursorNode.Expanded;
end else if x>=CursorNode.DisplayTextLeft then begin
end else if LogicalX>=CursorNode.DisplayTextLeft then begin
// mousedown occured in text -> select node and begin drag operation
{$IFDEF VerboseDrag}
DebugLn('TCustomTreeView.MouseDown In Text ',Name,':',ClassName,' MouseCapture=',MouseCapture);