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

LazControls: Improve selection by keys in TreeFilterEdit / TreeView. From b7800.

Browse Source
This commit is contained in:
Juha 2024-03-10 06:38:16 +02:00
parent 36c308d1f6
commit 8836534b9c
1 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
components/lazcontrols/treefilteredit.pas
View File

@ -670,7 +670,12 @@ end;
procedure TTreeFilterEdit.MoveNext(ASelect: Boolean);
begin
if Assigned(fFilteredTreeview) then
begin
ASelect := ASelect
and (tvoAllowMultiSelect in fFilteredTreeview.Options)
and (msShiftSelect in fFilteredTreeview.MultiSelectStyle);
fFilteredTreeview.MoveToNextNode(ASelect);
end;
end;
procedure TTreeFilterEdit.MovePageDown(ASelect: Boolean);
@ -688,7 +693,12 @@ end;
procedure TTreeFilterEdit.MovePrev(ASelect: Boolean);
begin
if Assigned(fFilteredTreeview) then
begin
ASelect := ASelect
and (tvoAllowMultiSelect in fFilteredTreeview.Options)
and (msShiftSelect in fFilteredTreeview.MultiSelectStyle);
fFilteredTreeview.MoveToPrevNode(ASelect);
end;
end;
function TTreeFilterEdit.ReturnKeyHandled: Boolean;
@ -707,31 +717,25 @@ begin
end;
procedure TTreeFilterEdit.EditKeyDown(var Key: Word; Shift: TShiftState);
//
function AllowMultiSelectWithShift: Boolean; inline;
begin
Result := (ssShift in Shift) and (msShiftSelect in fFilteredTreeview.MultiSelectStyle);
end;
//
begin
inherited EditKeyDown(Key, Shift);
if Key = 0 then exit;
if fFilteredTreeview <> nil then
begin
// current node
// expand/collapse current node
if (Key = VK_LEFT) and (Shift = [ssAlt]) then
begin
fFilteredTreeview.MoveLeft(AllowMultiSelectWithShift);
fFilteredTreeview.MoveLeft;
Key := 0;
end
else if (Key = VK_RIGHT) and (Shift = [ssAlt]) then
begin
fFilteredTreeview.MoveRight(AllowMultiSelectWithShift);
fFilteredTreeview.MoveRight;
Key := 0;
end
// full tree
// expand/collapse full tree
else if (Key = VK_LEFT) and (Shift = [ssShift, ssAlt]) then
begin
fFilteredTreeview.FullCollapse;