paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 10:52:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Don't trigger click event on TreeView's fold-arrow if another node is selected. Issue #37051.

Browse Source 
git-svn-id: trunk@63147 -
This commit is contained in:
juha 2020-05-13 22:29:10 +00:00
parent c236e626e7
commit b4415f3aa4
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/comctrls.pp
View File

@ -3518,7 +3518,10 @@ type
procedure Change(Node: TTreeNode); virtual;
procedure Collapse(Node: TTreeNode); virtual;
procedure CreateWnd; override;
procedure Click; override;
procedure DblClick; override;
//procedure TripleClick; override; - Are these needed?
//procedure QuadClick; override;
procedure Delete(Node: TTreeNode); virtual;
procedure DestroyWnd; override;
procedure DoCreateNodeClass(var NewNodeClass: TTreeNodeClass); virtual;

8
lcl/include/treeview.inc
View File

@ -3315,10 +3315,16 @@ begin
inherited CreateWnd;
end;
procedure TCustomTreeView.Click;
begin
if FMouseDownNodeSelected then
inherited;
end;
procedure TCustomTreeView.DblClick;
begin
if FMouseDownNodeSelected then
inherited DblClick;
inherited;
end;
procedure TCustomTreeView.InitializeWnd;