--- JvOutlookBar.pas.orig	Tue May 06 11:48:52 2014
+++ JvOutlookBar.pas	Wed May 07 18:36:06 2014
@@ -2060,12 +2060,22 @@
   ButtonIndex: Integer): Integer;
 var
   R: TRect;
+  oldFont: TFont;
 begin
   if (Pages[PageIndex].ButtonSize = olbsLarge) and FWordWrap then
   begin
     R := Rect(0, 0, Max(ClientWidth - (2 * cTextMargins), cMinTextWidth), 0);
+    if Pages[PageIndex].ParentFont then
+      oldFont := nil
+    else
+    begin
+      oldFont := Canvas.Font;
+      Canvas.Font := Pages[PageIndex].Font;
+    end;
     Result := DrawText(Canvas.Handle, PChar(Pages[PageIndex].Buttons[ButtonIndex].Caption),
                        -1, R, DT_WORDBREAK or DT_CALCRECT or DT_CENTER or DT_VCENTER);
+    if oldFont <> nil then
+      Canvas.Font := oldFont;
   end
   else
     Result := Abs(Pages[PageIndex].Font.Height);