Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DBT10.ZIP
Filename : DBTWIND.PRG

 
Output of file : DBTWIND.PRG contained in archive : DBT10.ZIP

*====================================================================
* DBTWIND.PRG - Window Demonstration
* (c) 1989 BERNATH COMPUTER
* 9:01:58 9/14/1989
*====================================================================

CALL DBTOOLS WITH "15,3" && save screen
CALL DBTOOLS WITH "7,0,0,7,0" && dither background

CALL DBTOOLS WITH "1,S,0,28,15,4,0,W I N D O W Demonstration"
CALL DBTOOLS WITH "21,19,3,5,13,50,10,2,2,1"
CALL DBTOOLS WITH "1,4,15,15,2,0,WINDOW - function 21"
SET COLOR TO N/G
@ 6,8 SAY "The WINDOW function allows you to popup"
@ 7,8 SAY "boxed and framed windows, first saving"
@ 8,8 SAY "the text area underneath. The area under-"
@ 9,8 SAY "neath can then be restored using UNPOP"
@ 10,8 SAY "function 19."
CALL DBTOOLS WITH "10,12,15,15,2"
CALL DBTOOLS WITH "21,21,6,10,19,70,10,0,2,1"
SET COLOR TO +G/N
CALL DBTOOLS WITH "1,7,13,10,0,0,Syntax:"
mPARM = "CALL DBTOOLS WITH "+CHR(34)+"21,windownumber,ULR,ULC,LRR,LRC,"
@ 8,13 SAY mPARM
mPARM = "FG,BG,frame shadow"+CHR(34)
@ 9,32 SAY mPARM
SET COLOR TO G/N
@ 10,13 SAY "Windownumber is a number between 1 and 24 used to"
@ 11,13 say "reference a particular window. This number is used"
@ 12,13 say "along with function 19 to restore the area underneath."
SET COLOR TO +G/N
@ 14,13 say "CALL DBTOOLS WITH "+CHR(34)+"21,22,12,50,17,75,15,4,3,1"+CHR(34)
@ 15,30 SAY "."
@ 16,30 SAY "."
@ 17,13 SAY "CALL DBTOOLS WITH "+CHR(34)+"19,22"+CHR(34)
CALL DBTOOLS WITH "10,18,20,14,0"
CALL DBTOOLS WITH "5,18,20,18,50,0"
CALL DBTOOLS WITH "1,18,20,14,8,0,Watch these commands execute:"
CALL DBTOOLS WITH "4,0,0"
CALL DBTOOLS WITH "6,48"
CALL DBTOOLS WITH "21,22,12,50,17,75,15,4,3,1"
CALL DBTOOLS WITH "1,14,58,15,4,0,Pop it up!"
CALL DBTOOLS WITH "6,36"
CALL DBTOOLS WITH "19,22"
CALL DBTOOLS WITH "6,36"


* -------- little boxes! ---------
KOUNT = 1
DO WHILE KOUNT < 16
mROW = 4+(KOUNT-1)
mCOL = 10+(KOUNT-1)*3
mWIND = "21,"+STR(KOUNT,2)+","+STR(mROW,2)+","+STR(mCOL,2)+","+STR(mROW+4,2)+","+STR(mCOL+8,2)
mWIND = mWIND+","+STR(KOUNT,2)+",0,1,0,0"
CALL DBTOOLS WITH mWIND
KOUNT = KOUNT + 1
ENDDO
CALL DBTOOLS WITH "6,40" && delay
* -------- unpop little boxes --------
KOUNT = 15
DO WHILE KOUNT >0
mPARM = "19,"+STR(KOUNT,2)
CALL DBTOOLS WITH mPARM
KOUNT = KOUNT - 1
ENDDO


CALL DBTOOLS WITH "6,36" && unpop description wind's
CALL DBTOOLS WITH "19,21"
CALL DBTOOLS WITH "6,36"
CALL DBTOOLS WITH "19,19"
CALL DBTOOLS WITH "6,10"
CALL DBTOOLS WITH "4,1,0" && cursor on
CALL DBTOOLS WITH "14,3,0" && restore screen
RETURN