[JVCL-Checkins] dev/JVCL3/run JvOutlookBar.pas,1.52,1.53 - fix for clx

[André S. <asn...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31294/JVCL3/run

Modified Files:
	JvOutlookBar.pas 
Log Message:
fix for clx


Index: JvOutlookBar.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvOutlookBar.pas,v
retrieving revision 1.52
retrieving revision 1.53
diff -C2 -d -r1.52 -r1.53
*** JvOutlookBar.pas	29 Jul 2004 22:15:50 -0000	1.52
--- JvOutlookBar.pas	1 Aug 2004 13:38:24 -0000	1.53
***************
*** 1934,1938 ****
        begin
          Result.Left := SmallImages.Width + 10;
!         Result.Top := Result.Top + (GetButtonHeight(PageIndex) + Pages[PageIndex].Font.Height) div 2;
          Result.Bottom := Result.Top + abs(Pages[PageIndex].Font.Height) + 2;
          Result.Right := Result.Left + Canvas.TextWidth(Pages[PageIndex].Buttons[ButtonIndex].Caption) + 4;
--- 1934,1938 ----
        begin
          Result.Left := SmallImages.Width + 10;
!         Result.Top := Result.Top + (GetButtonHeight(PageIndex) - abs(Pages[PageIndex].Font.Height)) div 2;
          Result.Bottom := Result.Top + abs(Pages[PageIndex].Font.Height) + 2;
          Result.Right := Result.Left + Canvas.TextWidth(Pages[PageIndex].Buttons[ButtonIndex].Caption) + 4;