home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 25 / IOPROG_25.ISO / SOFT / C5FOLDEE.ZIP / SAMPLES / PRUEBA3.PRG < prev    next >
Encoding:
Text File  |  1998-05-17  |  1.6 KB  |  66 lines
  1. #include "fivewin.ch"
  2. #include "ch\c5fldac.ch"
  3. #include "ch\tooltips.ch"
  4.  
  5. function main()
  6. Local hLib, oFont
  7. Public oWnd
  8.  
  9. * atencion a BWCC.DLL
  10. hLib := LoadLibrary("bwcc.dll")
  11.  
  12. DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0,-10
  13.  
  14. SET RESOURCES TO "PRUEBA3.DLL"
  15.  
  16.  
  17. DEFINE   WINDOW oWnd TITLE "Prueba de folders tipo Access"
  18.  
  19.        DEFINE BUTTONBAR oBar SIZE 28,28 3DLOOK OF oWnd
  20.  
  21.               DEFINE BUTTON oBtn1 NAME "baradj"   OF oBar ACTION Crea()
  22.               DEFINE BUTTON oBtn2 NAME "barleft"  OF oBar
  23.               DEFINE BUTTON oBtn3 NAME "barright" OF oBar
  24.               DEFINE BUTTON oBtn4 NAME "bartop"   OF oBar
  25.  
  26.        oWnd:SetFont( oFont )
  27.        // importante para poder heredar el FONT a la caja de diálogo
  28.  
  29.        SET MESSAGE OF oWnd TO "Prueba de Folders"
  30.  
  31.  
  32. ACTIVATE WINDOW oWnd MAXIMIZED ;
  33.          ON INIT Crea()
  34.  
  35.  
  36. DEACTIVATE FONT oFont
  37.  
  38.  
  39. return nil
  40.  
  41. Function crea()
  42. Local oDlg, oFld, oCal, oToolTip
  43.  
  44. DEFINE DIALOG oDlg NAME "DIALOG_1" FONT oWnd:oFont
  45.  
  46.        REDEFINE FOLDERAC oFld ID 101 OF oDlg                 ;
  47.                 LEFT                                         ;
  48.                 PROMPTS "New","Send","Post"                  ;
  49.                 DIALOGS "DIALOG_2","DIALOG_3","DIALOG_4"     ;
  50.                 BITMAPS "bmps\new.bmp","bmps\letter.bmp","bmps\mailbox.bmp"
  51.  
  52.                DEFINE TOOLTIP oToolTip OF oFld
  53.  
  54.                SET TOOLTIP oToolTip TO TAB 1 PROMPT "Nuevo mensaje"
  55.                SET TOOLTIP oToolTip TO TAB 2 PROMPT "Recibir correo"
  56.                SET TOOLTIP oToolTip TO TAB 3 PROMPT "Enviar correo"
  57.  
  58. ACTIVATE DIALOG oDlg CENTERED
  59.  
  60. Return nil
  61.  
  62.  
  63.  
  64.  
  65.  
  66.