FiveTech Support Forums

#include "fivewin.ch"

function Main()

   local oCn, oRs, oDlg, oBrw
   oCn  := FW_DemoDB() //FW_OpenAdoConnection( aCredentials, .T. )
   oRs  := oCn:RowSet( "SELECT false AS lCheck, code, name FROM states where 1 " )
   

   DEFINE DIALOG oDlg SIZE 1000,600 PIXEL TRUEPIXEL
   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE oRs AUTOCOLS CELL LINES NOBORDER

   WITH OBJECT oBrw:lCheck
      :SetLogical()
      :SetCheck()
   END
   oBrw:CreateFromCode()

   ACTIVATE DIALOG oDlg CENTERED

return nil

    WITH OBJECT oBrw:aCols[ 1 ]
       :SetLogical()
       :SetCheck()
       :bEditValue    := { || ascan( oBrw:aSelected, oBrw:BookMark ) > 0 }
    END
    oBrw:nMarqueeStyle    := MARQSTYLE_HIGHLROWMS

   WITH OBJECT oBrw:lCheck
      :SetLogical()
      :SetCheck( nil, .t. )
   END