RE:Manejo de barra de herramientas
guarda esto en un .PRG llamado test.PRG por ejemplo
LPARAMETERS oToolbar
PUBLIC oHandler
oHandler = NEWOBJECT("myHandler")
BINDEVENT(oToolbar, "MouseDown", oHandler, "myMouseDown")
BINDEVENT(oToolBar, "DblClick", oHandler, "myDblClick")
DEFINE CLASS myHandler AS Custom
PROCEDURE myMouseDown(nButton, nShift, nXCoord, nYCoord)
NODEFAULT
RETURN
ENDPROC
PROCEDURE myDblClick
NODEFAULT
RETURN
ENDPROC
ENDDEFINE
y despues lo llamas en tu codigo
.....
THIS.PreviewForm.Toolbar.dock(1)
DO test WITH THIS.PreviewForm.Toolbar
Pruebalo
Suerte