FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Problemas com la barra de la selecci贸n..xbrowse..twbrowse..
Ale SB
Posts: 248
Joined: Wed Jan 11, 2006 11:30 AM
Problemas com la barra de la selecci贸n..xbrowse..twbrowse..
Posted: Thu Nov 22, 2007 04:13 AM

Yo tengo un Di谩logo con un Browse y algunos botones que yo uso para cambiar de 铆ndice, pero, cuando cambiando la barra de la selecci贸n de 脥ndice 茅l no va a la 1潞 registraci贸n de Browse, se detiene en la misma registraci贸n.

Yo prob茅 con TwBrowse nativo de FW y con el xBrowse.

En el caso del xBrowse la situaci贸n es m谩s peor, el 铆ndice empieza donde esto detuvo la barra de la selecci贸n y no avanza hacia arriba.

http://www.sbsistemas.eti.br/Bmp/errobrowse.JPG

Ya con Twbrowse de Hernan, funciona perfectamente.

驴C贸mo yo puedo resolver esta situaci贸n?

Saluds

aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, voc锚 n茫o subtrai quando divide; mas soma e multiplica."
**---M谩rio Persona---**
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Problemas com la barra de la selecci贸n..xbrowse..twbrowse..
Posted: Thu Nov 22, 2007 08:13 AM

Ale,

Puedes hacer:

oBrw:GoTop()
DbSeek( <valor> )
oBrw:Refresh()

regards, saludos

Antonio Linares
www.fivetechsoft.com
Ale SB
Posts: 248
Joined: Wed Jan 11, 2006 11:30 AM
Problemas com la barra de la selecci贸n..xbrowse..twbrowse..
Posted: Thu Nov 22, 2007 03:20 PM

Perfect, Mestre !

Saluds

aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, voc锚 n茫o subtrai quando divide; mas soma e multiplica."
**---M谩rio Persona---**
Ale SB
Posts: 248
Joined: Wed Jan 11, 2006 11:30 AM
Problemas com la barra de la selecci贸n..xbrowse..twbrowse..
Posted: Thu Nov 22, 2007 04:19 PM
Antonio...

Delcupe-yo ..I s贸lo hab铆a probado con TwBrowse de Fivewin.

Ahora yo prob茅 con el xBrowse y el problema de la barra de la selecci贸n contin煤a, los 铆ndices son perfectos, pero, la barra de la selecci贸n no se levanta para la 1潞 registraci贸n.

Cuando cambiando la barra de 铆ndice 茅l se posiciona en la registraci贸n seleccionada y m铆 la necesidad Barra para levantarse para la 1潞 registraci贸n.

驴Qu茅 yo puedo estar haciendo extraviarse?

Code: Select all Collapse
#include "FiveWin.ch"
#include ".\include\AleSB.Ch"  //--> Minhas Fontes e Cores
#include "xbrowse.ch" 

FUNCTION Brw_Contatos()

 local oDlg, oBrw, oCol, oBtn[8], oFont
 
 USE .\SB_Dados\contatos.dbf Alias Contatos NEW VIA "DBFCDX"
      INDEX ON nome TAG inome TO ixContTable
      INDEX ON sobr TAG isobr TO ixContTable
      INDEX ON ende TAG iende TO ixContTable
      INDEX ON cida TAG icida TO ixContTable              
      INDEX ON codi TAG icodi TO ixContTable
     
   dbSetIndex("ixContTable")   
   OrdSetFocus("inome")
   DbGotop()
   
  
  DEFINE DIALOG oDlg RESOURCE 1001 TITLE "LISTA DOS CONTATOS" 
     oDlg:oFont:=Arial12B
     oDlg:lTransparent:=.T.
  
     oBrw := TXBrowse():New( oDlg )     
       oBrw:CreateFromResource( 101 )  //--> Chamada ao Resource Browse.
       oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW  //--> Estilo da barra de sele莽ao.       
       oBrw:bClrSelFocus := {|| { CLR_BRANCO, CLR_PRETO } }  //--> Cor da barra de sele莽ao.
       oBrw:bGotop:= {|| oBrw:gotop() } 

       oCol:= oBrw:AddCol()
       oCol:bStrData := { || STR(codi)}
       oCol:cHeader := "C脫DIGO"
       
       oCol:= oBrw:AddCol()
       oCol:bStrData := { || nome}
       oCol:cHeader := "NOME"
      
       oCol:= oBrw:AddCol()
       oCol:bStrData := { || sobr}
       oCol:cHeader := "SOBRENOME"
       
       oCol:= oBrw:AddCol()
       oCol:bStrData := { || ende}
       oCol:cHeader := "ENDERE脟O"
       
       oCol:= oBrw:AddCol()
       oCol:bStrData := { || ncep}
       oCol:cHeader := "CEP"
       
       oCol:= oBrw:AddCol()
       oCol:bStrData := { || cida}
       oCol:cHeader := "CIDADE"
       
       oCol:= oBrw:AddCol()
       oCol:bStrData := { || esta}
       oCol:cHeader := "UF"
       
       oCol:= oBrw:AddCol()
       oCol:bStrData := { || obs1}
       oCol:cHeader := "NOTAS"
		 
       oBrw:SetRDD(.F.)  //--> Add todos os campos do DBF.      
       


	  REDEFINE BUTTON oBtn[5] PROMPT "Nome"      ID 705 OF oDlg   ;
        ACTION ( _Ordem(oBrw,"inome"), oBrw:SetFocus() )  UPDATE
     REDEFINE BUTTON oBtn[6] PROMPT "Sobrenome" ID 706 OF oDlg   ;
        ACTION ( _Ordem(oBrw,"isobr"), oBrw:SetFocus() )  UPDATE
     REDEFINE BUTTON oBtn[7] PROMPT "Ender."    ID 707 OF oDlg   ;
        ACTION ( _Ordem(oBrw,"iende"), oBrw:SetFocus() )  UPDATE        
     REDEFINE BUTTON oBtn[8] PROMPT "Cidade"    ID 708 OF oDlg   ;
        ACTION ( _Ordem(oBrw,"icida"), oBrw:SetFocus() )  UPDATE
     FOR i = 1 TO 8
         oBtn[i]:oFont:= Courier12         
     NEXT    
     
                 
 ACTIVATE DIALOG oDlg CENTERED VALID lSair 

 CLOSE DATA

RETURN nil
*****************************
****************************
STATIC FUNCTION _Ordem(_oBrw,cTag)

  OrdSetFocus(cTag)
  _oBrw:bGotop := {|| _oBrw:gotop() }   
  _oBrw:Refresh()
 
 Return .T.


Saluds
aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, voc锚 n茫o subtrai quando divide; mas soma e multiplica."
**---M谩rio Persona---**
Ale SB
Posts: 248
Joined: Wed Jan 11, 2006 11:30 AM
Problemas com la barra de la selecci贸n..xbrowse..twbrowse..
Posted: Tue Nov 27, 2007 06:59 PM

Antonio...ainda no consegui resolver el problema de la barra de la selecci贸n com la xbrowse.

Como comentei arriba.

Saluds

aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, voc锚 n茫o subtrai quando divide; mas soma e multiplica."
**---M谩rio Persona---**
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Problemas com la barra de la selecci贸n..xbrowse..twbrowse..
Posted: Tue Nov 27, 2007 07:45 PM
Prueba as铆:
Code: Select all Collapse
STATIC FUNCTION _Ordem(_oBrw,cTag) 

  OrdSetFocus(cTag)
  DbGoTop()  
  _oBrw:GoTop()    
  _oBrw:Refresh() 
  
 Return .T.
regards, saludos

Antonio Linares
www.fivetechsoft.com
Ale SB
Posts: 248
Joined: Wed Jan 11, 2006 11:30 AM
Problemas com la barra de la selecci贸n..xbrowse..twbrowse..
Posted: Tue Nov 27, 2007 10:09 PM
Gracias Antonio, foi resolvido assim:

Code: Select all Collapse
oBrw := TXBrowse():New( oDlg )      
       oBrw:CreateFromResource( 101 )  //--> Chamada ao Resource Browse. 
       oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW  //--> Estilo da barra de sele莽ao.        
       oBrw:bClrSelFocus := {|| { CLR_BRANCO, CLR_PRETO } }  //--> Cor da barra de sele莽ao. 

      // oBrw:bGotop:={|| oBrw:gotop() } //-->El metodo bGotop, estava desestabilizando el xBrowse 

       oCol:= oBrw:AddCol() 
       oCol:bStrData := { || STR(codi)} 
       oCol:cHeader := "C脫DIGO"


Code: Select all Collapse
STATIC FUNCTION _Ordem(_oBrw,cTag)

  OrdSetFocus(cTag)  
  _oBrw:GoTop() 
  _oBrw:Refresh()


Saluds
aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, voc锚 n茫o subtrai quando divide; mas soma e multiplica."
**---M谩rio Persona---**

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions