No puedo usar Scrollmsg? :-(

[Adolfo]

Hola Fivewinners

Tengo la imposibilidad de usar la clase Scrollmsg en la configuracion que tengo, que es esta.

Harbour 3.2.0dev (r2407221137)

FWH32 24.09

Microsoft Visual Studio 2022
Compilador de optimización de C/C++ de Microsoft (R) versión 19.41.34120 para x86

Si hago el intento en la version HB3.0 y FWH21 con MSVC 2022, SI FUNCIONA

Aca les dejo el link de todos los archivos que use para replicar el problema, esta el ejecutable que muestra que sucede, solo hay un pequeño punto que parpadea en la esquina superior izquierda.

Por eso habia pedido primero si alguien podia hacer el ejemplo que vienen en la carpeta samples de FWH y luego trate de reinstalar Harbour y MSVC 2022, sin nigun exito.

xdata.cl/envio

Que estoy haciendo mal, me falta alguna libreria, que?

Cualquier ayuda sera bienvenida.
Saludos desde Chile

[Antonio Linares]

Estimado Adolfo,

Si te refieres a samples\scrolmsg.prg aqui funciona correctamente con FWH 25.04 y buildh.bat

buildh.bat scrolmsg

[karinha]

Adolfo, mira se hay algun .EXE en la carpeta \samples del fwh24.09, puede ser un vírus. Use AVG.exe

https://imgur.com/TAB13DH



Regards, saludos.

[nanoespinoza]

Estimados todos

Siguiendo este hilo sobre clase SCROLLMSG, la he probado y efectivamente si funciona, pero igualmente tiene unos problemas que quisiera comentar:

1) Hay un método SetTimer(), el cual no tiene parámetros, que al usarlo con o sin un valor numérico (uno supone que habría que ponerlo), hace que el texto que debe circular, como en una marquesina, se quede estático. No sé, si ese será el objetivo.

2) El método TimerAction(), no entiendo para qué sirve o como usarlo.

3) El método Destroy(), pareciera que es para cerrar el control, pero no funciona, si lo cierras con oScroll:End(), funciona bien.

4) Puesto a funcionar el control SCROLLMSG, sin SetTimer(), funciona bien, pero luego de unos minutos si estas usando tu aplicación, con otras funciones o diálogos, lo bloquea y la única forma de salir, es con la X de la esquina superior derecha.

En fin, parece un control interesante y que puede ser útil en algunas situaciones, pero, al parecer, está como incompleto o no lo entiendo bien.

A la espera de sus comentarios y soporte.

Saludos

Fernando Espinoza A.

[karinha]

Buenos días, Fernando. Sin duda, DSAY.PRG y SSAY.PRG son más completos y seguros. Aquí tienes una descarga completa para que la pruebes:

DSAY.PRG:

https://mega.nz/file/kNcBTKjA#ViF4H4zNN ... sRPhdMTedY

SSAY.PRG:

https://mega.nz/file/5QVUzRSS#CxqVYgUT9 ... 5keQMGoccg

Regards, saludos.

[nanoespinoza]

Estimado Karinha:

Hice la primera prueba con DSAY, compila bien y se genera el EXE, puse el control en el escritorio de mi aplicación, por tanto el DYNAMIC SAY se ejecut de inmediato al cargar la aplicación, pero de inmediato salta este error.

Estoy usando xHarbour, FWH2501 y compilo con Fivedit.

Application
===========
Path and name: C:\Sicef_desarrollo\SICEFWIN.exe (32 bits)
Size: 7,411,712 bytes
Compiler version: xHarbour 1.3.1 Intl. (SimpLex) (Build 20240624)
FiveWin version: FWH 24.10
C compiler version: Borland/Embarcadero C++ 7.7 (32-bit)
Windows 10 64 Bits, version: 10.0, Build 26100

Time from start: 0 hours 0 mins 8 secs
Error occurred at: 16/06/2025, 23:59:25
Error description: Error FiveWin/6 Cannot create window or control:
Class: TDSAY

Saludos

Fernando Espinoza A.

[karinha]

Buenas tardes Fernando, qué raro. Por favor, comparte el código para que pueda ver cómo lo haces.

Si está utilizando RECURSOS, debe definir un control TDSAY en el cuadro de diálogo.

Gracias, tks.

Regards, saludos.

[nanoespinoza]

Estimado Karinha:

El llamado se hace sin recursos, con esta sintaxis.

Code: Select all | Expand

@ oVent:nVertRes()-298-nCorrErr,124 DYNAMIC SAY oScroll VAR cPrompt ; // MemoRead("NOVEDADES.TXT") ;
	OF oVent PIXEL SIZE 270,178 FONT oFont7 COLORS CLR_HRED,CLR_LGREEN VERTICAL SCROLL SPEED 1
	oScroll:cToolTip:={"Lista de las Novedades o últimas mejoras implementadas en SicefWin","SicefWin "+cVersSW,1,CLR_WHITE,CLR_GREEN}

Saludos

Fernando Espinoza A.

[karinha]

¿Copiaste DSAY.CH a C:\FWH..\INCLUDE?

¿Incluiste la clase DSAY.PRG en el proyecto?

[nanoespinoza]

Las 2 cosas, por ello, es que logro crear el .EXE.

[karinha]

Harbour ó xHarbour? Voy crear un DEMO e probar nuevamente. Lamentablemente no tengo FWH24.09. Podría ser un defecto de esta versión.

Regards, saludos.

[karinha]

Compilando con HARBOUR y xHARBOUR ahora. Funciona perfecto. Mira CX.BAT y CX.LNK y HB.BAT y HB.LNK cambie a gusto.

Download completo:

https://mega.nz/file/9N1C2DDD#IerDgn_OW ... dOioY0kD8Q

Gracias, tks.

Regards, saludos.

[karinha]

Imagen:

https://imgur.com/4coam4o



Regards, saludos.

[karinha]

Fernando, con @SAY, no use: VAR cPrompt, mira en el ejemplo. Use DYNAMIC SAY cPrompt.

Regards, saludos.

[nanoespinoza]

Hice la prueba con los nuevos archivos, lamentablemente tengo el mismo resultado; yo uso xHarbour y FHW2501.

Saludos