Página 1 de 1

selecao de registro no tbrowse

Enviado: 10 Fev 2005 18:12
por clauber
galea eh o seguinte, quando se usa o dbedit, ao se navegar pelo browse com as teclas de navegacao, fica selecinado por coluna,(celua) tipo excel, se eu fizer a mesma navegacao usando o tbrowse ele seleciona a linha inteira, ou seja, no dbedit a selecao eh por celula e no tbrowse eh por coluna, como selecoiono por celula tambem no tbrose ??

Enviado: 10 Fev 2005 19:10
por Alessandro
Como vc está montando seu browse?

Não especifique nada em COLORRECT.

Se quiser posso lhe mandar um exemplo de browse.

OK

Enviado: 10 Fev 2005 19:12
por Alessandro
Utilizo dessa forma.



FUNCTION BROW_CLI(NTOPO,NESQ,NBASE,NDIR,AREA,PROCURA)
local TELA ,;
OBJETO ,;
OBJ_COL ,;
NKEY
TELA := savescreen(00,00,24,79)
select &AREA
OBJETO := TBrowseDB(NTOPO,NESQ,NBASE,NDIR)
OBJETO : headSep := chr(196) + chr(194) + chr(196)
OBJETO : colSep := " " + chr(179)
OBJETO : footSep := chr(196) + chr(193) + chr(196)
OBJ_COL1 := TBcolumnNew(" ",{ || left(RAZAO_SOC,39) })
OBJ_COL1 : heading := "Raz†o Social ou Nome"
OBJ_COL2 := TBcolumnNew(" ",{ || left(CMT_CRED,24) })
OBJ_COL2 : heading := "Coment rio"
OBJ_COL3 := TBcolumnNew(" ",{ || TELEFONE })
OBJ_COL3 : heading := "Telefone"
OBJETO : addColumn(OBJ_COL1)
OBJETO : addColumn(OBJ_COL2)
OBJETO : addColumn(OBJ_COL3)
do while .t.
do while ( !OBJETO:stabilize() )
nkey := inkey()
if nkey # 0
exit
endif
enddo
if OBJETO:stable
nkey := inkey(0)
endif
if nkey == K_UP
OBJETO:up()
elseif nkey == K_HOME
VER_CAD_CL()
elseif nkey == K_F3 .or. nkey == K_F10 .or. nkey == K_F4
ME_EMP := CODIGO
RAZ_CLI := left(RAZAO_SOC,27)
if nPESQ_CL == 1
PESQ_DPL()
select sCLIENTES ; AREA := sCLIENTES
else
PESQ_CHQ()
select sCLI_CHQ ; AREA := sCLI_CHQ
endif
OBJETO:refreshAll()
elseif nkey == K_F6
if .not. empty(PROCURA)
XX = &PROCURA
select &AREA
endif
OBJETO:refreshAll()
elseif nkey == K_DOWN
OBJETO:down()
elseif nkey == K_PGUP
OBJETO:pageUp()
elseif nkey == K_LEFT
OBJETO:left()
elseif nkey == K_RIGHT
OBJETO:right()
elseif nkey == K_PGDN
OBJETO:pageDown()
elseif nkey == K_ESC
select sPRODUTOS
AREA := sPRODUTOS
restscreen(00,00,24,79,TELA)
@ 00,00 clear to 24,79
return .t.
endif
enddo
return .t.

Enviado: 10 Fev 2005 19:51
por clauber
ok vou tentar ! ! !