Gracias, funciono excelente....
Saludos
Ramón Zea
Móvil.: 993-231.62.29
Tel./Fax: 993-353-46-73
www.zeasoftware.com.mx
soporte@zeasoftware.com.mx
zeasoftware@hotmail.com
"Ignacio Ortiz de Zúñiga" escribió en el mensaje de
noticias:4faa8420$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
zeasoftware escribió el mié, 09 mayo 2012 06:24
> Estoy haciendo la ayuda de mi programa ya como .CHM,
> pero no me lo carga el programa al pulsar F1, a como lo hacia con .HLP.
> Hay que hacer modificaciones a los ID de ayuda?
>
> Gracias de antemano.
> Ramón Zea
> Móvil.: 993-231.62.29
> Tel./Fax: 993-353-46-73
>
www.zeasoftware.com.mx
>
soporte@zeasoftware.com.mx[/email]
>
zeasoftware@hotmail.com[/email]
Un pequeño ejemplo de los fuentes de
http://www.ozs.com/?q=xaGeslite:
On main form:
//----------------------------------------------------------
--------------------
METHOD ShowHelp( HelpID ) CLASS TMainForm
LOCAL cFile
LOCAL nHelpId
IF Application:oHelp == Nil
cFile := Application:cDirectory + "help"
+Application:cTitle + ".chm"
IF File( cFile )
Application:oHelp := THelp():New( cFile )
ELSE
MsgAlert( "No se encontro el fichero de ayuda:"+
CRLF + CRLF + cFile )
ENDIF
ENDIF
IF Application:oHelp != Nil
IF Empty( HelpID )
Application:oHelp:ShowToc()
ELSE
nHelpId := iif( Valtype( HelpID ) == "N", HelpID,
Val( ToString( HelpID ) ) )
Application:oHelp:ShowContext( nHelpID )
ENDIF
ENDIF
RETURN NIL
//----------------------------------------------------------
--------------------
METHOD WMKeyDown( nKey, nFlags, hWnd ) CLASS TMainForm
IF nKey == VK_F1 // Ayuda
::ShowHelp()
RETURN 0
.......
On the other forms you just need to set the nHelpID value on
the form itself or/and in its controls.
Regards,
--
Ignacio Ortiz de Zúñiga
[Equipo de Xailer/Xailer team]
http://www.xailer.com
http://www.xailer.info