Code: Select all
CompilerIf #PB_Compiler_Version >= 572
#PB_EventType_ReturnKey = $501 ; SDK Event.h
CompilerEndIf
Code: Select all
CompilerIf #PB_Compiler_Version >= 572
#PB_EventType_ReturnKey = $501 ; SDK Event.h
CompilerEndIf
Code: Select all
;-TOP
; ----
CompilerIf #PB_Compiler_Version >= 572
#PB_EventType_ReturnKey = $501 ; SDK Event.h
CompilerEndIf
#MenuEvent_ReturnKey = 1000
Procedure DoEventGadgetType()
Protected gadget = EventGadget()
If IsGadget(gadget)
Select GadgetType(gadget)
Case #PB_GadgetType_String
Select EventType()
Case #PB_EventType_Focus
AddKeyboardShortcut(0, #PB_Shortcut_Return, #MenuEvent_ReturnKey)
Case #PB_EventType_LostFocus
RemoveKeyboardShortcut(0, #PB_Shortcut_Return)
EndSelect
EndSelect
EndIf
EndProcedure
Procedure DoEventReturnKey()
PostEvent(#PB_Event_Gadget, GetActiveWindow(), GetActiveGadget(), #PB_EventType_ReturnKey)
EndProcedure
; ----
If OpenWindow(0, 0, 0, 400, 300, "StringGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
StringGadget(0, 10, 10, 380, 30, "StringGadget 1")
StringGadget(1, 10, 50, 380, 30, "StringGadget 2")
EditorGadget(2, 10, 90, 380, 190)
CreateMenu(0, WindowID(0))
BindEvent(#PB_Event_Gadget, @DoEventGadgetType())
BindMenuEvent(0, #MenuEvent_ReturnKey, @DoEventReturnKey())
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break
Case #PB_Event_Gadget
Select EventGadget()
Case 0
Select EventType()
Case #PB_EventType_ReturnKey
Debug "Return Gadget 0"
SetActiveGadget(1)
EndSelect
Case 1
Select EventType()
Case #PB_EventType_ReturnKey
Debug "Return Gadget 1"
SetActiveGadget(2)
EndSelect
EndSelect
EndSelect
ForEver
EndIf