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

* demo
* compile with /n
* link:
* rtlink: rtlink fi demo lib vinny50
* blinker (v1.4): blinker fi demo lib vinny50

STATIC ar := {" WELCOME",;
"THIS IS A BRIEF DEMO, OF THE FUNCTIONS"}

FUNCTION main
SETCOLOR("W+/B+")
CLEAR SCREEN
SET CURSOR OFF
@ 22,0 SAY REPLICATE("_",79)
DBOX(5,15,ar,"W+/GB")
INKEY(3)
UNBOX()
DSAY("LETS CREATE A WINDOW ")
INKEY(2)
VWINDOW("win1",3,5,10,60,"W+/B+",1)
DSAY("NOW LETS ADD A TITLE")
INKEY(3)
WTITLE("win1","THE TITLE OF WINDOW 1","R","T"," ")
DSAY("LETS ADD ANOTHER WINDOW")
INKEY(3)
VWINDOW("win2",4,6,11,65,"W+/R+",2,.T.)
DSAY("LETS ADD A TITLE CENTERED, ON THE BOTTOM OF THE WINDOW")
INKEY(3)
WTITLE("win2","TITLE 2","C","B","[]")
DSAY("LETS PUT TEXT IN THE WINDOW")
INKEY(3)
WSAY("win2",2,4,"THIS IS WINDOW 2")
DSAY("LETS CLEAR THE WINDOW")
INKEY(3)
WCLEAR("win2")
DSAY("NOW, LETS CHANGE THE COLOR OF THE WINDOW")
INKEY(3)
WCLEAR("win2","R+/W")
WSAY("win1",3,5,"NOW THE WINDOW IS RED ON WHITE")
DSAY("NOW, LETS UN-POP THE WINDOW")
INKEY(3)
WKILL("win2")
DSAY("LETS UN-POP WINDOW 1, IMPLODING")
INKEY(3)
WKILL("win1","I")
DSAY("NOW LETS RE-POP WINDOW 1")
INKEY(3)
WPOP("win1")
DSAY("LETS CHANGE THE BORDER TO THICK")
INKEY(3)
WBORDER("win1",5)
DSAY("NOW, SCROLL")
WSAY("win1",3,5,"THIS IS TEXT TO BE SCROLLED")
INKEY(3)
WSCROLL("win1",-1)
INKEY(.5)
WSCROLL("win1",-1)
INKEY(.5)
WSCROLL("win1",1)
INKEY(3)
WCLEAR("win1")
DSAY("LETS MOVE WINDOW 1 AND RESIZE IT")
INKEY(3)
WMOVE("win1",10,15,20,65)
INKEY(3)
WKILL("win1")
DSAY("LETS CREATE ONE WINDOW AND SEE ALL THE BORDERS")
INKEY(1)
VWINDOW("win3",5,10,17,69,"W+/GB+",1)
CHBORD()
DSAY("NOW IT'S TIME TO GO")
INKEY(1)
WKILL("win3")
SET CURSOR ON
CLEAR SCREEN
RETURN NIL


FUNCTION dsay(string)
local oldcolor
oldcolor = SETCOLOR()
SETCOLOR("W+/B+")
@ 23,5 SAY string+space(30)
SETCOLOR(oldcolor)
RETURN NIL

FUNCTION chbord()

LOCAL x

FOR x = 2 TO 6
WBORDER("win3",x)
INKEY(1)
NEXT

RETURN NIL