QM Editor Fonts

[ssimop]

I wonder whether it is possible to increase the font in QM Editor "Find" window (id 3006). I am aware of post :
Font Settings in ShowNote

[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

[ssimop]

This works better, but it seems irregular :

Function tempf11

Code:

Copy      Help

int c=id(3006 _hwndqm) ;;list
CFont-- ff.Create("" 7 0)
ff.SetFont(c)

[ssimop]

This is working perfectly and it is stable. I do not know why. It is very likely that it is due to the declaration of the font as global variable. Any explanation will be appreciated.

Function tempf12

Code:

Copy      Help

;http://www.quickmacros.com/forum/viewtopic.php?p=24379
__Font+ e_qmfont
e_qmfont.Create("Tahoma" 7)
e_qmfont.SetDialogFont(id(3006 _hwndqm) "0")

[Gintaras]

Windows don't make their copies of fonts. The macro or function exits, and the font is destroyed if the variable is local. Global variables are destroyed when closing QM file.