xBrowse no muestra bitmaps desde recurso

[fernandomoralesdr]

Hola.
Tengo una serie de bitmaps en un archivo .rc y xbrowse no me los muestra. Los defino de la siguiente manera:

local aBitmaps[5]
aBitmaps[ 1 ] := LoadBitMap( GetResources(), "ON")
aBitmaps[ 2 ] := LoadBitMap( GetResources(), "OFF")
aBitmaps[ 3 ] := LoadBitMap( GetResources(), "CHECK2")
aBitmaps[ 4 ] := LoadBitMap( GetResources(), "MARCADO")
aBitmaps[ 5 ] := LoadBitMap( GetResources(), "NARANJA")

ADD COLUMN TO oBrw HEADER "Ag" WIDTH 30 BITMAP DATA EVAL( {|| if( ( fCabecond)->CONDAGEN, aBitmaps[5], NIL) })

ADD COLUMN TO oBrw NOBAR BITMAP HEADER "Marc" WIDTH 30 DATA EVAL( {|| if( ( fCabecond)->SELECTED, aBitmaps[ 4 ], NIL) })

ADD COLUMN TO oBrw NOBAR BITMAP HEADER "OK" WIDTH 25 DATA EVAL( {|| if( ConduceCorrecto(), aBitmaps[ 1 ], aBitmaps[ 2 ]) })

¿Alguna pista?

Gracias y un saludo,
Fernando Morales

[nageswaragunupudi]

Please try:

Code: Select all | Expand

/*
local aBitmaps[5]
aBitmaps[ 1 ] := LoadBitMap( GetResources(), "ON")
aBitmaps[ 2 ] := LoadBitMap( GetResources(), "OFF")
aBitmaps[ 3 ] := LoadBitMap( GetResources(), "CHECK2")
aBitmaps[ 4 ] := LoadBitMap( GetResources(), "MARCADO")
aBitmaps[ 5 ] := LoadBitMap( GetResources(), "NARANJA")
*/


ADD COLUMN TO oBrw HEADER "Ag" WIDTH 30 ;
   DATA If( (fCabecond)->CONDAGEN, 1, 0) BITMAP IN 'NARANJA'

ADD COLUMN TO oBrw NOBAR HEADER "Marc" WIDTH 30 ;
   DATA If( ( fCabecond)->SELECTED, 1, 0 ) BITMAP IN 'MARCADO' 

ADD COLUMN TO oBrw NOBAR HEADER "OK" WIDTH 25 ;
   DATA If( ConduceCorrecto(), 1, 2 ) BITMAP IN 'ON', 'OFF'
 

[fernandomoralesdr]

Thank you very much for your help. It works fine!
Regards
Fernando Morales