Encontré un pequeñito error en Fivewin.ch

[AIDA]

Hola a todos
si se fijan dentro de Fivewin.ch

en !short: BOX - GROUPS */
en la linea de #xcommand esta el error
a mi me causo problemas con la rutina del scaner
el GROUP esta fuera de lugar


/*----------------------------------------------------------------------------//
!short: BOX - GROUPS */

#xcommand @ <nTop>, <nLeft> GROUP [ <oGroup> ][ TO <nBottom>, <nRight> ]

Así debe quedar a si me funciona bien

#xcommand @ <nTop>, <nLeft> [GROUP <oGroup> ] [ TO <nBottom>, <nRight> ]


Espero que esto le ayude a quien se atore con algún problemita

SE ACEPTAN SALUDITOS DE SU PARTE


Saluditos

[José Luis Sánchez]

Muchas gracias, has encontrado la causa de un error que apareció de repente al compilar mis programas.

Saluditos de mi parte,

[AIDA]

De nada José Luis me dio gusto en apoyar a un que sea una pequeña linea


Saluditos

[Antonio Linares]

Aida, Jose Luis,

Cual era la línea de código que fallaba al compilar ?

[AIDA]

Hola cuando compile el a_scan.prg como parte de mi programita me salio un error y me di cuenta que era en esta parte del programa
en las dos primeras lineas que tienen PROMPT

Code: Select all  Expand view

 x:=VIR_01_IDC_STATIC4
@ x[1], x[2] to x[3], x[4] PROMPT "CONFIGURACIÓN:" of OdLG pixel font ofont color CLR_RED //  [, <nClrBack> ]
   x:=VIR_01_IDC_STATIC5
@ x[1], x[2] to x[3], x[4] PROMPT "FICHERO:" of OdLG pixel font ofont color CLR_RED //  [, <nClrBack> ]
   x:=VIR_01_IDC_STATIC1
@ x[1], x[2] say "Resolución (ppp) " size x[3], x[4] of oDlg pixel
   x:=VIR_01_IDC_STATIC2
@ x[1], x[2] say "Color - Blanco y Negro" size x[3], x[4] of oDlg pixel
   x:=VIR_01_IDC_STATIC6
@ x[1], x[2] say "Nombre del fichero de destino" size x[3], x[4] of oDlg pixel
   x:=VIR_01_IDC_STATIC7
@ x[1], x[2] say "Carpeta de destino" size x[3], x[4] of oDlg pixel

 

y se me ocurrio revisar el fivewin.ch

y ahi encontre lo que describi al inicio de mi aviso

Saluditos

[Antonio Linares]

Aida,

muchas gracias!

[mantonio_08]

Master Antonio,,, Aida querida,, y colegas

no creo que sea lógico ese cambio.. mas bien debe ser propio de cada uno.. si te acomoda a las necesidades de como escribieron el fuente de los programas

Ahora porque no es lógico.

Digamos que mis fuentes no los leo yo, sino un colega y ve esta linea tomando el ejemplo de AIDA

x:=VIR_01_IDC_STATIC4
@ x[1], x[2] to x[3], x[4] PROMPT "CONFIGURACIÓN:" of OdLG pixel font ofont color CLR_RED // [, <nClrBack> ]
x:=VIR_01_IDC_STATIC5

dios que es eso, dira..
1.- no indica que objeto es..
2.- el colega podra deducir segun su conocimiento que es un GROUP,, y quizas otro objeto mal escrito desde codigo.

ven porque no es logico,,
lo correcto es

x:=VIR_01_IDC_STATIC4
@ x[1], x[2] GROUP to x[3], x[4] PROMPT "CONFIGURACIÓN:" of OdLG pixel font ofont color CLR_RED // [, <nClrBack> ]
x:=VIR_01_IDC_STATIC5

espero comentarios al respecto..

[Patricio Avalos Aguirre]

Hola

Estoy de acuerdo con mantonio,

[sysctrl2]

Solucion al fin, gracias por compartirlo,
Saluditos.

[nnicanor]

Hola,

Cuando me encontré con la misma situación opte por colocar GROUP y solucione el inconveniente, la omisión la hizo el creador de la clase en el ejemplo porque en la version que se desarollo tscan no era requerida.

Gracias Aida por el Aporte.

Slds

[Antonio Linares]

En mi opinión la sintaxis correcta debiera ser:

#xcommand @ <nTop>, <nLeft> GROUP [ <oGroup> ] [ TO <nBottom>, <nRight> ] ...

ya que el control sobre el que estamos centrados es el GROUP y tiene que estar como identificador principal del comando.

Se debería modificar el código fuente, que es erróneo, y no el comando

[mantonio_08]

Master Antonio,, queda asi entonces
GRACIAS

[AIDA]

BOBA

[juan carlos bellucci]

Gracias Aida.... como siempre a tus ordenes desde Escobar ("ciudad de las flores") cariños. juan carlos.

[Antonio Linares]

Aida,

Para nada, solucionastes el problema, que es lo que cuenta