Hola amigos
Como se hace para que la barra del BUTTONBAR no se pueda mover pulsando boton derecho.
Gracias por la ayuda
Saludos,
Adhemar
Saludos,
Adhemar Cuéllar
Hola amigos
Como se hace para que la barra del BUTTONBAR no se pueda mover pulsando boton derecho.
Gracias por la ayuda
Saludos,
Adhemar
Saludos,
Adhemar Cuéllar
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 }Gracias Carlos.
Funcionó perfecto.
Saludos,
Adhemar
Saludos,
Adhemar Cuéllar
Tambien puedes usar oBAR:bRClicked := {|| NIL }
saludos... ![]()
Gracias. Jose luis
Saludos,
Adhemar
Saludos,
Adhemar Cuéllar