No puedo usar Scrollmsg? :-(

[nanoespinoza]

Hice la prueba con los nuevos archivos, lamentablemente tengo el mismo resultado en mi aplicación; el .EXE que usted anexó se ejecuta sin problemas.

Yo uso xHarbour y FHW2501.

Saludos

[karinha]

Hice la prueba con los nuevos archivos, lamentablemente tengo el mismo resultado en mi aplicación; el .EXE que usted anexó se ejecuta sin problemas.

Yo uso xHarbour y FHW2501.

Saludos

Buenos días, nanoespinoza, muestra el error y el código que estás usando. ¿Modificaste CX.BAT y CX.LNK a FWH2501, XHBBCC77 y BCC77? Si el error hubiera ocurrido en la misma versión de FiveWin, creería que era un error de versión, pero son versiones diferentes, así que, según mi experiencia, solo puede ser un error de programación.

Regards, saludos.

[nanoespinoza]

Estimado Karinha:

Para compilar, yo uso Fivedit, no he usado sus archivos bat. El llamado a DSAY es de esta forma y lo pongo en el escritorio de la aplicación, al iniciarse:

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

El error se presenta asì:

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 14 secs
Error occurred at: 21/06/2025, 10:20:24
Error description: Error FiveWin/6 Cannot create window or control:
Class: TDSAY

Saludos

Fernando Espinoza A.

[karinha]

Fernando:

No uso FIVEDIT.exe; tiene un DEFECTO TERRIBLE con Windows 7 y no funciona en absoluto. Además, hay que instalar algo de Microsoft, algo a lo que me opongo rotundamente. ¿Te has imaginado tener que instalar programas de terceros en los clientes para que puedan usar nuestros sistemas? Absurdo, ¿verdad? Tu ejemplo funciona perfectamente con CX.BAT y CX.LNK, GO.BAT y PROJECT.RMK, o HB.BAT y HB.LNK (Harbour). Lamentablemente, no puedo ayudarte con FIVEDIT.exe.

// Que cosa terrible es esta: @ oVent:nVertRes()-298-nCorrErr,124 ??

No uso FIVEDIT.exe

Fernando, funciona de 1000, mira:

Code: Select all | Expand

FUNCTION Test_Dialog()

   LOCAL oDlg, oFont, oSay, cVersSW
   LOCAL cVar := "Este controle esta dedicado" + CRLF +           ;
                  "aos mais queridos e inigualaveis" + CRLF +     ;
                  "amigos:" + CRLF + CRLF +                       ;
                  "a Pantera Rosa" + CRLF +                       ;
                  "os Hermanos Marx" + CRLF +                     ;
                  "O Collote" + CRLF +                            ;
                  "Tintín" + CRLF +                               ;
                  "Mario Moreno (Cantinflas)" + CRLF +            ;
                  "Os tres mosqueteiros" + CRLF +                 ;
                  "Kin Kong" + CRLF +                             ;
                  "Pepe Potamo" + CRLF +                          ;
                  "Ao Clube dos poetas mortos" + CRLF +           ;
                  "Paty pernas largas" + CRLF +                   ;
                  "e ao Pato Lucas" + CRLF + CRLF + CRLF + CRLF + ;
                  "[email protected]"

   DEFINE FONT oFont NAME "Comic Sans MS" SIZE 0, - 18 // BOLD

   DEFINE DIALOG oDlg TITLE "Say Dinamico en Dialog Codigo" WINDOW oWnd      ;
      FROM 50, 50 TO 370, 370 PIXEL COLORS nRGB( 255, 130, 171 ), nRGB( 255, 255,   0 )

   oDlg:lHelpIcon := .F.

   /*
   @ 5, 5 DYNAMIC SAY cVar SIZE 150, 150 PIXEL OF oDlg                       ;
      VERTICAL SCROLL CENTERED BOTTOM FONT oFont COLORS CLR_HBLUE
   */

   // Asi, es mejor.
   /*
   @ 5, 5 DYNAMIC SAY cVar SIZE 150, 150 PIXEL OF oDlg FONT oFont UPDATE     ;
      VERTICAL SCROLL SPEED 45 WRAP CENTERED BOTTOM COLOR CLR_WHITE, METRO_CYAN
   */

   /* // nano
   @ oVent:nVertRes()-298-nCorrErr,124 DYNAMIC SAY oScroll VAR MemoRead("NOVEDADES.TXT") ; //cPrompt
   OF oVent PIXEL SIZE 270,178 FONT oFont7 COLORS CLR_HRED,CLR_LGREEN VERTICAL SCROLL WRAP SPEED 1

   oScroll:cToolTip:={"Lista de las Novedades o últimas mejoras implementadas en SicefWin","SicefWin "+cVersSW,1,CLR_WHITE,CLR_GREEN}
   */

   // Que cosa terrible es esta: @ oVent:nVertRes()-298-nCorrErr,124 ??

   IF FILE( "NOVEDADES.TXT" )

      cVar := MEMOREAD("NOVEDADES.TXT")

   ELSE

      cVar := cVar  // Otro Texto // Arriba

   ENDIF

   // FUNCIONA NORMAL. -> Imitando Nano Espinoza.
   @ 5, 5 DYNAMIC SAY oSay VAR cVar SIZE 150, 150 PIXEL OF oDlg FONT oFont   ;
      UPDATE VERTICAL SCROLL SPEED 45 WRAP CENTERED BOTTOM COLOR CLR_WHITE, METRO_CYAN

   cVersSW := "Fernando Espinoza - Equador"

   oSay:cToolTip:={"Lista de las Novedades o últimas mejoras implementadas en SicefWin","SicefWin "+cVersSW,1,CLR_WHITE,CLR_GREEN}

   ACTIVATE DIALOG oDlg CENTERED

   RELEASE FONT oFont

RETURN NIL

Regards, saludos.