From 164b3de42e4ce3affe98ecc02403c58c39bab728 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 18 Jul 2016 18:31:26 +0000
Subject: [PATCH] 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 | 2 +-
 components/tvplanit/source/vpnavbar.pas       | 4 ----
 2 files changed, 1 insertion(+), 5 deletions(-)

diff --git a/components/tvplanit/examples/navbar/unit1.lfm b/components/tvplanit/examples/navbar/unit1.lfm
index c857e0a55..988674b79 100644
--- a/components/tvplanit/examples/navbar/unit1.lfm
+++ b/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 = <    
diff --git a/components/tvplanit/source/vpnavbar.pas b/components/tvplanit/source/vpnavbar.pas
index 92334e918..718f72ded 100644
--- a/components/tvplanit/source/vpnavbar.pas
+++ b/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;
 {=====}