Well I'll try a coupla things...

1) Maybe PEMSTATUS should be checking 4 instead of 5?
--- You could really get by without the PEMSTATUS I think.
2) Maybe ADDPROPERTY() would make a difference?

good luck


>Anyone? My goal is to restore the original screen that was saved in the screenset procedure.
>
>:o)
>
>>IF I have information on the screen (even issuing dir from the command window to draw on the screen) and I run this code:
>>

>>*Screenset
>>#IF "VISUAL" $ UPPER(VERSION())
>>	IF !PEMSTATUS(_Screen,'Printscr',5)
>>    	_Screen.AddProperty('Printscr')
>>	ENDIF
>>	ACTIVATE SCREEN
>>	SAVE SCREEN TO _Screen.Printscr
>>	_screen.lockscreen=.t.
>>	_Screen.BackColor = RGB(255,255,255)
>>	_Screen.ForeColor = RGB(0,0,0)
>>	_Screen.FillColor = RGB(255,255,255)
>>	_screen.refresh
>>#ENDIF
>>
>>RETURN
>>

>>
>>and then I clear the screen or redraw it or something and then I issue:
>>

>>*screenrset
>>#IF 'VISUAL' $ UPPER(VERSION())
>>
>>	DECLARE Sleep IN Win32API;
>>	  		INTEGER nMilliseconds
>>	= Sleep(100) && Wait a 1/10th of a second.
>>
>>	* TCH 7/10/2002 Added
>>		
>>	WITH _screen
>>		.fontname=glFontName
>>		.fontsize=glFontSize
>>		.fontunderline=.f.
>>		.fontbold=.f.
>>		.BackColor = cOldbackcolor
>>		.ForeColor = cOldforecolor
>>		.FillColor = cOldfillcolor
>>	ENDWITH
>>
>>	_SCREEN.lockscreen=.F.
>>	
>>	ACTIVATE SCREEN
>>	IF PEMSTATUS(_Screen,'Printscr',5)
>>		RESTORE SCREEN FROM _Screen.printscr
>>		= Sleep(100) && Wait a 1/10th of a second.
>>	ENDIF
>>
>>	CLEAR DLLS "sleep"
>>
>>#ENDIF
>>

>>
>>Why does the screen clear? It does the same thing even with no change to the screen in between the two procedures...it always appears to occur when the screen is unlocked in the screenrset procedure.