Imágenes en Xbrowse [SOLUCIONADO]

[Ramón J.]

Hola a todos
Estoy tratando de hacer un xbrowse que muestre imágenes en una columna según la condición, pero si bien aparece, también me aparece el dato a la derecha de la imagen. ¿Cómo se oculta el dato?

¿Y cómo se centra la imagen? He tratado de entrar la imagen con oBrw:aCols[ 2 ]:nDataBmpAlign: = AL_CENTER pero da error



El código es el siguiente:


#include "FiveWin.ch"
#include "ord.ch"
#include "XBrowse.Ch"

function TELEM()

local oDlg, obrw



USE CLIENTES NEW SHARED alias "Clientes"
index on clientes->NOMBRE to nom
Set index to nom


DEFINE DIALOG oDlg FROM 3, 3 TO 33, 100 TITLE "CLIENTES"


@ 1,1 XBROWSE oBrw SIZE 360, 160;
COLUMNS "Nombre", "Nivel" OF oDlg alias "Clientes";
HEADERS "Cliente", "Atendido";
COLSIZES 500, 70 NOBORDER FASTEDIT FOOTERS


// oBrw:lHScroll:= .F.
// oBrwm:lVScroll:= .T.
oBrw:l2007 := .T.
oBrw:lTransparent := .f.
oBrw:lDesign := .f.
oBrw:lRecordSelector := .T.
oBrw:lVScroll := .t.
oBrw:lHScroll := .f.
oBrw:lColChangeNotify := .t.
oBrw:lAllowColReGroup := .t.
oBrw:lColDividerComplete := .t.
oBrw:nColDividerStyle := LINESTYLE_NOLINES
oBrw:nRowDividerStyle := LINESTYLE_LIGHTGRAY
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROWMS
oBrw:aCols[2]:nEditType := TYPE_IMAGE
oBrw:aCols[2]:lBmpTransparent := .T.

oBrw:aCols[ 2 ]:addbmpfile("BITMAPS\yes.bmp" ) // from Disk
oBrw:aCols[ 2 ]:addbmpfile("BITMAPS\no.bmp" ) // from Disk
oBrw:aCols[ 2 ]:addbmpfile("BITMAPS\info.bmp" ) // from Disk
//oBrw:aCols[ 2 ]:nDataBmpAlign: = AL_CENTER --> FALLA
oBrw:aCols[ 2 ]:bBmpData :={ || iiF(;
("Clientes")->NIVEL == 1, 1,;
IIF(;
("Clientes")->NIVEL == 2, 2, 3) ) }

oBrw:CreateFromCode()

ACTIVATE DIALOG oDlg

return nil

Un saludo

[cmsoft]

Code: Select all  Expand view  RUN

oBrw:aCols[2]:bStrData := {|| ""}
 

[jvtecheto]

Hola Ramon J.

Yo lo hago asi y me funciona bien

Code: Select all  Expand view  RUN

       oBrw:aCols[ 1 ]:AddBitmap( { "Candado1", "Candado2" } ) // Bitmaps de recursos
      oBrw:aCols[ 1 ]:nDataBmpAlign   := AL_CENTER
      oBrrw:aCols[ 1 ]:bBmpData := { || IIf( Emp->Cerrada, 1, 2 ) } // Esto es la condicion segun el campo que tengas.
 

Saludos.

Jose.

[Ramón J.]

César y José, gracias. Ya funciona bien