MENUS
Change font in popup menus
If you are interested in doing a font other than geneva or a size other than 9, I've done in pop ups before. From what I remember, you can only affect popups, have them work correct and look good/normal.
I dont know if this would work on a popup CDEF but I know it works on regular popups because it works in one of my programs now.
Unfortunately when I was doing the research to make this work I didnt document my finding such as what the globals _Lastspextra and _Curfminput do. I do believe the were necessary to have the popup work successfully, ie still maintain correct spacing and hiliting.
I dont know if this would work on a popup CDEF but I know it works on regular popups because it works in one of my programs now.
Unfortunately when I was doing the research to make this work I didnt document my finding such as what the globals _Lastspextra and _Curfminput do. I do believe the were necessary to have the popup work successfully, ie still maintain correct spacing and hiliting.
CLEAR LOCAL
'========
LOCAL FN POPdraw(menuID%)
'---------------------------------------
DIM sysFnt%, sysFntSz%
sysFnt% = {_Sysfontfam} 'save the system font family
sysFntSz% = {_Sysfontsize} 'save the system font size
% _Sysfontfam, _geneva 'set your font here
% _Sysfontsize, 9 'set the size here
& _Lastspextra, -1 'spacing between characters ??
% _Curfminput, -1 '?? forgot what it does
'do draw popup here
% _Sysfontfam, sysFnt% 'return to original system font
% _Sysfontsize, sysFntSz% 'return to original system font size
END FN
W.