ABRIR VISUALIZADOR DE IMAGENS JPG

[AVInfo Sistemas]

COMO FAÇO PARA ABRIR UMA IMAGEM JPG CLICANDO NUM BOTAO

QUERO PASSAR O CAMINHO DA IMAGEM E ABRIR A IMAGEM GRANDE

Xharbour 1.2.1 - Fw 10.10 - WS e Pelles

tominem@hotmail.com

[AVInfo Sistemas]

COMO FAÇO PARA ABRIR UMA IMAGEM JPG CLICANDO NUM BOTAO

QUERO PASSAR O CAMINHO DA IMAGEM E ABRIR A IMAGEM GRANDE

Xharbour 1.2.1 - Fw 10.10 - WS e Pelles

tominem@hotmail.com

[Luiz Fernando]

citação:

COMO FAÇO PARA ABRIR UMA IMAGEM JPG CLICANDO NUM BOTAO

QUERO PASSAR O CAMINHO DA IMAGEM E ABRIR A IMAGEM GRANDE

Xharbour 1.2.1 - Fw 10.10 - WS e Pelles

tominem@hotmail.com

---

id=quote>id=quote>

Colega não ententi muito o que vc quer, mais de uma olhada no samples no arquivo testimg.prg para ver se é isto que vc esta precisando...

Abraços

Luiz Fermnando

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

[LUIS1361303120]

eu faço assim:

uso o listbox, mas pode usar outro tipo:

on dblclick verproto(protocol->arquivo)

*--------------------------

Function verproto(warquivo)

IF ! UsrFree(cprotfoto) ; RETURN ; ENDIF

CursorWait()

cimg := cdir + '\doc\' + alltrim(warquivo)

IF RIGHT( alltrim(WARQUIVO) , 3 ) = "PDF"

if file("c:\camara\SumatraPDF.exe")

MsgRun( 'Por favor aguarde...' , "Sistema camara" , {|| WinExec( "c:\camara\SumatraPDF.exe " + cIMG , 0 )})

endif

ELSE

if !file( cimg )

cimg := cdir + '\doc\nada.jpg'

endif

if file("C:\camara\acdsee\ACDSEE32.EXE")

MsgRun( 'Por favor aguarde... ' + cimg, "Sistema camara", {|| WinExec('c:\camara\acdsee\acdsee32 ' + cimg , 0 )})

else

MsgRun( 'Por favor aguarde... ' + cimg , "Sistema camara", {|| WinExec( cdir + '\acdsee\acdsee32 ' + cimg , 0 )})

endif

ENDIF

return nil

uso um programa chamado acdsee32.exe, eu tenho se precisar te mando... ou baixe ele,na versao v.23 que e rapido e roda em qualquer lugar,,.. bem pratico