Puedo hacer esto con TxBrowse.

[Andrés González]

Hola Antonio,
quiero pasar un sistema que tengo funcionando con TCBrowse que me funciona muy bien a TXBrowse, ya que lo ha superado con creces. Mi pregunta es si puedo hacer lo mismo, sobre todo si le puedo pasar los arrais igual que hago con tcbrowse, adjunto el código por si alguno me puede hacer algún comentario.

Code: Select all  Expand view

  @ -1, 16 COLUMN BROWSE oBrw OF oWndEdit ;
             FONT oFont ;
             SIZE oWnd:nWidth(),oWnd:nHeight();  //Ancho y lago posilbe               
             COLOR CLR_BLACK, 14481663;
             ON CHANGE ( aMantStack[nLen, 4] := str(recno()), oMsgRecNo:SetText("Registro: "+ alltrim( str(recno())) + "/" + alltrim(str(lastrec())) ),  oWndEdit:Update() )



    //Añado una columna por cada campo de la base de datos
    for nPos := 1 to Len(f_expd)                         // Array con NOMBRE DE CAMPOS
      ADD COLUMN TO BROWSE oBrw;                         //
          HEADER f_nomd[nPos] OEM ;                      // Array con TITULOS DE LAS COLUMNAS
          DATA FieldWBlock( f_expd[nPos] , Select())     // Aca se genera el CodeBlock para el CAMPO
    next


[Biel EA6DD]

Hola Andrés,
en teoria si puedes hacerlo, no exactamente igual, pero muy parecido.

Code: Select all  Expand view

    //Creas el txBrowse, y seguidamente creas las columnas. Con comando @ 0,0 xBrose ... o via OOP
    oBrw := TxBrowse():New(oWnd)
    //Añado una columna por cada campo de la base de datos
    FOR nPos := 1 to Len(f_expd)                         // Array con NOMBRE DE CAMPOS
         oCol:=oBrw:AddCol()
         oCol:cHeader:=f_nomd[nPos]
         oCol:bStrData:=FieldWBlock( f_expd[nPos])  //El varlor de retorno del codeblock tienne que ser siempre carcter!
     NEXT
          next
    oBrw:SetRDD()
    oBrw:CreateFromCode()


[Andrés González]

Gracias Biel,
La primera prueba solo me limite a ponerlo tal cual añadiendo el txbrowse.ch y cambiando la notacion browse por xbrowse y la verdad funcionó la compilacion, pero luego no lo mostraba. Ahora he hecho lo que tu me dices y ha funcionado a las mil maravillas, pero me coge el xbrowse en toda la pantalla y no dentro del espliter. Voy a mira si lo arreglo pue es una cuestion de situar las coordenadas, vamos eso creo.

Un saludo y mil gracias
PD. YA tenia ganas de trabajar con xbrowse.

[Andrés González]

Bueno ya me di cuenta de la equivocacion que hice en la prueba, bastaba con quitar la notacion columna a la hora de crearlo que es lo que cambia con respecto al tcbrowse. Ahora ya sale a las mil maravillas, casi no he cambiado nada y se me abren nuevas posibilidades. Mil gracias por este empujoncito Biel.

Code: Select all  Expand view

   @ -1, 16 XBROWSE oBrw OF oWndEdit;
             FONT oFont ;
             SIZE oWnd:nWidth(),oWnd:nHeight();  //Ancho y lago posilbe               COLOR CLR_BLACK, 14481663;
             ON CHANGE ( aMantStack[nLen, 4] := str(recno()), oMsgRecNo:SetText("Registro: "+ alltrim( str(recno())) + "/" + alltrim(str(lastrec())) ),    oWndEdit:Update() )
    
    //Añado una columna por cada campo de la base de datos
    for nPos := 1 to Len(f_expd)                         // Array con NOMBRE DE CAMPOS
          ADD COLUMN TO XBROWSE oBrw;                    //
          HEADER f_nomd[nPos] OEM ;                      // Array con TITULOS DE LAS COLUMNAS
          DATA FieldWBlock( f_expd[nPos] , Select())     // Aca se genera el CodeBlock para el CAMPO
    next

    oBrw:SetRDD()
    oBrw:CreateFromCode()

[Biel EA6DD]

Ok Andrés, me alegro de que te funcione bien. xBrowse cada dia tien mas funcionalidades, seguro que sales ganando con el cambio.