xbrowse change bitmap in execution

[Wanderson]

Hi all,

I have a xbrowse, in firt colum i have a bitmap

oCol := oBrw:AddCol()
oCol:AddResource("CHECKOFF")
oCol:AddResource("CHECKON")
oCol:bBmpData := { || 2, 1 }

oBrw:bKeyDown := {|nKey| Seleg(nkey)}

In Seleg() i have a code to check if it marked a want to change the bitmap to unmarket and vice-versa.
I try but if i choose other bitmap the all column 1 changes, i have to change just a bitmap in select line in xbrowse.
Thanks in advance.

[ukoenig]

Hello Wanderson,

This part changes the Col-Bitmap on Cell-Mouseclick from Green to Red ( from sample TESTXBRW.prg ) :

oCol := oBrw:oCol( "Married" )
oCol:SetCheck( { "GREEN", "RED" }, {|o, v| (DBRLOCK(), _FIELD->Married := v, DBUNLOCK() ) } )
oCol:bStrData := { || If( _FIELD->Married, "Yes", "No" ) }
oCol:nDataStrAlign := AL_RIGHT

Best regards
Uwe

[Wanderson]

Thanks Ukoening but i want to press key M to go a funcion. In there i want to change a bmp cause i have many others thins to do if i press M.
How i can do this?

Regars.

[Wanderson]

Ukoening my code:

oCol := oBrw:AddCol()
oCol:AddResource("CHECKON")
oCol:AddResource("CHECKOFF")
oCol:cHeader := ""
oCol:bBmpData := { || iif( _FIELD->MARK, 1, 2) }
oCol:bStrData := nil
oCol:nDataStyle := oCol:DefStyle( AL_LEFT, .T.)
* here i need to press key M and execute the function listed below


Static Function Seleciona()
******** my others codes *********
*************************************
*************************************
here i want to save _FIELD->MARK with .t. if before .f. or .f. if before .t. and i want to change a bitmap check to uncheck or vice-versa.

Thanks.

[nageswaragunupudi]

Code: Select all  Expand view

oBrw:bKeyChar := { |nKey| If( Chr(nKey) $ "Mm" .and. oBrw:nColSel == <yourcolumnnumber>, Seleciona(), nil ) }

[Wanderson]

Thanks G. N. Rao.