topic-14530

Board index FiveWin para Harbour/xHarbour Puedo hacer esto con TxBrowse.

Posts: 632

Joined: Thu Jan 19, 2006 10:45 AM

Puedo hacer esto con TxBrowse.
Posted: Mon Feb 09, 2009 05:16 PM

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 Collapse

  @ -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

Saludos

Andrés González desde Mallorca

Biel EA6DD

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

Re: Puedo hacer esto con TxBrowse.
Posted: Wed Feb 11, 2009 11:08 AM

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

Code: Select all Collapse

    //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()

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

Andrés González

Posts: 632

Joined: Thu Jan 19, 2006 10:45 AM

Re: Puedo hacer esto con TxBrowse.
Posted: Thu Feb 12, 2009 08:50 AM

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.

Saludos

Andrés González desde Mallorca

Andrés González

Posts: 632

Joined: Thu Jan 19, 2006 10:45 AM

Re: Puedo hacer esto con TxBrowse.
Posted: Thu Feb 12, 2009 08:51 AM

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 Collapse

   @ -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()

Saludos

Andrés González desde Mallorca

Biel EA6DD

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

Re: Puedo hacer esto con TxBrowse.
Posted: Thu Feb 12, 2009 10:46 AM

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

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

FiveTech Support Forums

Continue the discussion