home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / procedures / alert_proc_addon.amos / alert_proc_addon.amosSourceCode
AMOS Source Code  |  1994-06-03  |  2KB  |  89 lines
  1. '
  2. ' *** Alert Requester Procedure. 
  3. '
  4. Procedure _ALERTREQUESTER[M$,B$]
  5.    '
  6.    ' M$  -  This string contains the text displayed on the requester. 
  7.    ' B$  -  This string contains the button test, use the "|" character to
  8.    '        separate the buttons eg "OK|CANCEL".
  9.    '
  10.    If M$="_Cc_"
  11.       Goto FIN
  12.    End If 
  13.    '
  14.    I=0
  15.    IO=0
  16.    L=0
  17.    While I<Len(M$)
  18.       I=Instr(M$,"|",I+1)
  19.       If I=0
  20.          I=Len(M$)+1
  21.       End If 
  22.       IO=I
  23.       Inc L
  24.    Wend 
  25.    '
  26.    I=0
  27.    IO=0
  28.    B=0
  29.    While I<Len(B$)
  30.       I=Instr(B$,"|",I+1)
  31.       If I=0
  32.          I=Len(B$)+1
  33.       End If 
  34.       IO=I
  35.       Inc B
  36.    Wend 
  37.    '
  38.    _OPENDIALOGSCREEN[7,40+(L*8),50]
  39.    '    
  40.    H=Screen Height-1
  41.    '
  42.    _DRAW3DBOX[0,0,639,39+(L*8),"",1,2,_BACK]
  43.    '
  44.    If B$=""
  45.       _DRAW3DBOX[10,5,629,8,"",1,_LIGHT,_COLOUR]
  46.       _DRAW3DBOX[10,H-8,629,H-5,"",1,_LIGHT,_COLOUR]
  47.       _DRAW3DBOX[10,8,629,H-8,M$,2,_TEXT,_BACK]
  48.       Goto FIN2
  49.    End If 
  50.    '
  51.    _DRAW3DBOX[10,H-26,629,H-23,"",1,_LIGHT,_COLOUR]
  52.    _DRAW3DBOX[10,5,629,H-29,M$,2,_TEXT,_BACK]
  53.    '
  54.    B_DLG$=_DIALOGBUTTON$
  55.    _DIALOGBUTTON$=""
  56.    '
  57.    BB#=B
  58.    D2#=326.0-((BB#*100.0)/2.0)
  59.    '
  60.    I=0
  61.    IO=0
  62.    A=0
  63.    While A<B
  64.       I=Instr(B$,"|",I+1)
  65.       If I=0
  66.          I=Len(B$)+1
  67.       End If 
  68.       _ADDBUTTON[D2#+100*A,H-18,D2#+100*A+86,H-5,Left$(Mid$(B$,IO+1,I-IO-1),10),A+1]
  69.       IO=I
  70.       Inc A
  71.    Wend 
  72.    '
  73.    Repeat 
  74.       _CHECKBUTTONS
  75.       Q=Param
  76.    Until Q
  77.    '
  78.    _DIALOGBUTTON$=B_DLG$
  79.    B_DLG$=""
  80.    '
  81.    ZN=0
  82.    '
  83.    FIN:
  84.    '
  85.    Screen Close 7
  86.    '
  87.    FIN2:
  88.    '
  89. End Proc[Q]