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

let treenode item expand when double clicked (issue #742)

Browse Source 
git-svn-id: trunk@8378 -
This commit is contained in:
micha 2005-12-27 17:06:15 +00:00
parent e49ba83bc8
commit 7a2175a22b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/treeview.inc
View File

@ -4265,7 +4265,9 @@ begin
FDragNode:=CursorNode;
Include(fStates,tvsWaitForDragging);
end;
end;
end else
if (ssDouble in Shift) and (Button = mbLeft) then
CursorNode.Expanded := not CursorNode.Expanded;
end;
procedure TCustomTreeView.MouseMove(Shift: TShiftState; X, Y: Integer);