FiveTech Software tech support forums

goosfancito wrote:Asi es, funciona.
entro al modulo y lo deshabilito al salir lo habilito nuevmente.
es un trabajo medio tedioso pero funciona.


gracias.-

Mi amigo, programar, debería ser un placer, no un deber.

Saludos.

Asi es, funciona.
entro al modulo y lo deshabilito al salir lo habilito nuevmente.
es un trabajo medio tedioso pero funciona.


gracias.-

buen dia. En mi caso ese atajo quiero asignarselo a un button de WITH OBJECT oTb      :addButton( { || ::contactos() }, "Manejo de datos de los contactos", "Contactos" )  y como esta definido en el modulo principal... ...

Al comienzo del procedure/function donde necesitas el atajo colocas SETKEY( VK_F5, { | nKey | RELOGIO()  } ) También lo puede hacer en el ON INIT del Dialog Y al final de mismo procedure/function SETKEY( VK_F5, { | nKey | NIL  } ) Si lo invocaste en el ON ...

nunca lo habia usado, ya que al definirlo se me ejecuta en todas las ventanas, o estoy haciendolo mal?
gracias.

No te sirve SETKEY()?

Code: Select all  Expand view

   SETKEY( VK_F5, { | nKey | RELOGIO()  } )
 

HOLA.
puede contener un atajo el addButton? como ser VK_F5?
como?

GRACIAS

Gracias Antonio , si addbutton return obtn , fontes: teste.prg : #include "fivewin.ch"#include "metropnl.ch"static oMetro, oMetro1, oMetro2, oMetro3, lMetro[3], oTools, oSBtn[6], oFont1, oFont2, oBigfontstatic ...

Joao, Please check in FWH\source\classes\metropnl.prg if Method AddButton() returns oBtn: METHOD AddButton( lLarge, nGroup, cCaption, bAction, nClrText, nClrPane, cImgName, oFont, ;                  nAlign, ...

... ::oWnd, esta interpretando como que es una DATA de la clase METRO No necesariamente es asi... exitendo la explicacion un poco mas el metodo AddButton de la clase metro crea un BtnBmp y se le asigna el codeblock que contendra nuestra accion en la paramatro 6 (bAction) METHOD AddButton( ...

... los botones * * 08-10-2011 Añadimos oFont y lAdjust al metodo AddButtoon() * * 08-10-2011 Anulo el metodo Bar() y creo los metodos AddBar() y * * AddButtonBar() para insertar la barra lateral y añadir los * * botones a la barra. * * 08-10-2011 Añadimos el metodo CenterBar() que da la posibilidad ...

... ] ; [ OF <oMetro> ] ; [ <large: LARGE> ] ; [ ACTION <uAction,...> ] ; => ; [ <oBtn> := ] <oMetro>:AddButton( <cPrompt>, <nClrText>, <nClrPane>, <.large.>, <cImgName>,<cToolTip>, [{||<uAction>}] ) #xcommand ...

... ] ; [ TOOLTIP <cToolTip> ] ; [ PROMPT <cPrompt> ] ; [ WHEN <uWhen> ] ; [ MESSAGE <cMsg> ] ; => ; <oToolBar>:AddButton( [<{uAction}>], [<cToolTip>], [<cPrompt>],; [<{uWhen}>], [<cMsg>] )[/code] y para sacarme la duda miro el fuente ...

... ) } ) oTbr:AddSystemButton( 9, { || MsgInfo( "open" ) } ) oTbr:AddSystemButton( 10, { || MsgInfo( "open" ) } ) oTbr:AddButton( "Save", { || MsgInfo( "Save" ) } ) oTbr:AddButton( "Search", { || MsgInfo( "Search" ) } ) ERROR: ...

... ) } ) oTbr:AddSystemButton( 9, { || MsgInfo( "open" ) } ) oTbr:AddSystemButton( 10, { || MsgInfo( "open" ) } ) oTbr:AddButton( "Save", { || MsgInfo( "Save" ) } ) oTbr:AddButton( "Search", { || MsgInfo( "Search" ) } ) ERROR: ...