Problema con XBrowse

[juan_arroyo_t]

Por favor necesito ayuda

Al mostrar mi browse, no lo muestra completamente es decir no muestra el ancho total del segundo campo

este es mi código

Code: Select all  Expand view

# INCLUDE "FIVEWIN.CH"
# INCLUDE "Report.ch"
# include "xbrowse.ch"

STATIC oBar

Function ActVen()

    LOCAL oDlg
    LOCAL obAgr, obMod, obEdi, obBor, obBus, obLis, obSal
    LOCAL oBrw
    USE age INDEX agenom, agenum NEW
    GO TOP

    DEFINE DIALOG oDlg FROM 10,10 TO 40,120
   
    oBrw := TXBrowse():New(oDlg)
   

    oBrw:nMarqueeStyle       := MARQSTYLE_HIGHLCELL
    oBrw:nColDividerStyle    := LINESTYLE_BLACK
    oBrw:nRowDividerStyle    := LINESTYLE_BLACK
    oBrw:lColDividerComplete := .t.
//  oBrw:SetRDD()
    oBrw:CreateFromCode()
       
    ACTIVATE DIALOG oDlg CENTERED ;
        ON INIT oBrw:SetFocus()
       
/*      ON INIT  barra( oDlg, oBrw )
        oDlg:end() */
        CLOSE DATABASES

RETURN NIL

Quería insertar una imagen pero no se como, di un click sobre img y donde aparece el cursor con boton derecho quise pegarla y no lo conseguí, aprovechando a ver si alguien me puede decir como hacerlo

Saludos

[joseluisysturiz]

Usalo con oColumn, asi puedes definir los tamaños, posiciones y cantidades de columnas que quieres mostrar, es decir las manejas a tu antojo...

oBrw:aCols[3]:cHeader := 'Precio'
oBrw:aCols[3]:cEditPicture := '9999.99'
oBrw:aCols[3]:bClrEdit := oBrw:bClrStd
oBrw:aCols[3]:bOnPostEdit := { | oCol, xVal, nKey | If( nKey == VK_RETURN, aDatos[ oBrw:nArrayAt,3] := xVal, ), oBrw:GoRight() }
oBrw:aCols[3]:nEditType := EDIT_GET
oBrw:aCols[3]:bEditValid := { | oGet, oCol | valid( oGet, oCol ) }
oBrw:aCols[3]:nDataStrAlign:= AL_RIGHT
oBrw:aCols[3]:nHeadStrAlign:= AL_CENTER
oBrw:aCols[3]:nWidth := 70
oBrw:aCols[3]:bEditWhen := { || tufuncion() }
oBrw:aCols[3]:oHeaderFont := oFnt

espero te sea de ayuda, hay varios ejemplos en la carpeta SAMPLES

saludos...

[juan_arroyo_t]

[juan_arroyo_t]

Gracias José Luis

Ya empecé a trabajar sobre el tema, te lo agradezco mucho

Saludos

[juan_arroyo_t]

José Luis

Por favor atiende mi petición

Te estoy enviando el código de mi programa y una imagen del resultado del mismo

El problema es que el segundo campo no lo muestra completo al tratar de navegar en el browse

Saludos

Code: Select all  Expand view

# INCLUDE "FIVEWIN.CH"
# INCLUDE "Report.ch"
# include "xbrowse.ch"

STATIC oBar

Function ActVen()

    LOCAL oDlg, oCol
    LOCAL obAgr, obMod, obEdi, obBor, obBus, obLis, obSal
    LOCAL oBrw
    USE age INDEX agenom, agenum NEW
    GO TOP

    DEFINE DIALOG oDlg FROM 10,10 TO 40,120
   
    oBrw := TXBrowse():New(oDlg)
   
    oCol := oBrw:AddCol()
    oCol:bStrData := { || age->agente }
    oCol:cHEADER  := "CODIGO"
    oCol:nWidth := 50
   
    oCol := oBrw:AddCol()
    oCol:bStrData := { || age->nomage }
    oCol:cHEADER  := "NOMBRE"
    oCol:nWidth := 600
   
    oBrw:CreateFromCode()
       
    ACTIVATE DIALOG oDlg CENTERED ;
        ON INIT oBrw:SetFocus()
       
/*      ON INIT  barra( oDlg, oBrw )
        oDlg:end() */
        CLOSE DATABASES

RETURN NIL
 

Aquí está la imagen

[joseluisysturiz]

Man, pruueba asi...

Cambia
oBrw := TXBrowse():New(oDlg)

por:
@ 0, 0 XBROWSE oBrw OF oWnd ALIAS "tu alias" // LINEA DE REEMPLAZO

y agrega

oBrw:Refresh( .T. ) // LINEA NUEVA

antes de
oBrw:CreateFromCode()

prueba y avisas..... pon correo para enviarte 1 ejemplo q tengo con casi todas las opciones del xBrw y lo que hace

recuerda que cambian las definciones si lo haces por recurso o por codigo...saludos...

[nageswaragunupudi]

Samples:

Code: Select all  Expand view

#include 'fivewin.ch'
#include 'xbrowse.ch'

function Main()

   local oDlg, oBrw

   USE Age INDEX AGENOM,AGENUM NEW
   GO TOP

   DEFINE DIALOG oDlg SIZE 440,240 PIXEL ;
      TITLE 'XBrowse VIEJO MÉTODO'

   oBrw  := TXBrows():New( oDlg )

   WITH OBJECT oBrw:AddCol()
      :bEditValue    := { || AGE->AGENTE }
      :cHeader       := 'CODIGO'
   END

   WITH OBJECT oBrw:AddCol()
      :bEditValue    := { || AGE->NOMAGE }
      :cHeader       := 'NOMBRE'
   END
   // FWH Recommends not to use bStrData ( obsolete )
   // Instead, use bEditValue and cEditPicture if necessary

   WITH OBJECT oBrw
      :nTop                :=  10
      :nLeft               :=  10
      :nBottom             := 110  // 240/2 - 10
      :nRight              := 210  // 440/2 - 10

      :nMarqueeStyle       := MARQSTYLE_HIGHLCELL
      :nRowDividerStyle    := ;
      :nColDividerStyle    := LINESTYLE_BLACK
      :lColDividerComplete := .t.

      :nStretchCol         := 2

      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT ( oBrw:SetFocus(), .f. )

   CLOSE AGE

   XBrowseEasyWay()

return nil

function XBrowseEasyWay()

   local oDlg, oBrw

   USE Age INDEX AGENOM,AGENUM NEW
   GO TOP

   DEFINE DIALOG oDlg SIZE 440,240 PIXEL ;
      TITLE 'XBrowse NUEVO MÉTODO'

  // Command syntax is easy, simple, shorter code, bug-free
  // and enables to use full power of xbrowse automatically

   @ 10,10 XBROWSE oBrw SIZE 200,100 PIXEL OF oDlg ;
      COLUMNS 'AGENTE', 'NOMAGE' ;
      HEADERS 'CODIGO', 'NOMBRE' ;
      ALIAS 'AGE' ;
      CELL LINES

   WITH OBJECT oBrw
      :nStretchCol         := 2
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT ( oBrw:SetFocus(), .f. )

   CLOSE AGE

return nil
 

Screenshots:

[groiss]

José Luis:
Te agradecería que me enviaras ese ejemplo de código en el que muestras todas las posibilidades del xbrowse.
Gracias por adelantado y un cordial saludo
José Luis


jlgroiss@gmail.com

[joseluisysturiz]

José Luis:
Te agradecería que me enviaras ese ejemplo de código en el que muestras todas las posibilidades del xbrowse.
Gracias por adelantado y un cordial saludo
José Luis


jlgroiss@gmail.com

Enviado... revisa y me avisas a mi correo joseluisy@hotmail.com , saludos...

[juan_arroyo_t]

Jose Luis

Copié tu codigo tal como me lo enviaste (viejo método y nuevo método) y al tratar de compilar me muestra lo siguiente :

Compilado y Enlazado de: [D:\Serretec\Prueba.Exe]
Ejecución No. 5
Ejecutada a las: 23:32:50
============================================================
FUENTE: PBAXBROWSE.PRG
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'D:\SERRETEC\PRGS\PBAXBROWSE.PRG'...
D:\SERRETEC\PRGS\PBAXBROWSE.PRG(70) Error E0030 Syntax error: "parse error at '{'"
1 error

No code generated


============================================================
VERCE v5.3 -> Ver Resultados de Compilación y Enlazado v5.3


FiveWin for Harbour!!

La línea 70 es
CELL LINES

Este es mi correo : juan_arroyo_t@hotmail.com

Para que hagas favor de enviame el ejmplo de tu xbrowse