REPLY #2 to this message:

When I do

_screen.AddProperty("PrintScr")
xxx=24567
?xxx
?xxx
?xxx
?xxx
SAVE SCREEN TO _screen.Printscr
CLEAR
RESTORE SCREEN FROM _Screen.Printscr

in the Command Window it works as I would expect EVEN THOUGH the _Screen prop "PrintScr" says [NONE]!

So my best gues is the LockScreens. Can you get away without them, or at least do both .T./.F. in each routine where you use them?



>This works, but I cannot have a wait window and display a white screen in the process of waiting for the user to press a key...
>
>

>set COLOR TO gr+/r, g/w+
>glfontname=_screen.fontname
>glfontsize=_screen.fontsize
>cOldbackcolor=_screen.backcolor
>coldforecolor=_screen.forecolor
>coldfillcolor=_screen.fillcolor
>clear
>@10,10 say "this is line 1"
>@12,10 say "this is line 2"
>#IF "VISUAL" $ UPPER(VERSION())
>	IF TYPE('printscr')="U"
>		PUBLIC printscr
>	ENDIF
>	ACTIVATE SCREEN
>	SAVE SCREEN TO printscr
>	_screen.lockscreen=.t.
>	_Screen.BackColor = RGB(255,255,255)
>	_Screen.ForeColor = RGB(0,0,0)		
>	_Screen.FillColor = RGB(255,255,255)	
>	_screen.refresh
>	ACTIVATE SCREEN
>#ENDIF
>
>*redraw screen as it was
>#IF 'VISUAL' $ UPPER(VERSION())
>
>	DECLARE Sleep IN Win32API;
>	  		INTEGER nMilliseconds
>	= Sleep(100) && Wait a 1/10th of a second.
>
>	ACTIVATE SCREEN
>
>	* TCH 7/10/2002 Added
>		
>	WITH _screen
>*		.lockscreen=.T.
>		.fontname=glFontName
>		.fontsize=glFontSize
>		.fontunderline=.f.
>		.fontbold=.f.
>		.BackColor = cOldbackcolor
>		.ForeColor = cOldforecolor
>		.FillColor = cOldfillcolor
>	ENDWITH
>
>	_SCREEN.lockscreen=.F.
>	
>	WAIT WINDOW "Press anykey..."
>
>	IF TYPE('printscr')!="U"
>		ACTIVATE SCREEN
>		RESTORE SCREEN FROM printscr
>	ENDIF
>
>	CLEAR DLLS "sleep"
>	
>
>#ENDIF
>
>RETURN
>