home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 20 / AACD20.BIN / AACD / Graphics / PerfectPaint / rexx / text / BiColor.rx < prev    next >
Text File  |  1999-08-30  |  585b  |  58 lines
  1. /*
  2.     Arexx Text Script
  3. */
  4.  
  5.     options results
  6.   parse ARG Port x y b
  7.     ADDRESS value Port
  8.  
  9.     Border=2
  10.  
  11.     pp_AvoidRefresh
  12.  
  13.     pp_DialogInit 150 55 "*BiColor*" 1
  14.         pp_Integer 0 60 5 50 16 "Border" 1 Border
  15.     pp_Dialog
  16.     rc=result
  17.     if rc=0 then
  18.         do
  19.             pp_PermitRefresh
  20.             EXIT
  21.         end    
  22.  
  23.     pp_UpdateUndo    
  24.         
  25.     pp_GetDialog 0
  26.     Border=result
  27.  
  28.     pp_UpdateUndo
  29.  
  30.     pp_GetApen
  31.     Aclr=result
  32.  
  33.     pp_GetBpen
  34.     Bclr=result
  35.  
  36.     texte=""
  37.  
  38.     pp_SetApen Bclr
  39.     pp_TextEffect 0 2
  40.     pp_TextMake texte
  41.     pp_TextDraw x y
  42.  
  43.     pp_SetApen Aclr
  44.     pp_TextEffect 2 Border
  45.     pp_TextMake texte
  46.     pp_TextDraw x y
  47.  
  48.     pp_PermitRefresh
  49.     
  50.  
  51.  
  52.     
  53.  
  54.  
  55.     
  56.  
  57.     
  58.