PureBoard

Code: Alles auswählen

CreateImage(#Image_1, 200,200, 24, $0)
ImageGadget(#Image_Gadget_1, 120,  10, 200,200, ImageID(#Image_1))

*DC = GetDC_( ImageID(#Image_1))         
Ellipse_(*DC, 10, 10, 100, 100)  
ReleaseDC_( ImageID(#Image_1), *DC) 
ImageGadget(#Image_Gadget_1, 120,  10, 200,200, ImageID(#Image_1))

Code: Alles auswählen

OpenWindow(0, 0, 0, 640, 400, "click on the canvas", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)

CreateImage(0, WindowWidth(0)-20, WindowHeight(0)-20)
ImageGadget(0, 10, 10, WindowWidth(0)-20, WindowHeight(0)-20, ImageID(0))

Repeat
  event = WaitWindowEvent()
  Select event
    Case #WM_LBUTTONDOWN, #WM_LBUTTONDBLCLK
      
      hDC = GetDC_(GadgetID(0))
      
      oImg = SelectObject_(hDC, ImageID(0))
      
      brush = CreateSolidBrush_(RGB(Random(255),Random(255),Random(255)))
      oBrush = SelectObject_(hDC, brush)
      
      Ellipse_(hDC, Random(WindowWidth(0)-20), Random(WindowHeight(0)-20),  Random(WindowWidth(0)-20), Random(WindowHeight(0)-20))
      
      SelectObject_(hDC, oBrush)
      DeleteObject_(brush)
      
      SelectObject_(hDC, oImg)
      
      DeleteDC_(hDC)
      
  EndSelect
Until event = #PB_Event_CloseWindow