Mostrar un BitMap en una columna del xBrowse? (SOLUCIONADO)

[Armando]

Amigos del foro:

Tengo cinco diferentes bitmaps, Bit1,Bit2,Bit3,Bit4 y Bit5, necesito mostrar uno de los cinco bitmaps
en una columna de un XBrowse dependiendo de una condición, algún pequeño ejemplo o link a uno?

Algo como
DO CASE
CASE lCondicion1
Muestra Bit1
ENDCASE
Algo así

Saludos

[sysctrl2]

aqui una idea

Code: Select all  Expand view  RUN

  WITH OBJECT oBrw1:aCols[1]

    :AddResource("UNO")
    :AddResource("DOS")
    :bBmpData     := {|| IF( oBrw1:aArrayData[ oBrw1:nArrayAt ][1], 1, 2) }

END

 

[Armando]

Paisano:

Gracias por la sugerencia, solo veo que será posible hasta dos bitmaps y yo tengo hasta 5 posibles.

Saludos

[karinha]

Tal vez:

Code: Select all  Expand view  RUN

   oBrw:aCols[nn]:AddResource( "RED(16x16)" )
 

Regards, saludos.

[leandro]

Solo una idea

Code: Select all  Expand view  RUN

  WITH OBJECT oBrw1:aCols[1]

    :AddResource("UNO")
    :AddResource("DOS")
    :AddResource("TRES")
    :AddResource("CUATRO")
    :AddResource("CINCO")
    :AddResource("SEIS")
    :bBmpData     := {|| cualbitmap( oBrw1:aArrayData[ oBrw1:nArrayAt ]["elcampo"]) }

END

funcion cualbitmap(uVar)
Local nBmp

if uVar=="UNO"
  nBmp := 1
elseif uVar=="DOS"
  nBmp := 2
elseif uVar=="TRES"
  nBmp := 3
elseif uVar=="CUATRO"
  nBmp := 4
elseif uVar=="CINCO"
  nBmp := 5
endif
return nBmp


 

[sysctrl2]

shi

[Armando]

Paisano y Leandro, Leandro y paisano:

Gracias a su orientación ha quedado resuelto.

Muchas gracias a ambos

[sysctrl2]

Paisano Armando tienes WhatsApp o Skype ?
saludos !

[Armando]

Paisa:

Tengo ambos.

Saludos