mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-17 14:59:15 +02:00
LCL: TTreeView: clear cache when adding node
git-svn-id: trunk@41373 -
This commit is contained in:
parent
26cd305782
commit
9d7979342e
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user