Editor Gadget Tab Stopping Now?

Windows specific forum
Karbon
PureBasic Expert
PureBasic Expert
Posts: 2010
Joined: Mon Jun 02, 2003 1:42 am
Location: Ashland, KY
Contact:

Editor Gadget Tab Stopping Now?

Post by Karbon »

I guess I missed where that was changed, but anyway.. How can I get it back to the way it used to be? I need focus to shift when the tab key is pressed inside the EditorGadget..

Thanks!
-Mitchell
Check out kBilling for all your billing software needs!
http://www.k-billing.com
Code Signing / Authenticode Certificates (Get rid of those Unknown Publisher warnings!)
http://codesigning.ksoftware.net
Sparkie
PureBatMan Forever
PureBatMan Forever
Posts: 2307
Joined: Tue Feb 10, 2004 3:07 am
Location: Ohio, USA

Post by Sparkie »

PB Manual - History 28th February 2005 : Version 3.93 wrote:- Fixed: TAB in an EditorGadget() doesn't give the focus to others gadgets anymore but insert a Tab
Don't know if it helps your situation, but [Shift]+[Tab] should move focus for you.
What goes around comes around.

PB 5.21 LTS (x86) - Windows 8.1
Karbon
PureBasic Expert
PureBasic Expert
Posts: 2010
Joined: Mon Jun 02, 2003 1:42 am
Location: Ashland, KY
Contact:

Post by Karbon »

Doh! I did miss it!

Any idea how to get it to jump with just tab?
-Mitchell
Check out kBilling for all your billing software needs!
http://www.k-billing.com
Code Signing / Authenticode Certificates (Get rid of those Unknown Publisher warnings!)
http://codesigning.ksoftware.net
Sparkie
PureBatMan Forever
PureBatMan Forever
Posts: 2307
Joined: Tue Feb 10, 2004 3:07 am
Location: Ohio, USA

Post by Sparkie »

Not fully tested, but works here on WinXPhome SP2 with PB 3.93 :)

Code: Select all

If OpenWindow(0,0,0,322,170,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"EditorGadget") And CreateGadgetList(WindowID(0)) 
  EditorGadget (0,8,8,306,133,#PB_Container_Raised) 
  ButtonGadget(1, 10, 140, 100, 20, "HI")
  For a=0 To 5 
    AddGadgetItem(0,a,"Line "+Str(a)) 
  Next 
  Repeat
    event = WaitWindowEvent()
    Debug event
    Select event
      Case #PB_EventGadget
        Select EventGadgetID()
          Case 0
            If GetAsyncKeyState_(#VK_TAB)
              ActivateGadget(1)
            EndIf
        EndSelect
    EndSelect
  Until event = #PB_Event_CloseWindow 
EndIf 
*Edited to remove the AddKeyboardShortcut as it wasn't needed.*
What goes around comes around.

PB 5.21 LTS (x86) - Windows 8.1
Post Reply