Sr. Manuel - TSBROWSE incremental search!

[MGA]

Sr. Manuel.

Como eu poderia fazer um incremental search com o TSBROWSE ?


*
**browse
*
redefine browse obrw2 id 4005 of odlg color CLR_BLACK,CLR_LGREEN font ofonte_res alias "srdic"

obRW2:nHeightCell := 28
obRW2:nHeightHead := 27
obRW2:nHeightSuper:= 27
obRW2:lMChange := .t.
obRW2:lDrawHeaders:= .t.
obRW2:lNoChangeOrd:= .t.
obRW2:lFooting := .f.
obRW2:lNoMoveCols := .f.
obRW2:lNoHScroll := .t.
obRW2:nFreeze := 4
bColor := {|| If(oBrw2:nLogicPos() % 2 = 0,CLR_LGRAY,CLR_LGREEN) }
obRW2:bKeyDown := {|nKey| if(nKey==VK_INSERT,fwhtradicmanut(.t.,oBrw2),;
if(nKey==VK_RETURN,fwhtradicmanut(.f.,oBrw2),;
if(nKey==VK_DELETE,fwhtraddel(oBrw2),)))}

obRW2:SetColor( { 1, 3, 4, 5, 6, 9, 10, 13, 15, 11, 12, 14 }, ;
{ CLR_BLACK,;
CLR_BLACK,;
nRGB(211, 227, 247),;
CLR_WHITE,;
CLR_HBLUE,;
CLR_BLACK,;
nRGB(211, 227, 247),;
CLR_BLACK,;
CLR_BLACK,;
CLR_BLACK,;
bColor,;
CLR_CREME} )
obrw2:refresh()

add column to browse obrw2 data srdic->traduzir title "Palavra";
size 165;
3dlook TRUE;
colors CLR_BLACK, bColor;
align DT_LEFT,DT_LEFT,DT_RIGHT


add column to browse obrw2 data srdic->tradp title "Português";
size 170;
3dlook TRUE;
colors CLR_BLACK, bColor;
align DT_LEFT,DT_LEFT

add column to browse obrw2 data srdic->trade title "Espanhol";
size 170;
3dlook TRUE;
colors CLR_BLACK, bColor;
align DT_LEFT,DT_LEFT

add column to browse obrw2 data srdic->tradi title "Inglês";
size 200;
3dlook TRUE;
colors CLR_BLACK, bColor;
align DT_LEFT,DT_LEFT

[mmercado]

Hola Ubiratan:

Como eu poderia fazer um incremental search com o TSBROWSE ?

Para activar la búsqueda incremental en TSBrowse, solamente debes incluír la cláusula ORDER al definir la columna cuyo dato es base en la clave del índice activo, Ejemplo:

Add Column To oBrw Data TuArchivo->Nombre Title "Nombre" ORDER "Index1"

En este ejemplo "Index1" podrá ser un archivo de índice (DBFNTX) o un TAG dentro de un contenedor de índices (DBFCDX).

Si quieres alternar índices puedes definir más de una columna con la cláusula ORDER y al hacer doble click en el encabezado de la columna, TSBrowse cambiará automáticamente el índice activo y consecuentemente la búsqueda incremental se efectuará sobre el nuevo índice activo.

Un abrazo.

[MGA]

Muito obrigado Sr. Manuel...

[MGA]

Sr. Manuel,

Fiz como o Sr. me indicou adicionei ORDER + tag, mais a pesquisa não funciona.