The below instruction works with 'BUTTONBMP' but with 'ADD BUTTON' in ribbonbar doesn't work. MsgInfo() is not visualized.
DEFINE CURSOR oCursor HAND
@ 1, 1 ADD BUTTONBMP oBtn prompt "prova" OF oGr BITMAP "info.bmp" SIZE 50, 80 TOP;
ACTION( oBtn:Capture(), oBtn:oCursor := oCursor,;
oBtn:bLClicked := { | nRow, nCol | MsgInfo("!"), ReleaseCapture(), oBtn:oCursor := NIL, oBtn:bLClicked := NIL, 0 } )
any suggestions ?
marzio
↧