Jump to content
Fivewin Brasil

Erro de Aplicativo - Resolvido

toya

By toya
in Programação

 Share

Recommended Posts

toya Newbie

toya

Posted
Posted

Pergunto se alguem ja se deparou com um erro que retorna o mensagem similar a:

A instrução no "0x0042c735" fez referência à memória no "0x00000002". A memória não pode ser "read"

Este fato tem ocorrido em XP.

Ocorre em algumas maquinas e não em todas...

toya

(Ahora en la version 5.8)

toyasis@yahoo.com.br

http://www.toyanet.com.br

FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv

FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv

Linux 2.4.29 - Slack 10.1 - (No@Say)

Editado por - toya on 23/12/2007 19:55:59

Editado por - toya on 23/12/2007 20:07:05

Link to comment
Share on other sites
toya Newbie

toya

Posted
  • Author
Posted

Pergunto se alguem ja se deparou com um erro que retorna o mensagem similar a:

A instrução no "0x0042c735" fez referência à memória no "0x00000002". A memória não pode ser "read"

Este fato tem ocorrido em XP.

Ocorre em algumas maquinas e não em todas...

toya

(Ahora en la version 5.8)

toyasis@yahoo.com.br

http://www.toyanet.com.br

FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv

FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv

Linux 2.4.29 - Slack 10.1 - (No@Say)

Editado por - toya on 23/12/2007 19:55:59

Editado por - toya on 23/12/2007 20:07:05

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

/*

//-> Veja se nao tem algo errado com sua janela(window).

//-> Teste este programa para entender e mostre quando ocorre o erro.

*/



#Include "FiveWin.Ch"


#define AW_HOR_POSITIVE             0x00000001


#define AW_HOR_NEGATIVE             0x00000002


#define AW_VER_POSITIVE             0x00000004


#define AW_VER_NEGATIVE             0x00000008


#define AW_CENTER                   0x00000010


#define AW_HIDE                     0x00010000


#define AW_ACTIVATE                 0x00020000


#define AW_SLIDE                    0x00040000


#define AW_BLEND                    0x00080000


STATIC oWnd


Function Main()


   DEFINE WINDOW oWnd TITLE "Teste de Janela"


   AnimateWindow( oWnd:hWnd, 600, nOr( AW_SLIDE, AW_HOR_POSITIVE ) )


   ACTIVATE WINDOW oWnd ;


            ON INIT oWnd:Refresh()


Return nil


DLL FUNCTION AnimateWindow( hWnd AS LONG, nTime AS LONG, nFlags AS LONG ) AS BOOL PASCAL ;


    LIB "USER32.dll"


id=code>id=code>
//-> fin


João Santos - São Paulo.


kmt_karinha@pop.com.br


kapiaba@brfree.com.br 


Skype: fw_kapiaba


FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Kbelo
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Kbelo
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
/*


//-> Veja se nao tem algo errado com sua janela(window).


//-> Teste este programa para entender e mostre quando ocorre o erro.


*/






#Include "FiveWin.Ch"


#define AW_HOR_POSITIVE             0x00000001


#define AW_HOR_NEGATIVE             0x00000002


#define AW_VER_POSITIVE             0x00000004


#define AW_VER_NEGATIVE             0x00000008


#define AW_CENTER                   0x00000010


#define AW_HIDE                     0x00010000


#define AW_ACTIVATE                 0x00020000


#define AW_SLIDE                    0x00040000


#define AW_BLEND                    0x00080000


STATIC oWnd


Function Main()


   DEFINE WINDOW oWnd TITLE "Teste de Janela"


   AnimateWindow( oWnd:hWnd, 600, nOr( AW_SLIDE, AW_HOR_POSITIVE ) )


   ACTIVATE WINDOW oWnd ;


            ON INIT oWnd:Refresh()


Return nil


DLL FUNCTION AnimateWindow( hWnd AS LONG, nTime AS LONG, nFlags AS LONG ) AS BOOL PASCAL ;


    LIB "USER32.dll"


id=code>id=code>
//-> fin


João Santos - São Paulo.


kmt_karinha@pop.com.br


kapiaba@brfree.com.br 


Skype: fw_kapiaba


FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe




id=quote>id=quote>
O que faz esse animateWindow?


Marcelo Michels


marcelo@infototal.com.br


"Total Informatica"



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:



citação:
/*


//-> Veja se nao tem algo errado com sua janela(window).


//-> Teste este programa para entender e mostre quando ocorre o erro.


*/






#Include "FiveWin.Ch"


#define AW_HOR_POSITIVE             0x00000001


#define AW_HOR_NEGATIVE             0x00000002


#define AW_VER_POSITIVE             0x00000004


#define AW_VER_NEGATIVE             0x00000008


#define AW_CENTER                   0x00000010


#define AW_HIDE                     0x00010000


#define AW_ACTIVATE                 0x00020000


#define AW_SLIDE                    0x00040000


#define AW_BLEND                    0x00080000


STATIC oWnd


Function Main()


   DEFINE WINDOW oWnd TITLE "Teste de Janela"


   AnimateWindow( oWnd:hWnd, 600, nOr( AW_SLIDE, AW_HOR_POSITIVE ) )


   ACTIVATE WINDOW oWnd ;


            ON INIT oWnd:Refresh()


Return nil


DLL FUNCTION AnimateWindow( hWnd AS LONG, nTime AS LONG, nFlags AS LONG ) AS BOOL PASCAL ;


    LIB "USER32.dll"


id=code>id=code>
//-> fin


João Santos - São Paulo.


kmt_karinha@pop.com.br


kapiaba@brfree.com.br 


Skype: fw_kapiaba


FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe




id=quote>id=quote>
O que faz esse animateWindow?


Marcelo Michels


marcelo@infototal.com.br


"Total Informatica"




id=quote>id=quote>
BAIXE, COMPILE E VEJA O SHOW().


TOYA, VERIFIQUE TAMBÉM, SE NÃO TE FALTA: DLL.CH EM FIVEWIN.CH OU NO MODULO.


João Santos - São Paulo.


kmt_karinha@pop.com.br


kapiaba@brfree.com.br 


Skype: fw_kapiaba


FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Kbelo
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Kbelo
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:



citação:



citação:
/*


//-> Veja se nao tem algo errado com sua janela(window).


//-> Teste este programa para entender e mostre quando ocorre o erro.


*/






#Include "FiveWin.Ch"


#define AW_HOR_POSITIVE             0x00000001


#define AW_HOR_NEGATIVE             0x00000002


#define AW_VER_POSITIVE             0x00000004


#define AW_VER_NEGATIVE             0x00000008


#define AW_CENTER                   0x00000010


#define AW_HIDE                     0x00010000


#define AW_ACTIVATE                 0x00020000


#define AW_SLIDE                    0x00040000


#define AW_BLEND                    0x00080000


STATIC oWnd


Function Main()


   DEFINE WINDOW oWnd TITLE "Teste de Janela"


   AnimateWindow( oWnd:hWnd, 600, nOr( AW_SLIDE, AW_HOR_POSITIVE ) )


   ACTIVATE WINDOW oWnd ;


            ON INIT oWnd:Refresh()


Return nil


DLL FUNCTION AnimateWindow( hWnd AS LONG, nTime AS LONG, nFlags AS LONG ) AS BOOL PASCAL ;


    LIB "USER32.dll"


id=code>id=code>
//-> fin


João Santos - São Paulo.


kmt_karinha@pop.com.br


kapiaba@brfree.com.br 


Skype: fw_kapiaba


FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe




id=quote>id=quote>
O que faz esse animateWindow?


Marcelo Michels


marcelo@infototal.com.br


"Total Informatica"




id=quote>id=quote>
BAIXE, COMPILE E VEJA O SHOW().


TOYA, VERIFIQUE TAMBÉM, SE NÃO TE FALTA: DLL.CH EM FIVEWIN.CH OU NO MODULO.


João Santos - São Paulo.


kmt_karinha@pop.com.br


kapiaba@brfree.com.br 


Skype: fw_kapiaba


FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe




id=quote>id=quote>
Cheio da firula rsrsrs.


Marcelo Michels


marcelo@infototal.com.br


"Total Informatica"



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Muito legal esse negocio ai...


Vou colocar no sistema aki =]


V Encontro - Eu fui e vou de novo.


Carlson A. Soares - SP - SP


email: soares_289@hotmail.com


FiveWin 7.05 - xHarbour 0.99.61 - SQLRDD


São Paulo - SP




id=quote>id=quote>
//-> Este tambem e cheio DE SAO PAULINISMO(Bambismo) jejejejejejeje - Viadagem pura...






#include "Fivewin.ch"


#define LWA_ALPHA 2


#define GWL_EXSTYLE -20


#define WS_EX_LAYERED 524288


FUNCTION MAIN()


    LOCAL oDlg, nFactor := 210, btnmais, btnmenos, btnloops


    DEFINE DIALOG oDlg;


           TITLE "Transparent dialog" pixel from 0, 0 to 400, 400


    @10, 10 SAY "This is a test" SIZE 30, 7 pixel


    oDlg:bpainted := { || SETTRANSP( oDlg, nFactor ) }


    @050, 10  button btnMais  prompt "Mais Transparencia"  ;


     action TRANSPAR( oDlg, @nFactor, "+", btnmais  ) size 70, 20 pixel


    @050, 100 button btnMenos prompt "Menos Transparencia" ;


     action TRANSPAR( oDlg, @nFactor, "-", btnmenos ) size 70, 20 pixel


    @100, 50  button btnloops prompt "Alternando Transparencia" ;


     action TRANSLOOP( oDlg, @nFactor ) size 70, 20 pixel


    ACTIVATE DIALOG oDlg CENTER


    RETURN NIL


STATIC FUNCTION SETTRANSP( oDlg, nFactor )


    SETWINDOWLONG( oDlg:hWnd, GWL_EXSTYLE, ;


                                 NOR( GETWINDOWLONG( oDlg:hWnd, ;


                                          GWL_EXSTYLE ), WS_EX_LAYERED ) )


    SETLAYEREDWINDOWATTRIBUTES( oDlg:hWnd, , ;


                                                          nFactor, LWA_ALPHA )


RETURN NIL


static function TRANSPAR( oDlg, nFactor, Sinal, oBtn )


    if Sinal = "+"


       if nFactor < 10 ; nFactor := 260 ; endif


       nFactor -= 5


    else


       if nFactor > 250 ; nFactor := 5  ; endif


       nFactor += 5


    endif


    SetWindowText( oDlg:hWnd, "Transparent dialog. Transparencia: " + alltrim(str(nFactor)) )


    SETLAYEREDWINDOWATTRIBUTES( oDlg:hWnd, , nFactor, LWA_ALPHA )


    sysrefresh()


return (nil)


static function TRANSLOOP( oDlg, nFactor, Sinal, oBtn )


    local X


    for X = 1 to 255


        SetWindowText( oDlg:hWnd, "Transparent dialog. Transparencia: " + alltrim(str(x)) )


        SETLAYEREDWINDOWATTRIBUTES( oDlg:hWnd, , x, LWA_ALPHA )


    next


    for X = 255 to 1 step -1


        SetWindowText( oDlg:hWnd, "Transparent dialog. Transparencia: " + alltrim(str(x)) )


        SETLAYEREDWINDOWATTRIBUTES( oDlg:hWnd, , x, LWA_ALPHA )


    next


    SetWindowText( oDlg:hWnd, "Transparent dialog. Transparencia: " + alltrim(str(nFactor)) )


    SETLAYEREDWINDOWATTRIBUTES( oDlg:hWnd, , nFactor, LWA_ALPHA )


    sysrefresh()


return NIL


DLL32 function SetLayeredWindowAttributes( hWnd   As LONG, crKey   As LONG,;


                                           bAlpha As LONG, dwFlags As LONG ) AS LONG PASCAL ;


      from "SetLayeredWindowAttributes" lib "user32.DLL"


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


kmt_karinha@pop.com.br


kapiaba@brfree.com.br 


Skype: fw_kapiaba


FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Kbelo
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Kbelo
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:



citação:
Muito legal esse negocio ai...


Vou colocar no sistema aki =]


V Encontro - Eu fui e vou de novo.


Carlson A. Soares - SP - SP


email: soares_289@hotmail.com


FiveWin 7.05 - xHarbour 0.99.61 - SQLRDD


São Paulo - SP




id=quote>id=quote>
//-> Este tambem e cheio DE SAO PAULINISMO(Bambismo) jejejejejejeje - Viadagem pura...






#include "Fivewin.ch"


#define LWA_ALPHA 2


#define GWL_EXSTYLE -20


#define WS_EX_LAYERED 524288


FUNCTION MAIN()


    LOCAL oDlg, nFactor := 210, btnmais, btnmenos, btnloops


    DEFINE DIALOG oDlg;


           TITLE "Transparent dialog" pixel from 0, 0 to 400, 400


    @10, 10 SAY "This is a test" SIZE 30, 7 pixel


    oDlg:bpainted := { || SETTRANSP( oDlg, nFactor ) }


    @050, 10  button btnMais  prompt "Mais Transparencia"  ;


     action TRANSPAR( oDlg, @nFactor, "+", btnmais  ) size 70, 20 pixel


    @050, 100 button btnMenos prompt "Menos Transparencia" ;


     action TRANSPAR( oDlg, @nFactor, "-", btnmenos ) size 70, 20 pixel


    @100, 50  button btnloops prompt "Alternando Transparencia" ;


     action TRANSLOOP( oDlg, @nFactor ) size 70, 20 pixel


    ACTIVATE DIALOG oDlg CENTER


    RETURN NIL


STATIC FUNCTION SETTRANSP( oDlg, nFactor )


    SETWINDOWLONG( oDlg:hWnd, GWL_EXSTYLE, ;


                                 NOR( GETWINDOWLONG( oDlg:hWnd, ;


                                          GWL_EXSTYLE ), WS_EX_LAYERED ) )


    SETLAYEREDWINDOWATTRIBUTES( oDlg:hWnd, , ;


                                                          nFactor, LWA_ALPHA )


RETURN NIL


static function TRANSPAR( oDlg, nFactor, Sinal, oBtn )


    if Sinal = "+"


       if nFactor < 10 ; nFactor := 260 ; endif


       nFactor -= 5


    else


       if nFactor > 250 ; nFactor := 5  ; endif


       nFactor += 5


    endif


    SetWindowText( oDlg:hWnd, "Transparent dialog. Transparencia: " + alltrim(str(nFactor)) )


    SETLAYEREDWINDOWATTRIBUTES( oDlg:hWnd, , nFactor, LWA_ALPHA )


    sysrefresh()


return (nil)


static function TRANSLOOP( oDlg, nFactor, Sinal, oBtn )


    local X


    for X = 1 to 255


        SetWindowText( oDlg:hWnd, "Transparent dialog. Transparencia: " + alltrim(str(x)) )


        SETLAYEREDWINDOWATTRIBUTES( oDlg:hWnd, , x, LWA_ALPHA )


    next


    for X = 255 to 1 step -1


        SetWindowText( oDlg:hWnd, "Transparent dialog. Transparencia: " + alltrim(str(x)) )


        SETLAYEREDWINDOWATTRIBUTES( oDlg:hWnd, , x, LWA_ALPHA )


    next


    SetWindowText( oDlg:hWnd, "Transparent dialog. Transparencia: " + alltrim(str(nFactor)) )


    SETLAYEREDWINDOWATTRIBUTES( oDlg:hWnd, , nFactor, LWA_ALPHA )


    sysrefresh()


return NIL


DLL32 function SetLayeredWindowAttributes( hWnd   As LONG, crKey   As LONG,;


                                           bAlpha As LONG, dwFlags As LONG ) AS LONG PASCAL ;


      from "SetLayeredWindowAttributes" lib "user32.DLL"


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


kmt_karinha@pop.com.br


kapiaba@brfree.com.br 


Skype: fw_kapiaba


FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe




id=quote>id=quote>
Tirando a a parte dos Sao paulinos o resrto esta 100%.


Marcelo Michels


marcelo@infototal.com.br


"Total Informatica"



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		soares289
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


soares289
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Esse ai eu já conhecia =]


Ja vi em VB...


Mais Sãopaulinismo nada...


Primeiro que nem sãopaulino sou...


Mais tem que dar uma enfeitada pra surpreender o cliente,  sabe como é neh? ;)


V Encontro - Eu fui e vou de novo.


Carlson A. Soares - SP - SP


email: soares_289@hotmail.com


FiveWin 7.05 - xHarbour 0.99.61 - SQLRDD


São Paulo - SP



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		jcleoner
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


jcleoner
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Como foi falado que é coisa de São Paulino, fui logo testar pois devia ser coisa interessante.


Gostei, pode ter utilidade.


Uma coisa que não sei se é possível:


Toda vez que colo um código de algum post, isto é, marco, copio e colo na xDev, sai tudo numa única linha e depois tenho que ficar separando. Se for pouco, tudo bem, mas se é bastante, é um saco.


Alguem sabe um jeito de pegar tudo certinho ?


logo.gif



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Tinha que ser SÃO PAULINO...


 em: RESPONDER COM CITAÇÃO.


Botão direito do MOUSE, Selecionar tudo.


Botão direito do MOUSE, Colar.


Abra o seu EDITOR


Botão direito do MOUSE, Copiar.


Ahh... JANEIRO/2008 -> PREPARA-TE: CERVEJADA DE ALASKAIRE!


João Santos - São Paulo.


kmt_karinha@pop.com.br


kapiaba@brfree.com.br 


Skype: fw_kapiaba


FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe


Editado por - kapiaba on 21/12/2007  17:22:10



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Luiz Arruda (ICO)
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Luiz Arruda (ICO)
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:



citação:
Muito legal esse negocio ai...


Vou colocar no sistema aki =]


V Encontro - Eu fui e vou de novo.


Carlson A. Soares - SP - SP


email: soares_289@hotmail.com


FiveWin 7.05 - xHarbour 0.99.61 - SQLRDD


São Paulo - SP




id=quote>id=quote>
//-> Este tambem e cheio DE SAO PAULINISMO(Bambismo) jejejejejejeje - Viadagem pura...






#include "Fivewin.ch"


#define LWA_ALPHA 2


#define GWL_EXSTYLE -20


#define WS_EX_LAYERED 524288


FUNCTION MAIN()


    LOCAL oDlg, nFactor := 210, btnmais, btnmenos, btnloops


    DEFINE DIALOG oDlg;


           TITLE "Transparent dialog" pixel from 0, 0 to 400, 400


    @10, 10 SAY "This is a test" SIZE 30, 7 pixel


    oDlg:bpainted := { || SETTRANSP( oDlg, nFactor ) }


    @050, 10  button btnMais  prompt "Mais Transparencia"  ;


     action TRANSPAR( oDlg, @nFactor, "+", btnmais  ) size 70, 20 pixel


    @050, 100 button btnMenos prompt "Menos Transparencia" ;


     action TRANSPAR( oDlg, @nFactor, "-", btnmenos ) size 70, 20 pixel


    @100, 50  button btnloops prompt "Alternando Transparencia" ;


     action TRANSLOOP( oDlg, @nFactor ) size 70, 20 pixel


    ACTIVATE DIALOG oDlg CENTER


    RETURN NIL


STATIC FUNCTION SETTRANSP( oDlg, nFactor )


    SETWINDOWLONG( oDlg:hWnd, GWL_EXSTYLE, ;


                                 NOR( GETWINDOWLONG( oDlg:hWnd, ;


                                          GWL_EXSTYLE ), WS_EX_LAYERED ) )


    SETLAYEREDWINDOWATTRIBUTES( oDlg:hWnd, , ;


                                                          nFactor, LWA_ALPHA )


RETURN NIL


static function TRANSPAR( oDlg, nFactor, Sinal, oBtn )


    if Sinal = "+"


       if nFactor < 10 ; nFactor := 260 ; endif


       nFactor -= 5


    else


       if nFactor > 250 ; nFactor := 5  ; endif


       nFactor += 5


    endif


    SetWindowText( oDlg:hWnd, "Transparent dialog. Transparencia: " + alltrim(str(nFactor)) )


    SETLAYEREDWINDOWATTRIBUTES( oDlg:hWnd, , nFactor, LWA_ALPHA )


    sysrefresh()


return (nil)


static function TRANSLOOP( oDlg, nFactor, Sinal, oBtn )


    local X


    for X = 1 to 255


        SetWindowText( oDlg:hWnd, "Transparent dialog. Transparencia: " + alltrim(str(x)) )


        SETLAYEREDWINDOWATTRIBUTES( oDlg:hWnd, , x, LWA_ALPHA )


    next


    for X = 255 to 1 step -1


        SetWindowText( oDlg:hWnd, "Transparent dialog. Transparencia: " + alltrim(str(x)) )


        SETLAYEREDWINDOWATTRIBUTES( oDlg:hWnd, , x, LWA_ALPHA )


    next


    SetWindowText( oDlg:hWnd, "Transparent dialog. Transparencia: " + alltrim(str(nFactor)) )


    SETLAYEREDWINDOWATTRIBUTES( oDlg:hWnd, , nFactor, LWA_ALPHA )


    sysrefresh()


return NIL


DLL32 function SetLayeredWindowAttributes( hWnd   As LONG, crKey   As LONG,;


                                           bAlpha As LONG, dwFlags As LONG ) AS LONG PASCAL ;


      from "SetLayeredWindowAttributes" lib "user32.DLL"


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


kmt_karinha@pop.com.br


kapiaba@brfree.com.br 


Skype: fw_kapiaba


FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe




id=quote>id=quote>
Agora Sim achei a verdadeira transparência.. aquela oura que era dada como resposta aqui no forum apenas pintava a dialog com o fundo em foco, bastava mover a dialog pra ver que não era transparencia real.. 


Luiz Arruda - Corumbá/MS


FiveWin 2.4 - WS - [x]Harbour 0.99.50 (Simplex) - xDev  0.65 


sai.gifico.corumba@gmail.com[/b/



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Kbelo
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Kbelo
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Tinha que ser SÃO PAULINO...


 em: RESPONDER COM CITAÇÃO.


Botão direito do MOUSE, Selecionar tudo.


Botão direito do MOUSE, Colar. //Aqui seria Copiar


Abra o seu EDITOR


Botão direito do MOUSE, Copiar.//Aqui seria Colar


Ahh... JANEIRO/2008 -> PREPARA-TE: CERVEJADA DE ALASKAIRE!


João Santos - São Paulo.


kmt_karinha@pop.com.br


kapiaba@brfree.com.br 


Skype: fw_kapiaba


FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe


Editado por - kapiaba on 21/12/2007  17:22:10




id=quote>id=quote>
Ta vendo esses corintianos estão tão preocupados com


a segundona que ate ja ta trocando tudo


Marcelo Michels


marcelo@infototal.com.br


"Total Informatica"



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		toya
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


toya
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Mui grato a todos...


Assunto resolvido...


Tratava-se de uma falta de verificação do status da impressora, e no caso, quando não há nenhuma impressora instalada gera o tal erro.


Erro este que pode ocorrer em varias situações e por varios motivos:


http://www.google.com.br/search?q=erro+aplicativo&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:pt-BR:official&client=firefox-a


toya


(Ahora en la version 5.8)


toyasis@yahoo.com.br


http://www.toyanet.com.br


FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv 


FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv


Linux 2.4.29 - Slack 10.1 - (No@Say)


Editado por - toya on 23/12/2007  20:08:44



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
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...
    •