paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 03:48:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TTreeView: mouse click without Shift/Ctrl: single select only if mouse up on mouse down node

Browse Source 
git-svn-id: trunk@45971 -
This commit is contained in:
mattias 2014-07-25 15:44:14 +00:00
parent 162fe350f3
commit 0062df6edc
2 changed files with 34 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/comctrls.pp
View File

@ -3011,7 +3011,8 @@ type
tvsTripleClicked,
tvsQuadClicked,
tvsSelectionChanged,
tvsEditOnMouseUp
tvsEditOnMouseUp, // if mouse up occurs on mouse down node: activate editing
tvsSingleSelectOnMouseUp // if mouse up occurs on mouse down node: single select this node
);
TTreeViewStates = set of TTreeViewState;
@ -3239,6 +3240,7 @@ type
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseLeave; override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure Paint; override;
procedure SetDragMode(Value: TDragMode); override;

39
lcl/include/treeview.inc
View File

@ -5140,12 +5140,13 @@ procedure TCustomTreeView.MouseDown(Button: TMouseButton; Shift: TShiftState;
var
CursorNode: TTreeNode;
LogicalX: Integer;
CursorNodeSelected: Boolean;
begin
{$IFDEF VerboseDrag}
DebugLn('TCustomTreeView.MouseDown A ',Name,':',ClassName,' ');
{$ENDIF}
fMouseDownPos := Point(X,Y);
Exclude(FStates,tvsEditOnMouseUp);
FStates:=FStates-[tvsEditOnMouseUp,tvsSingleSelectOnMouseUp];
if Button=mbRight then begin
if RightClickSelect then begin
Selected:=GetNodeAt(X,Y);
@ -5158,6 +5159,9 @@ begin
inherited MouseDown(Button, Shift, X, Y);
CursorNode := GetNodeAt(X, Y);
CursorNodeSelected := (CursorNode<>nil)
and (CursorNode.Selected
or ((tvoAllowMultiselect in Options) and CursorNode.MultiSelected));
LogicalX:=X;
if ([ssDouble, ssTriple, ssQuad] * Shift) = [] then
begin
@ -5202,8 +5206,10 @@ begin
end
else
begin
if (Selected <> CursorNode) or Items.IsMultiSelection then
Items.SelectOnlyThis(CursorNode);
if not CursorNodeSelected then
Items.SelectOnlyThis(CursorNode)
else
Include(FStates, tvsSingleSelectOnMouseUp);
end;
end;
end;
@ -5223,6 +5229,8 @@ end;
procedure TCustomTreeView.MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
var
aMouseDownNode, aMouseUpNode: TTreeNode;
begin
inherited MouseUp(Button, Shift, X, Y);
if (Button = mbRight) and (Shift = [ssRight]) and Assigned(PopupMenu) then
@ -5233,12 +5241,27 @@ begin
and (FStates * [tvsDblClicked, tvsTripleClicked, tvsQuadClicked] = [])
then begin
//AquirePrimarySelection;
if (tvsEditOnMouseUp in FStates) and (not ReadOnly)
and (abs(fMouseDownPos.X-X)+abs(fMouseDownPos.Y-Y)<10)
and (GetNodeAt(fMouseDownPos.X,fMouseDownPos.Y)=GetNodeAt(X,Y)) then
BeginEditing(Selected);
aMouseDownNode:=GetNodeAt(fMouseDownPos.X,fMouseDownPos.Y);
aMouseUpNode:=GetNodeAt(X,Y);
if (abs(fMouseDownPos.X-X)+abs(fMouseDownPos.Y-Y)<10)
and (aMouseDownNode=aMouseUpNode) then
begin
// mouse up on mouse-down node
if (tvsEditOnMouseUp in FStates) and (not ReadOnly) then
BeginEditing(Selected)
else if (tvsSingleSelectOnMouseUp in FStates) then
Items.SelectOnlyThis(aMouseUpNode);
end;
end;
FStates:=FStates-[tvsDblClicked,tvsTripleClicked,tvsQuadClicked,tvsEditOnMouseUp];
FStates:=FStates-[tvsDblClicked,tvsTripleClicked,tvsQuadClicked,
tvsEditOnMouseUp,tvsSingleSelectOnMouseUp];
end;
procedure TCustomTreeView.MouseLeave;
begin
FStates:=FStates-[tvsDblClicked,tvsTripleClicked,tvsQuadClicked,
tvsEditOnMouseUp,tvsSingleSelectOnMouseUp];
inherited MouseLeave;
end;
procedure TCustomTreeView.Notification(AComponent: TComponent; Operation: TOperation);