Oui car c'étais beaucioup trop compliquer a force, un vérritable casse tête turk
et ensuite le prochain programme se servira de ses image suivent les évènement de la souris
Code : Tout sélectionner
UsePNGImageDecoder()
UseJPEG2000ImageDecoder()
UseJPEGImageDecoder()
UseTGAImageDecoder()
UseTIFFImageDecoder()
Enumeration
#Window_0
#Planche_Image
#Image_sur_planche
#ImageGadget
#Identifient_Image_Bouton_1
#Numero_Image_personnaliser_Bouton_1
#Police_texte_Bouton_1
EndEnumeration
#FONT_NORMAL = %00000000
#FONT_BOLD = %00000001
#FONT_ITALIC = %00000010
#FONT_UNDERLINE = %00000100
#FONT_STRIKEOUT = %00001000
Global Bouton_1_X = 100
Global Bouton_1_Y = 20
Global Bouton_1_L = 300
Global Bouton_1_H = 250
Global Mode_bordure_1_haute_Bouton_1$ = ""
Global Mode_bordure_1_droite_Bouton_1$ = "degrader"
Global Mode_bordure_1_bas_Bouton_1$ = ""
Global Mode_bordure_1_gauche_Bouton_1$ = "degrader"
Global Couleur_1_degrader_bordure_1_haute_Bouton_1 = RGB(255, 0, 0)
Global Couleur_1_degrader_bordure_1_droite_Bouton_1 = RGB(0, 0, 255)
Global Couleur_1_degrader_bordure_1_bas_Bouton_1 = RGB(0, 0, 0)
Global Couleur_1_degrader_bordure_1_gauche_Bouton_1 = RGB(255, 0, 0)
Global Couleur_2_degrader_bordure_1_haute_Bouton_1 = RGB(0, 0, 255)
Global Couleur_2_degrader_bordure_1_droite_Bouton_1 = RGB(255, 0, 0)
Global Couleur_2_degrader_bordure_1_bas_Bouton_1 = RGB(0, 0, 255)
Global Couleur_2_degrader_bordure_1_gauche_Bouton_1 = RGB(0, 0, 255)
Global Mode_face_Bouton_1$ = "degrader"
Global Couleur_1_degrader_face_Bouton_1 = RGB(255, 198, 0)
Global Couleur_2_degrader_face_Bouton_1 = RGB(0, 0, 255)
Global Transparence_Face_Bouton_1 = 255
Global Transparence_bordure_1_haute_Bouton_1 = 255
Global Transparence_bordure_1_droite_Bouton_1 = 255
Global Transparence_bordure_1_bas_Bouton_1 = 255
Global Transparence_bordure_1_gauche_Bouton_1 = 255
Global Couleur_face_Bouton_1 = RGBA(255, 198, 0, Transparence_Face_Bouton_1)
; Global Couleur_bordure_1_haute_Bouton_1 = RGBA(255, 255, 255, Transparence_bordure_1_haute_Bouton_1)
; Global Couleur_bordure_1_droite_Bouton_1 = RGBA(105, 105, 105, Transparence_bordure_1_droite_Bouton_1)
; Global Couleur_bordure_1_bas_Bouton_1 = RGBA(105, 105, 105, Transparence_bordure_1_bas_Bouton_1)
; Global Couleur_bordure_1_gauche_Bouton_1 = RGBA(255, 255, 255, Transparence_bordure_1_gauche_Bouton_1)
Global Couleur_bordure_1_haute_Bouton_1 = RGBA(0, 0, 255, Transparence_bordure_1_haute_Bouton_1)
Global Couleur_bordure_1_droite_Bouton_1 = RGBA(105, 105, 105, Transparence_bordure_1_droite_Bouton_1)
Global Couleur_bordure_1_bas_Bouton_1 = RGBA(255, 0, 0, Transparence_bordure_1_bas_Bouton_1)
Global Couleur_bordure_1_gauche_Bouton_1 = RGBA(255, 255, 255, Transparence_bordure_1_gauche_Bouton_1)
Global Epaisseur_bordure_1_haute_Bouton_1 = 1
Global Epaisseur_bordure_1_droite_Bouton_1 = 1
Global Epaisseur_bordure_1_bas_Bouton_1 = 1
Global Epaisseur_bordure_1_gauche_Bouton_1 = 1
Global Arrondi_face_X_Bouton_1 = 0
Global Arrondi_face_Y_Bouton_1 = 0
Global Arrondi_bordure_1_haute_X_Bouton_1 = 0
Global Arrondi_bordure_1_haute_Y_Bouton_1 = 0
Global Arrondi_bordure_1_droite_X_Bouton_1 = 0
Global Arrondi_bordure_1_droite_Y_Bouton_1 = 0
Global Arrondi_bordure_1_bas_X_Bouton_1 = 0
Global Arrondi_bordure_1_bas_Y_Bouton_1 = 0
Global Arrondi_bordure_1_gauche_X_Bouton_1 = 0
Global Arrondi_bordure_1_gauche_Y_Bouton_1 = 0
Global DrawingMode_bordure_1_haute_Bouton_1 = #PB_2DDrawing_Default
Global DrawingMode_bordure_1_droite_Bouton_1 = #PB_2DDrawing_Default
Global DrawingMode_bordure_1_bas_Bouton_1 = #PB_2DDrawing_Default
Global DrawingMode_bordure_1_gauche_Bouton_1 = #PB_2DDrawing_Default
Global Mode_bordure_2_haute_Bouton_1$ = ""
Global Mode_bordure_2_droite_Bouton_1$ = "degrader"
Global Mode_bordure_2_bas_Bouton_1$ = ""
Global Mode_bordure_2_gauche_Bouton_1$ = "degrader"
Global Couleur_1_degrader_bordure_2_haute_Bouton_1 = RGB(255, 0, 0)
Global Couleur_1_degrader_bordure_2_droite_Bouton_1 = RGB(255, 0, 0)
Global Couleur_1_degrader_bordure_2_bas_Bouton_1 = RGB(255, 0, 0)
Global Couleur_1_degrader_bordure_2_gauche_Bouton_1 = RGB(0, 0, 255)
Global Couleur_2_degrader_bordure_2_haute_Bouton_1 = RGB(0, 0, 255)
Global Couleur_2_degrader_bordure_2_droite_Bouton_1 = RGB(0, 0, 255)
Global Couleur_2_degrader_bordure_2_bas_Bouton_1 = RGB(0, 0, 255)
Global Couleur_2_degrader_bordure_2_gauche_Bouton_1 = RGB(255, 0, 0)
Global Transparence_bordure_2_haute_Bouton_1 = 255
Global Transparence_bordure_2_droite_Bouton_1 = 255
Global Transparence_bordure_2_bas_Bouton_1 = 255
Global Transparence_bordure_2_gauche_Bouton_1 = 255
Global Couleur_face_Bouton_1 = RGBA(255, 198, 0, Transparence_Face_Bouton_1)
;
; Global Couleur_bordure_2_haute_Bouton_1 = RGBA(227, 227, 227, Transparence_bordure_2_haute_Bouton_1)
; Global Couleur_bordure_2_droite_Bouton_1 = RGBA(160, 160, 160, Transparence_bordure_2_droite_Bouton_1)
; Global Couleur_bordure_2_bas_Bouton_1 = RGBA(160, 160, 160, Transparence_bordure_2_bas_Bouton_1)
; Global Couleur_bordure_2_gauche_Bouton_1 = RGBA(227, 227, 227, Transparence_bordure_2_gauche_Bouton_1)
Global Couleur_bordure_2_haute_Bouton_1 = RGBA(0, 0, 255, Transparence_bordure_2_haute_Bouton_1)
Global Couleur_bordure_2_droite_Bouton_1 = RGBA(160, 160, 160, Transparence_bordure_2_droite_Bouton_1)
Global Couleur_bordure_2_bas_Bouton_1 = RGBA(255, 0, 0, Transparence_bordure_2_bas_Bouton_1)
Global Couleur_bordure_2_gauche_Bouton_1 = RGBA(227, 227, 227, Transparence_bordure_2_gauche_Bouton_1)
Global Epaisseur_bordure_2_haute_Bouton_1 = 1
Global Epaisseur_bordure_2_droite_Bouton_1 = 1
Global Epaisseur_bordure_2_bas_Bouton_1 = 1
Global Epaisseur_bordure_2_gauche_Bouton_1 = 1
Global Arrondi_face_X_Bouton_1 = 0
Global Arrondi_face_Y_Bouton_1 = 0
Global Arrondi_bordure_2_haute_X_Bouton_1 = 0
Global Arrondi_bordure_2_haute_Y_Bouton_1 = 0
Global Arrondi_bordure_2_droite_X_Bouton_1 = 0
Global Arrondi_bordure_2_droite_Y_Bouton_1 = 0
Global Arrondi_bordure_2_bas_X_Bouton_1 = 0
Global Arrondi_bordure_2_bas_Y_Bouton_1 = 0
Global Arrondi_bordure_2_gauche_X_Bouton_1 = 0
Global Arrondi_bordure_2_gauche_Y_Bouton_1 = 0
Global DrawingMode_bordure_2_haute_Bouton_1 = #PB_2DDrawing_Default
Global DrawingMode_bordure_2_droite_Bouton_1 = #PB_2DDrawing_Default
Global DrawingMode_bordure_2_bas_Bouton_1 = #PB_2DDrawing_Default
Global DrawingMode_bordure_2_gauche_Bouton_1 = #PB_2DDrawing_Default
; #PB_2DDrawing_Default
; #PB_2DDrawing_Outlined
Global Nom_police_Bouton_1$ = "Verdana"
Global Style_police_gras_Bouton_1 = 0
Global Style_police_italique_Bouton_1 = 0
Global Style_police_soulignier_Bouton_1 = 0
Global Style_police_barrer_Bouton_1 = 0
Global Taille_police_Bouton_1 = 12
Global Couleur_texte_Bouton_1 = RGB(255, 255, 255)
Global Texte_Bouton_1$ = " Ceci est une image d'une très jolie maison de toutes les couleurs avec transparence sur un fond dégrader ainsi que bords en dégrader"
Global AngleTexte = 0
Global Position_X_texte_Bouton_1 = 0
Global Position_Y_texte_Bouton_1 = 40
Global Surplus_position_X_texte_Bouton_1 = 0
Global Surplus_position_Y_texte_Bouton_1 = 0
DataSection
Pointeur_Numero_Image_personnaliser_Bouton_1:
IncludeBinary "maison.png"
EndDataSection
CatchImage(#Numero_Image_personnaliser_Bouton_1, ?Pointeur_Numero_Image_personnaliser_Bouton_1)
Global DrawingMode_image_personnaliser_sur_Bouton_1 = #PB_2DDrawing_AlphaBlend
Global Position_X_Image_personnaliser_Bouton_1 = 0
Global Position_Y_Image_personnaliser_Bouton_1 = -25
Global Utiliser_image_personnaliser_sur_Bouton_1 = 1
; English forum: http://www.purebasic.fr/english/viewtopic.php?t=7042&highlight=
; Author: GPI
; Date: 28. July 2003
; OS: Windows
; Demo: No
; Some note: Windows send a #wm_mousemove, wenn the mouse is moved over one of
; your windows. (You can get this message with WaitWindowEvent())
; English forum: http://www.purebasic.fr/english/viewtopic.php?t=7603&highlight=
; Author: PB (updated for PB4.00 by blbltheworm)
; Date: 21. September 2003
; OS: Windows
; Demo: No
; Note: starting with PB v4 there is also a native command GadgetType() available
; Hinweis: seit PB v4 ist auch ein nativer Befehl GadgetType() verfügbar
; pas de moi
Procedure CreateFont(Name$,Size,Style)
If (Style & #FONT_BOLD)
bold = 700
EndIf
If (Style & #FONT_ITALIC)
italic = 1
EndIf
If (Style & #FONT_UNDERLINE)
underline = 1
EndIf
If (Style & #FONT_STRIKEOUT)
strikeout = 1
EndIf
ProcedureReturn CreateFont_(Size,0,0,0,bold,italic,underline,strikeout,0,0,0,0,0,Name$)
EndProcedure
; pas de moi mais modifier par moi
Procedure.l MonImage(MonImageID, Largeur, Hauteur, CouleurTexte, CouleurFond, Texte$, AngleTexte, PositionTexteX, PositionTexteY, Police$, Gras, Italique, soulignier, barrer, TaillePolice, PositionTexteXP, PositionTexteYP, ImageID, PositionImageX, PositionImageY, PositionImageXP, PositionImageYP, AfficherImage = 0)
Attributes = #FONT_NORMAL
If Gras
Attributes = Attributes + #FONT_BOLD
EndIf
If Italique
Attributes = Attributes + #FONT_ITALIC
EndIf
If soulignier
Attributes = Attributes + #FONT_UNDERLINE
EndIf
If barrer
Attributes = Attributes + #FONT_STRIKEOUT
EndIf
FontUtiliser = CreateFont(Police$, TaillePolice, Attributes)
RetourImageID = CreateImage(MonImageID, Largeur + Epaisseur_bordure_1_droite_Bouton_1 + Epaisseur_bordure_2_droite_Bouton_1, Hauteur + Epaisseur_bordure_1_bas_Bouton_1 + Epaisseur_bordure_2_bas_Bouton_1)
StartDrawing(ImageOutput(MonImageID))
DrawingMode(#PB_2DDrawing_AlphaBlend)
Largeur + Epaisseur_bordure_1_droite_Bouton_1 + Epaisseur_bordure_2_droite_Bouton_1
Hauteur + Epaisseur_bordure_1_bas_Bouton_1 + Epaisseur_bordure_2_bas_Bouton_1
RoundBox(0, 0, Largeur, Hauteur, 0, 0, CouleurFond)
If Mode_face_Bouton_1$ = "degrader"
DrawingMode(#PB_2DDrawing_Gradient)
; degrader en horizontale
; LinearGradient(1, 1, Bouton_1_L, 1)
; GradientColor(1, RGB(255, 198, 0))
;
; LinearGradient(Bouton_1_L, 1, 1, 1)
; GradientColor(0, RGB(0, 0, 255))
; degrader en verticalle
LinearGradient(Bouton_1_H, 1, 1, Bouton_1_H)
GradientColor(1, Couleur_1_degrader_face_Bouton_1)
LinearGradient(1, Bouton_1_H, 1, 1)
GradientColor(0, Couleur_2_degrader_face_Bouton_1)
Box(0, 0, Largeur, Hauteur, CouleurFond)
EndIf
FrontColor(RGB(Red(CouleurTexte),Green(CouleurTexte),Blue(CouleurTexte)))
DrawingFont(FontUtiliser)
DrawingMode(1)
If AfficherImage = 1
If ImageID
DrawingMode(DrawingMode_image_personnaliser_sur_Bouton_1)
DrawImage(ImageID(ImageID), Largeur / 2 - ImageWidth(ImageID) / 2 + PositionImageX + PositionImageXP + 9, Hauteur / 2 - ImageHeight(ImageID) / 2 + PositionImageY + PositionImageYP)
EndIf
EndIf
DrawingMode(1)
Position_extraction = 0
Phrase$ = ""
Ligne = 1
Position_texte_Y = 0
If TextWidth(Texte$) > Largeur
Repeat
Phrase$ = ""
Repeat
Position_extraction + 1
caractere$ = Mid(Texte$, Position_extraction, 1)
Phrase$ + caractere$
If TextWidth(Phrase$) > (Largeur - 9 - (Epaisseur_bordure_1_droite_Bouton_1 + Epaisseur_bordure_2_droite_Bouton_1 + Epaisseur_bordure_1_gauche_Bouton_1 + Epaisseur_bordure_2_gauche_Bouton_1))
Ligne + 1
Break
ElseIf Position_extraction = Len(Texte$)
Ligne + 1
Break
EndIf
ForEver
Traitement_texte$ + "»" + Phrase$
Until Position_extraction = Len(Texte$)
Else
Traitement_texte$ = Texte$
EndIf
For Affichage_texte = 1 To Ligne
Texte$ = StringField(Traitement_texte$, Affichage_texte, "»")
DrawRotatedText(Largeur / 2 - TextWidth(Texte$) / 2 + PositionTexteX + PositionTexteXP, Hauteur / 2 - TextHeight(Texte$) / 2 + Position_texte_Y + PositionTexteY + PositionTexteYP, Texte$, AngleTexte, CouleurTexte)
Position_texte_Y + TextHeight(Texte$)
Next
StopDrawing()
ProcedureReturn RetourImageID
EndProcedure
Procedure Open_Window_0()
If OpenWindow(#Window_0, 220, 0, 600, 300, "New window ( 0 )", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_ScreenCentered )
Image_personnaliser_Bouton_1 = MonImage(#Identifient_Image_Bouton_1, Bouton_1_L - Epaisseur_bordure_1_gauche_Bouton_1 - Epaisseur_bordure_1_droite_Bouton_1, Bouton_1_H - Epaisseur_bordure_1_haute_Bouton_1 - Epaisseur_bordure_1_bas_Bouton_1, Couleur_texte_Bouton_1, Couleur_face_Bouton_1, Texte_Bouton_1$, AngleTexte, Position_X_texte_Bouton_1, Position_Y_texte_Bouton_1, Nom_police_Bouton_1$, Style_police_gras_Bouton_1, Style_police_italique_Bouton_1, Style_police_soulignier_Bouton_1, Style_police_barrer_Bouton_1, Taille_police_Bouton_1, Surplus_position_X_texte_Bouton_1, Surplus_position_Y_texte_Bouton_1, #Numero_Image_personnaliser_Bouton_1, Position_X_Image_personnaliser_Bouton_1, Position_Y_Image_personnaliser_Bouton_1, 1, 1, Utiliser_image_personnaliser_sur_Bouton_1)
CreateImage(#Planche_Image, Bouton_1_L, Bouton_1_H)
LoadFont(#Police_texte_Bouton_1, "Cambria", 10)
StartDrawing(ImageOutput(#Planche_Image))
DrawImage(Image_personnaliser_Bouton_1, 0, 0)
DrawingMode(DrawingMode_bordure_1_haute_Bouton_1 | #PB_2DDrawing_AlphaBlend)
If Mode_bordure_1_haute_Bouton_1$ = "degrader"
; bordure 1
DrawingMode(DrawingMode_bordure_1_haute_Bouton_1 | #PB_2DDrawing_Gradient)
; degrader en verticalle
; LinearGradient(1, 1, 1, 1)
; GradientColor(0, RGB(0, 150, 0))
;
; LinearGradient(1, Epaisseur_bordure_1_haute_Bouton_1, 1, 1)
; GradientColor(1, RGB(255, 0, 0))
; degrader en horizontale
LinearGradient(1, 1, 1, 1)
GradientColor(0, Couleur_1_degrader_bordure_1_haute_Bouton_1)
LinearGradient(1, 1, Bouton_1_L - Epaisseur_bordure_1_gauche_Bouton_1, 1)
GradientColor(1, Couleur_2_degrader_bordure_1_haute_Bouton_1)
EndIf
RoundBox(Epaisseur_bordure_1_gauche_Bouton_1, 0, Bouton_1_L - Epaisseur_bordure_1_gauche_Bouton_1, Epaisseur_bordure_1_haute_Bouton_1, Arrondi_bordure_1_haute_X_Bouton_1, Arrondi_bordure_1_haute_Y_Bouton_1, Couleur_bordure_1_haute_Bouton_1) ; bordure haut
DrawingMode(DrawingMode_bordure_1_droite_Bouton_1 | #PB_2DDrawing_AlphaBlend)
If Mode_bordure_1_droite_Bouton_1$ = "degrader"
; degrader en verticalle
DrawingMode(DrawingMode_bordure_1_droite_Bouton_1 | #PB_2DDrawing_Gradient)
LinearGradient(1, 1, 1, 1)
GradientColor(1, Couleur_1_degrader_bordure_1_droite_Bouton_1)
LinearGradient(1, Bouton_1_H - Epaisseur_bordure_1_haute_Bouton_1, 1, 1)
GradientColor(0, Couleur_2_degrader_bordure_1_droite_Bouton_1)
; degrader en horizontale
; LinearGradient(1, 1, 1, 1)
; GradientColor(1, RGB(255, 0, 0))
;
; LinearGradient(1, 1, 1, Bouton_1_H - Epaisseur_bordure_1_haute_Bouton_1)
; GradientColor(0, RGB(0, 0, 255))
EndIf
RoundBox(Bouton_1_L - Epaisseur_bordure_1_droite_Bouton_1, Epaisseur_bordure_1_haute_Bouton_1, Epaisseur_bordure_1_droite_Bouton_1, Bouton_1_H - Epaisseur_bordure_1_haute_Bouton_1, Arrondi_bordure_1_droite_X_Bouton_1, Arrondi_bordure_1_droite_Y_Bouton_1, Couleur_bordure_1_droite_Bouton_1) ; bordure droite
DrawingMode(DrawingMode_bordure_1_bas_Bouton_1 | #PB_2DDrawing_AlphaBlend)
If Mode_bordure_1_bas_Bouton_1$ = "degrader"
DrawingMode(DrawingMode_bordure_1_bas_Bouton_1 | #PB_2DDrawing_Gradient)
; degrader en verticalle
; LinearGradient(1, 1, 1, 1)
; GradientColor(0, RGB(0, 150, 0))
;
; LinearGradient(1, Epaisseur_bordure_1_haute_Bouton_1, 1, 1)
; GradientColor(1, RGB(255, 0, 0))
; degrader en horizontale
LinearGradient(1, 1, 1, 1)
GradientColor(1, Couleur_1_degrader_bordure_1_bas_Bouton_1)
LinearGradient(1, 1, Bouton_1_L - Epaisseur_bordure_1_gauche_Bouton_1, 1)
GradientColor(0, Couleur_2_degrader_bordure_1_bas_Bouton_1)
EndIf
RoundBox(0, Bouton_1_H - Epaisseur_bordure_1_bas_Bouton_1, Bouton_1_L - Epaisseur_bordure_1_droite_Bouton_1, Epaisseur_bordure_1_bas_Bouton_1, Arrondi_bordure_1_bas_X_Bouton_1, Arrondi_bordure_1_bas_Y_Bouton_1, Couleur_bordure_1_bas_Bouton_1) ; bordure bas
DrawingMode(DrawingMode_bordure_1_gauche_Bouton_1 | #PB_2DDrawing_AlphaBlend)
If Mode_bordure_1_gauche_Bouton_1$ = "degrader"
DrawingMode(DrawingMode_bordure_1_gauche_Bouton_1 | #PB_2DDrawing_Gradient)
; degrader en verticalle
LinearGradient(1, 1, 1, 1)
GradientColor(0, Couleur_1_degrader_bordure_1_gauche_Bouton_1)
LinearGradient(1, Bouton_1_H - Epaisseur_bordure_1_haute_Bouton_1, 1, 1)
GradientColor(1, Couleur_2_degrader_bordure_1_gauche_Bouton_1)
; degrader en horizontale
; LinearGradient(1, 1, 1, 1)
; GradientColor(1, RGB(255, 0, 0))
;
; LinearGradient(1, 1, 1, Bouton_1_H - Epaisseur_bordure_1_haute_Bouton_1)
; GradientColor(0, RGB(0, 0, 255))
EndIf
RoundBox(0, 0, Epaisseur_bordure_1_gauche_Bouton_1, Bouton_1_H - Epaisseur_bordure_1_bas_Bouton_1, Arrondi_bordure_1_gauche_X_Bouton_1, Arrondi_bordure_1_gauche_Y_Bouton_1, Couleur_bordure_1_gauche_Bouton_1) ; bordure gauche
; bordure 2
DrawingMode(DrawingMode_bordure_2_haute_Bouton_1 | #PB_2DDrawing_AlphaBlend)
If Mode_bordure_2_haute_Bouton_1$ = "degrader"
DrawingMode(DrawingMode_bordure_2_haute_Bouton_1 | #PB_2DDrawing_Gradient)
; degrader en verticalle
; LinearGradient(1, 1, 1, 1)
; GradientColor(0, RGB(0, 150, 0))
;
; LinearGradient(1, Epaisseur_bordure_1_haute_Bouton_1, 1, 1)
; GradientColor(1, RGB(255, 0, 0))
; degrader en horizontale
LinearGradient(1, 1, 1, 1)
GradientColor(1, Couleur_1_degrader_bordure_2_haute_Bouton_1)
LinearGradient(1, 1, Bouton_1_L - Epaisseur_bordure_1_gauche_Bouton_1, 1)
GradientColor(0, Couleur_2_degrader_bordure_2_haute_Bouton_1)
EndIf
RoundBox(Epaisseur_bordure_1_gauche_Bouton_1 + Epaisseur_bordure_2_gauche_Bouton_1, Epaisseur_bordure_1_haute_Bouton_1, Bouton_1_L - Epaisseur_bordure_1_gauche_Bouton_1 - Epaisseur_bordure_2_gauche_Bouton_1 - Epaisseur_bordure_1_droite_Bouton_1, Epaisseur_bordure_2_haute_Bouton_1, Arrondi_bordure_2_haute_X_Bouton_1, Arrondi_bordure_2_haute_Y_Bouton_1, Couleur_bordure_2_haute_Bouton_1) ; bordure haut
DrawingMode(DrawingMode_bordure_2_droite_Bouton_1 | #PB_2DDrawing_AlphaBlend)
If Mode_bordure_2_droite_Bouton_1$ = "degrader"
DrawingMode(DrawingMode_bordure_2_droite_Bouton_1 | #PB_2DDrawing_Gradient)
; degrader en verticalle
LinearGradient(1, 1, 1, 1)
GradientColor(0, Couleur_1_degrader_bordure_2_droite_Bouton_1)
LinearGradient(1, Bouton_1_H - Epaisseur_bordure_1_haute_Bouton_1, 1, 1)
GradientColor(1, Couleur_2_degrader_bordure_2_droite_Bouton_1)
; degrader en horizontale
; LinearGradient(1, 1, 1, 1)
; GradientColor(1, RGB(255, 0, 0))
;
; LinearGradient(1, 1, 1, Bouton_1_H - Epaisseur_bordure_1_haute_Bouton_1)
; GradientColor(0, RGB(0, 0, 255))
EndIf
RoundBox(Bouton_1_L - Epaisseur_bordure_1_droite_Bouton_1 - Epaisseur_bordure_2_droite_Bouton_1, Epaisseur_bordure_2_haute_Bouton_1 + Epaisseur_bordure_1_haute_Bouton_1, Epaisseur_bordure_2_droite_Bouton_1, Bouton_1_H - Epaisseur_bordure_1_haute_Bouton_1 - Epaisseur_bordure_1_bas_Bouton_1 - Epaisseur_bordure_2_bas_Bouton_1, Arrondi_bordure_2_droite_X_Bouton_1, Arrondi_bordure_2_droite_Y_Bouton_1, Couleur_bordure_2_droite_Bouton_1) ; bordure droite
DrawingMode(DrawingMode_bordure_2_bas_Bouton_1 | #PB_2DDrawing_AlphaBlend)
If Mode_bordure_2_bas_Bouton_1$ = "degrader"
DrawingMode(DrawingMode_bordure_2_bas_Bouton_1 | #PB_2DDrawing_Gradient)
; degrader en verticalle
; LinearGradient(1, 1, 1, 1)
; GradientColor(0, RGB(0, 150, 0))
;
; LinearGradient(1, Epaisseur_bordure_1_haute_Bouton_1, 1, 1)
; GradientColor(1, RGB(255, 0, 0))
; degrader en horizontale
LinearGradient(1, 1, 1, 1)
GradientColor(0, Couleur_1_degrader_bordure_2_bas_Bouton_1)
LinearGradient(1, 1, Bouton_1_L - Epaisseur_bordure_1_gauche_Bouton_1, 1)
GradientColor(1, Couleur_2_degrader_bordure_2_bas_Bouton_1)
EndIf
RoundBox(Epaisseur_bordure_1_gauche_Bouton_1, Bouton_1_H - Epaisseur_bordure_1_bas_Bouton_1 - Epaisseur_bordure_2_bas_Bouton_1, Bouton_1_L - Epaisseur_bordure_1_gauche_Bouton_1 - Epaisseur_bordure_1_droite_Bouton_1 - Epaisseur_bordure_2_droite_Bouton_1, Epaisseur_bordure_2_bas_Bouton_1, Arrondi_bordure_2_bas_X_Bouton_1, Arrondi_bordure_2_bas_Y_Bouton_1, Couleur_bordure_2_bas_Bouton_1) ; bordure bas
DrawingMode(DrawingMode_bordure_2_gauche_Bouton_1 | #PB_2DDrawing_AlphaBlend)
If Mode_bordure_2_gauche_Bouton_1$ = "degrader"
DrawingMode(DrawingMode_bordure_2_gauche_Bouton_1 | #PB_2DDrawing_Gradient)
; degrader en verticalle
LinearGradient(1, 1, 1, 1)
GradientColor(1, Couleur_1_degrader_bordure_2_gauche_Bouton_1)
LinearGradient(1, Bouton_1_H - Epaisseur_bordure_1_haute_Bouton_1, 1, 1)
GradientColor(0, Couleur_2_degrader_bordure_2_gauche_Bouton_1)
; degrader en horizontale
; LinearGradient(1, 1, 1, 1)
; GradientColor(1, RGB(255, 0, 0))
;
; LinearGradient(1, 1, 1, Bouton_1_H - Epaisseur_bordure_1_haute_Bouton_1)
; GradientColor(0, RGB(0, 0, 255))
EndIf
RoundBox(Epaisseur_bordure_1_gauche_Bouton_1, Epaisseur_bordure_1_haute_Bouton_1, Epaisseur_bordure_2_gauche_Bouton_1, Bouton_1_H - Epaisseur_bordure_1_bas_Bouton_1 - Epaisseur_bordure_1_haute_Bouton_1 - Epaisseur_bordure_2_bas_Bouton_1, Arrondi_bordure_2_gauche_X_Bouton_1, Arrondi_bordure_2_gauche_Y_Bouton_1, Couleur_bordure_2_gauche_Bouton_1) ; bordure gauche
StopDrawing()
ImageGadget(#ImageGadget, Bouton_1_X, Bouton_1_Y, Bouton_1_L - Epaisseur_bordure_1_gauche_Bouton_1 - Epaisseur_bordure_1_droite_Bouton_1, Bouton_1_H - Epaisseur_bordure_1_haute_Bouton_1 - Epaisseur_bordure_1_bas_Bouton_1, ImageID(#Planche_Image))
Repeat ; Start of the event loop
Event = WaitWindowEvent() ; This line waits until an event is received from Windows
WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
GadgetID = EventGadget() ; Is it a gadget event?
EventType = EventType() ; The event type
If Event = #PB_Event_Gadget
If GadgetID = #ImageGadget
EndIf
EndIf
Until Event = #PB_Event_CloseWindow ; End of the event loop
EndIf
EndProcedure
Open_Window_0()
et ce qui est bien c'est que plus besoin de réafréchire car sa le fait tous seulle