FB II Compiler

PG PRO

Debugging

Memory

System

Mathematics

Resources

Disk I/O

Windows

Controls

Menus

Mouse

Keyboard

Text

Fonts

Drawing

Sound

Clipboard

Printing

Communication

ASM

Made with FB

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.
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.