Imágenes en Xbrowse [SOLUCIONADO]

Post Reply
Ramón J.
Posts: 79
Joined: Mon Feb 13, 2006 8:23 pm

Imágenes en Xbrowse [SOLUCIONADO]

Post by 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

Image

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
Last edited by Ramón J. on Thu Dec 31, 2020 5:51 pm, edited 1 time in total.
FWH 20.12 BCC7
User avatar
cmsoft
Posts: 653
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: Imágenes en Xbrowse

Post by cmsoft »

Code: Select all

oBrw:aCols[2]:bStrData := {|| ""}
 
User avatar
jvtecheto
Posts: 357
Joined: Mon Mar 04, 2013 4:32 pm
Location: Spain

Re: Imágenes en Xbrowse

Post by jvtecheto »

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.
Fwh 19.06 32 bits + Harbour 3.2dev(r2011030937)+ Borland 7.4 + FivEdit
Ramón J.
Posts: 79
Joined: Mon Feb 13, 2006 8:23 pm

Re: Imágenes en Xbrowse

Post by Ramón J. »

César y José, gracias. Ya funciona bien
FWH 20.12 BCC7
Post Reply