Clipper On Line • Ver Tópico - Resultado de um controle

Resultado de um controle

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

 

Resultado de um controle

Mensagempor gilbrodrigues » 12 Jan 2011 11:03

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

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

*********************************
Nota de Moderação:
Maligno: Mensagem editada para colocar a tag [ code ]
Veja como utilizar esta tag: Clique aqui
gilbrodrigues
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 10
Data de registro: 05 Jan 2011 09:44
Cidade/Estado: RIO DE JANEIRO / RJ
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Re: Resultado de um controle

Mensagempor Euclides » 16 Jan 2011 15:20

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
Euclides
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 154
Data de registro: 12 Mai 2007 14:07
Cidade/Estado: São Paulo, Capital
Curtiu: 1 vez
Mens.Curtidas: 14 vezes

Re: Resultado de um controle

Mensagempor rochinha » 06 Fev 2011 23:49

Amiguinhos,

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
}


   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.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes




Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 15 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro