Seite 1 von 1

AddKeyboardShortcut - Problem mit StringGadget

Verfasst: 25.09.2008 23:38
von STARGÅTE
Tachchen,

wieso kann man im StringGadget nicht mehr nach Links und Rechts wenn man diese beiden Tasten als Shortcut definiert ?
Ich meine wenn man "kein Event" haben möchte kann man ja abfragen ob das gadget gerade aktiv ist, aber wieso wird die normale Navigation im StringGadget dann "verboten" ?

Code: Alles auswählen

OpenWindow(0, 0, 0, 800, 600, "Fenster", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
 CreateGadgetList(WindowID(0))
  StringGadget(1, 10, 10, 200, 20, "Beispieltext")
  AddKeyboardShortcut(0, #PB_Shortcut_Right, 1)
  AddKeyboardShortcut(0, #PB_Shortcut_Left, 2)

Repeat
 Event = WaitWindowEvent()
 Select Event
  Case #PB_Event_CloseWindow
   End
  Case #PB_Event_Gadget
   Select EventGadget()
    Case 0
   EndSelect
  Case #PB_Event_Menu
   Select EventMenu()
    Case 0
   EndSelect
 EndSelect
ForEver
Hat jemand eine Idee wie ich die Navigation im Stringgadget behalten kann ?, trotzdem aber ein MenüEvent bei Links Rechts bekomme ?

(OHNE API)

Verfasst: 25.09.2008 23:42
von ts-soft

Code: Alles auswählen

GetActiveGadget()
RemoveKeyboardShortcut()
anders wirds wohl ohne API nicht gehen, das Thema hatten wir schon mal

Verfasst: 25.09.2008 23:46
von STARGÅTE
ok, nicht schön, geht aber ...

danke für den Hinweis...

Code: Alles auswählen

OpenWindow(0, 0, 0, 800, 600, "Fenster", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
 CreateGadgetList(WindowID(0))
  StringGadget(1, 10, 10, 200, 20, "Beispieltext")

Repeat
 Event = WaitWindowEvent()
 If GetActiveGadget() = 1
  RemoveKeyboardShortcut(0, #PB_Shortcut_Right)
  RemoveKeyboardShortcut(0, #PB_Shortcut_Left)
 Else
  AddKeyboardShortcut(0, #PB_Shortcut_Right, 1)
  AddKeyboardShortcut(0, #PB_Shortcut_Left, 2) 
 EndIf
 Select Event
  Case #PB_Event_CloseWindow
   End
  Case #PB_Event_Gadget
   Select EventGadget()
    Case 0
   EndSelect
  Case #PB_Event_Menu
   Select EventMenu()
    Case 1,2
     Debug "Key"
   EndSelect
 EndSelect
ForEver