I have written two procedures in PB3.2 to read the screen so as
to save its contents, to be later shown again. In other words,
by saving part of the screen, I can restore that part if over-
written. Here is the code, which does not work in WINDOWS 98,
nor in WINDOWS 95 if the procedure is called by another procedure
in a different module.
thanks for the help.
Pat
------------------
to save its contents, to be later shown again. In other words,
by saving part of the screen, I can restore that part if over-
written. Here is the code, which does not work in WINDOWS 98,
nor in WINDOWS 95 if the procedure is called by another procedure
in a different module.
Code:
FUNCTION PARTIAL.LINE.CAPTURE$(byval R,byval C, byval W) PUBLIC IF W=0 THEN W=PbvScrnCols+1-C x$=space$(2*W):count=1 for J=C to W-1+C if J<81 then Mid$(x$,count,1)=chr$(screen(r,j)) incr count Mid$(x$,count,1)=chr$(screen,r,j,1)) incr count end if Partial.line.capture$=x$ end function '--------------------------------------------- FUNCTION PARTIAL.LINE.CHAR$(byval R,byval C,byval W) PUBLIC IF W=0 THEN W=PbvScrnCols+1-c x$=partial.line.capture$(r,c,w) y$=spaces(w):j=1 for k=1 to 2*w step 2 mid$(y$,j,1)=mid$(x$,k,1) incr j next k partial.line.char$=y$ end function
Pat
------------------
Comment