FiveTech Support Forums

# 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

# 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

#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