FiveTech Software tech support forums

Posted: **Thu Nov 26, 2020 9:29 pm**

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

Posted: **Thu Nov 26, 2020 10:05 pm**

Code: Select all

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

Posted: **Fri Nov 27, 2020 1:35 pm**

Hola Ramon J.

Yo lo hago asi y me funciona bien

Code: Select all

       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.

Posted: **Fri Nov 27, 2020 7:47 pm**

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

FiveTech Software tech support forums

Imágenes en Xbrowse [SOLUCIONADO]

Imágenes en Xbrowse [SOLUCIONADO]

Re: Imágenes en Xbrowse

Re: Imágenes en Xbrowse

Re: Imágenes en Xbrowse