Add a Checkbox() column

[Natter]

Hi,

There is xBrowse(). At some point I need to add a Checkbox() column to it.
However, it does not work. Tell me what I'm wrong about ?

Code: Select all  Expand view  RUN

oDlg:oClient:aCols[2]:bClrBtn:=&('{||{'+ltrim(str(CLR_BLACK))+','+ltrim(str(CLR_WHITE))+'}}')
 oDlg:oClient:aCols[2]:cHeader:=""
 oDlg:oClient:aCols[2]:SetCheck(, .T.)
 oDlg:oClient:aCols[2]:nWidth:=20

[Marc Venken]

viewtopic.php?f=3&t=36197

viewtopic.php?f=3&t=36959

[Natter]

I was asking about adding a checkbox column to a working browser, not about creating a browser with such a column

[nageswaragunupudi]

First you need to add a column with all logical values.
Then Set oCol:SetCheck(,.T. )

[Natter]

Instead of setcheck(, .T.), I used the icons and everything worked fine

Code: Select all  Expand view  RUN

 oDlg:oClient:aCols[2]:lBmpTransparent:= .T.
        oDlg:oClient:aCols[2]:AddBitmap( { "p_chk1", "p_chk2" } )
        oDlg:oClient:aCols[2]:bBmpData:={||iif(oDlg:oClient:aRow[2],2,1)}
        oDlg:oClient:aCols[2]:bStrData:=NIL
        oDlg:oClient:aCols[2]:bLDClickData:={||oDlg:oClient:aRow[2]:=! oDlg:oClient:aRow[2]})

[nageswaragunupudi]

5 lines of the code above can be reduced to a single line

Code: Select all  Expand view  RUN

oBrw:aCols[2]:SetCheck( { "p_chk1", "p_chk2" }, .T. )

[Natter]

Thank you, Rao! Very elegant.

[MarcoBoschi]

I have a xbrowse of a dbf table, this is a table created specifically to make selections.

In the last column I want to show a logical field that permit to select some of the record that I see in ths xbrowse

for instance this is the penultimane columnt is define in this way

oCol = oBrw:AddCol()
oCol:bStrData = { || TRANSFORM( field->imp_eff, "@ZE 999,999,999.99" ) }
oCol:cHeader = "TOTALE CLIENTE"
oCol:nEditType = EDIT_NONE
oCol:nWidth = 100
oCol:nDataStrAlign := AL_RIGHT

How can I add another column that read / edit the value of field->seleziona Logical type?
I want to see the classic two bitmap CHECKON and CHECKOFF
many thanks

[nageswaragunupudi]

Code: Select all  Expand view  RUN

WITH OBJECT oBrw:AddCol()
   :bEditValue := { |x| If( x == nil, (oBrw:cAlias)->SELEZIONA, (oBrw:cAlias)->SELEZIONA := x ) }
   :SetCheck( nil, .t. )  // uses default bitmaps
   // OR to use your own bitmaps
   :SetCheck( { <bmpOn>, <bmpOff> }, .t. )
END
 

<bmpOn>, <bmpOff> can be names of any bmp or any image files or resource names.