Comecei a pouco tempo no fivewin (2009) e ainda estou com algumas duvidas (apesar de programar em clipper desde 91).
Estou cadastrando fotos e essas fotos para uma imobiliaria e essas deverão ser apresentadas em um FORM
(atraves de um REDEFINE IMAGE) porem nao estou conseguindo 'ver o objeto' (sabendo que nao tem variavel controlando)
A minha duvida é existe algum guia de referencia com os nomes dos métodos/funcoes tais como:
hide() / show() ou ainda saber as propriedades do objeto tais como name, caption, height, como saber por exemplo o que o objeto image retorna. Veja o codigo abaixo
FUNCTION IncFoto()
PRIVATE pathfoto := "\PROGS\SISCLI\FOTOS\\"
pathfoto := "\progs\siscli\fotos\"
vetfoto := {}
* exemplos de testes
AADD(vetfoto, pathfoto + "laudos.bmp")
AADD(vetfoto, pathfoto +"semfoto.bmp")
AADD(vetfoto, pathfoto +"tiger.bmp")
AADD(vetfoto, pathfoto +"rj1.bmp")
AADD(vetfoto, pathfoto +"laudos.bmp")
AADD(vetfoto, pathfoto +"smile.bmp")
SET _3DLOOK ON
DEFINE DIALOG otelaphoto RESOURCE "FOTOS" TITLE "CADASTRO DE FOTOS"
REDEFINE Image oVIEW1 FILENAME vetfoto[2] ADJUST ID 4016 OF otelaphoto UPDATE // ABRE SEM FOTO
REDEFINE Image oProf1 FILENAME vetfoto[1] ADJUST ID 4003 OF otelaphoto UPDATE ON CLICK (exibefoto(1,@otelaphoto,@oview1))
REDEFINE Image oProf2 FILENAME vetfoto[2] ADJUST ID 4004 OF otelaphoto UPDATE ON CLICK (exibefoto(2,@otelaphoto,@oview1))
REDEFINE Image oProf3 FILENAME vetfoto[3] ADJUST ID 4005 OF otelaphoto UPDATE ON CLICK (exibefoto(3,@otelaphoto,@oview1))
REDEFINE Image oProf4 FILENAME vetfoto[4] ADJUST ID 4006 OF otelaphoto UPDATE ON CLICK (exibefoto(4,@otelaphoto,@oview1))
REDEFINE Image oProf5 FILENAME vetfoto[5] ADJUST ID 4010 OF otelaphoto UPDATE ON CLICK (exibefoto(5,@otelaphoto,@oview1))
REDEFINE Image oProf6 FILENAME vetfoto[6] ADJUST ID 4011 OF otelaphoto UPDATE ON CLICK (exibefoto(6,@otelaphoto,@oview1))
ACTIVATE DIALOG otelaphoto CENTERED //MAXIMIZED
RETURN NIL
*********************************
FUNCTION exibefoto(numfoto,form1,control)
prilin_1 := 41
pricol_1 := 01
espacotam := 15
WHILE NEXTKEY() # 27
FOR MM1 := numfoto to len(VETFOTO)
OBSERVE AQUI ABAIXO:
({) control.filename := vetfoto[numfoto]
O ERRO APARECE NA LINHA DE CIMA
form1 : update()
form1 : refresh()
// ? "aguarde..."
form1:hide()
IF mm1 >= len(VETFOTO)
mm1 := 01
ENDIF
NEXT
ENDDO
RETURN NIL
*********************************