Jump to content
Fivewin Brasil

Classe TFolder -> SystabControl32 (Resolvido)

oziel

By oziel
in Programação

 Share

Recommended Posts

oziel Newbie

oziel

Posted
Posted

Colegas.

Quando meu sistema rodava em 16 bits (Tfolder) funcionava com Mouse clicando em cada Get, hoje com a Classe SysTabControl32 so com TAB Enter e Setas para Cima e para Baixo. - já vasculhei em vários tópicos relacionados mais não consegui achar nada.

.....

#include "FiveWin.ch"

#include "Report.ch"

#include "DbtnBMP.ch"

#include "Tcbrowse.ch"

#include "Corget.ch"

.....

REDEFINE Get cCodigo PICTURE '999999' ID 20 OF oFld:aDialogs[ 1 ] FONT oFnt COLOR CLR_BLACK,CLR_VDCL

REDEFINE GET cNome PICTURE '@!' ID 21 OF oFld:aDialogs[ 1 ] FONT oFnt UPDATE COLOR CLR_BLACK,CLR_VDCL

....

Alguem pode me dar uma dica

Grato.

?cid=c7aa5a53b531c1ae&sc=photos

OZIEL LOPES

FW 22c - Clipper 5.3b - Workshop 4.0

FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.

Editado por - oziel on 21/09/2011 11:16:40

Link to comment
Share on other sites
oziel Newbie

oziel

Posted
  • Author
Posted

Colegas.

Quando meu sistema rodava em 16 bits (Tfolder) funcionava com Mouse clicando em cada Get, hoje com a Classe SysTabControl32 so com TAB Enter e Setas para Cima e para Baixo. - já vasculhei em vários tópicos relacionados mais não consegui achar nada.

.....

#include "FiveWin.ch"

#include "Report.ch"

#include "DbtnBMP.ch"

#include "Tcbrowse.ch"

#include "Corget.ch"

.....

REDEFINE Get cCodigo PICTURE '999999' ID 20 OF oFld:aDialogs[ 1 ] FONT oFnt COLOR CLR_BLACK,CLR_VDCL

REDEFINE GET cNome PICTURE '@!' ID 21 OF oFld:aDialogs[ 1 ] FONT oFnt UPDATE COLOR CLR_BLACK,CLR_VDCL

....

Alguem pode me dar uma dica

Grato.

?cid=c7aa5a53b531c1ae&sc=photos

OZIEL LOPES

FW 22c - Clipper 5.3b - Workshop 4.0

FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.

Editado por - oziel on 21/09/2011 11:16:40

Link to comment
Share on other sites
jcleoner Newbie

jcleoner

Posted
Posted

Oziel faça assim que o enter funciona

@ 120,12 SAY oSay Prompt "Bloqueio" OF oFldr:aDialogs[1] PIXEL SIZE 31,8 RIGHT

@ 120,46 COMBOBOX oCpo:BLOQUEIO VAR oCLIENTES:BLOQUEIO ITEMS aBLOQUEIO SIZE 51,45 PIXEL ;

OF oFldr:aDialogs[1];

WHEN wPermite <> 2;

UPDATE

oCpo:BLOQUEIO:bKeyChar:={ |nKey, nFlags| If(nKey=VK_RETURN,oFldr:aDialogs[1]:GoNextCtrl( oCpo:BLOQUEIO:hWnd ),NIL) }

Normalmente os gets funcionam com o ENTER. O combobox, checkbox e se não engano tambem o radiobox, precisam do comando acima para pular para o próximo controle com o ENTER.

logo.gif

Link to comment
Share on other sites
Luiz Arruda (ICO) Newbie

Luiz Arruda (ICO)

Posted
Posted

Bom dia.

Porque usar a SystabControl32 se a tFolder nativa de sua versão está 100% ?

Se for pra usar folders alternativos sugiro que usa a rFolder do Ricardo, é linda e funcional. e ainda Free icon_smile_big.gif

O Marcelo (elitenet) estava dando uns ajuste para usa-la com recursos, não sei se ele terminou, mais mesmo assim com @Say não deixa nada a desejar em ralação a esta aqui(Tfolderex)..

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=19544

fldex1.png

Eu particularmente acho a rFolder até mais bonita...

É só uma dica.

Abraços..

Luiz Arruda

Corumbá-MS

ico.corumba@gmail.com |

http://www.facebook.com/profile.php?id=100000933378029

euchapeu.png

FiveWin 9.04

xHarbour

PellesC

Bcc

Editado por - ico on 20/09/2011 09:17:33

Link to comment
Share on other sites
oziel Newbie

oziel

Posted
  • Author
Posted

O fato de usar a SystabControl32 foi porque na TFolder não abria o folder só a primeira Dialog. Recebi uma dica do forum que se utilizasse a SystabControl32 abriria as janelas, foi o que aconteceu, mas descobri que não posso pular através do click do mouse para qualquer get só com enter ou tab.

?cid=c7aa5a53b531c1ae&sc=photos

OZIEL LOPES

FW 22c - Clipper 5.3b - Workshop 4.0

FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.

Link to comment
Share on other sites
Luiz Arruda (ICO) Newbie

Luiz Arruda (ICO)

Posted
Posted

citação:

O fato de usar a SystabControl32 foi porque na TFolder não abria o folder só a primeira Dialog. Recebi uma dica do forum que se utilizasse a SystabControl32 abriria as janelas, foi o que aconteceu, mas descobri que não posso pular através do click do mouse para qualquer get só com enter ou tab.

?cid=c7aa5a53b531c1ae&sc=photos

OZIEL LOPES

FW 22c - Clipper 5.3b - Workshop 4.0

FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.

id=quote>id=quote>

Interessante. nunca tive problemas com a tFolder nativa.

Vou fazer uns testes com a versão 6.12..

Luiz Arruda

Corumbá-MS

ico.corumba@gmail.com |

http://www.facebook.com/profile.php?id=100000933378029

euchapeu.png

FiveWin 9.04

xHarbour

PellesC

Bcc

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

citação:

O fato de usar a SystabControl32 foi porque na TFolder não abria o folder só a primeira Dialog. Recebi uma dica do forum que se utilizasse a SystabControl32 abriria as janelas, foi o que aconteceu, mas descobri que não posso pular através do click do mouse para qualquer get só com enter ou tab.

?cid=c7aa5a53b531c1ae&sc=photos

OZIEL LOPES

FW 22c - Clipper 5.3b - Workshop 4.0

FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.

id=quote>id=quote>

QUEM DISSE ISSO OZIEL?? Esta Informação, está incorreta, até na versão 2.7 eu faço isso sem problemas, mas vc. tem q mudar o FOLDER para SYSTABCONTROL32 em vez de FOLDER.

Agora se você está usando a classe do José Lalin, então deve manter FOLDER e não SYSTABCONTROL32.

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted 



TEST DIALOG 19, 47, 233, 124


STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU


CAPTION "FiveWin Folders Demo"


{


 CONTROL "", 110, "SysTabControl32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 4, 5, 225, 99


 PUSHBUTTON "&OK", 120, 98, 108, 37, 14


}


id=code>id=code>
Para Trocar a classe de FOLDER para SYSTABCONTROL32:


Abra o FOLDER com o WORKSHOP.EXE,


Click em: RESOURCE


Click em: EDIT AS TEXT


Troque FOLDER por SYSTACONTROL32


E so isso.


Abs.




João Santos - São Paulo.


kmt_karinha@pop.com.br


joao@pleno.com.br


Fone: (11) 3106-2832 / 8243-5632 - TIM


FWH 2.7 - xHARBOUR WorkShop.Exe


dentinho.jpg?rnd=0.830315402649066



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Luiz Arruda (ICO)
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Luiz Arruda (ICO)
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Bem.. a dica do Kapiaba deve funcionar, mais fiz um Teste.exe usando a tFolder nativa da versão 6.12 e tá rodando certinho.


vou manda-la pro seu email mesmo assim.


Abraços..


Luiz Arruda


Corumbá-MS


ico.corumba@gmail.com  | 


http://www.facebook.com/profile.php?id=100000933378029


euchapeu.png


FiveWin 9.04


xHarbour


PellesC


Bcc



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		emotta
	

				
				
					
						
Apprentice
					
				
			

		

		

			

				


emotta
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Ico, a TFolderEx é grátis? Onde eu baixo ela? Não vi o link para download da classe no forum da fivetech. Se tiver pra me passar agradeço.


abraços





citação:
Bom dia.


Porque usar a SystabControl32 se a tFolder nativa de sua versão está 100% ?


Se for pra usar folders alternativos sugiro que usa a rFolder do Ricardo, é linda e funcional. e ainda Free icon_smile_big.gif


O Marcelo (elitenet) estava dando uns ajuste para usa-la com recursos, não sei se ele terminou, mais mesmo assim com @Say não deixa nada a desejar em ralação a esta aqui(Tfolderex)..


http://forums.fivetechsupport.com/viewtopic.php?f=6&t=19544


fldex1.png


Eu particularmente acho a rFolder até mais bonita... 


É só uma dica. 


Abraços..


Luiz Arruda


Corumbá-MS


ico.corumba@gmail.com  | 


http://www.facebook.com/profile.php?id=100000933378029


euchapeu.png


FiveWin 9.04


xHarbour


PellesC


Bcc


Editado por - ico on 20/09/2011  09:17:33




id=quote>id=quote>
Eduardo Motta


emotta@gmail.com.br


FWH 9.09 (original) - xHARBOUR 1.2.1 (comercial e original) - SQLRDD


AJbJ



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Luiz Arruda (ICO)
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Luiz Arruda (ICO)
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Ico, a TFolderEx é grátis? Onde eu baixo ela? Não vi o link para download da classe no forum da fivetech. Se tiver pra me passar agradeço.


abraços





citação:
Bom dia.


Porque usar a SystabControl32 se a tFolder nativa de sua versão está 100% ?


Se for pra usar folders alternativos sugiro que usa a rFolder do Ricardo, é linda e funcional. e ainda Free icon_smile_big.gif


O Marcelo (elitenet) estava dando uns ajuste para usa-la com recursos, não sei se ele terminou, mais mesmo assim com @Say não deixa nada a desejar em ralação a esta aqui(Tfolderex)..


http://forums.fivetechsupport.com/viewtopic.php?f=6&t=19544


fldex1.png


Eu particularmente acho a rFolder até mais bonita... 


É só uma dica. 


Abraços..


Luiz Arruda


Corumbá-MS


ico.corumba@gmail.com  | 


http://www.facebook.com/profile.php?id=100000933378029


euchapeu.png


FiveWin 9.04


xHarbour


PellesC


Bcc


Editado por - ico on 20/09/2011  09:17:33




id=quote>id=quote>
Eduardo Motta


emotta@gmail.com.br


FWH 9.09 (original) - xHARBOUR 1.2.1 (comercial e original) - SQLRDD


AJbJ




id=quote>id=quote>
Não, não é Free, ela é nativa das versões novas(não me lembro desde quando), foi disponibilizado somente um DEMO com o fonte sem a Classe, isso, mesmo antes dela ser incorporada ao FW.


Abraços..


PS: Vc conhece a rFolder ?


25piuk5.jpg


Luiz Arruda


Corumbá-MS


ico.corumba@gmail.com  | 


http://www.facebook.com/profile.php?id=100000933378029


euchapeu.png


FiveWin 9.04


xHarbour


PellesC


Bcc


Editado por - ico on 20/09/2011  18:00:44


Editado por - ico on 20/09/2011  18:04:10



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		oziel
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


oziel
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Resolvi...(SysTabControl32) ok.


Obrigado pelas dicas.


O problema de não funcionar o mouse estava relacionado com


a Caption que estava ativa (Caption-Yes) na janela principal,


vi que nas outras funcionava perfeito, então fiz um check-list.


Ico recebi o seu email - Obrigado.


Grato a todos.


?cid=c7aa5a53b531c1ae&sc=photos


OZIEL LOPES


FW 22c - Clipper 5.3b - Workshop 4.0


FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.


Editado por - oziel on 21/09/2011  11:23:35



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		emotta
	

				
				
					
						
Apprentice
					
				
			

		

		

			

				


emotta
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Vlw Ico, quando eu atualizar o fivewin vou colocar em pratica ela. Sobre a rFolder eu ja vi sim, muito bacana o visual, mas prefiro implementar a classe nativa por melhor compatibilidade.


Abraço e obrigado !





citação:



citação:
Ico, a TFolderEx é grátis? Onde eu baixo ela? Não vi o link para download da classe no forum da fivetech. Se tiver pra me passar agradeço.


abraços





citação:
Bom dia.


Porque usar a SystabControl32 se a tFolder nativa de sua versão está 100% ?


Se for pra usar folders alternativos sugiro que usa a rFolder do Ricardo, é linda e funcional. e ainda Free icon_smile_big.gif


O Marcelo (elitenet) estava dando uns ajuste para usa-la com recursos, não sei se ele terminou, mais mesmo assim com @Say não deixa nada a desejar em ralação a esta aqui(Tfolderex)..


http://forums.fivetechsupport.com/viewtopic.php?f=6&t=19544


fldex1.png


Eu particularmente acho a rFolder até mais bonita... 


É só uma dica. 


Abraços..


Luiz Arruda


Corumbá-MS


ico.corumba@gmail.com  | 


http://www.facebook.com/profile.php?id=100000933378029


euchapeu.png


FiveWin 9.04


xHarbour


PellesC


Bcc


Editado por - ico on 20/09/2011  09:17:33




id=quote>id=quote>
Eduardo Motta


emotta@gmail.com.br


FWH 9.09 (original) - xHARBOUR 1.2.1 (comercial e original) - SQLRDD


AJbJ




id=quote>id=quote>
Não, não é Free, ela é nativa das versões novas(não me lembro desde quando), foi disponibilizado somente um DEMO com o fonte sem a Classe, isso, mesmo antes dela ser incorporada ao FW.


Abraços..


PS: Vc conhece a rFolder ?


25piuk5.jpg


Luiz Arruda


Corumbá-MS


ico.corumba@gmail.com  | 


http://www.facebook.com/profile.php?id=100000933378029


euchapeu.png


FiveWin 9.04


xHarbour


PellesC


Bcc


Editado por - ico on 20/09/2011  18:00:44


Editado por - ico on 20/09/2011  18:04:10




id=quote>id=quote>
Eduardo Motta


emotta@gmail.com.br


FWH 9.09 (original) - xHARBOUR 1.2.1 (comercial e original) - SQLRDD


AJbJ



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





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