Se não tem o recurso, a gente cria....
Apenas teste: Browse com imagem....

Moderador: Moderadores
oTBrowse := { ;
{ "Nome", {|| jpcadas->cdNome } }, ;
{ "Apelido", {|| jpcadas->cdApelido } }, ;
{ "Código", {|| jpcadas->cdCodigo } }, ;
{ "UF", {|| jpcadas->cdUf } }, ;
{ "Cidade", {|| jpcadas->cdCidade } }, ;
{ "Ref.Mapa", {|| jpcadas->cdMapa } }, ;
{ "Endereço", {|| jpcadas->cdEndereco } }, ;
{ "Número", {|| jpcadas->cdNumero } }, ;
{ "Complemento", {|| jpcadas->cdCompl } }, ;
{ "Cnpj", {|| jpcadas->cdCnpj } }, ;
{ "status", {|| Space(3) }, , { || iif( "SAO PAULO" $ jpcadas->cdCidade, "d:\cdrom\fontes\integra\image\josejpg.jpg", "d:\cdrom\fontes\integra\image\checkjpg.jpg" ) } } }
IF Len( oElement ) > 2
temp:ColorBlock := oElement[ 3 ]
IF Len( oElement ) > 3
Temp:Cargo := oElement[ 4 ]
ENDIF
ENDIF
#define _TBCI_IMAGE 15 // Image
aCol[ _TBCI_IMAGE ] := oCol:Cargo
DispEnd()
FOR EACH aCol IN ::aColData
IF aCol[ _TBCI_COLPOS ] != NIL
IF aCol[ _TBCI_IMAGE ] != NIL
nColPos := aCol[ _TBCI_COLPOS ] + aCol[ _TBCI_SEPWIDTH ] + aCol[ _TBCI_CELLPOS ]
wvt_DrawImage( nRowPos, nColPos, nRowPos, nColPos + 2, Eval( aCol[ _TBCI_IMAGE ] ) )
ENDIF
ENDIF
NEXT
Usuários vendo este fórum: Nenhum usuário registrado online e 9 visitantes