Code : Tout sélectionner
Global Window_0
Global PoliceID
;Global ImageDeFond
Global Frame3DEx0, Frame3DEx1, Frame3DEx2, Frame3DEx3, Frame3DEx4
Global Button0, Explorer0
LoadFont (PoliceID, "Courier", 24, #PB_Font_Underline)
Procedure Frame3DEx(ID, x, y, Largeur, Hauteur, Arrondi, Texte$, Options=0, CouleurBordure=0, CouleurTexte=0, CouleurFond=-1, PoliceID=-1)
Protected IDGadget,OK, CouleurFond0, W, H, DecalageGauche
; Options:
; 0 : Cadre standard
; #PB_Frame3D_Single: Cadre enfoncé
; #PB_Frame3D_Double: Cadre doublement enfoncé
; #PB_Frame3D_Flat : Cadre simple avec arrondi ou non
;Création du Gadget
If ID=#PB_Any
IDGadget=CanvasGadget(#PB_Any, x, y, Largeur, Hauteur )
;IDGadget=ContainerGadget(#PB_Any, x, y, Largeur, Hauteur )
If IDGadget=0
MessageRequester("Alerte.","Le Gadget Frame3D n'a pas pu être créé.")
End
EndIf
Else
ok=CanvasGadget(ID, x, y, Largeur, Hauteur )
If ok=0
MessageRequester("Alerte.","Le Gadget Frame3D n'a pas pu être créé.")
End
EndIf
IDGadget= ID
EndIf
;Dessin
;Couleur de fond
StartDrawing(WindowOutput(Window_0))
CouleurFond0=Point(x,y)
StopDrawing()
ok=StartDrawing(CanvasOutput(IDGadget))
If ok=0
MessageRequester("Alerte.","Le Gadget Frame3D n'a pas pu être dessiné.")
End
EndIf
;Si on utilise une police perso
If PoliceID<>-1
DrawingFont(FontID(PoliceID))
SetGadgetFont(IDGadget, PoliceID)
EndIf
;Dim du texte
W=TextWidth(Texte$)
H=TextHeight("MgWy")
DrawingMode(#PB_2DDrawing_Default)
;Fond "transparent"
Box(0, 0, Largeur, Hauteur, CouleurFond0);
;Cadre
DrawingMode(#PB_2DDrawing_Outlined )
Select Options
Case 0 ;Standard
Box(0, H/2+1, Largeur, Hauteur-H/2-1, CouleurBordure)
Box(1, H/2+2, Largeur-2, Hauteur-H/2-3, CouleurBordure)
Box(1, H/2+2, Largeur-1, Hauteur-H/2-2, #White)
If CouleurFond <>-1
FrontColor(CouleurFond)
FillArea(Largeur/2,Hauteur/2,-1,CouleurFond)
EndIf
Case #PB_Frame3D_Single
Box(0, H/2+1, Largeur, Hauteur-H/2-1, #White)
Box(0, H/2+1, Largeur+1, Hauteur-H/2, CouleurBordure)
If CouleurFond <>-1
FrontColor(CouleurFond)
FillArea(Largeur/2,Hauteur/2,-1,CouleurFond)
EndIf
Case #PB_Frame3D_Double
Box(0, H/2+1, Largeur, Hauteur-H/2-1, #White)
Box(0, H/2+1, Largeur+1, Hauteur-H/2, CouleurBordure)
Box(1, H/2+2, Largeur+1, Hauteur-H/2, CouleurBordure)
If CouleurFond <>-1
FrontColor(CouleurFond)
FillArea(Largeur/2,Hauteur/2,-1,CouleurFond)
EndIf
Case #PB_Frame3D_Flat
RoundBox(0, H/2+1, Largeur, Hauteur-H/2-1, Arrondi, Arrondi , CouleurBordure)
If CouleurFond <>-1
FrontColor(CouleurFond)
FillArea(Largeur/2,Hauteur/2,-1,CouleurFond)
EndIf
Default
RoundBox(0, H/2+1, Largeur, Hauteur-H/2-1, Arrondi, Arrondi , CouleurBordure)
If CouleurFond <>-1
FrontColor(CouleurFond)
FillArea(Largeur/2,Hauteur/2,-1,CouleurFond)
EndIf
EndSelect
;Texte
If CouleurFond=-1
CouleurFond=CouleurFond0
EndIf
DecalageGauche=10
DrawText(DecalageGauche, 0, Texte$ , CouleurTexte, CouleurFond)
StopDrawing()
DisableGadget(IDGadget,1)
ProcedureReturn IDGadget
EndProcedure
Procedure InitWindow_0()
Window_0 = OpenWindow(#PB_Any, 0, 0, 600, 400, "Frame3DEx", #PB_Window_SystemMenu)
Frame3DEx0 = Frame3DEx(#PB_Any, 50, 20, 500, 100, 0, " Frame3DEx.",0, #Red)
;SetGadgetAttribute(Frame3DEx0, #PB_Canvas_Cursor, #PB_Cursor_Cross)
Frame3DEx1 = Frame3DEx(#PB_Any, 50, 140, 500, 100, 0, "Texte1",#PB_Frame3D_Single,#Blue,#Blue,-1,PoliceID)
Frame3DEx2 = Frame3DEx(#PB_Any, 50, 260, 140, 130, 0, "Texte2",#PB_Frame3D_Double,#Green,#Red)
Frame3DEx3 = Frame3DEx(#PB_Any, 230, 260, 130, 130, 0, "Texte3",#PB_Frame3D_Flat,$808000,#Green,#White)
Frame3DEx4 = Frame3DEx(#PB_Any, 410, 260, 140, 130, 20, "Une infobulle...",#PB_Frame3D_Flat,$80005D)
;GadgetToolTip(Frame3DEx4, "Un petit ToolTip !")
Button0=ButtonGadget(#PB_Any, 60, 40, 50, 20, "TEST")
Explorer0=ExplorerListGadget(#PB_Any, 200, 40, 300, 75, "C:")
EndProcedure
Procedure Window_0_Events(event)
Select event
Case #PB_Event_CloseWindow
ProcedureReturn #False
Case #PB_Event_Gadget
Select EventGadget()
Case Button0
Select EventType()
Case #PB_EventType_LeftClick
Debug " Clic sur le bouton"
EndSelect
EndSelect
EndSelect
ProcedureReturn #True
EndProcedure
InitWindow_0()
Repeat
event = WaitWindowEvent()
Until Window_0_Events(event) = #False
