imagem de produto

[clebervn]

Tenho um pdv q após o usuário escolher o produto, deveria aparecer na tela, a foto do produto, estou fazendo conforme linha abaixo, mas falta algo pq não funciona :

Código: Selecionar todos

              // ATUALIZANDO IMAGEM DO PRODUTO
              cFoto := ""
              IF FILE(wDirImg+ALLTRIM(vCodProd)+".BMP")
                 cFoto := wDirImg+ALLTRIM(vCodProd)+".BMP"
              ELSEIF FILE(wDirImg+ALLTRIM(vCodProd)+".JPG")
                 cFoto := wDirImg+ALLTRIM(vCodProd)+".JPG"
              ELSEIF FILE(wDirImg+ALLTRIM(vCodProd)+".GIF")
                 cFoto := wDirImg+ALLTRIM(vCodProd)+".GIF"
              ENDIF
              IF !EMPTY(cFoto)
                 oFoto:oImage := HBitmap():AddFile(cFoto)
                 oFoto:REFRESH()
              ELSE
                 oFoto:oImage := HBitmap():release()
                 oFoto:REFRESH()
              ENDIF

[athayde]

faz dessa maneira

@ 15,135 BITMAP oImagePDV;
SHOW "images\pdv\logo_pdv2.jpg";
SIZE 305,290

para mudar
oBmpOcupado:=HBitmap():AddFile("images\caixa_ocupado.bmp" )
oImagePDV:ReplaceBitmap(oBmpOcupado,.F.)

[]s
Fernando

[clebervn]

não funcionou.....

até pus refresh depois mas mesmo assim nada....

complementando, estou utilizando xharbour 1.0.0 e hwgui 2.16

[sygecom]

Já resolveu esse caso ? se ainda, abaixo segue como eu uso:

Código: Selecionar todos

   oFoto:Hide()
   oFoto:nStretch:= 1
   oFoto:ReplaceBitmap( 'C:\NOVA_IMAGEM.BMP', .F. )
   oFoto:REFRESH()
   oFoto:SHOW()