Resultado de um controle

[gilbrodrigues]

Ola a todos.

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

Código: Selecionar todos

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 

*********************************

[Euclides]

Gilberto,
O seu exemplo não ajuda muito pq V usa recursos e não colocou o RC, mas...
Existem muitos exemplos que utilizam bitmaps na pasta \FWH\samples (pode procurar por "oBmp" nos programas). Recomendo verificar o programa fivedemo.prg que modifica um bitmap em tempo de execução.
Quanto às propriedades das classes, as fontes estão na pasta \FWH\source\classes especficamente, bitmap.prg referente à imagem que é sub-classe de tControl (control.prg) que por sua vez é sub-classe de tWindow (window.prg) onde estão definidos os métodos hide(),show(), move(), etc
O classe tBitmap sómente retorna o objeto (quando especificado).
Tem propriedades DATA que podem ser consultados. (ver também as propriedades DATA de tControl e tWindow)
Espero ter ajudado.
Até mais...
Euclides

[rochinha]

Amiguinhos,

Código: Selecionar todos

dlgFoto DIALOG 4, 3, 273, 220
STYLE 0x4L | WS_CHILD | WS_VISIBLE
FONT 8, "Helv"
{
 CONTROL "", 102, "static", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 39, 12, 228, 199
}

Código: Selecionar todos

   REDEFINE IMAGE oImage ID 102 OF oDlg FILENAME 
            iif( !file(StrZero(M->IDCLIENTE,5)+".jpg"),;
                 "foto.jpg",;
                 StrZero(M->IDCLIENTE,5)+".jpg" ) ;
            ON LEFT CLICK ( cIMGFoto := cGetFile( "JPEG (*.jpg)| *.jpg|All Files (*.*)| *.*", "Selecione uma imagem", 4 ), ;
                            __CopyFile( cIMGFoto, cPath+StrZero(M->IDCLIENTE,5)+".jpg" ),;
                            oImage:LoadBmp( StrZero(M->IDCLIENTE,5)+".jpg" ) ) ADJUST

Como no dialogo dlgFoto que possui um controle que sera manipulado pelo comando IMAGE para apresentar uma imagem ou vincular.

O comando em primeiro momento verifica se existe uma imagem com o numero de codigo de cliente e apresenta

Caso seja clicado sobre a area da foto entao um dialogo abrira para permitir a procura da imagem, então a imagem sera copiada e remomeada para que contenha como nome o codigo do cliente para vinculo final.

Para carregar a imagem use o método oImage:LoadBmp( StrZero(M->IDCLIENTE,5)+".jpg" ).

Para conhecer as classes de cada objeto existente no fivewin voce pode alcaça-los na pasta SOURCES\CLASSES.