PureBasic

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 220, 220, "CanvasGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  CanvasGadget(0, 10, 10, 200, 200)
  
  
  EdWin= GetActiveWindow()
  CarH=12
  CreateCaret_(WindowID(EdWin),0,1,CarH) ; Create a cursor...
  SetCaretPos_(100,100)
  ShowCaret_(WindowID(EdWin))
  
  
  Repeat
    Event = WaitWindowEvent()
    
    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

;http://msdn.microsoft.com/en-us/library/windows/desktop/ms648405%28v=vs.85%29.aspx
;Getcaretpos() : http://msdn.microsoft.com/en-us/library/windows/desktop/ms648402%28v=vs.85%29.aspx
;DestroyCaret_()
;HideCaret()