FiveTech Support Forums

#include "fivewin.ch"

function Main

   local oDlg, oBrw, aData
   local oCn := FW_DemoDB( 1 )
   local oRs

   oRs := oCn:RowSet( "select * from clients" )


   DEFINE DIALOG oDlg SIZE 400,400 PIXEL TRUEPIXEL

   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE oRs  ;
      COLUMNS "Code", "First", "Last" ;
      LINES NOBORDER




    WITH OBJECT oBrw:InsCol( 1 )

      :cHeader       := " "
      :bEditValue    := { || If( AScan( oBrw:aSelected, oBrw:BookMark ) > 0, .t., nil ) }
      :SetCheck()
      :nHeadBmpNo    := { || If( Len( oBrw:aSelected ) == oBrw:nLen, 1, 2 ) }
      :bLClickHeader := < |r,c,f,oCol|



                            If  Len( oBrw:aSelected ) == oBrw:nLen
                                oBrw:SelectNone()
                            else
                                oBrw:SelectAll()
                                ?"Select All"
                            endif


                            return nil
                        >

   END


   WITH OBJECT oBrw
      :nMarqueeStyle    := MARQSTYLE_HIGHLROW
      :lMultiSelect     := .f.
      :bClrSelFocus     := { || { CLR_BLACK, CLR_HGRAY } }
      :nStretchCol      := 3
      :aCols[ 1 ]:bClrSelFocus := { ||{  CLR_BLACK, CLR_WHITE } }
      :bLClicked        := { |r,c,f,oBrw| If( oBrw:MouseColPos( c ) == 1 , ;
                           If( ( f := AScan( oBrw:aSelected, oBrw:BookMark ) ) == 0, ;
                           AAdd( oBrw:aSelected, oBrw:BookMark ), ;
                           ADel( oBrw:aSelected, f, .t. ) ), nil ), ;
                           oBrw:RefreshCurrent() }
      :CreateFromCode()
   END




   ACTIVATE DIALOG oDlg CENTERED

return nil

#include "fivewin.ch"

function Main()

   local oCn, oRs
   local oDlg, oBrw, oFont

   oCn   := FW_DemoDB()
   oRs   := oCn:Customer

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 700,600 PIXEL TRUEPIXEL FONT oFont

   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE oRs ;
      COLUMNS  {|| oBrw:IsSelectedRow() }, "FIRST", "CITY", "SALARY" ;
      HEADERS  " " ;
      COLSIZES "9999" ;
      CELL LINES FOOTERS NOBORDER

   WITH OBJECT oBrw
      WITH OBJECT :aCols[ 1 ]
         :SetCheck()
         :bFooter       := { || Len( oBrw:aSelected ) }
         :nHeadBmpNo    := { || If( Len( oBrw:aSelected ) == oBrw:nLen, 1, 2 ) }
         :bLClickHeader := { || oBrw:SelectRow( If( Len( oBrw:aSelected ) < oBrw:nLen, 4, 0 ) ), ;
                                oBrw:Refresh() }
      END
      WITH OBJECT :Salary
         :nFooterType   := AGGR_SUM
         :bSumCondition := { || oBrw:IsSelectedRow() }
      END
      :bLDblClick := { || oBrw:SelectRow() }
      :bKeyChar   := { |k| If( k == 32, ( oBrw:SelectRow(), 0 ), nil ) }
      :bClrStd    := { || { CLR_BLACK, If( oBrw:IsSelectedRow(), CLR_HGREEN, CLR_WHITE ) } }
      //
      :MakeTotals()
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

   oRs:Close()
   oCn:Close()

return nil