Hemos implementado una nueva Clase TActiveX en FWH 12.06 que debe resolver algunos problemas con Harbour.
Confiamos en publicarla este fin de semana ![]()
Hemos implementado una nueva Clase TActiveX en FWH 12.06 que debe resolver algunos problemas con Harbour.
Confiamos en publicarla este fin de semana ![]()
#include "fivewin.ch"
FUNCTION main()
local cUrl := "https://www.google.es/"
local cParams := "#hl=es&gs_nf=1&cp=5&gs_id=m&xhr=t&q=fivewin&pf=p&biw=1024&bih=502&sclient=psy-ab&oq=fivew&gs_l=&pbx=1&bav=on.2,or.r_gc.r_pw.r_cp.r_qf.,cf.osb&fp=531bac45c1a76a40"
NavegadorWeb( "Titulo Ventana", cUrl, cParams )
RETURN NIL
// ------------------------------------------------------------------------
// ---------------------------------------------------------------------------
FUNCTION NavegadorWeb( cTituloVentana, cServidor, cParametros )
LOCAL oDlg, oActiveX, lSave := .F.
// Evito TAB
//SetKey(VK_TAB, { || Nil })
DEFINE DIALOG oDlg RESOURCE "NAVEGADORWEB" TITLE cTituloVentana
REDEFINE ACTIVEX oActiveX ID 201 OF oDlg PROGID "Shell.Explorer"
REDEFINE BUTTON ID 101 OF oDlg ACTION( oActiveX:Do( "ExecWB", 6, 1 ) )
REDEFINE BUTTON ID 102 OF oDlg ACTION( lSave := .T., oDlg:End() )
REDEFINE BUTTON ID 103 OF oDlg ACTION( msgalert("Ayuda") )
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT oActiveX:Do( "Navigate2", cServidor + cParametros )
Return nil
// ---------------------------------------------------------------------------NAVEGADORWEB DIALOG -1, -27, 501, 310
STYLE 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_TABSTOP
CAPTION "FOLDER"
FONT 8, "MS Sans Serif"
{
CONTROL "", 201, "TActiveX", 0 | WS_CHILD | WS_VISIBLE, 9, 6, 482, 269
PUSHBUTTON "&Imprimir", 101, 314, 284, 54, 14
PUSHBUTTON "&Salir", 102, 377, 284, 54, 14
PUSHBUTTON "&Ayuda", 103, 439, 284, 54, 14
}oActiveX:Dopor oActiveX:Do
Hola Antonio,
Por favor, 驴lo has podido verificar?.
Muchas gracias,
Lucas,
Aun estamos haciendo pruebas. Nos falta completar algunos m茅todos.
En FWH 12.06 vamos a incluir la anterior clase TActiveX, que funciona muy bien, y la nueva THActiveX que puede solucionar algunos problemas que pueden presentarse ocasionalmente.
Antonio,
Estupendo, creo que es la mejor decisi贸n.
Por cierto, 驴para cu谩ndo estar谩 disponible FW 12.06?.
Un saludo,
Hemos incluido un ejemplo completo del uso del scheduler de CodeJock y estamos finalizando las pruebas con la versi贸n demo de CodeJock y listo, publicaremos la 12.06 ![]()
Antonio,
Por favor, 驴podr铆ais tambi茅n adjuntar la dll de la trial version de Codejock?.
Muchas gracias.
El problema es que con la versi贸n de pruebas no funciona, posiblemente porque indicamos mal la licencia demo.
Con la versi贸n comercial y su licencia, funciona correctamente ![]()
Antonio,
En la versi贸n demo no hay que indicarle ning煤n c贸digo.
Hay que registrar la DLL y da 30 d铆as de evaluaci贸n. Y salta siempre el aviso al inicio de que es una demo.
驴Se puede poner el calendario en Castellano?.
Muchas gracias.
Lucas,
Asi es como funciona con la versi贸n comercial:
CreateObject( "CodeJock.CalendarGlobalSettings.15.0.1" )
Qye cadena hay que usar para la versi贸n demo ?
"15.0.1")
Esa es la cuesti贸n, cual ? ![]()
Antonio,
Cuando se registra un .ocx con regserver32. 驴c贸mo se ven los instalados en el sistema?.
Muchas gracias.
Si tienes instalado Office (yo no lo uso, uso Google Docs) puedes entrar en el entorno de programaci贸n y desde ahi puedes revisarlos