xbrowse. cada vez que toma el foco vuelve a calcular?

[goosfancito]

Hola.

Mi definicion:

Code: Select all  Expand view

       :AddCol()
         WITH object :aCols[4]
            :oheaderfont   := oFont
            :cHeader       := "Importe"
            :nHeadStrAlign := AL_CENTER
            :nDataStrAlign := AL_RIGHT
            :nWidth        := 90

            :odatafont     := oFont1
            :bStrData      := {|| trans(::importe(), "@R 9999999.99")}
         END with
...

// este metodo solo es para probar
method importe()
   ? "hola"
   return (10)
 

y cada vez que toma el foco me vuelve a mostrar "hola" tantas veces como filas tenga el xbrowse ... a ver si entiendo se vuelve a ejecutar "x" veces cada vez q toma el foco?
esta bien eso o estoy haciendo algo mal?

gracias.

[Ariel]

+1

esto sucede desde hace algunas versiones, creo q desde febrero o marzo en adelante

Salu2, Ariel.

[Daniel Garcia-Gil]

esto sucede desde hace algunas versiones, creo q desde febrero o marzo en adelante

Me atreveria a decir que sucede desde siempre, es un comportamiento totalmente logico, pues las veces que un objeto toma el foco refresca su area visual, eso no exime al xbrowse, por ende cada vez que tome el foco refrescara el contenido que es visual en ese momento y si una de las columnas un dato es calculado, ejecutara el calculo por "n" lineas visibles.

Aparte el ejemplo mostrado por goosfancito no ayuda mucho, este intencificara el repintado, pues por cada "?" (msginfo) que muestra, el xbrowse pierde el foco y al quitar el msginfo retoma el foco y volvera a refrescarse

esta bien eso o estoy haciendo algo mal?
gracias.

en pocas palabras, no veo nada malo con el proceso, es totalmente normal que suceda

[hmpaquito]

Aparte el ejemplo mostrado por goosfancito no ayuda mucho, este intencificara el repintado, pues por cada "?" (msginfo) que muestra, el xbrowse pierde el foco y al quitar el msginfo retoma el foco y volvera a refrescarse

Probablemente asi ayudara a apreciar mejor el malefecto:

Code: Select all  Expand view

:bStrData      := {|| Time()}