Page 1 of 1

TSBROWSE ARRAY C/BTNGET

PostPosted: Sat Apr 11, 2009 3:34 pm
by Sdo
Olá, a todos !

Como faço para colocar um botão de ação em uma celula array ?

ADD COLUMN TO BROWSE oLbx DATA ARRAY ELEMENT 1;
TITLE "Col 1" ;
SIZE 120 EDITABLE check; // this column is editable
COLORS CLR_BLACK, bColor; // background color from a Code Block
3DLOOK TRUE, TRUE, TRUE; // cells, titles, footers
MOVE DT_MOVE_NEXT; // cursor goes to next editable column
VALID { | uVar | ! Empty( uVar ) }; // don't want empty rows
ALIGN DT_LEFT, DT_CENTER, DT_RIGHT; // cells, title, footer
FOOTER "Totals->"

Gostaria de apresentar um botão de pesquisa, como o botão abaixo.

oBrw[ 7 ]:SetBtnGet( 6, "Help16", { | oGet, cVar | ;
aRect := GetCoors( oGet:hWnd ), cVar := oGet:Value(), ;
cVar := PESQUISAPRODUTO( cVar, aRect[ 1 ], aRect[ 2 ], oGet:oWnd ), ;
oGet:cText( cVar ), oGet:Refresh(), oGet:KeyDown( VK_RETURN, 0 ) }, 16 )


Grato a todos !

Sergio...

Re: TSBROWSE ARRAY C/BTNGET

PostPosted: Sat Apr 11, 2009 4:32 pm
by mmercado
Sdo wrote: Gostaria de apresentar um botão de pesquisa, como o botão abaixo.

oBrw[ 7 ]:SetBtnGet( 6, "Help16", { | oGet, cVar | ;
aRect := GetCoors( oGet:hWnd ), cVar := oGet:Value(), ;
cVar := PESQUISAPRODUTO( cVar, aRect[ 1 ], aRect[ 2 ], oGet:oWnd ), ;
oGet:cText( cVar ), oGet:Refresh(), oGet:KeyDown( VK_RETURN, 0 ) }, 16 )
Hola Sergio:

Lo puedes hacer tal como lo muestras, de acuerdo con la sintaxis del método SetBtnGet():

oLbx:SetBtnGet( nColumn, cResName, bAction, nBmpSize )

En el caso que muestras nColumn es igual a 6, cResName es igual a "Help16", bAction es igual a:
{ | oGet, cVar | aRect := GetCoors( oGet:hWnd ), cVar := oGet:Value(), ;
cVar := PESQUISAPRODUTO( cVar, aRect[ 1 ], aRect[ 2 ], oGet:oWnd ), ;
oGet:cText( cVar ), oGet:Refresh(), oGet:KeyDown( VK_RETURN, 0 ) } y nBmpSize es igual a 16

Recuerda que la columna deberá definirse como EDITABLE

Espero haber ayudado, quedo a tus órdenes para mayor información.

Un abrazo.

Manuel Mercado.

Re: TSBROWSE ARRAY C/BTNGET

PostPosted: Sat Apr 11, 2009 4:56 pm
by Sdo
Sr. Manuel Mercado,

Como sempre, muito prestativo. Funcionou perfeitamente, muito obrigado e um grande abraço.

Sergio....

Re: TSBROWSE ARRAY C/BTNGET

PostPosted: Sun Apr 12, 2009 1:59 am
by jbrita
Amigo con array puedes pero debes paginar el browse igual como lo hace el google por pagina solo tienes que ir filtrando y listo
saludos