topic-24256

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

BUTTONBAR Estatico
Posted: Wed Jun 13, 2012 04:55 PM

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 C.

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: BUTTONBAR Estatico
Posted: Wed Jun 13, 2012 05:23 PM

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

Code (fw): Select all Collapse

   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 }

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: BUTTONBAR Estatico
Posted: Wed Jun 13, 2012 05:31 PM

Gracias Carlos.

Funcionó perfecto.

Saludos,

Adhemar

Saludos,

Adhemar C.

joseluisysturiz

Posts: 2064