PureBoard

Code: Alles auswählen

Enumeration
  #Window_0
EndEnumeration

Enumeration
  #Button_0
  #Text_0
  #Button_1
EndEnumeration

If OpenWindow(#Window_0, 216, 0, 600, 300, "deschd",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
  If CreateGadgetList(WindowID(#Window_0))
    ;// EditBox und UpDown erzeugen
    hWndEdit = CreateWindowEx_(#WS_EX_CLIENTEDGE, #WC_EDIT, #NUL, #WS_CHILD | #WS_VISIBLE, 10, 10, 100, 25, WindowID(#Window_0), #NUL, hInst, #NUL);
    ;// man beachte die UDS_*-Stile
    hWndUD = CreateWindowEx_(10, #UPDOWN_CLASS, #NUL, #UDS_ALIGNLEFT | #UDS_ARROWKEYS | #UDS_SETBUDDYINT | #WS_CHILD | #WS_VISIBLE, 110, 10, 25, 25, WindowID(#Window_0), #NUL, hInst, #Null);

    SendMessage_(hWndUD, #UDM_SETBUDDY, hWndEdit, #NUL);zuammenfügen
    SendMessage_(hWndUD, #UDM_SETBASE, 10, #NUL);
    SendMessage_(hWndUD, #UDM_SETRANGE, #NUL, -2000);
    SendMessage_(hWndUD, #UDM_SETPOS, #NUL, 100);
  EndIf
EndIf

Repeat
  Event = WaitWindowEvent()
  WindowID = EventWindow()
  GadgetID = EventGadget()
  EventType = EventType()
Until Event = #PB_Event_CloseWindow
End