Exibir fotos

[Mário Isa]

Estou com este programa:

function Showmyphoto()
local _arq_photo := pastaok+'mmphtmp.t'+strzero(estacao,2) , oBmp
frename(pastaok+'mmphoto.t'+strzero(estacao,2), _arq_photo )
ferase(pastaok+'mmphoto.t'+strzero(estacao,2))
DEFINE WINDOW oDlgmyphoto TITLE "Exibindo foto" from 0, 85 TO 9.8, 105
@ 1, 1 BITMAP oBmp FILENAME _arq_photo OF oDlgmyphoto
*******DEFINE A IMAGEM DE FUNDO****************
/*@ 00,00 Image _arq_photo Of oDlgmyphoto Adjust
_arq_photo:LoadBmp(_arq_photo)*/
ACTIVATE WINDOW oDlgmyphoto
return nil

//----------------------------------------------------------------//

#ifdef __XPP__
* 32 bits Alaska XPP source code here...
procedure AppSys

return
#else
* 16 bits Clipper source code here...
#endif

Estou tentando exibir photos no formato .jpg / Tem como ?
Mário

[ICO]

Use a classe image, ponha tb. a Freeimage.dll na mesma pasta do seu EXE

Código: Selecionar todos

#Include "FiveWin.ch"
#Include "Image.ch"

Redefine Image  obmp cImg ID 131 of oDlg Adjust