Change Popup menu font

[gm10qt747]

Hello,

Does anyone knows how to change Popup menu font ?
I use SalMenuSetFont but it does not work
SalMenuSetFont seems to work only for Item menu but not for Popup menu

Many thangs

[Jeff Luther]

Well, Help says that

SalMenuSetFont sets the font to be used by a menu item or popup

so I would recommend that you write a small test case, zip it and attach to a reply to this discussion. That way we can look at it, run it and perhaps have a better way of helping you.

For any test case where certain steps are needed, be sure to provide us the list of steps we need to do to reproduce the issue or problem you are describing.

NOTE TOO... that the last sentence in TD Help for this function states that

For Win32, updates to top-level menu objects are not immediately visible. To display the changes, call SalMenuUpdate or SalDrawMenuBar

Did you make that Sal call as well?

[EwaldP]

Hi,

this should work.

Set lv_nPopup = SalGetMenu( hWndForm )
Set lv_bOk = SalMenuSetFont( hWndForm, 'popup1', 'Microsoft Sans Serif', 10, FONT_EnhItalic )
Call SalMenuUpdate( hWndForm, lv_nPopup )

[gm10qt747]

Hello,

Thanks you guys for your reply.
EwaldP, the codes you gaved me works
But now I have a problem, the menu I want to change is my MDI window menu. And when I call SalCreateWindow to open a window form frm1 my MDI window menu loses the font change.
I add your code on SAM_CreateComplete of frm1 to change again the menu font but SalMenuSetFont return false.

Here is my code

Set hMenu = SalGetMenu( hWndMDI)
Set bReturn = SalMenuSetFont( hWndMDI, 'File', 'Times New Roman', 10, FONT_EnhNormal )
Set bReturn = SalMenuUpdate( hWndMDI, hMenu )

Any idea ?

Thanks
Soung

[Livius]

If still you have this issue than set the MDI property, "Persist Child Menus" to YES