Jump to content
Fivewin Brasil

Bmp Aniamado

jcarlos1361303234

By jcarlos1361303234
in Programação

 Share

Recommended Posts

betovsp Rookie

betovsp

Posted
Posted

citação:

ola Pessoal

Tem Como fazer Bmp Animado em uma Dialog

Obrigado

João Carlos

Clipper 5.3b - Blinker 7.0 FW2.0D

id=quote>id=quote>

João, ve se te ajuda:

FUNCTION CriaCdx()

PRIVATE oBmp

PRIVATE aBmp:={"Indice1","Indice2","Indice3","Indice4","Indice5"}

DEFINE FONT oFnt1 NAME "MS Sans Serif"

DEFINE FONT oFnt2 NAME "MS Sans Serif" BOLD

DEFINE DIALOG oDlgCdx FROM 1,15 TO 354,655 PIXEL STYLE nOr(DS_MODALFRAME) TITLE " Reorganização dos Arquivos"

@ 4.5,1 GROUP oGroup1 TO 11,44.7 OF oDlgCdx

@ 20,50 BITMAP oBmp RESNAME aBmp SIZE 25,24 OF oDlgCdx PIXEL NOBORDER

oBmp:lTransparent:=.T.

@ 18,120 SAY "Reorganização dos Arquivos de Sistema" FONT oFnt2 SIZE 150,8 OF oDlgCdx PIXEL

@ 28,120 SAY "Aguarde o Término da Reorganização" FONT oFnt2 SIZE 150,8 OF oDlgCdx PIXEL

@ 38,120 SAY "Obs.: Todas as Estações devem estar Fora do Sistema" FONT oFnt2 SIZE 180,8 OF oDlgCdx PIXEL

@ 84.8,56.5 SAY oTxt1 VAR cTxt1 FONT oFnt1 SIZE 200,6.5 OF oDlgCdx PIXEL

ometDbf:=tProgress():New(6.2,9.4,oDlgCdx,,,,,,210,10)

@ 112.7,56.5 SAY oTxt2 VAR cTxt2 FONT oFnt1 SIZE 200,6.5 OF oDlgCdx PIXEL

ometCdx:=tProgress():New(8.1,9.4,oDlgCdx,,,,,,210,10)

oDlgcdx:bStart:={|| ScrolMeter(oDlgcdx),lEsc:=.T.,oDlgcdx:End()}

ACTIVATE DIALOG oDlgCdx CENTER ON INIT TimerBmp() VALID lEsc

oFnt1:End() ; CursorArrow() ; SysRefresh()

RETURN(NIL)

STATIC FUNCTION TimerBmp()

DEFINE TIMER oTimer INTERVAL 150 ACTION (IF(i>=6,i:=1,(oBmp:Reload(aBmp),i++)),oBmp:Refresh(.F.)) OF oDlgCdx //MudaBmp()

oTimer:Activate()

RETURN(.T.)

id='Arial'>

Abraços.

Beto

Msn: betovsp@hotmail.com

Skype: betovsp

Alternativo: betovsp@pontobinfo.com

CL53B + FW2.0d + @ SAY/GET + BLINKER 7

Ribeirão Preto/SP

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted 



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


// ANIMABMP.CH - Comandos para a classe TAnimaBmpmp


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


#ifndef TAnimaBmpMP_CH


#define TAnimaBmpMP_CH


#xcommand @ ,  ANIMABMP [  ] ;


             [  ] ;


             [ SIZE ,  ] ;


             [ GLIPS  ] ;


             [ SPEED  ] ;


             [  ] ;


       => ;


          [  := ] TAnimaBmp():New( , , , ,;


                        , , ,  )


#xcommand REDEFINE ANIMABMP [  ] ;


             [  ] ;


             [ ID  ] ;


             [ GLIPS  ] ;


             [ SPEED  ] ;


             [  ] ;


             => ;


          [  := ] TAnimaBmp():ReDefine( , , ,;


                        ,  )


#endif


id=code>id=code>
João Santos - São Paulo.


kmt_karinha@pop.com.br


kapiaba@brfree.com.br 


FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
						
    
							
							
								
  • 
									1 year later...
								
    • 
							
						

					
					
					
				

					

					
					






	

	

	

		

			

				


	
		sig_gilberto
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


sig_gilberto
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Betovsp....


Tá dando um erro neste ScrolMeter...


 oDlgcdx:bStart:={||ScrolMeter(oDlgcdx),lEsc:=.T.,oDlgcdx:End()}


XHarbourAbraço...


Gilberto Herminio - Programador Pleno III


Marpress Informática


Eu Uso:XHB0.99.4(Simplex)+FWH25+BCC55+XDevStudio


"A Verdadeira amizade se constroe de pequenos gestos de ajuda multua"



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		betovsp
	

				
				
					
						
Rookie
					
				
			

		

		

			

				


betovsp
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
...para ser mais preciso :


Unresolved external _HB_FUNC_SCROLMETER referenced from BMANIM.OBJ


XHarbourAbraço...


Gilberto Herminio - Programador Pleno III


Marpress Informática


Eu Uso:XHB0.99.4(Simplex)+FWH25+BCC55+XDevStudio


"A Verdadeira amizade se constroe de pequenos gestos de ajuda multua"




id=quote>id=quote>
Falta a função scrolmeter()


 




	while .T.


   	oMetDbf:nPosition += 1


		IF indexa==1


			oTxt1:SetText("Arquivo de Senhas")


      	USE apsen ALIAS Sen NEW EXCLUSIVE VIA "DBFCDX"


			nTotalCdx:=1


			oMetCdx:SetRange( 0, nTotalCdx )


			oMetCdx:nPosition:=0


     		oTxt2:SetText("Indexando o Arquivo Por Código")


			INDEX ON CODIGO TAG cod TO apsen //1


			oMetCdx:nPosition += 1 ; SysRefresh() ; CursorWait()


		ELSEIF indexa==2


	      oTxt1:SetText("Arquivo de Estações")


			USE apimp Alias Imp NEW EXCLUSIVE VIA "DBFCDX"


			nTotalCdx:=1


			oMetCdx:SetRange( 0, nTotalCdx )


			oMetCdx:nPosition:=0


      	oTxt2:SetText("Indexando o Arquivo Por Estação")


	   	INDEX ON estacao TAG estacao TO apimp //1


			oMetCdx:nPosition += 1 ; SysRefresh() ; CursorWait()


END


	   dbCloseArea()


		IF dAllCdx .AND. indexa <= qTotDbf


      	indexa++


   	ELSE


	      EXIT


	   END


	END


	oDlgCdx:End() ; CursorArrow()


RETURN(NIL)


id=code>id=code>
Abraços.


Beto


Msn: betovsp@hotmail.com


CL53B+FW2.0d+@SAY/GET+BLINKER7


Ribeirão Preto/SP


"Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus."



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		sig_gilberto
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


sig_gilberto
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

...BetoVsp


...só mais este errinho..(rsrsrs) :


Dá onde vem a variavel (i) abaixo do aBmp 


@ 20,50 BITMAP oBmp RESNAME aBmp SIZE 25,24 OF oDlgCdx PIXEL NOBORDER


XHarbourAbraço...


Gilberto Herminio - Programador Pleno III


Marpress Informática


Eu Uso:XHB0.99.4(Simplex)+FWH25+BCC55+XDevStudio


"A Verdadeira amizade se constroe de pequenos gestos de ajuda multua"



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		betovsp
	

				
				
					
						
Rookie
					
				
			

		

		

			

				


betovsp
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
aBmp -> Provavelmente de Um ARRAY() de Bitmaps.


Exemplo:


LOCAL aBmp := ARRAY(5)


João Santos - São Paulo.


kmt_karinha@pop.com.br


kapiaba@brfree.com.br 


Fone: (11) 3106-2832


FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe


Editado por - kapiaba on 16/01/2008  14:34:01





id=quote>id=quote>
Eita João, correto:


PRIVATE aBmp:={"Indice1","Indice2","Indice3","Indice4","Indice5"}


Beto


Msn: betovsp@hotmail.com


CL53B+FW2.0d+@SAY/GET+BLINKER7


Ribeirão Preto/SP


"Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus."



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:



citação:
aBmp -> Provavelmente de Um ARRAY() de Bitmaps.


Exemplo:


LOCAL aBmp := ARRAY(5)


João Santos - São Paulo.


kmt_karinha@pop.com.br


kapiaba@brfree.com.br 


Fone: (11) 3106-2832


FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe


Editado por - kapiaba on 16/01/2008  14:34:01





id=quote>id=quote>
Eita João, correto:


PRIVATE aBmp:={"Indice1","Indice2","Indice3","Indice4","Indice5"}


Beto


Msn: betovsp@hotmail.com


CL53B+FW2.0d+@SAY/GET+BLINKER7


Ribeirão Preto/SP


"Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus."





id=quote>id=quote>
PORQUE PRIVATE -> PRIVATIVAS, BETO???


João Santos - São Paulo.


kmt_karinha@pop.com.br


kapiaba@brfree.com.br 


Fone: (11) 3106-2832


FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		betovsp
	

				
				
					
						
Rookie
					
				
			

		

		

			

				


betovsp
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:



citação:



citação:
aBmp -> Provavelmente de Um ARRAY() de Bitmaps.


Exemplo:


LOCAL aBmp := ARRAY(5)


João Santos - São Paulo.


kmt_karinha@pop.com.br


kapiaba@brfree.com.br 


Fone: (11) 3106-2832


FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe


Editado por - kapiaba on 16/01/2008  14:34:01





id=quote>id=quote>
Eita João, correto:


PRIVATE aBmp:={"Indice1","Indice2","Indice3","Indice4","Indice5"}


Beto


Msn: betovsp@hotmail.com


CL53B+FW2.0d+@SAY/GET+BLINKER7


Ribeirão Preto/SP


"Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus."





id=quote>id=quote>
PORQUE PRIVATE -> PRIVATIVAS, BETO???


João Santos - São Paulo.


kmt_karinha@pop.com.br


kapiaba@brfree.com.br 


Fone: (11) 3106-2832


FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe





id=quote>id=quote>
Estou privando a variável João... ehehehehhehe


Só pode ser usada neste prg.


Beto


Msn: betovsp@hotmail.com


CL53B+FW2.0d+@SAY/GET+BLINKER7


Ribeirão Preto/SP


"Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus."



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:



citação:



citação:



citação:
aBmp -> Provavelmente de Um ARRAY() de Bitmaps.


Exemplo:


LOCAL aBmp := ARRAY(5)


João Santos - São Paulo.


kmt_karinha@pop.com.br


kapiaba@brfree.com.br 


Fone: (11) 3106-2832


FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe


Editado por - kapiaba on 16/01/2008  14:34:01





id=quote>id=quote>
Eita João, correto:


PRIVATE aBmp:={"Indice1","Indice2","Indice3","Indice4","Indice5"}


Beto


Msn: betovsp@hotmail.com


CL53B+FW2.0d+@SAY/GET+BLINKER7


Ribeirão Preto/SP


"Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus."





id=quote>id=quote>
PORQUE PRIVATE -> PRIVATIVAS, BETO???


João Santos - São Paulo.


kmt_karinha@pop.com.br


kapiaba@brfree.com.br 


Fone: (11) 3106-2832


FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe





id=quote>id=quote>
Estou privando a variável João... ehehehehhehe


Só pode ser usada neste prg.


Beto


Msn: betovsp@hotmail.com


CL53B+FW2.0d+@SAY/GET+BLINKER7


Ribeirão Preto/SP


"Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus."





id=quote>id=quote>
hahahaha.


Oras, se LOCAL, também só pode usar no LOCAL.


E SE EU DISSER:






    MEMVAR  BETO


    PRIVATE BETO



id=code>id=code>
O QUE ACONTECE, BETO?


João Santos - São Paulo.


kmt_karinha@pop.com.br


kapiaba@brfree.com.br 


Fone: (11) 3106-2832


FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				
			
			



		

	


	
	
	
	
	
		
	

			
				
				

	
		

			
Join the conversation

			

	
				
					You can post now and register later.
				
				If you have an account, sign in now to post with your account.
				
			

	
		

	




	
	
		
	
		
	
		
	
	
		
		
	
	

		

		


	
		Guest
	


		

			
				
					
				
					
						
    
							
  • 
								


	
	
	
	

								
							
    • 
						

					
				
					
				
			
			
				
					
						
							
						
						



    

		
		

			
		

		
			
 Reply to this topic...

		
		

			

				
					×
					  Pasted as rich text.   Paste as plain text instead
				
			

		

		

			

				  Only 75 emoji are allowed.
			

		

		

			

				×
				  Your link has been automatically embedded.   Display as a link instead
			

		

		

			

			

		

		

			

				×
				  Your previous content has been restored.   Clear editor
			

		

		

			

				×
				  You cannot paste images directly. Upload or insert images from URL.
			

		

		


	

		

			
			

				Loading...
			

		
		
	



	

	

		

			×
			
		

		

	



						
					
				
					
				
					
				
			
			
    
				
					
						
					
						
					
						
							
  • 
								

    
	

    
								
							
    • 
						
					
				
				
					
  • 

	

    • 
				
			

		

	



			
		

	

	
		

			

				
					


    
          Share
    

    

        
        
            

            
        
    


				
				
                

                




				
			

		

	







	

		
			
				Go to topic listing
			
		
	

	




						


					

					


					

				

			

			
		

		
		


	

		×
		

			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Create New...
    •