FiveTech Software tech support forums

Code: Select all | Expand

#include "FiveWin.ch"
#include "xbrowse.ch"

function Main()

   local oWnd, oBrw

   USE HARDWARE
   INDEX ON Field->LABORATORY TO LABS
   SET ORDER TO "LABS"
   GO TOP

   DEFINE WINDOW oWnd TITLE "DBF shown as a tree with XBrowse"

   @ 0, 0 XBROWSE oBrw OF oWnd LINES CELL

   oBrw:SetTree( BuildTree(), {"TREE_LAB", "TREE_AULE", Hard_bmp(Field->TYPE) } )

   ADD TO oBrw DATA oBrw:oTreeItem:Cargo[ 1 ] HEADER "MARCA"
   ADD TO oBrw DATA oBrw:oTreeItem:Cargo[ 2 ] HEADER "MODELLO"

   oBrw:nMarqueeStyle = MARQSTYLE_HIGHLROW

   oBrw:CreateFromCode()

   oBrw:aCols[ 1 ]:cHeader = "Laboratory & Hardware"

   oWnd:oClient = oBrw

   ACTIVATE WINDOW oWnd

return nil

static function BuildTree()

   local oTree, cState

   TREE oTree
      while ! Eof()
         if Empty( cState )
            _TreeItem( HARDWARE->LABORATORY ):Cargo := { Space( 20 ), Space( 20 ) }
            TREE
            cState = HARDWARE->LABORATORY
         else
            if cState != HARDWARE->LABORATORY
               ENDTREE
               cState = HARDWARE->LABORATORY
               _TreeItem( HARDWARE->LABORATORY ):Cargo := { Space( 20 ), Space( 20 ) }
               TREE
            endif
         endif
         if HARDWARE->LABORATORY == cState
            _TreeItem( HARDWARE->Type ):Cargo := { HARDWARE->marca, HARDWARE->modello }
         endif
         SKIP
      enddo
      ENDTREE
   ENDTREE

   GO TOP

return oTree


static function Hard_bmp(ctipo)
   Local cValoreBmp
    //"TREE_HARD","TREE_LAPTOP","TREE_PRINTER"

DO CASE
CASE alltrim(ctipo)=="COMPUTER"
         cValoreBmp:= "TREE_HARD"
CASE alltrim(ctipo)=="NOTEBOOK"
          cValoreBmp:= "TREE_LAPTOP"
CASE alltrim(ctipo)=="PRINTERS"
          cValoreBmp:= "TREE_PRINTER"
ENDCASE
       ctipo :=""
RETURN  cValoreBmP

Code: Select all | Expand

   oBrw:SetTree( BuildTree(), {"TREE_LAB", "TREE_AULE", 'TREE_HARD' } )
   
   WITH OBJECT oBrw:aCols[ 1 ]
      :AddResource( 'TREE_LAPTOP' )
      :AddResource( 'TREE_PRINT' )
      :bBmpData := { ||  If( oBrw:oTreeItem:oTree == nil, ;
             HB_DeCode( field->Type, 'NOTEBOOK', 4, 'PRINTERS', 5, 3 ), ;
             If( oBrw:oTreeItem:lOpened, 1, 2 ) ) }
   END
 

Code: Select all | Expand

   WITH OBJECT oBrw:aCols[ 1 ]
      :AddResource( 'TREE_LAPTOP' )
      :AddResource( 'TREE_PRINTERS' )
      :bBmpData := { ||  If( oBrw:oTreeItem:oTree == nil, ;
             HB_DeCode( Trim( oBrw:oTreeItem:cPrompt ), 'NOTEBOOK', 4, 'PRINTERS', 5, 3 ), ;
             If( oBrw:oTreeItem:lOpened, 1, 2 ) ) }

   END
 

Code: Select all | Expand

TREE_AULE     BITMAP "AULE.BMP"
TREE_LAB      BITMAP "LAB.BMP"
TREE_PRINTERS BITMAP "PRINT.BMP"
TREE_HARD     BITMAP "HARD.BMP"
TREE_LAPTOP   BITMAP "LAPTOP.BMP"