*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 RETURNand 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" #ENDIFWhy 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.