PureBasic

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 200, 200, "Point", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  If LoadImage(0, #PB_Compiler_Home + "Examples\Sources\Data\GeeBee2.bmp")       
    StopDrawing() 
    ImageGadget(0, 0, 0, 200, 200, ImageID(0), #PB_Image_Raised); #PB_Image_Border
  EndIf
  ResizeWindow(0,#PB_Ignore,#PB_Ignore,GadgetWidth(0),GadgetHeight(0))
  ;ResizeWindow(0,#PB_Ignore,#PB_Ignore,GadgetWidth(0,#PB_Gadget_RequiredSize),GadgetHeight(0,#PB_Gadget_RequiredSize))
  
  Repeat
    x=WindowMouseX(0)
    y=WindowMouseY(0)
    SetWindowTitle(0,Str(x)+":"+Str(y))
    
    Event = WaitWindowEvent()
    
    Select Event
        
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 0
            Select EventType()
              Case #PB_EventType_LeftClick        
                ; Debug "Clic avec le bouton gauche de la souris"
                StartDrawing(ImageOutput(0))
                
                couleur=Point(x, y)
                Debug c
                
                Debug "ROUGE: "+ Red(Couleur)    ; Affiche la composante rouge de la couleur
                Debug "VERT: " + Green(Couleur)  ; Affiche la composante verte de la couleur
                Debug "BLEU: " + Blue(Couleur)   ; Affiche la composante bleue de la couleur
                
                StopDrawing() 
                
                ;                  Case #PB_EventType_RightClick       : Debug "Clic avec le bouton droit de la souris"
                ;                  Case #PB_EventType_LeftDoubleClick  : Debug "Double-clic avec le bouton gauche de la souris"
                ;                  Case #PB_EventType_RightDoubleClick : Debug "Double-clic avec le bouton droit de la souris"
            EndSelect
        EndSelect
        
    EndSelect
  Until Event = #PB_Event_CloseWindow
EndIf

Code : Tout sélectionner

ImageGadget(0, 0, 0, 200, 200, ImageID(0), #PB_Image_Raised)

Code : Tout sélectionner

ImageGadget(0, 0, 0, 200, 200, ImageID(0))