paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 03:19:17 +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 begin
if FFileSortType=AValue then exit; if FFileSortType=AValue then exit;
FFileSortType:=AValue; FFileSortType:=AValue;
if (csLoading in ComponentState) then Exit;
CurrPath := GetPath; CurrPath := GetPath;
try try
BeginUpdate; BeginUpdate;