home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTHELP.PRG < prev    next >
Text File  |  1994-01-16  |  4KB  |  98 lines
  1. //----------------------------------------------------------------------------//
  2. //  FiveWin 1.0 - Ejemplos
  3. //  (c) A.Linares, F.Pulpón 1993
  4. //
  5. // Ejemplos de utilización del sistema de ayudas de Windows
  6. // Construir con BUILD TestHelp
  7. //----------------------------------------------------------------------------//
  8.  
  9. #include "FiveWin.ch"
  10.  
  11. static oWnd
  12.  
  13. //----------------------------------------------------------------------------//
  14.  
  15. function Main()
  16.  
  17.    SET HELPFILE TO "WinHelp.hlp"      // Este sería nuestro fichero de ayudas
  18.                                       // por defecto
  19.  
  20.    DEFINE WINDOW oWnd FROM 1, 1 TO 20, 60 ;
  21.       TITLE "Probando las Ayudas de Windows" ;
  22.       MENU BuildMenu()
  23.  
  24.    SET MESSAGE OF oWnd ;
  25.       TO OemToAnsi( "FiveWin 1.0 - (c) A. Linares, F. Pulpón 1993" )
  26.  
  27.    ACTIVATE WINDOW oWnd MAXIMIZED
  28.  
  29. return
  30.  
  31. //----------------------------------------------------------------------------//
  32.  
  33. function BuildMenu()
  34.  
  35.    local oMenu
  36.  
  37.    MENU oMenu
  38.       MENUITEM "&Sistema de Ayudas"
  39.       MENU
  40.          MENUITEM "&Llamar a cualquier Ayuda" ;
  41.             MESSAGE "Accedemos a otras Ayudas y seguimos manteniendo " + ;
  42.                     "nuestro fichero de ayudas por defecto" ;
  43.             ACTION WinHelp( "ProgMan.hlp" )     // Un ayuda cualquiera.
  44.                                                 // Seguimos manteniendo
  45.                                                 // nuestra ayuda por defecto
  46.          SEPARATOR
  47.  
  48.          MENUITEM OemToAnsi( "&Consultar nuestro índice" ) ;
  49.             ACTION HelpIndex() ;
  50.             MESSAGE OemToAnsi( "Consultar el índice del fichero" + ;
  51.                                " asignado de ayudas" )
  52.  
  53.          MENUITEM OemToAnsi( "&Realizar una búsqueda" ) ;
  54.             ACTION ( HelpIndex(), HelpSearch( "Hola" ) ) ;
  55.             MESSAGE OemToAnsi( "Realizar una búsqueda en nuestro fichero de ayudas" )
  56.                                          ; // La palabra a buscar es opcional
  57.  
  58.          MENUITEM OemToAnsi( "C&onsultar un determinado tema" ) ;
  59.             ACTION ( HelpIndex(), HelpTopic( "Teclas para obtener ayuda" ) ) ;   // El tema se identifica por un número or by a string
  60.             MESSAGE OemToAnsi( "Ir directamente a consultar un tema" )
  61.  
  62.          MENUITEM OemToAnsi( "E&stablecer un determinado tema" ) ;
  63.             ACTION HelpSetTopic( "How to make $ from Software" ) ;  // You should identify it by a string or a number
  64.             MESSAGE OemToAnsi( "Establecer un tema por defecto" )
  65.  
  66.          MENUITEM OemToAnsi( "S&olicitar tema por defecto" ) ;
  67.             ACTION MsgInfo( If( ValType( GetHelpTopic() ) == "C", GetHelpTopic(), Str( GetHelpTopic() ) ) ) ;  // Requesting default topic
  68.             MESSAGE OemToAnsi( "Información acerca del tema por defecto" )
  69.  
  70.          MENUITEM OemToAnsi( "C&ambiar la posición de la Ayuda" ) ;
  71.             ACTION ( HelpIndex(), HelpSetPos( 40, 120, 950, 800, .t. ) ) ;
  72.             MESSAGE OemToAnsi( "Muestra la ayuda y cambia su posición en pantalla" )
  73.                           // Izquierda, Arriba, Ancho, Alto, Maximizada
  74.                           // Ancho y Alto de 0 a 1024
  75.  
  76.          MENUITEM "Co&nocer el fichero por defecto" ;
  77.             ACTION MsgInfo( GetHelpFile() ) ;
  78.             MESSAGE "Nos permite conocer cual es el fichero de Ayuda " + ;
  79.                     "que hemos asignado con SET HELPFILE TO..."
  80.  
  81.          SEPARATOR
  82.  
  83.          MENUITEM "&Terminar esta demo" ;
  84.             ACTION  If( MsgYesNo( OemToAnsi( "Terminar..." ) ), oWnd:End(),);
  85.             MESSAGE OemToAnsi( "Acabar la demostración" )
  86.  
  87.       ENDMENU
  88.  
  89.       MENUITEM "&Construir Ayudas Windows" ;
  90.          ACTION MsgInfo( "Necesitas algunas herramientas" ) ;
  91.          MESSAGE "Necesitas disponer de WinWord de Microsoft y " + ;
  92.                  "de un compilador de Ayudas Windows"
  93.    ENDMENU
  94.  
  95. return oMenu
  96.  
  97. //----------------------------------------------------------------------------//
  98.