paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-08 01:58:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

TreeFilter: fix moving up and down when tree has multiselect enabled.

Browse Source 
git-svn-id: trunk@34466 -
This commit is contained in:
juha 2011-12-28 09:39:59 +00:00
parent 633f92bf41
commit e762c4e425
4 changed files with 48 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazcontrols/lazcontrols.lpk
View File

@ -5,7 +5,7 @@
<Name Value="LazControls"/>
<AddToProjectUsesSection Value="True"/>
<CompilerOptions>
<Version Value="10"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<SearchPaths>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>

22
components/lazcontrols/treefilteredit.pas
View File

@ -422,31 +422,13 @@ begin
end;
procedure TTreeFilterEdit.MoveNext;
var
tn: TTreeNode;
begin
tn := fFilteredTreeview.Selected;
if not Assigned(tn) then
begin
tn := fFilteredTreeview.TopItem;
if Assigned(tn) then
fFilteredTreeview.Selected := tn;
Exit;
end;
tn := tn.GetNext;
if Assigned(tn) then
fFilteredTreeview.Selected := tn;
fFilteredTreeview.MoveToNextNode;
end;
procedure TTreeFilterEdit.MovePrev;
var
tn: TTreeNode;
begin
tn := fFilteredTreeview.Selected;
if not Assigned(tn) then Exit;
tn := tn.GetPrev;
if Assigned(tn) then
fFilteredTreeview.Selected := tn;
fFilteredTreeview.MoveToPrevNode;
end;
end.

2
lcl/comctrls.pp
View File

@ -2914,6 +2914,8 @@ type
function GetLastMultiSelected: TTreeNode;
function SelectionVisible: boolean;
procedure MakeSelectionVisible;
procedure MoveToNextNode;
procedure MoveToPrevNode;
public
property BackgroundColor: TColor
read FBackgroundColor write SetBackgroundColor default clWindow;

48
lcl/include/treeview.inc
View File

@ -3332,6 +3332,14 @@ begin
end;
end;
procedure TCustomTreeView.SetSeparatorColor(const AValue: TColor);
begin
if fSeparatorColor=AValue then exit;
fSeparatorColor:=AValue;
if tvoShowSeparators in Options then
Invalidate;
end;
procedure TCustomTreeView.SetShowButton(Value: Boolean);
begin
if ShowButtons <> Value then begin
@ -5435,12 +5443,42 @@ begin
ANode.MakeVisible;
end;
procedure TCustomTreeView.SetSeparatorColor(const AValue: TColor);
procedure TCustomTreeView.MoveToNextNode;
var
lNode: TTreeNode;
begin
if fSeparatorColor=AValue then exit;
fSeparatorColor:=AValue;
if tvoShowSeparators in Options then
Invalidate;
if tvoAllowMultiSelect in FOptions then
lNode := FTreeNodes.FLastMultiSelected
else
lNode := Selected;
if lNode <> nil then
lNode := lNode.GetNextExpanded
else if Items.Count > 0 then
lNode := FTreeNodes.GetFirstNode;
if lNode <> nil then
if tvoAllowMultiSelect in FOptions then
FTreeNodes.SelectOnlyThis(lNode)
else
Selected := lNode;
end;
procedure TCustomTreeView.MoveToPrevNode;
var
lNode: TTreeNode;
begin
if tvoAllowMultiSelect in FOptions then
lNode := FTreeNodes.FLastMultiSelected
else
lNode := Selected;
if lNode <> nil then
lNode := lNode.GetPrevExpanded
else if Items.Count > 0 then
lNode := Items.GetLastExpandedSubNode;
if lNode <> nil then
if tvoAllowMultiSelect in FOptions then
FTreeNodes.SelectOnlyThis(lNode)
else
Selected := lNode;
end;
// back to comctrls.pp