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

LCL: TTreeView: multiselecting node, when selecting

Browse Source 
git-svn-id: trunk@10490 -
This commit is contained in:
mattias 2007-01-22 16:25:19 +00:00
parent 28dffc6241
commit cd48c061df
3 changed files with 57 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ideintf/propedits.pp
View File

@ -1492,7 +1492,7 @@ begin
// read all property infos of current class
TypeData:=GetTypeData(TypeInfo);
// skip unitname
PropInfo:=PPropInfo(@TypeData^.UnitName+Length(TypeData^.UnitName)+1);
PropInfo:=PPropInfo(PByte(@TypeData^.UnitName)+Length(TypeData^.UnitName)+1);
// read property count
CurCount:=PWord(PropInfo)^;
inc(PtrInt(PropInfo),SizeOf(Word));

1
lcl/comctrls.pp
View File

@ -1951,6 +1951,7 @@ type
procedure BeginUpdate;
procedure Clear;
procedure ClearMultiSelection(ClearSelected: boolean = false);
procedure SelectOnlyThis(Node: TTreeNode);
function IsMultiSelection: boolean;
procedure Delete(Node: TTreeNode);
procedure EndUpdate;

89
lcl/include/treeview.inc
View File

@ -556,14 +556,24 @@ begin
end;
procedure TTreeNode.SetSelected(AValue: Boolean);
var
MultiSelect: Boolean;
begin
if AValue=GetSelected then exit;
if AValue then begin
Include(FStates,nsSelected);
if (TreeView<>nil) and (TreeView.Selected=nil) then begin
TreeView.Selected:=Self;
if TreeView.Selected<>Self then
Exclude(FStates,nsSelected);
if (TreeView<>nil) then begin
MultiSelect:=tvoAllowMultiselect in TreeView.Options;
if MultiSelect then TreeView.LockSelectionChangeEvent;
try
TreeView.Selected:=Self;
if TreeView.Selected<>Self then
Exclude(FStates,nsSelected);
if (nsSelected in FStates) and MultiSelect then
MultiSelected:=true;
finally
if MultiSelect then TreeView.UnlockSelectionChangeEvent;
end;
end;
end else begin
Exclude(FStates,nsSelected);
@ -1291,21 +1301,24 @@ begin
if (TreeView<>nil) and (not (tvoAllowMultiselect in TreeView.Options)) then
exit;
if (TreeView<>nil) then TreeView.LockSelectionChangeEvent;
FirstNode:=GetPrevSibling;
while (FirstNode<>nil) and (not FirstNode.MultiSelected) do
FirstNode:=FirstNode.GetPrevSibling;
if FirstNode=nil then FirstNode:=Self;
LastNode:=GetNextSibling;
while (LastNode<>nil) and (not LastNode.MultiSelected) do
LastNode:=LastNode.GetNextSibling;
if LastNode=nil then LastNode:=Self;
ANode:=FirstNode;
while ANode<>nil do begin
ANode.MultiSelected:=true;
if ANode=LastNode then break;
ANode:=ANode.GetNextSibling;
try
FirstNode:=GetPrevSibling;
while (FirstNode<>nil) and (not FirstNode.MultiSelected) do
FirstNode:=FirstNode.GetPrevSibling;
if FirstNode=nil then FirstNode:=Self;
LastNode:=GetNextSibling;
while (LastNode<>nil) and (not LastNode.MultiSelected) do
LastNode:=LastNode.GetNextSibling;
if LastNode=nil then LastNode:=Self;
ANode:=FirstNode;
while ANode<>nil do begin
ANode.MultiSelected:=true;
if ANode=LastNode then break;
ANode:=ANode.GetNextSibling;
end;
finally
if (TreeView<>nil) then TreeView.UnlockSelectionChangeEvent;
end;
if (TreeView<>nil) then TreeView.UnlockSelectionChangeEvent;
end;
procedure TTreeNode.MakeVisible;
@ -1700,15 +1713,29 @@ var
ANode, OldNode: TTreeNode;
begin
if Owner<>nil then Owner.LockSelectionChangeEvent;
ANode:=FFirstMultiSelected;
while ANode<>nil do begin
OldNode:=ANode;
ANode:=ANode.GetNextMultiSelected;
OldNode.MultiSelected:=false;
try
ANode:=FFirstMultiSelected;
while ANode<>nil do begin
OldNode:=ANode;
ANode:=ANode.GetNextMultiSelected;
OldNode.MultiSelected:=false;
end;
if ClearSelected then
Owner.Selected:=nil;
finally
if Owner<>nil then Owner.UnlockSelectionChangeEvent;
end;
end;
procedure TTreeNodes.SelectOnlyThis(Node: TTreeNode);
begin
if Owner<>nil then Owner.LockSelectionChangeEvent;
try
ClearMultiSelection(true);
Node.Selected:=true;
finally
if Owner<>nil then Owner.UnlockSelectionChangeEvent;
end;
if ClearSelected then
Owner.Selected:=nil;
if Owner<>nil then Owner.UnlockSelectionChangeEvent;
end;
function TTreeNodes.IsMultiSelection: boolean;
@ -3413,10 +3440,7 @@ begin
if ([ssCtrl,ssShift] * Shift) <> [] then
lNode.MultiSelectGroup
else begin
LockSelectionChangeEvent;
FTreeNodes.ClearMultiSelection(true);
lNode.Selected := true;
UnlockSelectionChangeEvent;
FTreeNodes.SelectOnlyThis(lNode);
end;
end else
Selected := lNode;
@ -4289,10 +4313,7 @@ begin
CursorNode.MultiSelected:=not CursorNode.MultiSelected;
end else begin
if (Selected<>CursorNode) or Items.IsMultiSelection then begin
LockSelectionChangeEvent;
Items.ClearMultiSelection(true);
CursorNode.Selected:=true;
UnlockSelectionChangeEvent;
Items.SelectOnlyThis(CursorNode);
end;
end;
end;