Página 1 de 1
tbrowse usando barra de navegação como no dbedit()
Enviado: 02 Ago 2005 10:00
por 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é
Enviado: 02 Ago 2005 10:53
por 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
Enviado: 03 Ago 2005 17:37
por 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
tbrowse usando barra de navegação como no dbedit()
Enviado: 24 Jun 2012 03:51
por 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 })
tbrowse usando barra de navegação como no dbedit()
Enviado: 25 Jun 2012 18:08
por 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.
tbrowse usando barra de navegação como no dbedit()
Enviado: 21 Fev 2013 15:44
por 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.
