--- JvOutlookBar.pas.orig	Tue May 06 11:48:52 2014
+++ JvOutlookBar.pas	Fri May 09 08:21:50 2014
@@ -1586,6 +1586,7 @@
   SavedColor: TColor;
   Flags: Cardinal;
   HasImage: Boolean;
+  SavedFont: TFont;
 begin
   Assert(Assigned(FPageBtnProps));
   ATop := R.Top + 1;
@@ -1650,6 +1651,8 @@
   end;
   SetBkMode(Canvas.Handle, TRANSPARENT);
   OffsetRect(R, 0, -1);
+  SavedFont := Canvas.Font;
+  Canvas.Font := Self.Font;
   SavedColor := Canvas.Font.Color;
   try
     if not Pages[Index].Enabled then
@@ -1663,6 +1666,7 @@
     DrawText(Canvas, Pages[Index].Caption, -1, R, Flags or DT_END_ELLIPSIS);
   finally
     Canvas.Font.Color := SavedColor;
+    Canvas.Font := SavedFont;
   end;
 end;