Category : BASIC Source Code
Archive   : PWL520X.ZIP
Filename : WINDEMO2.BAS

' WINDEMO2.BAS - ProWindows(tm) LITE Demo Program

REM $DYNAMIC ' <= SET UP QUICKBASIC FOR DYNAMIC MEMORY USAGE
DEFINT A-Z ' <= DEFAULT TO INTEGERS

REM $INCLUDE: 'LITE.BI' ' <= REQUIRED FOR WINDOW CALLS

' === DEFINE A FEW CONSTANTS

CONST WINMEMSIZE% = 8191 ' <= VIRTUAL WINDOW MEMORY SIZE
CONST SCRNMEMSIZE% = 4096 ' <= SCREEN BUFFER MEMORY SIZE
CONST MAXWINDOWS% = 30 ' <= MAXIMUM NUMBER OF WINDOWS

CLEAR , , 4096 ' <= SET ASIDE ADDITIONAL "STACK" SPACE

LOCATE 1, 1

PreInit ' <= PRE-INITIALIZE THE WINDOW MANAGER

' === DIMENSION GLOBAL ARRAYS WITH ABOVE DEFINED CONSTANTS

REDIM SHARED VirMem(WINMEMSIZE) AS INTEGER ' <= VIRTUAL MEMORY
REDIM SHARED scrn(SCRNMEMSIZE) AS INTEGER ' <= SCREEN MEMORY
REDIM SHARED vcb(MAXWINDOWS) AS vircb ' <= VIRTUAL WINDOW INFO
REDIM SHARED wcb(MAXWINDOWS) AS wincb ' <= DISPLAYED WINDOW INFO
REDIM SHARED cursor(MAXWINDOWS) AS cursorTYPE ' <= CURSOR CONTROL ARRAY
REDIM SHARED wcbndx(MAXWINDOWS) AS INTEGER ' <= LIST OF HANDLES

InitPro ' <= INITIALIZE THE WINDOW MANAGER

ReCycleMode 1 ' <= ENABLE "VIDEO RECYCLING"

SetEventDelay 18 ' <= SET MAXIMUM EVENT DELAY TIME

UseDrivers 0, 0, 1 ' <= INSTALL ANY NEEDED DRIVERS

REM setBWmode 1 ' <= SWITCH TO MONOCHROME MODE

' === DEFINE THE "GLOBAL WINDOW OPTIONS"

GlobalOptions = SELECTABLE

FillScreen 1, 1, MAXROWS, MAXCOLS, 23, 250, SNOW

Notice ' <= COPYRIGHT NOTICE (SHAREWARE VERSION ONLY)
Win1 = CurrentWindow ' <= GET THE WINDOW'S HANDLE

CloneWindow Win1 ' <= CLONE "WIN1"
Win2 = CurrentWindow ' <= GET THE WINDOW'S HANDLE

CloneWindow Win1 ' <= CLONE "WIN1"
Win3 = CurrentWindow ' <= GET THE WINDOW'S HANDLE

DisplayWindow Win2, 13, 37, 12, 24 ' <= DISPLAY WINDOW #2
DisplayWindow Win3, 8, 50, 12, 24 ' <= WINDOW #2

row = 1: col = 1: WinSize = 3


WHILE INKEY$ = ""

SELECT CASE WinSize
CASE 3
size = 3
CASE 12
size = -3
CASE ELSE
END SELECT

SELECT CASE row
CASE 1
cdirection = 1
CASE 9
rdirection = 0
cdirection = -1
CASE ELSE
END SELECT

col = col + cdirection

SELECT CASE col
CASE 1
rdirection = -1
cdirection = 0
CASE 55
cdirection = 0
rdirection = 1
CASE ELSE
END SELECT

row = row + rdirection

IF (row = 1) AND (col = 1) THEN
rdirection = 0
cdirection = 0
END IF

RefreshMode DISABLE ' <= DISABLE WINDOW REFRESHING

ReAlignWindow Win2, row, col ' <= ADJUST WINDOW VIEWPORT
ReAlignWindow Win3, row, col

RefreshMode ENABLE ' <= RE-ENABLE WINDOW REFRESHING

RefreshWindow Win2 ' <= UPDATE THE WINDOW(S)

WEND

CloseWindow Win2 ' <= CLOSE OUR WINDOWS
CloseWindow Win3