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

LCL/ShellCtrls: New property TExpandCollapseMode. Fixes issue #40022. Partly based on patch by @d7_2_laz.

Browse Source
This commit is contained in:
wp_xyz 2022-11-29 12:16:57 +01:00
parent bb65b8022c
commit efd6c16934
1 changed files with 44 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
lcl/shellctrls.pas
View File

@ -37,8 +37,6 @@ uses
type
{ TObjectTypes }
TObjectType = (otFolders, otNonFolders, otHidden);
TObjectTypes = set of TObjectType;
@ -47,6 +45,12 @@ type
TMaskCaseSensitivity = (mcsPlatformDefault, mcsCaseInsensitive, mcsCaseSensitive);
TExpandCollapseMode = (
ecmRefreshedExpanding, // Clear already existing children before expanding
ecmKeepChildren, // Do not clear children of already-expanded, but collapsed nodes
ecmCollapseAndClear // Clear children when a node is collapsed
);
{ Forward declaration of the classes }
TCustomShellTreeView = class;
@ -62,6 +66,7 @@ type
FObjectTypes: TObjectTypes;
FRoot: string;
FShellListView: TCustomShellListView;
FExpandCollapseMode: TExpandCollapseMode;
FFileSortType: TFileSortType;
FInitialRoot: String;
FUseBuiltinIcons: Boolean;
@ -85,9 +90,11 @@ type
procedure DoSelectionChanged; override;
procedure DoAddItem(const ABasePath: String; const AFileInfo: TSearchRec; var CanAdd: Boolean);
function CanExpand(Node: TTreeNode): Boolean; override;
procedure Collapse(Node: TTreeNode); override;
function DrawBuiltInIcon(ANode: TTreeNode; ARect: TRect): TSize; override;
function GetBuiltinIconSize: TSize; override;
function NodeHasChildren(Node: TTreeNode): Boolean; override;
property ExpandCollapseMode: TExpandCollapseMode read FExpandCollapseMode write FExpandCollapseMode default ecmRefreshedExpanding;
public
{ Basic methods }
constructor Create(AOwner: TComponent); override;
@ -129,6 +136,7 @@ type
property Color;
property Constraints;
property Enabled;
property ExpandCollapseMode;
property ExpandSignType;
property Font;
property FileSortType;
@ -625,14 +633,46 @@ begin
AutoExpand:=False;
BeginUpdate;
try
Node.DeleteChildren;
Result := PopulateTreeNodeWithFiles(Node, GetPathFromNode(Node));
case FExpandCollapseMode of
ecmRefreshedExpanding:
begin
Node.DeleteChildren;
Result := PopulateTreeNodeWithFiles(Node, GetPathFromNode(Node));
end;
ecmKeepChildren:
if Node.Count = 0 then
Result := PopulateTreeNodeWithFiles(Node, GetPathFromNode(Node))
else
Result := true;
ecmCollapseAndClear:
Result := PopulateTreeNodeWithFiles(Node, GetPathFromNode(Node));
end;
AutoExpand:=OldAutoExpand;
finally
EndUpdate;
end;
end;
procedure TCustomShellTreeView.Collapse(Node: TTreeNode);
var
hadChildren: Boolean;
begin
if csDestroying in ComponentState then
exit;
if ExpandCollapseMode = ecmCollapseAndClear then
begin
BeginUpdate;
try
hadChildren := Node.HasChildren;
Node.DeleteChildren;
Node.HasChildren := hadChildren;
finally
EndUpdate;
end;
end;
inherited;
end;
constructor TCustomShellTreeView.Create(AOwner: TComponent);
begin
inherited Create(AOwner);