PureBoard

Code: Alles auswählen

  If OpenWindow(0, 0, 0, 220, 220, "CanvasGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered |  #PB_Window_SizeGadget )
    CanvasGadget(0, 10, 10, 200, 200)
    Repeat
      Event = WaitWindowEvent()
      If event = #PB_Event_SizeWindow
        w=WindowWidth(0,#PB_Window_InnerCoordinate)
        h=WindowHeight(0,#PB_Window_InnerCoordinate)
        ResizeGadget(0,0,0,w,h);  #PB_Ignore)
        
Debug  "#PB_Event_SizeWindow"        
      EndIf  
      If event = #PB_Event_Repaint
Debug  "#PB_Event_Repaint"       
      EndIf 
      If Event = #PB_Event_Gadget And EventGadget() = 0 
        If EventType() = #PB_EventType_LeftButtonDown Or (EventType() = #PB_EventType_MouseMove And GetGadgetAttribute(0, #PB_Canvas_Buttons) & #PB_Canvas_LeftButton)
          If StartDrawing(CanvasOutput(0))
            x = GetGadgetAttribute(0, #PB_Canvas_MouseX)
            y = GetGadgetAttribute(0, #PB_Canvas_MouseY)
            Circle(x, y, 10, RGB(Random(255), Random(255), Random(255)))
            StopDrawing()
          EndIf
        EndIf
      EndIf    
      
    Until Event = #PB_Event_CloseWindow
  EndIf