FiveTech Support Forums

Maybe oBmp:hide()

James

Silvio,

To destroy it use:

oBmp:End()

Silvio,

That code works fine since years

Please provide a self contained example that shows your point, thanks

@ nRow, nCol BITMAP oSprite;
RESOURCE cBitmap;
PIXEL NOBORDER of oWnd // SIZE 64,64

nTipo:=nItem

oSprite:lTransparent = .T. // NOT RUN

//TO MOVE


oSprite:Move(oSprite:nTop,;
oSprite:nLeft,;
,;
)
oSprite:HideDots() //not run !! I want no show the dots when I capture the object with the mouse

oSprite:lDrag := .T.

oSprite:bMoved := {|| oSprite:CoorsUpdate() ,;
nBmpRow := oSprite:nTop ,;
nBmpCol := oSprite:nLeft ;
}

oSprite:cargo := {cBitmap,nTipo } // ASSIGN THE CARGO FOR EACH SPRITE

oSprite:bRClicked = { | nRow, nCol | menu_action( oSprite, nRow, nCol ) }
oSprite:SetFocus()



return nil








function menu_action( oSprite, nRow, nCol )

local oMenu

MENU oMenu POPUP 2007
MENUITEM "&Cancel object" action delImg( oSprite,oWnd)
MENUITEM "&Text.." action msginfo(text)
ENDMENU

ACTIVATE MENU oMenu AT nRow, nCol OF oSprite

return nil





Function delImg(oSprite,oWnd)
if MsgYesNo( "Delete this symbol ?" )
oSprite:End()
ENDIF
oWnd:refresh()
return NIL