PC Toledo

Enviado: **19 Jan 2011 17:55**

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

Enviado: **19 Jan 2011 23:21**

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

Enviado: **20 Jan 2011 14:10**

não funcionou.....

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

complementando, estou utilizando xharbour 1.0.0 e hwgui 2.16

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()

PC Toledo

imagem de produto

imagem de produto

Re: imagem de produto

Re: imagem de produto

Re: imagem de produto