xBrowse ARRAY SELECTBOX

[Otto]

To all,

Would someone be so kind to post an example how to make best
a xBrowse from an ARRAY with a select column (YES/NO).

I always change the array and then read the whole array again and do a refresh.
But I think this could be done easier.


Thanks in advance,
Otto

[James Bott]

Otto,

Here is a copy of an old message about using a on/off bitmap in xBrowse. Is this what you are already doing? Why do you need to reload the array?

James

----------------------------
Post subject: Re: Xbrowse newbiePosted: Fri Mar 20, 2009 11:07 am
Joined: Fri Oct 07, 2005 5:50 am
Posts: 474
Location: Columbia, South Carolina USA Here is the answer to my own question .. for all those folks like me .. Txbrowse is very powerful .. especially using the EDIT_GET code block and notice the

oCol:SetCheck( { "ON", "OFF" } )

where "ON", "OFF" is a bitmap .. which is a resource .. that shows the checkbox column ..

Very Nice
Rick Lipkin

[Otto]

Hello James,
thank you for putting me in the right direction.
Now it is working.
Best regards,
Otto

Code: Select all  Expand view

oBrw:aCols[1]:cHeader         := 'Löschen'
    oBrw:aCols[1]:nWidth          := 90
     oBrw:aCols[1]:nEditType       := EDIT_BUTTON
     
    oBrw:aCols[1]:AddResource("OKKLEIN")
    oBrw:aCols[1]:AddResource("LEER")
    oBrw:aCols[1]:bBmpData       :=  { || iif(  aTageSort[oBrw:nArrayAt][1] = .t., 1, 2)}
     
    oBrw:aCols[1]:bEditBlock      :=   {|| iif( aTageSort[ oBrw:nArrayAt ][ 1 ] = .t.,;
    aTageSort[ oBrw:nArrayAt ][ 1 ] := .f. , ;
    aTageSort[ oBrw:nArrayAt ][ 1 ] := .t. )  }          

[nageswaragunupudi]

Mr Otto

Why all this code? I think this small function works well

oBrw:aCols[ 1 ]:SetCheck( { 'OKKLEIN', 'LEER' } )
oBrw:aCols[ 1 ]:nEditType := 1

[Otto]

Hello Mr. Rao,

thank you. You are right. May I ask for some more help.
How do I suppress the displaying of .T., .F. beside the bitmap?

I would like to lock some records from being able to be changed.
I tried like this. How would you suggest to implement this functionality.

Thanks in advance
Otto

Code: Select all  Expand view

oBrw:aCols[1]:bEditBlock      :=   {|| iif( aTageSort[ oBrw:nArrayAt ][ 5]="NEIN",;
    Msginfo("Mindestsicherung"),;
    iif( aTageSort[ oBrw:nArrayAt ][ 1 ] = .t.,;
    aTageSort[ oBrw:nArrayAt ][ 1 ] := .f. , ;
    aTageSort[ oBrw:nArrayAt ][ 1 ] := .t. ))}

[Daniel Garcia-Gil]

Hello Otto.

Please try with bStrDta := {|| NIL }

[Otto]

Hello Daniel,

I tried
oBrw:aCols[1]:bStrData := {|| NIL } but with no success.
But on the PC I am working – production system – I have 9.01 installed.
I will try with a newer xBrowse later.
I will post the result tomorrow. Thanks again.
Best regards,
Otto

[nageswaragunupudi]

this was a minor bug earlier.
In the present version it is automatically suppressed

[Daniel Garcia-Gil]

Otto...

this is a easy way to solve your problem... but you need modify the xbrowse class

open xbrowse.prg
find METHOD PaintData
in method find ( aprox line 6834 )

Code: Select all  Expand view

if ::bStrData != nil

change with

Code: Select all  Expand view

if ::bStrData != nil .and. ! ::hChecked

save file and include this in you project

[Otto]

Hello Daniel,
thank you. Now it is ok.

Best regards,
Otto