Problema pintado xbrowse FWH2210 - SOLUCIONADO

[Antonio Linares]

enviadas por email

quedo a la espera de tus noticias...

[karinha]

Buenas, creo que tiens algo errado aqui:

Code: Select all  Expand view  RUN

                                                                            ░
function TXBrows( bChild )                                                    ░
                                                                              ░
   if bXBrowse == nil                                                         ░
      bXBrowse    := { || TXBrowse() }                                        ░
   endif                                                                      ░
                                                                              ░
   if ValType( bChild ) == 'B' .and. ; // retained for backward compatibility ░
      ValType( Eval( bChild ) ) == 'O' .and. ;                                ░
      Eval( bChild ):IsKindOf( TXBrowse() )                                   ░
                                                                              ░
      bXBrowse    := bChild                                                   ░
   endif                                                                      ░
                                                                              ░
return Eval( bXBrowse )                                                       █
 

Regards, salidos.

[leandro]

Antonio muchas gracias, ya recibí las librerías, ya las monte, compile la aplicación por completo, pero el efecto sigue siendo el mismo.



karinha, muchas gracias por la respuesta, pero no se ha que se debe ese error, colocamos el prg, haciendo cambio únicamente en la línea que sugiere Mr.Rao, de resto sigue todo igual.

[Antonio Linares]

Leandro,

Puedes probar este ejemplo ?

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()

   local oDlg, oBrw

   USE STATES VIA "DBFCDX"
   SET FILTER TO RECNO() < 3

   DEFINE DIALOG oDlg SIZE 300,400 PIXEL TRUEPIXEL ;
      TITLE FWVERSION

   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE "STATES" AUTOCOLS CELL LINES NOBORDER

   WITH OBJECT oBrw
      :lFullGrid  := .t.
      :aCols[ 2 ]:bClrStd  := { || { 0, CLR_HGREEN } }
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED

return nil

[cnavarro]

Si no te funciona con el ejemplo que te envía Antonio, prueba lo siguiente:

Code: Select all  Expand view  RUN

   :lFullGrid  := .f.
   :lRowDividerComplete  := .T.
   :lColDividerComplete   := .T.
 

[leandro]

Buenas tardes gracias por responder, de ninguna de las dos formas, el resultado es el mismo.

[Antonio Linares]

Leandro,

recibiste las librerías que te envíe ?

A que email te las envio nuevamente ?

[leandro]

Si Antonio, fueron las ultimas que me enviaste.

A cualquiera de estos dos correos

leandroalfonso111@hotmail.com
leandroalfonso111@gmail.com

Muchas gracias de antemano

[Antonio Linares]

Te las acabo de enviar por email y con el EXE dentro para que veas como funciona

[leandro]

Antonio librerías recibidas, actualizadas.

Pero nada que funciona correctamente.

El exe que me enviaste si funciona de manera correcta.

[Antonio Linares]

Estás seguro que estas usando las librerias que te he enviado ?

Compruébalo...

[leandro]

Antonio creo saber que es lo que pasa.

Las librerías que nos enviaste son para harbour y nosotros usamos xharbour.

En la carpeta de las librerías no me enviaste la FIVEHX.lib

[Antonio Linares]

Enviada!

[leandro]

Perfecto Antonio ahora si

Muchas gracias por la ayuda.

[Antonio Linares]

Gracias a ti por ayudarnos a mejorar FWH