i like to request EDIT_LOGIC
This is implemented as:
- Code: Select all Expand view
oCol:SetCheck( [aBmps], [lEdit], [aPrompts]
Parameters:
aBmps: Optional. Array or 2 or 3 bitmaps to be displayed when the value is .T., .F., nil. If omitted, xbrowse provides default bitmaps which look like checkboxes.
lEdit: Optional: Value .T. indicates that the column can be edited by the user. Pressing <space>,<enter> or double click toggles the logical value.
aPrompts: Optional: If specified, displays the prompt in addition to the bitmap.
Usage:
Most common: oCol:SetCheck( nil, .t. )
or
oCol:setCheck( { bmpOn, bmpOff, bmpNil }, .t., { "Married", "Single" } )
If the browse has more than one logical column, we can globally set for all logical columns by:
oBrw:SetChecks( ... )