FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour touch.prg
Posts: 6984
Joined: Fri Oct 07, 2005 07:07 PM
touch.prg
Posted: Mon Nov 12, 2012 12:08 PM

Hello Antonio,
You resolved the navigation in touch.prg with image.
How can we reach the navigation by keyboard?

Thanks in advance
Otto

DEFINE DIALOG oDlg SIZE ScreenWidth(), ScreenHeight() + 100 ;
STYLE nOr( WS_CHILD, WS_POPUP ) ;
COLOR CLR_BLUE, CLR_DIALOGS

@ 20, 20 IMAGE oImgBack FILENAME "..\bitmaps\metro\back-black-48.png" OF oDlg ;
PIXEL NOBORDER

oImgBack:bLClicked := { || oDlg:End() }
or
@ 100, 570 IMAGE oImgAdd FILENAME "..\bitmaps\metro\plus_50_black.png" OF oDlg ;
SIZE 40, 40 PIXEL NOBORDER

oImgAdd:bLClicked := { || AddCompany() }

Continue the discussion