Page 1 of 1

xbrowse with bitmap

PostPosted: Wed Oct 09, 2013 7:00 pm
by Wanderson
Hi I have a xbrowse with array

FOR ....
AADD( VETEMP, { oArqBol:CGCCLI, oArqBol:NOME, oArqBol:BOLETO, oArqBol:BRUTO, Lower(oArqAsoc:EMAIL)})
oBrw:SetArray( VETEMP )
oBrw:nHeaderHeight :=30
oBrw:nStretchCol := STRETCHCOL_LAST
oBrw:GoBottom()
oBrw:Refresh()
SysRefresh()

NEXT

How I can put a resource bitmap in last column when i add array items?

like this AADD( VETEMP, { oArqBol:CGCCLI, oArqBol:NOME, oArqBol:BOLETO, oArqBol:BRUTO, Lower(oArqAsoc:EMAIL), ------HERE I WANT TO PUT A BITMAP RESOURCE---------})

Thanks in advance.

Re: xbrowse with bitmap

PostPosted: Wed Oct 09, 2013 7:50 pm
by MGA
Wanderson,

olhe se te ajuda:

oBrowse:AddCol( )
oBrowse:aCols[3]:AddResource( 'IMAGEM1' )
oBrowse:aCols[3]:AddResource( 'IMAGEM2' )
oBrowse:aCols[3]:bBmpData := {|| IIf( Empty( tabela->teste ), 1, 2 ) }
oBrowse:aCols[3]:lBmpStretch := .f.
oBrowse:aCols[3]:lBmpTransparent := .t.
oBrowse:aCols[3]:nDataBmpAlign := AL_CENTER
oBrowse:aCols[3]:nHeadStrAlign := AL_CENTER
oBrowse:aCols[3]:cHeader := 'INSS'
oBrowse:aCols[3]:nWidth := 60

Re: xbrowse with bitmap

PostPosted: Wed Oct 09, 2013 7:54 pm
by Wanderson
SGS wrote:Wanderson,

olhe se te ajuda:

oBrowse:AddCol( )
oBrowse:aCols[3]:AddResource( 'IMAGEM1' )
oBrowse:aCols[3]:AddResource( 'IMAGEM2' )
oBrowse:aCols[3]:bBmpData := {|| IIf( Empty( tabela->teste ), 1, 2 ) }
oBrowse:aCols[3]:lBmpStretch := .f.
oBrowse:aCols[3]:lBmpTransparent := .t.
oBrowse:aCols[3]:nDataBmpAlign := AL_CENTER
oBrowse:aCols[3]:nHeadStrAlign := AL_CENTER
oBrowse:aCols[3]:cHeader := 'INSS'
oBrowse:aCols[3]:nWidth := 60


Olá obrigado pela resposta mas neste caso a imagem já aparece quando defino as colunas do xbrowse, no meu caso quando defino não especifico nenhum conteúdo, só depois em determina circunstância é que eu alimento um array com os dados aí dou um refresh no xbrowse, neste caso precisaria de colocar o bmp na última coluna do array pra quando der o oBrw:SetArray( MEUARRAY ) ele já mostrar os dados e o bitmap.

Att.
Wanderson.