FiveTech Support Forums

#include "fivewin.ch"
#include "xbrowse.ch"

// Link with xhb.lib if compiled with Harbour

function TestMain()

   local oWnd, oBar, oBrw

   DEFINE WINDOW oWnd TITLE "XBrowsing Empty Arrays"

   DEFINE BUTTONBAR OBAR OF oWnd SIZE 100,32 2007

   DEFINE BUTTON OF oBar PROMPT "Add"     ACTION ( AddRow( oBrw ),    oBrw:SetFocus() )
   DEFINE BUTTON OF oBar PROMPT "Insert"  ACTION ( InsertRow( oBrw ), oBrw:SetFocus() )
   DEFINE BUTTON OF oBar PROMPT "Delete"  ACTION ( DeleteRow( oBrw ), oBrw:SetFocus() )
   DEFINE BUTTON OF oBar PROMPT "Close"   ACTION oWnd:End() GROUP

   DEFINE BUTTON OF oBar PROMPT "Report"   ACTION oBrw:Report("This is the title") GROUP



   SET MESSAGE OF oWnd TO "" 2007

   @ 0,0 XBROWSE oBrw OF oWnd               ;
      COLUMNS 1, 2, 3, 4                    ;
      HEADERS "uno","dos","tres","cuatro"   ;
      COLSIZES 100, 100, 100, 100           ;
      ARRAY {} LINES FASTEDIT CELL

   WITH OBJECT oBrw
      :nEditTypes   := EDIT_GET
      :bPastEof     := { ||  AddRow( oBrw ) }
      :bKeyDown  := { |nKey| If( nKey == VK_DELETE, DeleteRow( oBrw ), ;
                              If( nKey == VK_INSERT, InsertRow( oBrw ), ;
                              nil ) ) }
      :CreateFromCode()
   END

   oWnd:oClient := oBrw

   ACTIVATE WINDOW oWnd

return nil

static function BlankRow
return { "    ", "    ", "    ", "    " }

static function AddRow( oBrw )

   AAdd( oBrw:aArrayData, BlankRow() )
   oBrw:Refresh()
   oBrw:GoBottom()

return nil

static function InsertRow( oBrw )

   AIns( oBrw:aArrayData, oBrw:nArrayAt, BlankRow(), .t. )
   oBrw:Refresh()

return nil

static function DeleteRow( oBrw )

   if ! Empty( oBrw:aArrayData )
      ADel( oBrw:aArrayData, oBrw:nArrayAt, .t. )
      oBrw:Refresh()
   endif

return nil

  

METHOD Report( cTitle, lPreview, lModal, bSetUp, aGroupBy, cPDF ) CLASS TXBrowse

[...]


 oPrn :=  PrintBegin( cTitle, ;            // document
                        .f., ;            // luser
                        lPreview, nil, ;  // xmodel
                        lModal, ;
                        .f.,    ;         // lselect
                        cPDF )            // PDF to Save