home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR19 / OBJ20D.ZIP / SAYHOT.PRG < prev    next >
Text File  |  1993-05-15  |  900b  |  28 lines
  1. // Escritura en pantalla de cadenas con 'HotKeys'
  2.  
  3. //----------------------------------------------------------------------------//
  4.  
  5. function ScrSayHot( nRow, nCol, cText, cClrNormal, cClrHot )
  6.  
  7.    local nHotPos := At( "&", cText )
  8.  
  9.    do case
  10.       case nHotPos == 0
  11.            @ nRow, nCol SAY cText COLOR cClrNormal
  12.  
  13.       case nHotPos == 1
  14.            @ nRow, nCol SAY SubStr( cText, 2, 1 ) COLOR cClrHot
  15.            @ nRow, nCol + 1 SAY SubStr( cText, 3 ) COLOR cClrNormal
  16.  
  17.       otherwise
  18.            @ nRow, nCol SAY SubStr( cText, 1, nHotPos - 1 ) COLOR cClrNormal
  19.            @ nRow, nCol + nHotPos - 1 SAY SubStr( cText, nHotPos + 1, 1 ) ;
  20.              COLOR cClrHot
  21.            @ nRow, nCol + nHotPos SAY SubStr( cText, nHotPos + 2 ) ;
  22.              COLOR cClrNormal
  23.    endcase
  24.  
  25. return
  26.  
  27. //----------------------------------------------------------------------------//
  28.