PureBoard

Code: Alles auswählen

Global action.i

Procedure action()
  Static i

  i + 1
  If i = 21
    i      = 0
    action = #False
  EndIf

  If action
    AddGadgetItem(0, -1, "Zeile " + Str(i))
    Debug i
    SendMessage_(GadgetID(0), #EM_SCROLL, #SB_BOTTOM, 0)
  EndIf



EndProcedure


If OpenWindow(0, 0, 0, 200, 250, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  SetTimer_(WindowID(0), 0, 500, 0)
  EditorGadget(0, 10, 10, 180, 190)
  ButtonGadget(1, 10, 210, 50, 20, "Action!", #PB_Button_MultiLine)

  Repeat
    EventID = WaitWindowEvent()



    If EventID = #WM_TIMER
      If action
         action()
      EndIf
    EndIf
    
    If EventID = #PB_Event_Gadget

      Select EventGadget()
        Case 1
           action = #True

      EndSelect

    EndIf

  Until EventID = #PB_Event_CloseWindow

EndIf