FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Im谩genes en Xbrowse [SOLUCIONADO]
Ram贸n J.
Posts: 152
Joined: Mon Feb 13, 2006 08:23 PM
Im谩genes en Xbrowse [SOLUCIONADO]
Posted: Thu Nov 26, 2020 09: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:= .F.
// oBrwm:= .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
FWH 20.12 BCC7
cmsoft
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Im谩genes en Xbrowse
Posted: Thu Nov 26, 2020 10:05 PM
Code (fw): Select all Collapse
oBrw:aCols[2]:bStrData := {|| ""}
Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com
jvtecheto
Posts: 607
Joined: Mon Mar 04, 2013 04:32 PM
Re: Im谩genes en Xbrowse
Posted: Fri Nov 27, 2020 01:35 PM
Hola Ramon J.

Yo lo hago asi y me funciona bien

Code (fw): Select all Collapse
       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 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64
Ram贸n J.
Posts: 152
Joined: Mon Feb 13, 2006 08:23 PM
Re: Im谩genes en Xbrowse
Posted: Fri Nov 27, 2020 07:47 PM

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

FWH 20.12 BCC7

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions