LCL: TTreeView: clear cache when adding node

git-svn-id: trunk@41373 -
This commit is contained in:
mattias 2013-05-23 13:14:41 +00:00
parent 26cd305782
commit 9d7979342e

View File

@ -1354,10 +1354,13 @@ begin
DbgOut(' ANode.Text=',ANode.Text); DbgOut(' ANode.Text=',ANode.Text);
DebugLn(''); DebugLn('');
{$ENDIF} {$ENDIF}
if TreeView<>nil then TreeView.BeginUpdate; if TreeView<>nil then
TreeView.BeginUpdate;
try try
WasSelected:=Selected; WasSelected:=Selected;
Unbind; Unbind;
if Owner<>nil then
Owner.ClearCache;
Include(FStates,nsBound); Include(FStates,nsBound);
// set parent // set parent
if AddMode in [taAdd, taAddFirst] then if AddMode in [taAdd, taAddFirst] then