Jump to content
Fivewin Brasil

xBrowse - Entrar no modo de edição com [ENTER]

Orlando FMC

By Orlando FMC
in Programação

 Share

Recommended Posts

Orlando FMC Newbie

Orlando FMC

Posted
Posted

Mestres,

No xBrowse não consigo entrar no modo de edição de coluna usando a tecla [ENTER].

Só entra com duplo clique.

Entrar já digitando o conteúdo também funciona, mas, não é conveniente se for para EDITAR conteúdo já existente no campo, pois, neste caso, todo o conteúdo é apagado, tendo que digitar tudo de novo.

Já vi exemplos no SAMPLES que funcionam, porem todos usando "@ SAY". No meu caso, usando recursos do Pelles, não consigo fazer funcionar.

Vi também alguns tópicos sobe isso (http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=17914, http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=14471),

mas, parece que não ficou resolvido.

Orlando F Martins da Costa

Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC

orlandofmc@yahoo.com.br

Belo Horizonte - MG

Link to comment
Share on other sites
Orlando FMC Newbie

Orlando FMC

Posted
  • Author
Posted

Mestres,

No xBrowse não consigo entrar no modo de edição de coluna usando a tecla [ENTER].

Só entra com duplo clique.

Entrar já digitando o conteúdo também funciona, mas, não é conveniente se for para EDITAR conteúdo já existente no campo, pois, neste caso, todo o conteúdo é apagado, tendo que digitar tudo de novo.

Já vi exemplos no SAMPLES que funcionam, porem todos usando "@ SAY". No meu caso, usando recursos do Pelles, não consigo fazer funcionar.

Vi também alguns tópicos sobe isso (http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=17914, http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=14471),

mas, parece que não ficou resolvido.

Orlando F Martins da Costa

Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC

orlandofmc@yahoo.com.br

Belo Horizonte - MG

Link to comment
Share on other sites
aferra Newbie

aferra

Posted
Posted

Ola Orlando.

Vc tem que criar um custom control no pelles para o Xbrowse.

Vá no menu Dialog -> New Custom -> em Class name coloque TXBROWSE -> em Style coloque 0x50B10000.

pronto, sair usando.

Um grande Abraço

Alessandroid=blue>

FW9.07 + xHb121 + CDX

Fico feliz com os Meus erros, pois eles me apontam a direção para o acerto.id=red>

Link to comment
Share on other sites
Geo_sts Newbie

Geo_sts

Posted
Posted

add no Xbrowse

oBrw:bKeyDown:={|nKey| IIF(nKey=VK_RETURN,altera(oBrw),)}

craio q seja isso q precisa!

abraço.

Geovanni Holior

Analista de Sistema

Clip55 * FHW 11 /xHarbour /MySql/ (sql)/Minigui

skype:geovanni.holior

www.tecnologeo.com.br

" Tudu Posso naquele que me Fortalece!"

Link to comment
Share on other sites
Orlando FMC Newbie

Orlando FMC

Posted
  • Author
Posted

- Aokisantos -> as suas indicações estão feitas no PRG.

- Alessando -> Criei o new custom, como você incicou, mas, não alterou nada.

- Geovanni Holior -> oBrw:bKeyDown:={|nKey| IIF(nKey=VK_RETURN,altera(oBrw),)} -> não resolveu.

Tem uma situação interessante, que está acontecendo depois que adquiri a versão FW [x]Harbour 11.10:

Em algumas rotinas, ao clicar em um BOTÃO (1 única vez) a açao pertinente é executada 2 vezes.

É como se eu tivesse clicado 2 vezes. Exemplo: botão [iNCLUIR REGISTRO] -> clica 1 vez, mas inclue 2 registros.

Não tem nada de diferente no programa. E não consigo identificar o porque isso está acontecendo.

Estou colocando isso aqui, porque talvez esteja acontecendo o mesmo ao teclar [ENTER] sobre o campo do xBrowse. O campo "pisca" mas não aceita a edição. É como se tivesse pressionado [ENTER] 2 vezes, como no caso relatado acima.

Embora, já tenha visto este problema relatado por outros colegas, como nos links que coloquei no início do tópico.

Vejam o xBrowse:

// Browse oBrw1, em AA1

oBrw1:= TxBrowse():New( oFld:aDialogs[1] )

oBrw1:lFastEdit := .t.

oBrw1:CreateFromResource( 4001 )

oBrw1:nMoveType := MOVE_NONE

oBrw1:nMarqueeStyle := MARQSTYLE_HIGHLCELL

oBrw1:nColDividerStyle := LINESTYLE_BLACK

oBrw1:nRowDividerStyle := LINESTYLE_BLACK

oBrw1:lColDividerComplete := .t.

oBrw1:nDatalines := 1

oBrw1:lHScroll := .n.

oBrw1:lFooter := .t.

oBrw1:bChange := {|| oBrw1:MakeTotals(),oBrw1:Refresh() }

oBrw1:bClrSel:={ || { CLR_WHITE,CLR_BLUE } }

// COLUNAS:

nC=0 // nº da Coluna

// Nome

nC++

oCol := oBrw1:AddCol()

oCol:cHeader := "Nome"

oCol:nWidth := 320 * KAA1_ComprCampos

* oCol:cEditPicture := '@'

oCol:bEditValue := { || FICHA_CL->NOME______ }

oCol:bStrData := { || FICHA_CL->NOME______ }

* oCol:nDataStyle := oCol:DefStyle( AL_LEFT, .T.)

oCol:nEditType := EDIT_GET

* oCol:nEditType := 1 // = EDIT_GET

oBrw1:aCols[nC]:bClrStd := {|| IIF( SEXO______="F" , {nRGB(0,0,0),nRGB(255,174,201)} , IIF( SEXO______="M" ,{nRGB(0,0,0),nRGB(161,197,235)},{nRGB(000,000,000),nRGB(255,255,255)}) ) }

oBrw1:aCols[nc]:cToolTip := {"Clique c/ botão direito do mouse e"+CRLF+"desmarque as colunas que não deseja,"+CRLF+"nesta sessão.","DICA!","",nRGB(255,255,255),nRGB(58,116,241) }

// EDIÇÃO DA COLUNA:

oCol:bonPostEdit := { | oCol, uValue, nLastkey | if( nLastkey == 13, (RLock(), FICHA_CL->NOME______ := uValue, dbCommit() ), nil )}

Orlando F Martins da Costa

Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC

orlandofmc@yahoo.com.br

Belo Horizonte - MG

Editado por - orlandof on 22/06/2012 17:17:43

Editado por - orlandof on 22/06/2012 17:18:34

Link to comment
Share on other sites
Geo_sts Newbie

Geo_sts

Posted
Posted

oCol:bOnPostEdit = { | oCol, xVal, nKey | If( RecCount() == 0, ( DbAppend(), oBrw:Refresh() ),), If( nKey == VK_RETURN, Customer->First := xVal,) }

Faz assim q funfa!!

Geovanni Holior

Analista de Sistema

Clip55 * FHW 11 /xHarbour /MySql/ (sql)/Minigui

skype:geovanni.holior

www.tecnologeo.com.br

" Tudu Posso naquele que me Fortalece!"

Link to comment
Share on other sites
Orlando FMC Newbie

Orlando FMC

Posted
  • Author
Posted

citação:

oCol:bOnPostEdit = { | oCol, xVal, nKey | If( RecCount() == 0, ( DbAppend(), oBrw:Refresh() ),), If( nKey == VK_RETURN, Customer->First := xVal,) }

Faz assim q funfa!!

Geovanni Holior

Analista de Sistema

Clip55 * FHW 11 /xHarbour /MySql/ (sql)/Minigui

skype:geovanni.holior

www.tecnologeo.com.br

" Tudu Posso naquele que me Fortalece!"

id=quote>id=quote>

Geovanni,

O objetivo é editar uma célula, e não acrescentar registro.

Orlando F Martins da Costa

Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC

orlandofmc@yahoo.com.br

Belo Horizonte - MG

Editado por - orlandof on 23/06/2012 15:41:57

Link to comment
Share on other sites
Orlando FMC Newbie

Orlando FMC

Posted
  • Author
Posted

Obrigado Aokisantos, mas não funcionou.

Agradeço também ao Alessandro e ao Geovanni, que estão tentando ajudar.

Estou desconfiado de uma situação que está ocorrendo, mas que ainda não consegui descobrir a razão, como descrevi acima:

ao acionar um botão, em alguns casos, a ação definida é executada 2 vezes, sempre.

Parece ser o mesmo caso da edição destas colunas do xBrowse, pois a célula "pisca" como se eu tivesse acionado 2 vezes a tecla [ENTER].

Por isto não é é possível editar a célula.

Orlando F Martins da Costa

Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC

orlandofmc@yahoo.com.br

Belo Horizonte - MG

Link to comment
Share on other sites
aferra Newbie

aferra

Posted
Posted

Bom dia.

Orlando está é a forma que uso para edição de celulas. veja se ajuda.



@ 030,03 XBROWSE oBrwRua1 SIZE 435,140 PIXEL OF oDlgRua1 ;


		COLUMNS "rua", "mun", "bai", "cep", "est", "nbm", "ddd" ;


      DATASOURCE oDbfRua ;


      AUTOSORT CELL LINES NOBORDER FASTEDIT


   WITH OBJECT oBrwRua1


      :rua:cHeader := "Rua"


      :mun:cHeader := "Município"


      :bai:cHeader := "Bairro"


      :cep:cEditPicture := "@R 99999-999"


      :cep:nDataStrAlign := AL_CENTER


		:cep:cHeader := "CEP"


		:est:nDataStrAlign:=AL_CENTER


      :est:cHeader := "UF"


      :nbm:cHeader := "IBGE"


      :ddd:nDataStrAlign:=AL_CENTER


		:ddd:cHeader := "DDD"


		:nMarqueeStyle    := MARQSTYLE_HIGHLROWRC


		:nColDividerStyle := LINESTYLE_BLACK


		:nRowDividerStyle := LINESTYLE_BLACK


		:lRecordSelector  := .F.


		:lAllowColSwapping:= .F.  //Trocar Colunas


		:lAllowRowSizing  := .F.  //Nao move as Linhas


		:lHScroll:=.F.


		:nRowHeight:=16


		:nEditTypes             := EDIT_GET


      :nStretchCol            := STRETCHCOL_WIDEST


      :CreateFromCode()


   END


id=code>id=code>
Um grande Abraço


Alessandroid=blue>


FW9.07 + xHb121 + CDX


Fico feliz com os Meus erros, pois eles me apontam a direção para o acerto.id=red>



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





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