home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a106 / 2.ddi / PUTPANEL.PR_ / PUTPANEL.bin
Encoding:
Text File  |  1994-04-28  |  2.1 KB  |  78 lines
  1. PROCEDURE putpanel
  2. PARAMETERS m.p_wind, m.centered, m.r1,m.c1,m.r2,m.c2,m.rbord_width,;
  3.     m.cbord_width,m.fntname,m.fntsize,m.fntstyle
  4. * Paint a chiseled panel from r1,c1 to r2,c2 with a chiseled border of 
  5. * rbord_width pixels along the side and cbord_width pixels along the top
  6. * and bottom.
  7. IF PARAMETERS() <= 10
  8.    m.fntstyle = ""
  9. ENDIF    
  10. IF PARAMETERS() <= 9
  11.    m.fntsize = 8.00
  12. ENDIF    
  13. IF PARAMETERS() <= 8
  14.    m.fntname = "MS Sans Serif"
  15. ENDIF    
  16. IF PARAMETERS() <= 7
  17.    m.cbord_width = 0.7
  18. ENDIF    
  19. IF PARAMETERS() <= 6
  20.    m.rbord_width = 0.5
  21. ENDIF    
  22.  
  23. m.r2 = MIN(m.r2,WROWS())
  24. m.c2 = MIN(m.c2,WCOLS())
  25.  
  26. DEFINE WINDOW (p_wind) ;
  27.     FROM m.r1,m.c1 ;
  28.        TO m.r2,m.c2 ;
  29.     FONT m.fntname,m.fntsize ;
  30.     STYLE m.fntstyle ;
  31.     NOFLOAT ;
  32.     NOCLOSE ;
  33.     NONE ;
  34.     COLOR RGB(0, 0, 0, 192, 192, 192)
  35.  
  36. IF m.centered
  37.    MOVE WINDOW (m.p_wind) CENTER
  38. ENDIF  
  39.  
  40. ACTIVATE WINDOW (m.p_wind)
  41.  
  42. * Map screen coordinates to window coordinates
  43. m.c2 = WCOLS()-.16
  44. m.r2 = WROWS()-.1
  45.  
  46. * Dark edge along top of indented area    
  47. @ m.rbord_width,m.cbord_width TO m.rbord_width,m.c2-m.cbord_width ;
  48.     PEN 0 ;
  49.     COLOR RGB(128, 128, 128, 128, 128, 128)
  50. * Dark edge along left side of indented area    
  51. @ m.rbord_width,m.cbord_width TO m.r2-m.rbord_width,m.cbord_width ;
  52.     PEN 0 ;
  53.      COLOR RGB(128, 128, 128, 128, 128, 128)
  54. * Dark edge along bottom    
  55. @ m.r2,0 TO m.r2,m.c2 ;
  56.     PEN 0 ;
  57.     COLOR RGB(128, 128, 128, 128, 128, 128)
  58. * Dark edge along right side    
  59. @ 0,m.c2 TO m.r2,m.c2 ;
  60.     PEN 0 ;
  61.     COLOR RGB(128, 128, 128, 128, 128, 128)
  62. * Light edge along top
  63. @ 0,0 TO 0,m.c2 ;
  64.     PEN 0 ;
  65.     COLOR RGB(255, 255, 255, 255, 255, 255)
  66. * Light edge down left side    
  67. @ 0,0 TO m.r2,0 ;
  68.     PEN 0 ;
  69.     COLOR RGB(255, 255, 255, 255, 255, 255)
  70. * Light edge along bottom of indented area    
  71. @ m.r2-m.rbord_width,m.cbord_width TO m.r2-m.rbord_width,m.c2-m.cbord_width ;
  72.     PEN 0 ;
  73.     COLOR RGB(255, 255, 255, 255, 255, 255)
  74. * Light edge along right side of indented area    
  75. @ m.rbord_width,m.c2-m.cbord_width TO m.r2-m.rbord_width,m.c2-m.cbord_width ;
  76.     PEN 0 ;
  77.     COLOR RGB(255, 255, 255, 255, 255, 255)
  78.