FiveTech Support Forums

Hola gente, estoy incorporando un TScrollPanel a un programa de restaurante, hasta ahora va funcionando ok.

Mi pregunta es como lo limpio para mostrar, por ejemplo tengo en el TScrollPanel las entradas y después quiero cargar los platos principales, o las bebidas etc.

Saludos Jorge

Estimado Jorge,

Si los platos son botones u otros controles creados OF oPanel, hay que terminar esos controles antes de crear los de la nueva categoría. No basta con asignar un array vacío a oPanel:aControls, porque eso solo elimina las referencias, no las ventanas de los controles.

He revisado el fuente actual: TScrollPanel no define un método Clear(). Sus controles se registran en aControls y el método End() de TControl los retira de ese array. Por eso conviene recorrer una copia, en orden inverso, y no un AEval() sobre el mismo array que End() está modificando.

El esquema para cambiar una categoría por otra es:

// Antes de eliminar los controles, volver al origen
if ! Empty( oPanel:aControls )
   if oPanel:oCtrlTop != nil
      oPanel:GoTop()
   endif
   if oPanel:oCtrlLeft != nil
      oPanel:GoLeft()
   endif
endif

// End() modifica oPanel:aControls: recorrer una copia
aAnteriores := AClone( oPanel:aControls )
for n := Len( aAnteriores ) to 1 step -1
   aAnteriores[ n ]:End()
next
aAnteriores := {}

// Solo si utilizas AddText() o SetPage()
oPanel:aSays  := {}
oPanel:aPages := {}

// AQUI creas los controles de la nueva categoria OF oPanel
// ...

// Recalcular DESPUES de crear los nuevos controles
if ! Empty( oPanel:aControls )
   oPanel:SetRange()
endif
oPanel:Refresh()

Declara aAnteriores y n como LOCAL al comienzo de tu función. El ejemplo supone controles normales derivados de TControl y que vuelves a cargar una categoría con controles. No es una función Clear() general: en el fuente actual SetRange() no reinicia el estado cuando aControls está vacío, y las referencias internas a los controles extremos deben renovarse al cargar los nuevos.

Además, End() solicita el cierre mediante un mensaje de Windows; no significa que todas las ventanas hayan terminado de destruirse en esa misma línea. Evita seguir utilizando los objetos de la categoría anterior.

Este esquema está contrastado con el fuente, pero no lo he compilado ni ejecutado. Si nos muestras cómo creas los botones/platos y la versión de FWH que utilizas, podemos ajustarlo a tu código, especialmente si hay categorías vacías o controles propios.

Saludos,
FiveTech AI

Perdón que no conteste pero a pesar que funciono ok, el problema que tengo es que cuando borro el opanel y vuelvo a cargarlo el primer boton queda deshabilitado o sea no puedo hacer click, si en el resto.

function BorroControl( oPanel, nItem )

local nTop, nLeft, nLen := len( oPanel:aControls ), n

if nItem <= nlen
for n := nLen to nItem + 1 STEP - 1
oPanel:aControls[ n ]:nTop := oPanel:aControls[ n -1 ]:nTop
oPanel:aControls[ n ]:nLeft := oPanel:aControls[ n - 1 ]:nLeft
next
oPanel:aControls[ nItem ]:End()
HB_ADel( oPanel:aControls, nItem, .t. )
endif

oPanel:SetRange()
oPanel:Refresh()

return .t.

function muestroD( wdepto )

for i = 1 to len( todepto )
BorroControl( oPanel, 1 )
next i

todepto := { }
tofdepto := { }
tocdepto := { }
oculto()

for i = 1 to len( obtnw )
oBtnw[ i ] := .t.
oBtng[ i ] := ""
next i

sele stock
set order to 5
go top
seek strzero( wdepto, 2 )
i = 0

nCol := 20
nRow := 20
do while ! eof() .or. depto <> wdepto
wcarga := .t.
SELECT fichacon
set order to 1
wcliente = 0
seek strzero( wcliente, 2 ) + stock->codigo
if found()
sele stock
else
sele stock
if cantid <= 0 .and. file( "lrc" )
if VeoGuarni( codigo )
else
wcarga := .f.
endif
sele stock
else
endif
endif

  sele stock
  if wcarga
     aadd( todepto , "" )
     aadd( tofdepto, "" )
     aadd( tocdepto, "" )
     i = len( todepto )
     todepto[ i ] = iif ( empty( descri1 ), alltrim( descri ), alltrim( descri1 ) )
     tofdepto[ i ] = foto
     tocdepto[ i ] = codigo

     jcod := tocdepto[ i ]
     @ nRow, nCol BTNBMP PROMPT todepto[ i ] ;
     FILE tofdepto[ i ]  action cargocod( alltrim( str( &jcod ) ) ) round  NOBORDER ;
     SIZE 120, 120 PIXEL OF oPanel FONT oFontj // 2007
     
     if nCol > 200
        nRow  += 140
        nCol  :=  20
     else
        nCol  += 140
     endif
  endif

  set order to 5
  skip
  if depto <> wdepto
     exit
  endif

enddo

oPanel:SetRange()
oPanel:refresh()
retu .t.

que estoy haciendo mal?

Saludos
Jorge

Estimado Jorge,

El problema está en BorroControl(): el método End() de un control ya se quita a sí mismo del array oPanel:aControls (lo busca por hWnd, hace ADel y reduce el tamaño del array). Por eso, al llamar después a HB_ADel( oPanel:aControls, nItem, .t. ), estás borrando del array otro control, el que ocupaba el siguiente lugar, sin destruir su ventana. Ese botón sigue visible pero el panel ya no lo conoce y no recibe bien el ratón ni el foco. Como siempre borras el item 1, el afectado es el primer botón de la nueva carga.

Solución: quita la línea HB_ADel y no hace falta mover nTop/nLeft antes de borrar (el panel se reordena al crear los nuevos botones). Para vaciar el panel basta esto:

function VaciarPanel( oPanel )

   do while Len( oPanel:aControls ) > 0
      ATail( oPanel:aControls ):End()
   enddo

   oPanel:SetRange()
   oPanel:Refresh()

return nil

y en muestroD llamas a VaciarPanel( oPanel ) en lugar del bucle con BorroControl. Nota: el código de arriba es un ejemplo mío sin probar; el punto sobre End() y aControls sí está comprobado en el código de la clase.

Un detalle más: en tu bucle de creación, la condición do while ! eof() .or. depto <> wdepto probablemente quieras que sea ! eof() .and. depto == wdepto; con el .or. el bucle sigue mientras no llegues al final del fichero, aunque ya hayas cambiado de departamento (aunque el exit de dentro lo corta).

Si después de este cambio sigue fallando, publica el código completo de la creación de oPanel y de un botón.

Un saludo,
FiveTech AI

No hace nada esto:

do while Len( oPanel:aControls ) > 0 ? ATail( oPanel:aControls ):End() enddo

no sale nunca del while

Saludos Jorge

Estimado Jorge,

Tienes razón y te pido disculpas: mi respuesta anterior estaba equivocada para tus botones. Revisé la clase del botón: BTNBMP tiene su propio End() que solo destruye la ventana y no se quita de oPanel:aControls. Por eso tu bucle no termina (el array nunca se reduce) y, al contrario de lo que dije, tu HB_ADel en BorroControl era correcto para BTNBMP. Solo los controles que usan el End() genérico de TControl se quitan solos del array.

Para vaciar el panel sin depender de eso, prueba esto (ejemplo mío sin probar):

function VaciarPanel( oPanel )

   local oCtrl

   for each oCtrl in AClone( oPanel:aControls )
      oCtrl:End()
   next

   oPanel:aControls := {}
   oPanel:SetRange()
   oPanel:Refresh()

return nil

Recorre una copia del array, destruye cada control y luego deja el array vacío, valga el tipo de control que sea.

Sobre tu problema original (el primer botón queda deshabilitado) con tu BorroControl no veo todavía una causa segura. Para mirarlo bien necesito ver cómo creas el botón: la línea completa de @ nRow, nCol BTNBMP y si el panel o el botón tienen alguna cláusula WHEN. Si me los pasas, lo reviso.

Un saludo,
FiveTech AI

Sigue sin funcionar. ahora empeoro.

Estimado Jorge,

Lamento que haya empeorado. Sin ver el código no puedo saber qué falla.

Si puedes, pega aquí:

• La función VaciarPanel tal como la has puesto.

• La creación de oPanel.

• La línea completa de un BTNBMP.

Y cuéntanos qué ocurre exactamente: si da error, si los botones no aparecen o si no responden. Un ejemplo mínimo que reproduzca el problema es lo mejor.

Un saludo,
FiveTech AI

con esta modificación ahora muchos botones no deja hacer click

function VaciarPanel( oPanel )

local oCtrl

for each oCtrl in AClone( oPanel:aControls )
oCtrl:End()
next

oPanel:aControls := {}
oPanel:SetRange()
oPanel:Refresh()

return nil

function muestroD( wdepto )

if len( todepto ) <> 0
VaciarPanel( oPanel )
endif

todepto := { }
tofdepto := { }
tocdepto := { }
oculto()

for i = 1 to len( obtnw )
oBtnw[ i ] := .t.
oBtng[ i ] := ""
next i

sele stock
set order to 5
go top
seek strzero( wdepto, 2 )
i = 0

nCol := 20
nRow := 20
do while ! eof() .or. depto <> wdepto
wcarga := .t.
SELECT fichacon
set order to 1
wcliente = 0
seek strzero( wcliente, 2 ) + stock->codigo
if found()
sele stock
else
sele stock
if cantid <= 0 .and. file( "lrc" )
if VeoGuarni( codigo )
else
wcarga := .f.
endif
sele stock
else
endif
endif

  sele stock
  if wcarga
     aadd( todepto , "" )
     aadd( tofdepto, "" )
     aadd( tocdepto, "" )
     i = len( todepto )
     todepto[ i ] = iif ( empty( descri1 ), alltrim( descri ), alltrim( descri1 ) )
     tofdepto[ i ] = foto
     tocdepto[ i ] = codigo

     jcod := tocdepto[ i ]
     @ nRow, nCol BTNBMP PROMPT todepto[ i ] ;
     FILE tofdepto[ i ]  action cargocod( alltrim( str( &jcod ) ) ) round  NOBORDER ;
     SIZE 120, 120 PIXEL OF oPanel FONT oFontj 2007

     if nCol > 200
        nRow  += 140
        nCol  :=  20
     else
        nCol  += 140
     endif
  endif

  set order to 5
 * go wreg
  skip
  if depto <> wdepto
     exit
  endif

enddo

oPanel:SetRange()
oPanel:refresh()
retu .t.

Estimado Jorge,

Gracias por el código. Dos cosas:

• En la línea del BTNBMP tienes FONT oFontj 2007. Antes era un comentario (// 2007); quita ese 2007 suelto.

• Hipótesis mía, sin probar: si el panel está desplazado cuando lo vacías, los botones nuevos pueden quedar mal colocados y algunos no recibir el clic. Prueba a llamar a oPanel:GoTop() al empezar VaciarPanel, antes del bucle de End(), y dejar el oPanel:SetRange() del final. Ambos métodos existen en TScrollPanel.

Dinos también si los botones que no responden son siempre los mismos, por ejemplo los de la parte de abajo, fuera de la zona visible.

Un saludo,
FiveTech AI

siempre es el primer boton

Estimado Jorge,

Gracias. Para acotarlo, tres pruebas de diagnóstico:

1. ¿Qué hace la función oculto()? ¿Crea o mueve controles dentro de oPanel?

2. Justo después de llamar a VaciarPanel, pon MsgInfo( Len( oPanel:aControls ) ). Debe dar 0. Repítelo al final de muestroD para ver cuántos controles hay tras crear los botones.

3. Crea un botón de relleno en la posición 20,20 antes del bucle de creación y mira si ahora falla ese y los demás funcionan. Así sabemos si el problema es propio de la primera posición.

Son pruebas para localizar la causa, todavía no sé cuál es. Cuéntanos el resultado.

Un saludo,
FiveTech AI

Oculto() no hace nada referente al opanel

function BorroControl( nItem )

local nTop, nLeft, nLen := len( oPanel:aControls ), n

if nItem <= nlen
for n := nLen to nItem + 1 STEP - 1
oPanel:aControls[ n ]:nTop := oPanel:aControls[ n -1 ]:nTop
oPanel:aControls[ n ]:nLeft := oPanel:aControls[ n - 1 ]:nLeft
next

endif

oPanel:aControls[ nItem ]:End()
HB_ADel( oPanel:aControls, nItem, .t. )

oPanel:SetRange()
oPanel:Refresh()

return .t.

function muestroD( wdepto )

if len( todepto ) <> 0
oPanel:GoTop()
for i = 1 to len( todepto )
BorroControl( 1 )
next i
MsgInfo( Len( oPanel:aControls ) ) // esto devuelve 0 como decis
endif

todepto := { }
tofdepto := { }
tocdepto := { }
oculto()

for i = 1 to len( obtnw )
oBtnw[ i ] := .t.
oBtng[ i ] := ""
next i

sele stock
set order to 5
go top
seek strzero( wdepto, 2 )
i = 0

nCol := 20
nRow := 20

do while ! eof() .or. depto <> wdepto
wcarga := .t.
SELECT fichacon
set order to 1
wcliente = 0
seek strzero( wcliente, 2 ) + stock->codigo
if found()
sele stock
else
sele stock
if cantid <= 0 .and. file( "lrc" )
if VeoGuarni( codigo )
else
wcarga := .f.
endif
sele stock
else
endif
endif

  sele stock
  if wcarga
     aadd( todepto , "" )
     aadd( tofdepto, "" )
     aadd( tocdepto, "" )
     i = len( todepto )
     todepto[ i ] = iif ( empty( descri1 ), alltrim( descri ), alltrim( descri1 ) )
     tofdepto[ i ] = foto
     tocdepto[ i ] = codigo

     jcod := tocdepto[ i ]
     @ nRow, nCol BTNBMP PROMPT todepto[ i ] ;
     FILE tofdepto[ i ]  action cargocod( alltrim( str( &jcod ) ) ) round  NOBORDER ;
     SIZE 120, 120 PIXEL OF oPanel FONT oFontj // 2007

     if nCol > 200
        nRow  += 140
        nCol  :=  20
     else
        nCol  += 140
     endif
  endif

  set order to 5
 * go wreg
  skip
  if depto <> wdepto
     exit
  endif

enddo

oPanel:SetRange()
oPanel:refresh()
retu .t.

al mostrar el msginfo(Len( oPanel:aControls ) ) queda un cuadro blanco en el primer boton

Estimado Jorge,

Gracias, eso confirma que el vaciado es correcto (0 controles). El cuadro blanco apunta al primer botón en sí. Dos pruebas:

1. Comprueba que el archivo de imagen del primer botón existe: tras crearlo, mira tofdepto[ 1 ] y haz File( tofdepto[ 1 ] ). Prueba también a cambiar el FILE del primer botón por una imagen que sepas que carga.

2. Salta el primer registro del departamento (un skip antes del bucle) y mira si el botón problemático pasa a ser el nuevo primero o sigue siendo el mismo registro. Así sabemos si es el dato o la imagen, o la posición.

Todo esto son pruebas, todavía no conozco la causa.

Un saludo,
FiveTech AI

ya probe todo, para mi está el error en la clase, porque hago sccroll, hago click sobre un boton, cambio de platos y ahí si se activa el primer boton, selecciono otro boton, cambio de nuevo de platos y se vuelve a desactivar