logic value in txbrowse cell

[Detlef]

Hi all,

I have an issue with a logic cell in my txBrowse.
Column 4 represents a field of type "L".

Code: Select all  Expand view  RUN

WITH OBJECT oBrw:aCols[ 4 ]
      :SetCheck()
      :bLDClickData := { || pos->okay := !pos->okay, oBrw:Refresh() }  
END
 

Now I can toggle the cell value by doubleclick.
But I can't toggle with no keypress at all.

What do I miss?

[Marc Venken]

I use this to toggle a Logic field with F2 Key

oBrw[1]:bKeyDown := {| k | IF ( K == VK_F2, if(oBrw[1]:uitass:value = .f., oBrw[1]:uitass:Varput( .t. ), oBrw[1]:uitass:Varput( .F. ) ) , NIL ) }

[Detlef]

Thanks, Marc.
Your idea works for me.

[nageswaragunupudi]

Code: Select all  Expand view  RUN

WITH OBJECT oBrw:aCols[ 4 ]
      :SetCheck( nil, .t. )  // .t. means :nEditType := EDIT_GET
//      :bLDClickData := { || pos->okay := !pos->okay, oBrw:Refresh() }  // not required
END
 

Double click on cell automatically toggles the value.
If marqueestyle <= 4, <Space> key toggles the value.

[Detlef]

Thanks for your suggests, Mr. Rao.
It works fine now.