FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour No puedo usar Scrollmsg? :-(
nanoespinoza
Posts: 163
Joined: Thu Mar 16, 2017 04:08 PM
Re: No puedo usar Scrollmsg? :-(
Posted: Fri Jun 20, 2025 04:39 AM

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
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: No puedo usar Scrollmsg? :-(
Posted: Fri Jun 20, 2025 10:20 AM
nanoespinoza wrote: 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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
nanoespinoza
Posts: 163
Joined: Thu Mar 16, 2017 04:08 PM
Re: No puedo usar Scrollmsg? :-(
Posted: Sat Jun 21, 2025 03:23 PM
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
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: No puedo usar Scrollmsg? :-(
Posted: Sat Jun 21, 2025 05:01 PM
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 Collapse
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 + ;
                  "kapiabafwh@gmail.com"

   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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Continue the discussion

Static archive · New replies & topics via GitHub Discussions