BUTTONBAR Estatico

[acuellar]

Hola amigos

Como se hace para que la barra del BUTTONBAR no se pueda mover pulsando boton derecho.

Gracias por la ayuda

Saludos,

Adhemar

[carlos vargas]

oToolBar:bRClicked := {|| TRUE }
oToolBar:bLClicked := {|| TRUE }

Code: Select all  Expand view

   DEFINE BUTTONBAR oToolBar OF oDlg SIZE 70, 60 2010

   DEFINE BUTTON NAME "TB_CLOSE"       OF oToolBar ACTION oDlg:END()                 PROMPT "&Salir"
   DEFINE BUTTON NAME "TB_ADD"         OF oToolBar ACTION Clientes_Editar( TRUE  )   PROMPT "&Nuevo"      GROUP
   DEFINE BUTTON NAME "TB_EDIT"        OF oToolBar ACTION Clientes_Editar( FALSE )   PROMPT "&Editar"
   DEFINE BUTTON NAME "TB_DELETE"      OF oToolBar ACTION Clientes_Borrar()          PROMPT "&Borrar"
   DEFINE BUTTON NAME "TB_PRINTER"     OF oToolBar ACTION Clientes_Listar()          PROMPT "&Imprimir"

   SET MSGBAR OF oDlg TO "INS=Nuevo, DEL=Borrar, ENTER=Editar, F9=Refrescar" 2010

   oDlg:SetControl( oBrw )
   oBrw:nTop    += 1
   oBrw:nHeight -= 1

   oToolBar:bRClicked := {|| TRUE }
   oToolBar:bLClicked := {|| TRUE }
 

[acuellar]

Gracias Carlos.

Funcionó perfecto.

Saludos,

Adhemar

[joseluisysturiz]

Tambien puedes usar oBAR:bRClicked := {|| NIL }
saludos...

[acuellar]

Gracias. Jose luis

Saludos,

Adhemar