The problem is addition to /similar to this:

Re: Problem-Screen color attributes change print colors Thread #690511 Message #690548

They are in separate routines because they are run before/after printing.


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