Category : BASIC Source Code
Archive   : PBC30B.ZIP
Filename : CWINDMAN.BAS

' +----------------------------------------------------------------------+
' | |
' | PBClone Copyright (c) 1990-1994 Thomas G. Hanlin III |
' | |
' +----------------------------------------------------------------------+

DECLARE SUB DelayV (BYVAL MilliSeconds%)
DECLARE SUB GXQPrint1 (St$, BYVAL Row%, BYVAL Col%, BYVAL Fore%, BYVAL Back%, BYVAL Fast%)

SUB CWindowManager (TopRow%, LeftCol%, BottomRow%, RightCol%, Frame%, Fore%, Back%, Grow%, Shade%, TitleFore%, Title$, Fast%)

IF Grow% THEN
XD% = RightCol% - LeftCol% + 1
YD% = BottomRow% - TopRow% + 1
Y1% = TopRow% + YD% \ 2
X1% = LeftCol% + XD% \ 2
Y2% = BottomRow% - YD% \ 2
X2% = RightCol% - XD% \ 2
IF YD% > XD% THEN
XDelta% = 1
YDelta% = (YD% + XD% \ 2) \ XD%
IF YDelta% < 1 THEN YDelta% = 1
ELSE
YDelta% = 1
XDelta% = (XD% + YD% \ 2) \ YD%
IF XDelta% < 1 THEN XDelta% = 1
END IF
DO
Y1% = Y1% - YDelta%
IF Y1% < TopRow% THEN Y1% = TopRow%
X1% = X1% - XDelta%
IF X1% < LeftCol% THEN X1% = LeftCol%
Y2% = Y2% + YDelta%
IF Y2% > BottomRow% THEN Y2% = BottomRow%
X2% = X2% + XDelta%
IF X2% > RightCol% THEN X2% = RightCol%
GOSUB MakeWindow
IF Grow% > 0 THEN DelayV Grow%
LOOP UNTIL Y1% = TopRow% AND X1% = LeftCol% AND Y2% = BottomRow% AND X2% = RightCol%
ELSE
Y1% = TopRow%
X1% = LeftCol%
Y2% = BottomRow%
X2% = RightCol%
GOSUB MakeWindow
END IF

EXIT SUB



MakeWindow:
tmp% = X2% - X1% + 1
IF Frame% AND 1 THEN
TopSt$ = STRING$(tmp%, "Ä")
ELSE
TopSt$ = STRING$(tmp%, "Í")
END IF
MidSt$ = SPACE$(tmp%)
BotSt$ = TopSt$
SELECT CASE Frame%
CASE 1
TopSt$ = "Ú" + TopSt$ + "¿"
MidSt$ = "³" + MidSt$ + "³"
BotSt$ = "À" + BotSt$ + "Ù"
CASE 2
TopSt$ = "É" + TopSt$ + "»"
MidSt$ = "º" + MidSt$ + "º"
BotSt$ = "È" + BotSt$ + "¼"
CASE 3
TopSt$ = "Ö" + TopSt$ + "·"
MidSt$ = "º" + MidSt$ + "º"
BotSt$ = "Ó" + BotSt$ + "½"
CASE 4
TopSt$ = "Õ" + TopSt$ + "¸"
MidSt$ = "³" + MidSt$ + "³"
BotSt$ = "Ô" + BotSt$ + "¾"
CASE 5
TopSt$ = STRING$(tmp% + 2, "Ü")
MidSt$ = "Ý" + MidSt$ + "Þ"
BotSt$ = STRING$(tmp% + 2, "ß")
CASE ELSE
TopSt$ = SPACE$(tmp% + 2)
MidSt$ = TopSt$
BotSt$ = TopSt$
END SELECT

Row% = Y1% - 1
Col% = X1% - 1
IF LEN(Title$) > 0 AND LEN(TopSt$) >= 4 THEN
St$ = LEFT$(Title$, LEN(TopSt$) - 4)
MID$(TopSt$, 2) = "[" + St$ + "]"
GXQPrint1 TopSt$, Row%, Col%, Fore%, Back%, Fast%
GXQPrint1 St$, Row%, Col% + 2, TitleFore%, Back%, Fast%
ELSE
GXQPrint1 TopSt$, Row%, Col%, Fore%, Back%, Fast%
END IF
FOR Row% = Y1% TO Y2%
GXQPrint1 MidSt$, Row%, Col%, Fore%, Back%, Fast%
NEXT
GXQPrint1 BotSt$, Y2% + 1, Col%, Fore%, Back%, Fast%

Col% = X1% - 3
IF Shade% THEN
FOR Row% = Y1% TO Y2% + 1
GXQPrint1 " ", Row%, Col%, Back%, Back%, Fast%
NEXT
GXQPrint1 SPACE$(X2% - X1% + 3), Y2% + 2, Col%, Back%, Back%, Fast%
END IF
RETURN

END SUB