paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 09:16:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 51639 #47106ebc21 from trunk:

Browse Source 
ShellTreeView: make PopulateWithBaseFiles public. Makes it possible to populate a ShelltreeView that was created at runtime.
........

git-svn-id: branches/fixes_1_6@51653 -
This commit is contained in:
maxim 2016-02-18 06:29:14 +00:00
parent 2077f90f31
commit b7ed54fe7a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/shellctrls.pas
View File

@ -70,7 +70,6 @@ type
{ Other methods specific to Lazarus }
function PopulateTreeNodeWithFiles(
ANode: TTreeNode; ANodePath: string): Boolean;
procedure PopulateWithBaseFiles;
procedure DoSelectionChanged; override;
function CanExpand(Node: TTreeNode): Boolean; override;
public
@ -86,6 +85,7 @@ type
{ Other methods specific to Lazarus }
function GetPathFromNode(ANode: TTreeNode): string;
function GetSelectedNodePath: string; deprecated 'Use property Path instead';
procedure PopulateWithBaseFiles;
procedure Refresh(ANode: TTreeNode); overload;
{ Properties }
@ -859,6 +859,7 @@ var
begin
// avoids crashes in the IDE by not populating during design
if (csDesigning in ComponentState) then Exit;
Items.Clear;
r := GetLogicalDriveStrings(SizeOf(Drives), Drives);
if r = 0 then Exit;
@ -884,6 +885,7 @@ begin
// avoids crashes in the IDE by not populating during design
// also do not populate before loading is done
if ([csDesigning, csLoading] * ComponentState <> []) then Exit;
Items.Clear;
// This allows showing "/" in Linux, but in Windows it makes no sense to show the base
if GetBasePath() <> '' then