tvplanit: Fix NavBar folder caption not updating on form if changed in OI

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4994 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tvplanit/examples/navbar/unit1.lfm

@@ -17,7 +17,7 @@ object Form1: TForm1
     AllowRearrange = True
     BackgroundColor = clInactiveCaption
     BackgroundMethod = bmTile
-    BorderStyle = bsSingle
+    BorderStyle = bsNone
     ButtonHeight = 20
     DrawingStyle = dsEtchedButton
     FolderCollection = <    

components/tvplanit/source/vpnavbar.pas

@@ -1108,10 +1108,8 @@ procedure TVpCustomNavBar.ItemChanged(FolderIndex, ItemIndex: Integer);
 begin
   Invalidate;
 //  InvalidateItem(FolderIndex, ItemIndex);
-  (*
   if not (csDestroying in ComponentState) then
     RecreateWnd{$IFDEF LCL}(self){$ENDIF};
-    *)
 end;
 {=====}
 
@@ -1119,10 +1117,8 @@ procedure TVpCustomNavBar.FolderChanged(FolderIndex: Integer);
 begin
   Unused(FolderIndex);
   Invalidate;
-  (*
   if not (csDestroying in ComponentState) then
     RecreateWnd{$IFDEF LCL}(self){$ENDIF};
-   *)
 end;
 {=====}