tbrowse usando barra de navegação como no dbedit()

[joseduarte]

prezados amigos,

estou tentando fazer o tbrowse utilizar um recurso que eu acho interessante na dbedit(), que é, quando vc está em cima de um registro, criar uma barra que não fica somente no primeiro campo, mas que pega todos, e isso eu não consigo fazer. já pensei até em usar a dbedit(), mas ai seria voltar muito no tempo, não acham ! será que alguém aqui no fórum já passou por isso e resolveu ??
conto com a ajuda de vcs !

josé

[janio]

Olá,

Tente assim:

Código: Selecionar todos

      ....
      ....
      ....
      while ( .t. ) 

         setcursor (0)    // pro cursor nao ficar piscando

         while ( !oCorpo2:stabilize () ) 
         enddo 

         // para deixar selecionada toda a linha 
         COLORWIN(05,02,15,77,"W+/BG+")     // cor da janela
         COLORWIN(ROW(),03,ROW(),76,"N/W") // cor de destaque

         nTecla := inkey (0) 

         do case 
         case ( nTecla == K_ESC ) 
         ....
         ....

Eu utilizo assim e FUNCIONA!

COLORWIN, se eu não me engano, é uma função da CTP.LIB.

Um abraço,

Janio

[lima]

Olá,

Eu utilizo da seguinte maneira:-

Código: Selecionar todos

WHILE .T.
   obj:colorRect({obj:rowPos, 1, obj:rowPos,obj:colCount},{1,1})
WHILE ( !obj:stabilize() )
   wteclas:= INKEY()
  IF ( wteclas != 0 )
     EXIT
  ENDif
ENDDO
   obj:refreshAll()
   ForceStable( obj )
   obj:colorRect({obj:rowPos, 1, obj:rowPos,obj:colCount},{2,2})
   wteclas:= INKEY(0)
   ... bla bla
   ... bla bla
ENDDO

Até mais

Lima

[Vlademiro]

:{

Funcionou perfeitamente, apenas troquei ForceStable de lugar conf. abaixo :

Código: Selecionar todos

oBrw:colorRect({oBrw:RowPos,1,oBrw:RowPos,oBrw:ColCount},{ 1 , 1  })
DO WHILE !oBrw:stabilize() .AND. NEXTKEY()=0
 ENDDO
 
oBrw:refreshAll()
oBrw:ForceStable()
 oBrw:colorRect({oBrw:RowPos,1,oBrw:RowPos,oBrw:ColCount},{ 2 , 2  })

[Zeca Roque]

Olá a todos!!!

Eu faço da seguinte maneira, inclusive mudando a cor da linha de acordo com a situação.

É meio comprido, porisso estou anexando

Não sei se vai chegar porque é a primeira vez que anexo um arquivo.

TABWHILE.PRG

(44.42 KiB) Baixado 301 vezes

[Jeferson]

Boa tarde, Zeca.

Veja bem, tomei a liberdade de baixar o seu .prg para testar e me defrontei com um erro.
Ele reclama a inexistencia do arquivo cor.ch.
Como posso obtê-lo?

Grato pela atenção.


Jeferson.