HMGforum.com

Posted: **Fri Nov 11, 2011 1:10 am**

Hello All,

I'm trying to make a shortcut to a button, but the error is occurring in execution.

See the example below:

/*
 * $Id: demo_2.prg 760 2011-10-21 12:01:51Z l3wonsf $
*/

/*
 * HMG 4 demo
 * (c) 2010 Roberto Lopez <mail.box.hmg@gmail.com>
*/

#include "hmg.ch"

FUNCTION Main

   LOCAL oWindow

   hbqt_errorsys()

   DEFINE MAINWINDOW oWindow
      Row    10
      Col    10
      Width  400
      Height 400
      Title  'Nice OOP Demo!!!'
      OnInit oWindow:Center()

     ON KEY ALT+A OF cWndForm ACTION cWndForm.oButton1.OnClick  // <- Here

      DEFINE TOOLBAR oToolBar1

         TOOLBUTTON oButton1 ;
            Caption 'new' ;
            picture 'new.png' ;
            ACTION MsgInfo( 'New!' ) ;
            tooltip 'tooltip'

         TOOLBUTTON oButton2 ;
            Caption 'open' ;
            picture 'open.png' ;
            ACTION MsgInfo( 'open!' ) ;
            tooltip 'tooltip'

      END TOOLBAR

   END WINDOW

   ACTIVATE WINDOW oWindow

   RETURN NIL

This is possible in hmg.4 ?

Best Regards,

Rossine.

Posted: **Fri Nov 11, 2011 7:19 am**

Please try this:

ON KEY ALT+A OF oWindow ACTION EVAL( oWindow:oToolBar1:oButton1:OnClick() )

And put the line behind the toolbar defnition block.

Posted: **Fri Nov 11, 2011 10:20 am**

Hi Ricci,

Ricci wrote:Please try this:

ON KEY ALT+A OF oWindow ACTION EVAL( oWindow:oToolBar1:oButton1:OnClick() )

And put the line behind the toolbar defnition block.

Works 100%

Many thank´s,

Rossine.

HMGforum.com

HMG.4 and "Onclick"

HMG.4 and "Onclick"

Re: HMG.4 and "Onclick"

Re: HMG.4 and "Onclick"