home *** CD-ROM | disk | FTP | other *** search
/ synchro.net / synchro.net.tar / synchro.net / modem.madness / SMMPROG / PBGUI200.ZIP / PBGUI200.BI < prev    next >
Encoding:
Text File  |  1993-07-17  |  4.4 KB  |  176 lines
  1. ' ===========================================================================
  2. '
  3. ' PBGUI200.BI
  4. '
  5. DECLARE FUNCTION LoadFont%(FontFile$)
  6. DECLARE SUB ButtonSetState (handle%, state%)
  7. DECLARE SUB EditFieldSetState(handle%,state%)
  8. DECLARE FUNCTION EditFieldGetState(handle%)
  9. DECLARE SUB EditFieldToggleState(Handle%)
  10. DECLARE SUB GetEvent ( startEdit%)
  11. DECLARE SUB WindowLine (row%, col%, LineLength%, HorV%, LineColor%)
  12. DECLARE SUB WindowPrint (row%, col%, text$, colr%, Font%)
  13. DECLARE SUB Panel (UpOrDown%, row1%, col1%, row2%, col2%, LineWidth%)
  14. DECLARE FUNCTION Event% (EventType%)
  15. DECLARE FUNCTION WindowNext% ()
  16. DECLARE SUB ButtonToggleState (handle%)
  17. DECLARE SUB WindowInit ()
  18. DECLARE FUNCTION ListBox (text$())
  19. DECLARE SUB CloseWindow ()
  20. DECLARE SUB ThreeDbox (UpOrDown%, row1%, col1%, row2%, col2%)
  21. DECLARE SUB ThreeDLine (UpOrDown%, HorV%, row%, col%, Length%)
  22. DECLARE SUB PALLETE(BYVAL Register AS WORD, BYVAL red as byte,_
  23.             BYVAL green as byte, BYVAL blue as byte)
  24. DECLARE SUB ColorInit()
  25. DECLARE SUB GUILib(Action%)
  26. DECLARE FUNCTION GetEditField$(handle%)
  27. DECLARE FUNCTION GetCurrentFont$()
  28. DECLARE SUB ReDrawEditField(handle%)
  29. DECLARE SUB EditFieldSetString(handle%,EditString$)
  30. DECLARE FUNCTION ButtonGetState%(handle%)
  31. DECLARE FUNCTION MessageBox%(text$())
  32.  
  33. %FALSE = 0
  34. %TRUE = -1
  35. %UP = 0
  36. %DOWN = 1
  37. %VERT = 0
  38. %HORZ = 1
  39. %CommandButton = 1
  40. %CheckBoxButton = 2
  41. %RadioButton = 3
  42. %AreaButton = 4
  43. %Active = 2
  44. %NotActive = 1
  45. %MakeWindow = 1
  46. %MakeButton = 2
  47. %MakeEditField = 3
  48.  
  49. UNION FontIDUnion
  50.   Number AS INTEGER
  51.   FileName AS STRING * 8
  52. END UNION
  53.  
  54. TYPE WindowOpenTYPE
  55.     handle AS INTEGER
  56.     row1 AS INTEGER
  57.     col1 AS INTEGER
  58.     row2 AS INTEGER
  59.     col2 AS INTEGER
  60.    BackColor AS INTEGER
  61.   LightColor AS INTEGER
  62.    DarkColor  AS INTEGER
  63.    TextColor AS INTEGER
  64.  BorderColor AS INTEGER
  65.        Title AS STRING * 80
  66.     Savebkgd AS INTEGER
  67. END TYPE
  68.  
  69. TYPE ButtonOpenType
  70.     handle  AS INTEGER
  71.     state   AS INTEGER
  72.     text    AS STRING * 30
  73.     row1    AS INTEGER
  74.     col1    AS INTEGER
  75.     row2    AS INTEGER
  76.     col2    AS INTEGER
  77.   ButtonType    AS INTEGER
  78.   TextColor     AS INTEGER
  79.   LightColor    AS INTEGER
  80.   DarkColor     AS INTEGER
  81.   BackColor     AS INTEGER
  82.   FontID        AS FontIDUnion
  83. END TYPE
  84.  
  85. TYPE EditFieldOpenType
  86.     handle  AS INTEGER
  87.      state  AS INTEGER
  88.       text  AS STRING * 255
  89.        row  AS INTEGER
  90.        col  AS INTEGER
  91.      ForeColor  AS INTEGER
  92.      BackColor  AS INTEGER
  93.     Length  AS INTEGER
  94. END TYPE
  95.  
  96. TYPE ListBoxDataType
  97.     row             AS INTEGER
  98.     col             AS INTEGER
  99.     items           AS INTEGER
  100.     height          AS INTEGER
  101.     BoxBackColor    AS INTEGER
  102.     BoxLightColor   AS INTEGER
  103.     BoxDarkColor    AS INTEGER
  104.     BoxTextColor    AS INTEGER
  105.     BoxBorderColor  AS INTEGER
  106.     ButBackColor    AS INTEGER
  107.     ButLightColor   AS INTEGER
  108.     ButDarkColor    AS INTEGER
  109.     ButTextColor    AS INTEGER
  110.     ActiveItems     AS STRING * 256
  111. END TYPE
  112.  
  113. TYPE MessageBoxDataType
  114.     BoxBackColor    AS INTEGER
  115.     BoxLightColor   AS INTEGER
  116.     BoxDarkColor    AS INTEGER
  117.     BoxTextColor    AS INTEGER
  118.     BoxBorderColor  AS INTEGER
  119.     ButBackColor    AS INTEGER
  120.     ButLightColor   AS INTEGER
  121.     ButDarkColor    AS INTEGER
  122.     ButTextColor    AS INTEGER
  123.     FontID          AS FontIDUnion
  124.     ButOneText      AS STRING * 10
  125.     ButTwoText      AS STRING * 10
  126. END TYPE
  127.  
  128. 'TYPES
  129.  
  130. DIM Bold                AS BYTE,_
  131.     FontLoaded          AS INTEGER,_
  132.     CharSpace           AS BYTE,_
  133.     FontHeight          AS BYTE,_
  134.     AveWidth            AS BYTE,_
  135.     Shadow              AS BYTE,_
  136.     ShadowColor         AS WORD,_
  137.     Raised              AS BYTE,_
  138.     RaisedColor         AS WORD,_
  139.     FontPath            AS STRING,_
  140.     MAXWindow           AS INTEGER,_
  141.     MAXButton           AS INTEGER,_
  142.     MAXEditField        AS INTEGER,_
  143.     WOT                 AS WindowOpenType,_
  144.     BOT                 AS ButtonOpenType,_
  145.     EFOT                AS EditFieldOpenType,_
  146.     LBDT                AS ListBoxDataType,_
  147.     MBDT                AS MessageBoxDataType,_
  148.     WhichMouseButton    AS BYTE
  149.  
  150. PUBLIC Bold,_
  151.        CharSpace,_
  152.        FontLoaded,_
  153.        FontPath,_
  154.        FontHeight,_
  155.        AveWidth,_
  156.        Shadow,_
  157.        ShadowColor,_
  158.        Raised,_
  159.        RaisedColor,_
  160.        WOT,_
  161.        BOT,_
  162.        EFOT,_
  163.        LBDT,_
  164.        MBDT,_
  165.        MAXWindow,_
  166.        MAXButton,_
  167.        MAXEditField,_
  168.        WhichMouseButton
  169.  
  170.  
  171.  
  172. FontPath = ""
  173. MAXWindow = 5
  174. MAXButton = 50
  175. MAXEditField = 50
  176.