FiveTech Software tech support forums

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


local oDlg, oBrw



function Main()



   CreateTestDBF()

   USE ABC SHARED


   select abc
   do while !eof()
      onerror("RLOCK")
      if pass = "Y"
         replace image with "checkon.bmp"
      else
         replace image with "checkoff.bmp"
      endif
      skip 1
   enddo
   goto top


   DEFINE DIALOG oDlg FROM 0, 0 TO 31.2, 94.8 ;
   TITLE "Test" ;
   GRADIENT { { 1, nRGB( 199, 216, 237 ), nRGB( 237, 242, 248 ) } }

   @ 0,0 XBROWSE oBrw OF oDlg ;
      COLUMNS "Name", "Pass", "Image" ;
      HEADERS "Name", "Pass", "Image" ;
      SIZES 370,170 ;
      ALIAS "ABC" CELL LINES



   oBrw:nMarqueeStyle              := 1
   oBrw:nRowHeight                 := 27
   
   oBrw:aCols[ 1]:nEditType       := EDIT_BUTTON

   oCol  := oBrw:aCols[ 1 ]
   oCol:cHeader := "Name"
   oCol:nWidth := 78
   oCol  := oBrw:aCols[ 2 ]
   oCol:cHeader := "Pass"
   oCol  := oBrw:aCols[ 3 ]
   oCol:cHeader := "Image"

   oDlg:oClient      := oBrw
   oBrw:CreateFromCode()

   ACTIVATE Dialog oDlg

return nil


static function CreateTestDBF()


   DbCreate( "ABC.DBF", { { "Name", "C", 255, 0 }, { "Pass", "C", 1, 0 }, { "IMAGE", "C", 255, 0 } } )

   USE ABC EXCLUSIVE
      Append Blank
      onerror("APPEND")
      Replace Name With "John"
      Replace pass With "Y"
      Append Blank
      onerror("APPEND")
      Replace Name With "Sam"
      Replace pass With "N"

   CLOSE ABC

return nil

oBrw:aCols[ 3 ]:cHeader := "Image"
oBrw:aCols[ 3 ]:nHeadStrAlign := AL_CENTER
//oBrw:aCols[ 2 ]:AddResource("Checkon") // from Resource
//oBrw:aCols[ 2 ]:AddResource("Checkoff") // from Resource
oBrw:aCols[ 3 ]:addbmpfile( c_path + "Images\Checkon.bmp" ) // from Disk
oBrw:aCols[ 3 ]:addbmpfile( c_path + "Images\Checkoff.bmp" ) // from Disk
oBrw:aCols[ 3 ]:addbmpfile( c_path + "Images\Info.bmp" ) // from Disk
oBrw:aCols[ 3 ]:bBmpData := {|| IIF( ("ABC")->PASS = "Y", 1, 2 ) }
oBrw:aCols[ 3 ]:bStrData   := { || "" }
oBrw:aCols[ 3 ]:nEditType := EDIT_LISTBOX
oBrw:aCols[ 3 ]:aEditListTxt   := { "Yes", "No"}
oBrw:aCols[ 3 ]:aEditListBound := { .t., .f. }
oBrw:aCols[ 3 ]:bOnPostEdit := {|o, v| ( NET_RLOCK( 3, 3 ), ;
       IIF( v = .T., ("ABC")->PASS := "Y", ("ABC")->PASS := "N" ), ;
       NET_ULOCK() ) }
oBrw:aCols[ 3 ]:nFootBmpNo := 3 // Footer BMP
oBrw:aCols[ 3 ]:nWidth := 60