FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Move metropanel
Posts: 1392
Joined: Mon May 14, 2007 09:49 AM
Move metropanel
Posted: Fri May 06, 2016 01:26 PM

Hi, all !

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

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Move metropanel
Posted: Fri May 06, 2016 05:58 PM
Add these lines in touch.prg example:

Code (fw): Select all Collapse
   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 ),) }
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion