topic-22959

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

xBrowse - SetCheck()
Posted: Sat Nov 26, 2011 01:47 AM

Estimados;
Tengo un xbrowse que muestra datos de una Tabla, conectado mediante MariaDB.
Lo que pretendo es adicionar a las columnas de datos que tomo de la Tabla, una columna SetCheck().
Leyendo en el foro, encontré la forma de agregar una columna sin que esta sea de la Tabla y el codigo es el siguiente:

Code (fw): Select all Collapse

   WITH OBJECT ::oLstIns:Selec:= {|| aScan( ::oLstIns:aSelected, { |n| n == ::oLstIns:BookMark } ) > 0 }
      :cHeader := "Sel"
      :nWidth  := 25
      :nHeadStralign:= AL_CENTER
      :SetCheck()
   END

El resultado visual es el esperado... aunque no es todo lo que pretendo. Lo que necesito es cambiar el estado de la columna :Selec. He probado con dobleclic y no se produce ningun cambio,
que me falta?
Y si además quisiera, tambien, dejar la posibilidad de marcar/desmarcar mediante la barra espaciadora del teclado?. Como sería?

desde ya muchas gracias

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: xBrowse - SetCheck()
Posted: Sat Nov 26, 2011 02:10 AM

Mario

Debes tener en cuenta que aunque cambies el valor hasta que no lo almecenes en la base de datos ese cambio no sucedera, cuando el xbrowse refresca vuelve a hacer una lectura de las filas visibles del xbrowse dentro del recordset, el segundo parametro del metodo SetCheck es el codeblock bOnPostEdit, puedes hacer un UPDATE desde alli

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

anserkk

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Re: xBrowse - SetCheck()
Posted: Sat Nov 26, 2011 05:48 AM

MarioG wrote:Y si además quisiera, tambien, dejar la posibilidad de marcar/desmarcar mediante la barra espaciadora del teclado?. Como sería?

Code (fw): Select all Collapse

// Use either Enterkey or Spacebar to change the value in Checkbox
oBrw:bKeyDown= {|nKey|  if ( nKey  == VK_RETURN .or. nKey == VK_SPACE, "YourRoutine" ,  ) }

Regards
Anser

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: xBrowse - SetCheck()
Posted: Sat Nov 26, 2011 11:47 AM

Gente;
muchas gracias por las respuestas

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

FiveTech Support Forums

Continue the discussion