'===========================================================================
' Subject: DRAW VARIABLE TEXT BOXES          Date: 12-20-97 (10:33)       
' Author:  Alexander Meyer                   Code: QB, QBasic, PDS        
' Origin:  Meyer.Karl@t-online.de          Packet: TEXT.ABC
'===========================================================================
'                             ////
'                           0(o o)0
'-------------------------ooO (_) Ooo---------------------
' TEXTBOX.BAS -- Written in QuickBasic 4.5
'          
' Name: Draw text box
' Author: Alexander Meyer
' Date: 12-07-1997
' Description: This draws variable text boxes. You can
'              choose size, colour and shadow.             
'
'For questions or comments mail to: Meyer.Karl@t-online.de
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
DECLARE SUB TextBox (x, y, XEnde, YEnde, Foreground, Background, ShadeFore, ShadeBack)
DECLARE SUB TextBox2 (x, y, XEnde, YEnde)

CLS : SCREEN 0: WIDTH 80
COLOR 9, 1
RANDOMIZE TIMER
FOR i% = 1 TO 1000
  PRINT "°±²±";
NEXT i%

CALL TextBox(2, 2, 9, 30, 4, 2, 1, 0)
CALL TextBox(3, 40, 11, 70, 1, 6, 1, 4)
CALL TextBox2(14, 4, 20, 50)
CALL TextBox2(16, 45, 22, 73)
COLOR 4, 2
LOCATE 5, 12: PRINT "TEXTBOX"
LOCATE 6, 7: PRINT "by Alexander Meyer"
COLOR 2, 6
LOCATE 5, 46: PRINT "You can choose size,"
LOCATE 7, 47: PRINT "colour and shadow"
LOCATE 9, 49: PRINT "of the boxes"
COLOR 15, 7
LOCATE 16, 13: PRINT "This shows the possibilities"
LOCATE 18, 22: PRINT "of TEXTBOX"
COLOR 0, 7
LOCATE 19, 56: PRINT "ENJOY!!"
END

SUB TextBox (x, y, XEnde, YEnde, Foreground, Background, ShadeFore, ShadeBack)
COLOR Foreground, Background            'Draw box
LOCATE x, y: PRINT "Ú"
LOCATE x, YEnde: PRINT "¿"
LOCATE XEnde, y: PRINT "À"
LOCATE XEnde, YEnde: PRINT "Ù"
FOR BoxY = y + 1 TO YEnde - 1
  LOCATE x, BoxY
  PRINT "Ä"
  LOCATE XEnde, BoxY
  PRINT "Ä"
NEXT BoxY
FOR BoxX = x + 1 TO XEnde - 1
  LOCATE BoxX, y
  PRINT "³"
  LOCATE BoxX, YEnde
  PRINT "³"
  LOCATE BoxX, y + 1
  FOR a% = y + 1 TO YEnde - 1            'Fill box
    LOCATE BoxX, a%
    PRINT " "
  NEXT a%
NEXT BoxX

'------IF YOU DON'T WANT A SHADOW THEN CUT HERE----------
COLOR ShadeFore, ShadeBack              'Draw shadow    |
FOR a = x + 1 TO XEnde + 1              '               |
  LOCATE a, YEnde + 1                   '               |
  PRINT CHR$(SCREEN(a, YEnde + 1))      '               |
NEXT a                                  '               |
FOR b = y + 1 TO YEnde + 1              '               |
  LOCATE XEnde + 1, b                   '               |
  PRINT CHR$(SCREEN(XEnde + 1, b))      '               |
NEXT b                                  '               |
'---------------------------------------------------------

END SUB

SUB TextBox2 (x, y, XEnde, YEnde)
 
  COLOR 15, 7                              'Draw box
  FOR i% = y + 1 TO YEnde - 1
    LOCATE x, i%
    PRINT "ß"
  NEXT i%
  FOR i% = x TO XEnde - 1
    LOCATE i%, y
    PRINT "Û"
  NEXT i%
  LOCATE XEnde, y: PRINT "ß"
  COLOR 8, 7
  FOR i% = y + 1 TO YEnde - 1
    LOCATE XEnde, i%
    PRINT "Ü"
  NEXT i%
  FOR i% = x TO XEnde
    LOCATE i%, YEnde
    PRINT "Û"
  NEXT i%
  LOCATE x, YEnde: PRINT "Ü"

  COLOR 7
  FOR a = x + 1 TO XEnde - 1               'Fill box
    FOR b = y + 1 TO YEnde - 1
      LOCATE a, b
      PRINT "Û"
    NEXT b
 NEXT a
END SUB