Bug in buttonbar

[Enrico Maria Giordano]

In the following sample please try to move the mouse over the button and you will see that the text will move down (and also the bitmap, if present):

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd, oBar

    DEFINE WINDOW oWnd

    DEFINE BUTTONBAR oBar OF oWnd 2007;
           SIZE 50, 70

    DEFINE BUTTON OF oBar;
           ACTION oWnd:End();
           PROMPT "Close"

    ACTIVATE WINDOW oWnd

    RETURN NIL

EMG

[ukoenig]

Enrico,

I tested Buttonbar, because of the new Font-changes. I couldn't notice this effect.
The effect of Your specification is included in VTitle using > ANIMATE < on Mouse-Caption.

Best Regards
Uwe

[Enrico Maria Giordano]

You have to use the latest FWH release (9.09) in order to see the problem. It wasn't there in the previous releases.

EMG

[ukoenig]

Enrico,

I found the Reason for it.

With the new FWH 9.09, You can define Fonts for each Button of a Buttonbar.
It happens only with a not defined Button-Font once on Mouse-Caption.



That works now :

DEFINE BUTTON oBtn1 OF oBar FILE c_path + "\system\format.bmp" MESSAGE "Test" ;
ACTION ( oWnd:End() ) ;
PROMPT "Test" FONT oBtnFont

oBtn1:SetColor( 0 ) // Black
oBtn1:cToolTip := { " " + CRLF + ;
"Test 1" + CRLF + ;
"Test 2", "T E S T", 1, 0, 128 }

Best Regards
Uwe

[Enrico Maria Giordano]

This seems a possible fix (in paint method of TBtnBmp):

Code: Select all  Expand view

  if ::lBarBtn
      ::l2007 = ::oWnd:l2007
      IF ::oFont == NIL
         if ::oWnd:oFont != nil
            if ::oWnd:oFont:cFaceName != "Tahoma"
               DEFINE FONT oFont NAME "Tahoma" SIZE 0, -11
            endif
         else
             DEFINE FONT oFont NAME "Tahoma" SIZE 0, -11
         endif
         ::oWnd:SetFont( oFont )
         ::SetFont( oFont )     // EMG
      else
         ::oWnd:SetFont( ::oFont )
         ::SetFont( ::oFont )     // EMG
      endif
   else

EMG

[TimStone]

I can confirm this exact same problem. I am using default fonts, and I notice that not all buttons change position. If you move the cursor across the full button bar, all icons will then line up properly.

Pehaps this can be resolved in 9.10 ?