tvplanit: Improved painting of navbar buttons

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

components/tvplanit/examples/fulldemo/demomain.lfm

@@ -9,7 +9,7 @@ object MainForm: TMainForm
   Menu = MainMenu1
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
-  LCLVersion = '1.4.4.0'
+  LCLVersion = '1.7'
   object Panel1: TPanel
     Left = 120
     Height = 580
@@ -581,9 +581,9 @@ object MainForm: TMainForm
     AllowRearrange = True
     BackgroundColor = clActiveCaption
     BackgroundMethod = bmNormal
-    BorderStyle = bsNone
+    BorderStyle = bsSingle
     ButtonHeight = 20
-    DrawingStyle = dsEtchedButton
+    DrawingStyle = dsCoolTab
     FolderCollection = <    
       item
         Version = 'v1.04'

components/tvplanit/source/vpnavbar.pas

@@ -306,6 +306,7 @@ type
     procedure RemoveContainer(Container: TVpFolderContainer);
 
     procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
+    procedure MouseLeave; override;
     procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
     procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
@@ -1820,6 +1821,12 @@ begin
 end;
 {=====}
 
+procedure TVpCustomNavBar.MouseLeave;
+begin
+  FHotFolder := -1;
+  Invalidate;
+end;
+
 procedure TVpCustomNavBar.MouseMove(Shift: TShiftState; X, Y: Integer);
 var
   ItemIndex: Integer;