FiveTech Support Forums

// hSave := GetResources() defined on start-function

// folderpage with xBrowse from RESOURCE
//------------------------------------------------
FUNCTION F_PAGE8( oFld2 )
LOCAL oBrw
LOCAL nI
LOCAL hBitMap1, hBitMap2, hBitMap3, hBitMap4
LOCAL aArray:={}

// From RC-file

REDEFINE XBROWSE oBrw ID 110 OF oFld2:aDialogs[3] columns {1,2,3};
Array aArray sizes {140, 220, 100} LINES CELL autocols fastedit

oBrw:nMarqueeStyle        := 1
oBrw:nRowHeight             := 85
oBrw:lFooter                    := .t.
        
oBrw:aCols[ 1 ]:nEditType       := TYPE_IMAGE
oBrw:aCols[ 1 ]:lBmpStretch := .f.
oBrw:aCols[ 1 ]:lBmpTransparent := .t.
oBrw:aCols[ 1 ]:bStrImage       := {|oCol, oBrw| oBrw:aRow[ 2 ] }
oBrw:aCols[ 1 ]:nDataBmpAlign  := AL_CENTER
oBrw:aCols[ 1 ]:bPopUp      := { | o | ColMenu( o ) } 
//oBrw:aCols[ 1 ]:bAlphaLevel     := { | o | o:aRow[ 3 ] }

oBrw:aCols[ 2 ]:nEditType       := EDIT_BUTTON
oBrw:aCols[ 2 ]:bEditBlock      := {|nRow, nCol, oCol| oCol:Value := cGetFile( "*.*", "Select a file" )  }
oBrw:aCols[ 2 ]:AddBmpFile( "BOOKS" )
oBrw:aCols[ 2 ]:nHeadBmpNo      := 1

oBrw:aCols[ 3 ]:nEditType       := 1
oBrw:aCols[ 3 ]:bOnPostEdit     := {|oCol, xVal, nKey| oCol:Value( xVal ) }
oBrw:aCols[ 3 ]:AddBmpFile( "BOOKS" )
oBrw:aCols[ 3 ]:nFootBmpNo      := 1

// switch to DLL and load images
 
SET RESOURCES TO c_path + "SYSTEM.dll"

aadd( aArray, { "", "FISH1", 50 } )
aadd( aArray, { "", "FISH2", 100 } )
aadd( aArray, { "", "FISH3", 150 } )   
aadd( aArray, { "", "FISH4", 200 } )
aadd( aArray, { "", "FISH5", 255 } )

oBrw:SetArray( aArray )
oBrw:Refresh()

SetResources( hSave ) // back to RC
 
RETURN NIL

#include "fivewin.ch"

function Main()

   local oWnd, oBar, oBrw, hResDLL
   local aData, n

   SET RESOURCES TO "TEST.DLL"
   hResDLL := GetResources()

   aData    := { { hResDLL, "COPY"    }, ;
                 {       0, "OPEN"    }, ;
                 { hResDLL, "CASCADE" }, ;
                 {       0, "CLOSE"   }, ;
                 { hResDLL, "VISA"    }  }


   DEFINE WINDOW oWnd
   DEFINE BUTTONBAR oBar OF oWnd SIZE 48,48 2007
   DEFINE BUTTON OF oBar RESOURCE "COPY"
   SetResources( 0 )
   DEFINE BUTTON OF oBar RESOURCE "Open"
   SetResources( hResDLL )
   DEFINE BUTTON OF oBar RESOURCE "VISA"
   SetResources( 0 )
   DEFINE BUTTON OF oBar RESOURCE "CLOSE"


   @ 48,0 XBROWSE oBrw OF oWnd DATASOURCE aData ;
      COLUMNS 2, "" ;
      CELL LINES NOBORDER

   WITH OBJECT oBrw:aCols[ 1 ]

      for n := 1 to Len( aData )
         SetResources( aData[ n, 1 ] )
         :AddBitmap( aData[ n, 2 ] )
      next

      :bBmpData      := { || oBrw:KeyNo }
      :nDataStrAlign := AL_RIGHT
   END

   WITH OBJECT oBrw:aCols[ 2 ]
      :bStrImage        := { || oBrw:oCol( 1 ):aBitmaps[ oBrw:KeyNo, 1 ] }
      :lBmpTransparent  := .t.
      :nDataBmpAlign    := AL_CENTER
      :lBmpStretch      := .t.

   END

   WITH OBJECT oBrw
      :nWidths     := 96
      :CreateFromCode()
   END

   oWnd:oClient := oBrw

   ACTIVATE WINDOW oWnd CENTERED

return nil

#include "fivewin.ch"

function Main()

   local oDlg, oBrw, hResDLL, aData

   // Linked with samples\testxbr3.rc

   SET RESOURCES TO "TEST.DLL"
   hResDLL := GetResources()

   aData := { "COPY", "CASCADE", "VISA" } // all in test.dll

   SetResources( 0 )
   DEFINE DIALOG oDlg RESOURCE "TEST"
   REDEFINE XBROWSE oBrw ID 101 DATASOURCE aData ;
      COLUMNS 1, 1 CELL LINES NOBORDER

   WITH OBJECT oBrw
      :nRowHeight    := 80
      :nWidths       := 80
      WITH OBJECt :aCols[ 1 ]
         :cDataType        := 'P'
         :nDataBmpAlign    := AL_CENTER
         :lBmpTranspaRent  := .T.
      END
   END

   SetResources( hResDLL )
   ACTIVATE DIALOG oDlg CENTERED
   SET RESOURCES TO

return nil