FiveTech Support Forums

#include 'fivewin.ch'
#include 'ord.ch'
#include 'xbrowse.ch'

REQUEST DBFCDX

FUNCTION main()

   LOCAL oDlg
   LOCAL oBrw
   LOCAL aBmp  := {}
   LOCAL oCol

   AADD( aBmp, "\fwh\bitmaps\memo.bmp"  )   // 1
   AADD( aBmp, "\fwh\bitmaps\block.bmp"  )   // 2
   AADD( aBmp, "\fwh\bitmaps\noninfo.bmp"  )   // 3
   AADD( aBmp, "\fwh\bitmaps\number.bmp"    )   // 4

   DBCREATE( "MYLIST", { { "NAME"    ,  "C" ,   20 , 0 }  ,;
                         { "BITMAP"  ,  "N" ,    1 , 0 } } )

   USE mylist
   APPEND BLANK
   REPLACE field->name     WITH "Antonio"
   REPLACE field->bitmap   WITH 1

   APPEND BLANK
   REPLACE field->name     WITH "Marco"
   REPLACE field->bitmap   WITH 2

   APPEND BLANK
   REPLACE field->name     WITH "Silvio"
   REPLACE field->bitmap   WITH 3

   APPEND BLANK
   REPLACE field->name     WITH "Entico"
   REPLACE field->bitmap   WITH 4

   DEFINE DIALOG oDlg title "TEST" SIZE 800 , 600
   USE mylist

   @ 0 , 0 XBROWSE oBrw OF oDlg ALIAS "mylist"  SIZE 300 , 300

   oBrw:nMarqueeStyle              := 1
   oBrw:nRowHeight                 := 100
   oBrw:lFooter                    := .T.

   oCol = oBrw:AddCol()
   oCol:nEditType       := TYPE_IMAGE
   oCol:AddBmpFile( aBmp[ mylist->bitmap ] )
   oCol:nWidth      = 200

   oCol = oBrw:AddCol()
   oCol:bStrData    = { || mylist->name }
   oCol:cHeader     = "Name"
   oCol:nEditType   = EDIT_GET
   oCol:nWidth      = 200

   oBrw:CreateFromCode()

   ACTIVATE DIALOG oDlg

RETURN NIL

   @ 0,0 XBROWSE oBrw SIZE 0,0 PIXEL OF oDlg ;
      DATASOURCE "mylist" ;
      COLUMNS "", "Name"  ;
      COLSIZES 60

   oBrw:lFooter      := .T.
   oBrw:nRowHeight   := 30

   WITH OBJECT oBrw:aCols[ 1 ]
      :bBmpData      := { || MYLIST->BITMAP }
      :AddBitmap( aBmp )
      :bStrData      := nil
   END

   oBrw:CreateFromCode()

   @ 0,0 XBROWSE oBrw SIZE 0,0 PIXEL OF oDlg ;
      DATASOURCE "mylist" ;
      COLUMNS "Name"

   oBrw:lFooter               := .T.
   oBrw:nRowHeight            := 30

   WITH OBJECT oBrw:aCols[ 1 ]
      :bBmpData      := { || MYLIST->BITMAP }
      :AddBitmap( aBmp )
   END

   oBrw:CreateFromCode()

   @ 0,0 XBROWSE oBrw SIZE 0,0 PIXEL OF oDlg ;
      DATASOURCE "mylist" ;
      COLUMNS { || aBmp[ MYLIST->BITMAP] }, "Name" ;
      HEADERS "Image", "Name" ;
      COLSIZES 100

   oBrw:lFooter               := .T.
   oBrw:nRowHeight            := 100

   WITH OBJECT oBrw:aCols[ 1 ]
      :cDataType     := 'F'
   END

   oBrw:CreateFromCode()