Protótipo browse com imagem

[JoséQuintas]

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

[JoséQuintas]

Aperfeiçoado... rs
Codeblock pra escolher imagem, conforme determinada condição.

[JoséQuintas]

No meu tbrowse, acrescentei um quarto elemento, pra indicar a imagem - codeblock

Código: Selecionar todos

   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" ) } } }

No meu tbrowse genérico, atribuo o quarto elemento a :Cargo

Código: Selecionar todos

      IF Len( oElement ) > 2
         temp:ColorBlock := oElement[ 3 ]
         IF Len( oElement ) > 3
            Temp:Cargo := oElement[ 4 ]
         ENDIF
      ENDIF

No TBrowse do Harbour, acrescentei o 15. elemento para o codeblock da imagem

Código: Selecionar todos

#define _TBCI_IMAGE          15   // Image

No Tbrowse do Harbour, aonde carrega os valores, acrescentei pra pegar codeblock da(s) imagem(ns)

Código: Selecionar todos

            aCol[ _TBCI_IMAGE ] := oCol:Cargo

E por fim, após redesenhar a linha, desenha a(s) imagem(ns)

Código: Selecionar todos

      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

Demorou pra descobrir aonde mexer, mas .... é relativamente simples.

Apenas teste, ainda faltam ajustes.
Nem sei se vou usar, é apenas teste mesmo, tava curioso se iria conseguir.
Não gosto do fato de usar imagem em disco, e usar jpg, mas foi a opção disponível pro teste.

[JoséQuintas]

Tem casos aonde pode ser interessante, mas não me pergunte, porque ainda não sei... rs

Apesar do ícone se destacar mais do que uma simples letra, vai acabar não se destacando se tiver muitos ícones.
A mesma coisa com cores, e outras coisas mais.

Precisa de mais ajustes antes de pensar em colocar oficialmente.
Por enquanto estão aparecendo ícones também nas linhas vazias, que não contém registro.

[Claudio Soto]

Un ejemplo en un control de stock, se puede mostrar con un icono los productos que existen en stock actualmente y con otro los que no hay en stock. O diferentes iconos para los productos con mucho, poco o sin stock, o los productos sin stock pero con pedido pendiente, con otro icono los productos descontinuados, etc

[Abel]

olá,
quando uso qualquer comando com wvt_.....
da erro na compilaçao, o que eu preciso acrescentar ?

obrigado,
ABEL

[JoséQuintas]

GTWVG.hbc