PureBasic

Code : Tout sélectionner

Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Radio_0
  #Radio_1
  #Radio_2
  #CheckBox_0
  #CheckBox_1
  #CheckBox_2
EndEnumeration


; BalloonTip Constants
#TOOLTIP_NO_ICON      = 0
#TOOLTIP_INFO_ICON    = 1
#TOOLTIP_WARNING_ICON = 2
#TOOLTIP_ERROR_ICON   = 3

Procedure BalloonTip(WindowID, Gadget, Text$ , Title$, Icon)
  
  ToolTip=CreateWindowEx_(0,"ToolTips_Class32","",#WS_POPUP | #TTS_NOPREFIX | #TTS_BALLOON,0,0,0,0,WindowID,0,GetModuleHandle_(0),0)
  SendMessage_(ToolTip,#TTM_SETTIPTEXTCOLOR,GetSysColor_(#COLOR_INFOTEXT),0)
  SendMessage_(ToolTip,#TTM_SETTIPBKCOLOR,GetSysColor_(#COLOR_INFOBK),0)
  SendMessage_(ToolTip,#TTM_SETMAXTIPWIDTH,0,180)
  Balloon.TOOLINFO\cbSize=SizeOf(TOOLINFO)
  Balloon\uFlags=#TTF_IDISHWND | #TTF_SUBCLASS
  Balloon\hWnd=GadgetID(Gadget)
  Balloon\uId=GadgetID(Gadget)
  Balloon\lpszText=@Text$
  SendMessage_(ToolTip, #TTM_ADDTOOL, 0, Balloon)
  If Title$ > ""
    SendMessage_(ToolTip, #TTM_SETTITLE, Icon, @Title$)
  EndIf
  
EndProcedure

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 115, 234,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
    If CreateGadgetList(WindowID())
      OptionGadget(#Radio_0, 10, 10, 80, 20, "Option 1")
      BalloonTip(WindowID(), #Radio_0, "Option n° 1", "Option", #TOOLTIP_INFO_ICON)
      OptionGadget(#Radio_1, 10, 40, 80, 20, "Option 2")
      BalloonTip(WindowID(), #Radio_1, "Option n° 2", "Option", #TOOLTIP_INFO_ICON)
      OptionGadget(#Radio_2, 10, 70, 80, 20, "Option 3")
      BalloonTip(WindowID(), #Radio_2, "Option n° 3", "Option", #TOOLTIP_INFO_ICON)
      CheckBoxGadget(#CheckBox_0, 10, 130, 110, 20, "Choix 1")
      BalloonTip(WindowID(), #CheckBox_0, "Choix n° 1", "Choix", #TOOLTIP_INFO_ICON)
      CheckBoxGadget(#CheckBox_1, 10, 160, 110, 20, "Choix 2")
      BalloonTip(WindowID(), #CheckBox_1, "Choix n° 2", "Choix", #TOOLTIP_INFO_ICON)
      CheckBoxGadget(#CheckBox_2, 10, 190, 110, 20, "Choix 3")
      BalloonTip(WindowID(), #CheckBox_2, "Choix n° 3", "Choix", #TOOLTIP_INFO_ICON)
      
    EndIf
  EndIf
EndProcedure

Open_Window_0()

Repeat
  
  Event = WaitWindowEvent()
  If Event = #PB_EventGadget
    ;Debug "WindowID: " + Str(EventWindowID())
    GadgetID = EventGadgetID()
    
    If GadgetID = #Radio_0
      Debug "GadgetID: #Radio_0"
      
    ElseIf GadgetID = #Radio_1
      Debug "GadgetID: #Radio_1"
      
    ElseIf GadgetID = #Radio_2
      Debug "GadgetID: #Radio_2"
      
    ElseIf GadgetID = #CheckBox_0
      Debug "GadgetID: #CheckBox_0"
      
    ElseIf GadgetID = #CheckBox_1
      Debug "GadgetID: #CheckBox_1"
      
    ElseIf GadgetID = #CheckBox_2
      Debug "GadgetID: #CheckBox_2"
      
    EndIf
    
  EndIf
  
Until Event = #PB_EventCloseWindow

End
;