Define a window AA. Open a file. Browse fields a,b,c,d noclear rest in wind AA. When Esc key is pressed, the window is cleared. The "noclear "command does not work (Visual Foxpro 6)
DEFI WIND LISTC FROM 06,32 TO 23,86 TITL "F3:Currency Help. USE Up/Down Arrows. ESC>=Search/Close" FILL FILE BAKICON; ICON FILE GRUPICONCIRCLEF FLOAT SELE 36 USE EXFILE ORDE CURCD NOUP GO TOP SET NEAR ON ACTI WIND LISTC *---------- DO WHILE .T. BROW FIEL CURCD:H="CUR":R, CURNAME/R:H="CURRENCY NAMES", CURRATE:H="EXC.RATE":R,CURDATE:H="UPDATED UPTO":R REST NOME NOED NOCLEAR IN WIND LISTC *----------------- CEQ = REPL(" ",5) @ 14,03 SAY SPACE(20) @ 14,08 SAY "Enter CURRENCY Code to GO" FONT "TIMES NEW ROMAN",10 STYLE "B" COLO +W/+R @ 14,03 GET CEQ FONT "TIMES NEW ROMAN",10 STYLE "B" COLO +W,+W,+B READ IF LASTKEY() = 27 .OR. EOF() EXIT ENDIF *----------- IF CEQ <> " " SEEK ALLT(CEQ) IF EOF() GO TOP ENDIF ENDIF ENDDO *---------- SET NEAR OFF DEAC WIND LISTC RELE WIND LISTC RETU ===========================
Visual FoxPro1
|