diff --git a/components/tvplanit/source/vpnavbarpainter.pas b/components/tvplanit/source/vpnavbarpainter.pas
index a4c2dd779..cdc73d817 100644
--- a/components/tvplanit/source/vpnavbarpainter.pas
+++ b/components/tvplanit/source/vpnavbarpainter.pas
@@ -891,6 +891,29 @@ begin
     { Draw the folder buttons at the bottom }
     DrawBottomFolderButtons(DrawBmp.Canvas, MyRect, CurPos);
 
+    if not (csDesigning in FNavBar.ComponentState) then begin
+      {show the top scroll button}
+      if TVpNavBarOpener(FNavBar).nabShowScrollUp then begin
+        nabScrollUpBtn.Top := FNavBar.Folders[FActiveFolder].Rect.Bottom + 5;
+        nabScrollUpBtn.Left := FNavBar.ClientWidth - 20;
+        nabScrollUpBtn.Visible := True;
+      end else
+        nabScrollUpBtn.Visible := False;
+
+      {show the bottom scroll button}
+      if TVpNavBarOpener(FnavBar).nabShowScrollDown then begin
+        if FActiveFolder = FNavBar.FolderCount-1 then
+          {there are no folders beyond the active one}
+          nabScrollDownBtn.Top := FNavBar.ClientHeight -20
+        else
+          nabScrollDownBtn.Top := FNavBar.Folders[FActiveFolder+1].Rect.Top - 20;
+        nabScrollDownBtn.Left := FNavBar.ClientWidth - 20;
+        nabScrollDownBtn.Visible := True;
+      end else
+        nabScrollDownBtn.Visible := False;
+    end;
+
+
   finally
     { Copy the buffer bitmap to the control }
     FNavBar.Canvas.CopyMode := cmSrcCopy;