topic-15234

Posts: 23

Joined: Wed Apr 09, 2008 05:00 PM

TSBROWSE ARRAY C/BTNGET
Posted: Sat Apr 11, 2009 03:34 PM

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 &quot;Col 1&quot; ;
   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 &quot;Totals-&gt;&quot;

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

  oBrw[ 7 ]:SetBtnGet( 6, &quot;Help16&quot;, { | 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...

FWH 9.07 - xHarbour 1.1.0 (Simplex) - PELLES C xDev 0.65

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

Re: TSBROWSE ARRAY C/BTNGET
Posted: Sat Apr 11, 2009 04:32 PM

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.

manuelmercado at prodigy dot net dot mx

Sdo

Posts: 23

Joined: Wed Apr 09, 2008 05:00 PM

Re: TSBROWSE ARRAY C/BTNGET
Posted: Sat Apr 11, 2009 04:56 PM

Sr. Manuel Mercado,

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

Sergio....

FWH 9.07 - xHarbour 1.1.0 (Simplex) - PELLES C xDev 0.65

jbrita

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

Re: TSBROWSE ARRAY C/BTNGET
Posted: Sun Apr 12, 2009 01:59 AM

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

FiveTech Support Forums

Continue the discussion