ButtonBar Non-2007 style Bitmap and Text Alignment

[nageswaragunupudi]

When button-bar is used without 2007 style, the bitmaps and prompts are getting mixed up.
Sample Source Code:

Code: Select all  Expand view

#include 'fivewin.ch'

function Main()

   local ownd, oBar

   DEFINE WINDOW oWnd
   DEFINE BUTTONBAR oBar OF oWnd SIZE 64,64 //2007
   DEFINE BUTTON OF oBar FILE '\fwh\bitmaps\level1.bmp' PROMPT 'Level1' TOP
   DEFINE BUTTON OF oBar FILE '\fwh\bitmaps\level2.bmp' PROMPT 'Level2' TOP
   DEFINE BUTTON OF oBar FILE '\fwh\bitmaps\level3.bmp' PROMPT 'Level3' TOP
   DEFINE BUTTON OF oBar FILE '\fwh\bitmaps\level4.bmp' PROMPT 'Level4' TOP

   ACTIVATE WINDOW oWnd

return nil
 

Result


Is there anything I am missing? Or is there a problem to be fixed in BtnBmp.Prg ?

[anserkk]

Dear MR.Rao,

Here is a trick. I am sure that this is not a good solution, it is only a work around.

Code: Select all  Expand view

#include 'fivewin.ch'

function Main()

   local ownd, oBar

   DEFINE WINDOW oWnd
   DEFINE BUTTONBAR oBar OF oWnd SIZE 64,64 //2007
   DEFINE BUTTON OF oBar FILE '\fwh\bitmaps\level1.bmp' PROMPT CRLF+'Level1' TOP
   DEFINE BUTTON OF oBar FILE '\fwh\bitmaps\level2.bmp' PROMPT CRLF+'Level2' TOP
   DEFINE BUTTON OF oBar FILE '\fwh\bitmaps\level3.bmp' PROMPT CRLF+'Level3' TOP
   DEFINE BUTTON OF oBar FILE '\fwh\bitmaps\level4.bmp' PROMPT CRLF+'Level4' TOP

   ACTIVATE WINDOW oWnd

return nil

Regards
Anser

[nageswaragunupudi]

)
This was not the intention