xBrowse: How to display image from resource based on flag

[hua]

Hi,
Can someone share a code snippet to view image from resource in a column based on a flag in the dbf currently being viewed?

TIA

[nageswaragunupudi]

This sample demonstrates 3 alternative ways of doing it.

Code: Select all  Expand view

#include "fivewin.ch"

REQUEST DBFCDX

function Main()

   USE CUSTOMER NEW SHARED ALIAS CUST VIA "DBFCDX"

   Sample1()
   Sample2()
   Sample3()

return nil

function Sample1()

   local oDlg, oBrw

   DEFINE DIALOG oDlg SIZE 600,400 PIXEL TRUEPIXEL

   @ 10,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
      DATASOURCE "CUST" ;
      COLUMNS "FIRST", "CITY", "MARRIED" ;
      CELL LINES NOBORDER

   WITH OBJECT oBrw
      :married:SetCheck( { "TWO", "ONE" } )
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED

return nil

function Sample2()

   local oDlg, oBrw

   DEFINE DIALOG oDlg SIZE 600,400 PIXEL TRUEPIXEL

   @ 10,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
      DATASOURCE "CUST" ;
      COLUMNS "FIRST", "CITY", "" ;
      HEADERS nil, nil, "MARRIED" ;
      CELL LINES NOBORDER

   WITH OBJECT oBrw
      WITH OBJECT :married
         :AddBitmap( { "ONE", "TWO" } )
         :bBmpData := { || If( ( oBrw:cAlias )->MARRIED, 2, 1 ) }
      END
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED

return nil

function Sample3()

   local oDlg, oBrw

   DEFINE DIALOG oDlg SIZE 600,400 PIXEL TRUEPIXEL

   @ 10,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
      DATASOURCE "CUST" ;
      COLUMNS "FIRST", "CITY", "IF(MARRIED,'TWO','ONE')" ;
      HEADERS nil, nil, "MARRIED" ;
      CELL LINES NOBORDER

   WITH OBJECT oBrw
      WITH OBJECT :married
         :cDataType        := "P"
         :lBmpTransparent  := .t.
      END
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED

return nil
 

RC file:

Code: Select all  Expand view

ONE 10     "c:\fwh\bitmaps\32x32\user.bmp"
TWO BITMAP "c:\fwh\bitmaps\32x32\users.bmp"
 

In all the 3 cases, the result is :

[hua]

Thank you very much for the extensive example Rao!

[jpcavagnaro]

Rao, excelente, podría decirme como hacer esto con archivo bmp en lugar del RC.

Saludos
Jorge

[nageswaragunupudi]

Rao, excelente, podría decirme como hacer esto con archivo bmp en lugar del RC.

Saludos
Jorge

Substitute resource names with bitmap file names with full path.