Bouton fun
Cordialement
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 ;}
