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