en el ejemplo c:\fwh\samplos\ribbon.prg colocar lo siguiente
- Code: Select all Expand view
@ 46, 55 ADD BUTTON oBtn4 GROUP oGr BITMAP "..\bitmaps\paste16.BMP" ;
SIZE 70, 20 PROMPT "Paste" MOSTLEFT round ;
action pastes( oWnd )
function pastes( oWnd )
local oPanel
oPanel := TPanel():New(,,,, oWnd)
msginfo( "mm" )
oPanel:Hide()
msginfo( "mm" )
return
Uploaded with ImageShack.us