PureBoard

Code: Alles auswählen

Enumeration
  #Window_0
  #Button_0
  #Button_1
  #Image_0
EndEnumeration

Global Image0
If OpenWindow(#Window_0, 216, 0, 600, 300,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
  Image0 = CreateImage(0, WindowWidth(),WindowHeight())
  If CreateGadgetList(WindowID())
    ButtonGadget(#Button_0, 0, 0, 70, 25, "Mach mal")
    ButtonGadget(#Button_1, 510, 0, 85, 25, "Ende")
    ImageGadget(#Image_0, 0, 35, 600, 265, Image0)
  EndIf
EndIf

Procedure pippi()
  StartDrawing(ImageOutput())
  Box(0,0,ImageWidth(),ImageHeight(),RGB(0,0,0))
  Ellipse(0,20,20,5,RGB(255,128,128))
  w=Random(ImageWidth())+100
  For x = 22 To w
    y=((x*x) / (Random(w)+100))+20
    Plot(x,y,RGB(255,255,0))
  Next x
  StopDrawing()
  SetGadgetState(#Image_0,image0)
  Delay(100)
  StartDrawing(ImageOutput())
  Box(0,0,ImageWidth(),ImageHeight(),RGB(0,0,0))
  StopDrawing()
  SetGadgetState(#Image_0,image0)
EndProcedure

Repeat
  Event = WaitWindowEvent()
  WindowID = EventWindowID()
  GadgetID = EventGadgetID()
  EventType = EventType()
  If Event = #PB_EventGadget
    If GadgetID = #Button_0
      pippi()
    ElseIf GadgetID = #Button_1
      End
    ElseIf GadgetID = #Image_0
    EndIf
  EndIf
Until Event = #PB_Event_CloseWindow
End