FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour xBrowse no muestra bitmaps desde recurso
Posts: 139
Joined: Sun Apr 23, 2006 09:00 AM
xBrowse no muestra bitmaps desde recurso
Posted: Fri Apr 30, 2010 09:56 AM

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

Un saludo,

Fernando

Las Palmas de Gran Canaria
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: xBrowse no muestra bitmaps desde recurso
Posted: Fri Apr 30, 2010 02:53 PM
Please try:
Code (fw): Select all Collapse
/*
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'
Regards



G. N. Rao.

Hyderabad, India
Posts: 139
Joined: Sun Apr 23, 2006 09:00 AM
Re: xBrowse no muestra bitmaps desde recurso
Posted: Fri Apr 30, 2010 09:31 PM

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

Un saludo,

Fernando

Las Palmas de Gran Canaria

Continue the discussion