QM Editor Fonts

[ssimop]

I was able to do it using the following macro. However, it runs only once, the first time. Then, I have to reload QM to restore it to the original font size. Any advice is mostly welcome.

Function tempf11

Code:

Copy      Help

int c=id(3006 _hwndqm) ;;list
__Font edfont.Create("" 10)
SendMessage c WM_SETFONT edfont 0
edfont.Delete