Commit b4415f3a authored by Juha Manninen's avatar Juha Manninen
Browse files

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

git-svn-id: trunk@63147 -
parent c236e626
......@@ -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;
......
......@@ -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;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment