Use of "Curtain" function

[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"