home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / QBSCR20.ZIP / QBSCR.INC < prev    next >
Encoding:
Text File  |  1992-07-08  |  6.2 KB  |  123 lines
  1. '──────────────────────────────────────────────────────────────────────────
  2. ' Constants that are required somewhere in the code.
  3. '──────────────────────────────────────────────────────────────────────────
  4.     ' Used for justification type in OkMessageBox and OkCancelMessageBox
  5.     ' routines.
  6.     CONST FLUSHLEFT = 0
  7.     CONST FLUSHRIGHT = 1
  8.     CONST CENTERED = 2
  9.  
  10.     CONST SINGLEBORDER = 0        ' Single-line border for buttons and boxes
  11.     CONST DOUBLEBORDER = 1        ' Double-line border for buttons and boxes
  12.  
  13.     CONST STYLE3D = 0
  14.     CONST STYLE2D = 1
  15.  
  16.     CONST EMmoved = -1            ' getEvent code: Mouse Moved
  17.     CONST EMpressedLeft = -2      ' getEvent code: Mouse left button pressed
  18.     CONST EMpressedRight = -3     ' getEvent code: Mouse right button pressed
  19.     CONST EMpressedCenter = -4    ' getEvent code: Mouse center button pressed
  20.     CONST EMreleasedLeft = -5     ' getEvent code: Mouse left button releases
  21.     CONST EMreleasedRight = -6    ' getEvent code: Mouse right button released
  22.     CONST EMreleasedCenter = -7   ' getEvent code: Mouse center button released
  23.     CONST EKpressed = -8          ' getEvent code: Key on keyboard pressed
  24.  
  25.     CONST F1 = 15104              ' Unique integers (scan codes) for special
  26.     CONST F2 = 15360              ' keys.  May be used to refer to codes returned
  27.     CONST F3 = 15616              ' by getEvent function by name.
  28.     CONST F4 = 15872
  29.     CONST F5 = 16128
  30.     CONST F6 = 16384
  31.     CONST F7 = 16640
  32.     CONST F8 = 16896
  33.     CONST F9 = 17152
  34.     CONST F10 = 17408
  35.     CONST UPARROW = 18432
  36.     CONST DOWNARROW = 20480
  37.     CONST LEFTARROW = 19200
  38.     CONST RIGHTARROW = 19712
  39.     CONST HOMEKEY = 18176
  40.     CONST ENDKEY = 20224
  41.     CONST PGUP = 18688
  42.     CONST PGDN = 20736
  43.     CONST INSERT = 20992
  44.     CONST DELETE = 21248
  45.  
  46.     CONST NormalAttr = 0          ' Constants defining file attributes for
  47.     CONST ReadOnlyAttr = 1        ' QBdisk routines.
  48.     CONST HiddenAttr = 2
  49.     CONST SystemAttr = 4
  50.     CONST VolLabelAttr = 8
  51.     CONST SubdirAttr = 16
  52.     CONST ArchiveAttr = 32
  53.     CONST AllFilesAttr = NormalAttr + ReadOnlyAttr + HiddenAttr + SystemAttr + VolLabelAttr + SubdirAttr + ArchiveAttr
  54.  
  55.     TYPE FileInfoType             ' Type for FileInfo function.
  56.         fattribute AS INTEGER
  57.         fattrstr AS STRING * 6
  58.         ftime AS STRING * 10
  59.         fdate AS STRING * 10
  60.         fsize AS LONG
  61.         fname AS STRING * 13
  62.     END TYPE
  63.  
  64. '──────────────────────────────────────────────────────────────────────────
  65. ' DECLARE statements for all the QBSCR routines
  66. '──────────────────────────────────────────────────────────────────────────
  67.     DECLARE FUNCTION BlockSize% (l%, r%, t%, b%)
  68.     DECLARE FUNCTION CalcScrollPos% (listSize%, numDivisions%, currentPos%)
  69.     DECLARE FUNCTION ColorChk ()
  70.     DECLARE FUNCTION EgaPresent% ()
  71.     DECLARE FUNCTION GetBackground% (row%, col%)
  72.     DECLARE FUNCTION GetForeground% (row%, col%)
  73.     DECLARE FUNCTION GetVideoSegment! ()
  74.     DECLARE FUNCTION MakeMenu% (choice$(), numOfChoices%, justify$, leftColumn!, rightColumn!, row%, marker$, divider$, fg%, bg%, hfg%, hBG%, qfg%, qbg%, useMouse%)
  75.     DECLARE FUNCTION OkCancelMessageBox% (x1%, y1%, x2%, y2%, st$(), numLines%, justify%, fg%, bg%, frType%, shadow%, explode%, label$, useMouse%, buttonBorder%, buttonStyle%)
  76.     DECLARE FUNCTION rgbRGB% (red%, green%, blue%)
  77.     DECLARE FUNCTION SubMenu% (choice$(), currentMenu%, numOfChoices%, justify$, leftColumn!, rightColumn!, row%, marker$, divider$, fg%, bg%, hfg%, hBG%, qfg%, qbg%, useMouse%, mx%, my%)
  78.     DECLARE FUNCTION ScreenBlank$ (delay, useMouse%)
  79.     DECLARE FUNCTION SelectList$ (items$(), numItems%, topRow%, botRow%, leftCol%, maxWidth%, normFG%, normBG%, hiFG%, hiBG%, frameType%, explode%, shadow%, label$, useMouse%)
  80.     DECLARE FUNCTION VgaPresent% ()
  81.     DECLARE SUB Banner (st$, row%)
  82.     DECLARE SUB BlinkOff ()
  83.     DECLARE SUB BlinkOn ()
  84.     DECLARE SUB BlockRestore (l%, r%, t%, b%, scrArray%(), segment!)
  85.     DECLARE SUB BlockSave (l%, r%, t%, b%, scrArray%(), segment!)
  86.     DECLARE SUB BuildScreen (file$, mode%)
  87.     DECLARE SUB Center (st$, row%)
  88.     DECLARE SUB ClrScr (mode%, fillChar$)
  89.     DECLARE SUB DisplayEntry (entry$, qfg%, qbg%, hfg%, hBG%, fg%, bg%, marker$, divider$, wid%, actionCode%)
  90.     DECLARE SUB EditString (st$, leftCol%, row%, foreColor%, backColor%)
  91.     DECLARE SUB GetScreen (file$)
  92.     DECLARE SUB LoadVgaTextFont (fontfile$)
  93.     DECLARE SUB LoadEgaTextFont (fontfile$)
  94.     DECLARE SUB MakeWindow (topRow!, leftCol!, botRow!, rightCol!, foreColor%, backColor%, windowType%, frameType%, shadowColor%, explodeType%, label$)
  95.     DECLARE SUB MouseAdjustBox (minSens%, x%, y%, fg%, bg%, bpfg%, bpbg%, frType%, shadow%, explode%)
  96.     DECLARE SUB MouseOrKeyboardPause ()
  97.     DECLARE SUB MultiMenu (menusArray$(), numEntries%(), menuTitles$(), x1%, y%, x2%, justify$, marker$, divider$, frameType%, shadowCode%, fg%, bg%, hfg%, hBG%, qfg%, qbg%, menuSelected%, menuEntrySelected%, useMouse%)
  98.     DECLARE SUB OffCenter (st$, row%, leftCol%, rightCol%)
  99.     DECLARE SUB OkMessageBox (x1%, y1%, x2%, y2%, st$(), numLines%, justify%, fg%, bg%, frType%, shadow%, explode%, label$, useMouse%, buttonBorder%, buttonStyle%)
  100.     DECLARE SUB PutScreen (file$)
  101.     DECLARE SUB QBPrint (st$, row%, col%, fore%, back%)
  102.     DECLARE SUB ScrnRestore (firstLine%, lastLine%, scrArray%(), segment)
  103.     DECLARE SUB ScrnSave (firstLine%, lastLine%, scrArray%(), segment)
  104.     DECLARE SUB ViewList (list$(), listLen%, maxWidth%, topRow%, botRow%, leftCol%, fg%, bg%, frameType%, explode%, shadow%, label$, useMouse%)
  105.     DECLARE SUB Wipe (top%, bottom%, lft%, rght%, back%)
  106.     DECLARE FUNCTION getEvent% (checkMouse%, keyCode%, mouseX%, mouseY%)
  107.     DECLARE SUB DepressedBox (boxType%, x1%, y1%, x2%, y2%, fg%, bg%, buttonStyle%)
  108.     DECLARE SUB DrawButton (buttonType%, x1%, y1%, x2%, y2%, fg%, bg%, txt$, buttonStyle%)
  109.     DECLARE SUB PressButton (buttonType%, x1%, y1%, x2%, y2%, fg%, bg%, txt$, buttonStyle%)
  110.     DECLARE SUB PressedButton (buttonType%, x1%, y1%, x2%, y2%, fg%, bg%, txt$, buttonStyle%)
  111.     DECLARE SUB RaisedBox (boxType%, x1%, y1%, x2%, y2%, fg%, bg%, buttonStyle%)
  112.  
  113.     DECLARE FUNCTION NextFile% (dta$)
  114.     DECLARE FUNCTION FirstFile% (fileName$, attributes%, dta$)
  115.     DECLARE SUB FileInfo (fd AS FileInfoType, dta$)
  116.     DECLARE FUNCTION GetPath$ (drive%)
  117.     DECLARE FUNCTION GetDriveCode% ()
  118.     DECLARE FUNCTION GetDriveLetter$ ()
  119.     DECLARE FUNCTION GetDiskFreeSpace& (drive%)
  120.     DECLARE SUB SetDefaultDrive (drive%)
  121.     DECLARE FUNCTION NumDrives% ()
  122.  
  123.