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