Use of "Curtain" function

[Craig Merritt]

Can the "Curtain" function be invoked and then closed without having to create a separate function in which to call it? (the "clo" function doesn't seem to do it)

Also, how might I make the curtain cover only a selected area of my screen, say from 200, 300 to 400,600

[Gintaras]

Change Curtain code so that it would return curtain window handle.

Code:

Copy      Help

;/
function# [$text]

;Covers screen while macro is running.
;Returns curtain window handle.

;On Win98/Me, mouse commands will not work, because the
;curtain window is not transparent to mouse messages.


opt waitmsg 2
str controls="0"
str f=iif(len(text) text "Please wait ...")
ret ShowDialog("Curtain_dlg" &Curtain_dlg &controls 0 1)

To replace code, go to System folder properties and uncheck 'read-only'. After replacing, export-replace System folder.

This change will be in next QM release.

To close curtain window, use DestroyWindow. Example:

Code:

Copy      Help

int h=Curtain
2
siz 0 0.5 h 1
2
DestroyWindow h
mes "curtain closed"