PureBasic

Code : Tout sélectionner

CatchImage(1, ?balloon_ico_Start)

OpenWindow(1,100,100,300,300,"Test bouton icon") 
SetWindowColor(1,$FF) 
If CreateImage(0, 100, 100) And StartDrawing(ImageOutput(0))
  DrawingMode(#PB_2DDrawing_Gradient)      
  BackColor($00FFFF)
  FrontColor($FF0000)
  CircularGradient(40, 30, 40)
  Circle(45, 45, 50)
  DrawImage(ImageID(1), 25, 20) 
  DrawingMode(1)
  DrawText(22, 55,"Goodbye" ,#Gray ,#Gray)
  DrawText(20, 53,"Goodbye" ,#Yellow ,#Gray)
  StopDrawing() 
EndIf

Reg=CreateEllipticRgn_(10,10,90,90) ;  idea to region circle button  SROD 

ButtonImageGadget(15,100,100,100,100, ImageID(0),#WS_CLIPSIBLINGS|#WS_CLIPCHILDREN)

SetWindowRgn_(GadgetID(15),Reg,1) 

Repeat 
  
  Evenement = WaitWindowEvent() 
  
  If Evenement = #PB_Event_Gadget
    If EventGadget() = 15
      MessageRequester("","Clic sur bouton",0)
    EndIf 
  EndIf 
  
Until Evenement = #PB_Event_CloseWindow 


;  IncludeBinary "balloon.ico" [?balloon_ico_Start , ?balloon_ico_End]
;{ Size = 766 bytes
DataSection
  ; PureBin2Data header
  Data.l 766
  Data.b 0
  ; Data
  balloon_ico_Start:
  Data.l $00010000,$20200001,$00010010,$02E80004,$00160000,$00280000,$00200000,$00400000,$00010000,$00000004,$02800000,$00000000
  Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$80000080,$80000000,$00800080,$00800000,$80800080,$80800000,$C0C00080
  Data.l $000000C0,$FF0000FF,$FF000000,$00FF00FF,$00FF0000,$FFFF00FF,$FFFF0000,$000000FF,$00000000,$00000000,$00000000,$00000000
  Data.l $00000000,$10111101,$00000000,$00000000,$00000000,$09000010,$00000000,$00000000,$00000000,$90991901,$00000000,$00000000
  Data.l $00000000,$90991101,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$80000008,$00000000,$00000000
  Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$10188101,$00000000,$00000000,$00000000,$00000010,$00000000,$00000000
  Data.l $00000000,$90F91918,$00000000,$00000000,$00000000,$90F91918,$00000000,$00000000,$00000000,$00811900,$00000000,$00000000
  Data.l $11000000,$11000081,$0000001F,$00000000,$11010000,$99F99981,$0000F09F,$00000000,$18110100,$99FF9981,$00F0FF99,$00000000
  Data.l $88111101,$99FF9981,$F0FF9F99,$00000000,$88181111,$F9FF9919,$FFFF9999,$01000000,$88881111,$F9FF9919,$FF9F9999,$110000F0
  Data.l $81881811,$FFFF9999,$FF999999,$110100FF,$81888811,$FFFF9999,$9F999999,$1100F0FF,$19888818,$FFFF9999,$999999F9,$000400FF
  Data.l $99818808,$FFFF9999,$909999FF,$44044000,$99090040,$FFFF9999,$040090FF,$44044044,$00404444,$00000000,$44CC0C00,$44004084
  Data.l $CC4C4484,$CCCCCCCC,$C4CCCCCC,$04000044,$CC844444,$CCCCCCCC,$CCCCCFCC,$00000040,$CC444444,$FCCCCCCF,$CCCCCCCC,$00000000
  Data.l $4C444404,$CCCCCCCC,$C0CCCCCC,$00000000,$84440400,$CCCCCC4C,$00C0CCFC,$00000000,$04000000,$CCCC4F44,$000000C0,$00000000
  Data.l $00000000,$00000000,$00000000,$F8FF0000,$F0FFFF1F,$F0FFFF0F,$F0FFFF0F,$F0FFFF0F,$F8FFFF0F,$FBFFFF1F,$F8FFFFDF,$F0FFFF1F
  Data.l $F0FFFF0F,$E0FFFF1F,$E0FFFF17,$C0FFFF17,$80FFFF03,$00FEFF01,$00F87F00,$00F01F00,$00E00F00,$00C00700,$00800300,$00000100
  Data.l $00000000,$00000000,$00000000,$00000000,$00800000,$00C00100,$00E00300,$00F00700,$00F80F00,$00FE1F00,$E0FF7F00
  Data.b $07,$FF
  balloon_ico_End:
EndDataSection ;}