Move metropanel

[Natter]

Hi, all !

Metropanel is possible to move right/left with the mouse or finger. How can you do that with arrows ?

[Antonio Linares]

Add these lines in touch.prg example:

Code: Select all  Expand view

  oWnd:bMouseWheel = { | nKey, nDelta, nXPos, nYPos | oMetro:MouseWheel( nKey, nDelta, nXPos, nYPos )  }

   oWnd:bKeyDown = { | nKey | If( nKey == VK_RIGHT, Eval( oWnd:bMouseWheel, 0, -120 ),),;
                              If( nKey == VK_LEFT, Eval( oWnd:bMouseWheel, 0,  120 ),) }