topic-26607

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

To Antonio
Posted: Fri Jun 21, 2013 12:35 PM

Hello Antonio,
can you please show how to navigate with the keyboard to the get-fields EXE: Data: Area:

Thanks in advance
Otto

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: To Antonio
Posted: Mon Jun 24, 2013 05:00 PM

Otto,

I guess that the focus is on the xbrowse on the left side, so the tab is not working there, right ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: To Antonio
Posted: Mon Jun 24, 2013 05:14 PM

Otto,

This little change would be required on Class TXBrowse:

Code (fw): Select all Collapse

METHOD GetDlgCode( nLastKey ) CLASS TXBrowse
 
   if .not. ::oWnd:lValidating
      if nLastKey == VK_UP .or. nLastKey == VK_DOWN ;
         .or. nLastKey == VK_RETURN .or. nLastKey == VK_TAB
         ::oWnd:nLastKey = nLastKey
      else
         ::oWnd:nLastKey = 0
      endif
   endif
 
return If( IsWindowEnabled( ::hWnd ), If( ::nDlgCode != nil, ::nDlgCode, DLGC_WANTALLKEYS ), 0 )

And in your app, simply do:
oBrw:nDlgCode = 1 // DLGC_WANTARROWS

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: To Antonio
Posted: Mon Jun 24, 2013 05:23 PM

You could also try with:

oBrw:nDlgCode = 0x0080 // DLGC_WANTCHARS

regards, saludos

Antonio Linares
www.fivetechsoft.com

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: To Antonio
Posted: Mon Jun 24, 2013 08:57 PM

Dear Antonio,

thank you.
I could not get it working with the changes you suggested.

But you pointed me in the right direction:

oBrw:bKeyChar := { |nKey| iif(nkey=9, ( aoGetStart[oBrw]:Setfocus() ) , ) }

This is working fine.
Best regards,
Otto

FiveTech Support Forums

Continue the discussion