Problemas com la barra de la selección..xbrowse..twbrowse..

[Ale SB]

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

[Antonio Linares]

Ale,

Puedes hacer:

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

[Ale SB]

Perfect, Mestre !

Saluds

[Ale SB]

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  Expand view

#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

[Ale SB]

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

Como comentei arriba.

Saluds

[Antonio Linares]

Prueba así:

Code: Select all  Expand view

STATIC FUNCTION _Ordem(_oBrw,cTag)

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


[Ale SB]

Gracias Antonio, foi resolvido assim:

Code: Select all  Expand view

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  Expand view

STATIC FUNCTION _Ordem(_oBrw,cTag)

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


Saluds