paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 23:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

TShellTreeView: fix populating the tree when FileSortType at designtime is not fstNone. Issue #0028565.

Browse Source 
git-svn-id: trunk@49741 -
This commit is contained in:
bart 2015-09-02 16:10:41 +00:00
parent f9f232ea0b
commit ca600365bc
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/shellctrls.pas
View File

@ -508,6 +508,7 @@ var
begin
if FFileSortType=AValue then exit;
FFileSortType:=AValue;
if (csLoading in ComponentState) then Exit;
CurrPath := GetPath;
try
BeginUpdate;