Drop down button and font (2007 style)

[modicr]

Hello!

I'm creating drop-down button using buttonbar. I create it using method NewAt,
then I create popup menu and finally I create button using method NewBar, passing popup menu.

The problem is that the font in 2007 mode is fixed at Tahoma,11. Is there another way
to create drop-down buttons with my custom font?

FWH is version 9.01!

Thanks, Roman

[modicr]

I've solved the problem by adding:

Code: Select all  Expand view

oBtn:lBarBtn:=.f.
oBtn:l2007:=.t.

I've also set gradient color with DATA oBtn:bClrGrad.

Now I have another problem: I cannot set the font and width of the popup menu of this drop-down button.
I've looked into the source and found the following code in method Initiate of TMenu class:

Code: Select all  Expand view

if ::l2007 .and. cWinVersion() != "98"
      MITEMS2007( ::hMenu )
endif  

Unfortunately there is no source of function MItems2007 ...

Thanks, Roman