PureBoard

Code: Alles auswählen

If OpenWindow(#Window, 0, 0, 840, 600, "", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_WindowCentered)

     
  TextGadget(2, 440, 0, 75, 25, lang_mainwindow_inputhere)
  StringGadget(3, 380, 25, 200, 25, "")
  AddKeyboardShortcut(#Window, #PB_Shortcut_Return, 100)  ;Eingabefenster soll auf "Enter" eine aktion ausführen
  
    TextGadget(4, 440, 95, 75, 25, lang_mainwindow_lastinput)
  ListViewGadget(5,380,115,200,100)
    
 
  SetActiveGadget(3)

  If CreateMenu(0, WindowID(0))
    MenuTitle( lang_menu_file)
    MenuItem( 7, lang_menu_quit)

    MenuTitle("?")
      MenuItem(11, "About")

  EndIf

  DisableMenuItem(0, 3, 1)
  DisableMenuItem(0, 13, 1)

  Repeat
 ;############## Input enter key in string gadget ###############################################   
   If EventMenu() =  100 And GetActiveGadget() = 3
     input.s=GetGadgetText(3)
     
      If input.s<>""
     SetGadgetText(3, "")
       out.s="OK"
     status.b=1     
     For i=0 To count
        If input.s=suspects(i) 
         out.s="GEFUNDEN: "+input.s
         status.b=2
         found_suspects=found_suspects+1
         loop=0
         EndIf
       Next
     EndIf  
    EndIf
   
   
   ;################ Something in the main window (menu or something) ###############################   
Select WaitWindowEvent(50)
   Case #PB_Event_Menu
        Select EventMenu()  ; To see which menu has been selected
          Case 11 ; About
            MessageRequester("About", "", 0)
          Case 7; quit
            quit=1
        EndSelect
    ;   Case #PB_Event_Gadget
         Case #PB_Event_CloseWindow
        Quit = 1
 EndSelect

; ##### LAST INPUT LIST
; after input, we need to rotate the list ;-) 
If input2.s<>input.s And input<>""
input2=input  
 
list_last_input(5)=list_last_input(4)
list_last_input(4)=list_last_input(3)
list_last_input(3)=list_last_input(2)
list_last_input(2)=list_last_input(1)
list_last_input(1)=input
ClearGadgetItems(5)
For a.b = 0 To 5
  AddGadgetItem(5, a, list_last_input(a))
Next
SetActiveGadget(3)
input=""
EndIf
   
   
Until Quit = 1

EndIf ;open window

End

Code: Alles auswählen

If EventMenu() =  100 And GetActiveGadget() = 3
...

Code: Alles auswählen

Select WaitWindowEvent(50)
   Case #PB_Event_Menu
        Select EventMenu()
...