How to change image on edit_button in xBrowse

[mtajkov]

Depending on the column value in the DBF file I want to change the image on the EDIT_BUTTON

this is the current code:

Code: Select all  Expand view  RUN

       oCol := oBrwZbr:AddCol()
       oCol:nBtnBmp := 1
       oCol:AddResource("PDF")
       oCol:nWidth    := 36
       oCol:oDataFont     := oFontBrw
       oCol:nEditType     := EDIT_BUTTON
       oCol:bEditBlock    := { | nRow, nCol, oCol, nKey | DownLoadXml(rtrim(RptSpsFak->Eid),"1") }
   
 

I tried:

Code: Select all  Expand view  RUN

       oCol := oBrwZbr:AddCol()
       oCol:nBmpData  := { || iif( !empty(RptSpsFak->Prilog1) ,1,2)}
       oCol:AddResource("PDF")
        oCol:AddResource("OFF")
       oCol:nWidth    := 36
       oCol:oDataFont     := oFontBrw
       oCol:nEditType     := EDIT_BUTTON
       oCol:bEditBlock    := { | nRow, nCol, oCol, nKey | DownLoadXml(rtrim(RptSpsFak->Eid),"1") }
 

 

but oCol:nBmpData does not allow that possibility.

I would also like to be able to dynamically change the nEditType.

[FranciscoA]

Hi, try this way:

Code: Select all  Expand view  RUN

oCol:bBmpData  := { || iif( !empty(RptSpsFak->Prilog1) ,1,2)}

[mtajkov]

Thank you Francisco,

but if i use:

Code: Select all  Expand view  RUN

oCol:bBmpData  := { || iif( !empty(RptSpsFak->Prilog1) ,1,2)}
 

I get it:


I would like this:

[cmsoft]

Puedes hacer

Code: Select all  Expand view  RUN

oCol::oBtnElip:LoadBitmaps("on")
oCol::oBtnElip:SetText("")
 

[mtajkov]

Thank you