touch.prg

[Otto]

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() }