home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 25 / IOPROG_25.ISO / SOFT / C5FOLDEE.ZIP / SAMPLES / NBA.PRG < prev    next >
Encoding:
Text File  |  1997-07-11  |  1.9 KB  |  64 lines
  1. #include "fivewin.ch"
  2. #include "ch\c5fldDI.ch"
  3. #include "ch\tooltips.ch"
  4.  
  5.  
  6. #define CLR_WHITE nRGB( 255,255,254 )
  7.  
  8.  
  9.  
  10. function main()
  11. Local oDlg, oFld, oToolTip
  12.  
  13. local hLib := LoadLibrary("bwcc.dll")
  14. local oBmp, oFont
  15. local cTipMal :=  ;
  16.       "S E A S O N     H I G H S / C A R E E R    H I G H S" + CRLF + CRLF + ;
  17.       "                   1996-97 HIGHS"                   + CRLF +;
  18.       "  Points               41, 3 times"             + CRLF +;
  19.       "  Rebounds        19, @ Milwaukee, 1/8/97"      + CRLF +;
  20.       "  Assists:            10, vs. Toronto, 2/27/97" + CRLF +;
  21.       "  Steals:              4, 3 times"           + CRLF +;
  22.       "  Blocks:             4, @ Phoenix, 1/22/97" + CRLF +;
  23.       "  Minutes:           45, 3 times"
  24.  
  25. * es un poco dificultoso pero cuando lo utilicemos lo podemos sacar de un
  26. * fichero de texto.
  27.  
  28.  
  29. ******** Ojo: BWCC.DLL debe estar presente.
  30.  
  31.  
  32. DEFINE FONT oFont NAME "MS Sans Serif" SIZE 0,-10
  33.  
  34. DEFINE DIALOG oDlg NAME "NBA"
  35.  
  36.      REDEFINE  FOLDERDI  oFld ID 101 OF oDlg ;
  37.                PROMPT "Jordan","Malone","Parish","Barkley" ;
  38.                DIALOGS "Jordan","Malone","Parish","Barkley" ;
  39.                PANECOLORS CLR_WHITE, CLR_WHITE, CLR_WHITE, CLR_WHITE, CLR_WHITE ;
  40.                TEXTCOLORS CLR_BLACK,CLR_BLACK, CLR_BLACK, CLR_BLACK, CLR_BLACK    ;
  41.                OPTION 1
  42.  
  43.                DEFINE TOOLTIP oToolTip OF oFld
  44.  
  45.                SET TOOLTIP oToolTip TO TAB 1 PROMPT "¡¡ THE basket !!"   ;
  46.                    BITMAP "bmps\classnam.bmp" ;
  47.                    COLOR CLR_BLACK, CLR_HGRAY
  48.  
  49.                SET TOOLTIP oToolTip TO TAB 2 PROMPT cTipMal        ;
  50.                    BITMAP "bmps\Vcanal5.bmp"  ;
  51.                    COLOR CLR_BLACK, nRGB( 127,255,127 )
  52.  
  53.                SET TOOLTIP oToolTip TO TAB 3 PROMPT "El Jefe" ;
  54.                    BITMAP "bmps\basket.bmp"
  55.  
  56.  
  57.  
  58. ACTIVATE DIALOG oDlg CENTERED
  59.  
  60.  
  61.  
  62. return nil
  63.  
  64.