PureBasic

Code : Tout sélectionner

;************************************************************************************************************************
; Author : MicrodevWeb
; Project Name : Demo module
; File Name : DemoModule.pb
;************************************************************************************************************************
;-* Données du projet structure/ list / map
DeclareModule myData
    Structure pos
        X.i
        Y.i
        W.i
        H.i
    EndStructure
    Structure Sliders
        name.s
        idCanvas.i
        myPos.pos
        *CallBack
        BgColor.i
        FgColor.i
        State.i
    EndStructure
    Global NewList mySliders.Sliders()
EndDeclareModule
Module myData
    
EndModule
;}
;-* Module sliders
DeclareModule sliders
    Declare AddSlider(name.s,X,Y,W,H,BgColor,FgColor,*CallBack)
EndDeclareModule
Module sliders
    EnableExplicit
    ; La je vais utiliser le module data sans devoir entrer son nom
    UseModule myData
    Global gMouseX,gMouseY,ClicOn.b=#False
    Global OldMouseX,OldMousY,HoverSlider.b=#False,OldSate
    Prototype.i Pro(Value,id)
    ;-* LOCAL PORCEDURE
    Declare Draw()
    Procedure WhereIsMonse()
        Protected X=10,Y,W,H=6
        HoverSlider=#False
        With mySliders()\myPos
            W=\W-20
            Y=\H-(mySliders()\State+6)
            If (gMouseX>=X And gMouseX<=(X+W)) And (gMouseY>=Y And gMouseY<=(Y+H))
                SetGadgetAttribute(mySliders()\idCanvas,#PB_Canvas_Cursor,#PB_Cursor_Hand)
                HoverSlider=#True
                ProcedureReturn 
            EndIf
            SetGadgetAttribute(mySliders()\idCanvas,#PB_Canvas_Cursor,#PB_Cursor_Default)
        EndWith
    EndProcedure
    Procedure MoveSlider()
        Protected DepY=OldMousY-gMouseY
        Protected myPro.Pro=mySliders()\CallBack
        mySliders()\State=OldSate+DepY
        Draw()
        myPro(mySliders()\State,ListIndex(mySliders()))
    EndProcedure
    Procedure Event()
        ;1) Je relève l'id du slidder sur lequel a lieu l'évenement
        Protected *Id=GetGadgetData(EventGadget())
        ;2) je pointe sur la liste
        ChangeCurrentElement(mySliders(),*Id)
        ;3) Je gère les évènement
        Select EventType()
            Case #PB_EventType_MouseMove
                ; Relève la position de la souris
                gMouseX=GetGadgetAttribute(mySliders()\idCanvas,#PB_Canvas_MouseX)
                gMouseY=GetGadgetAttribute(mySliders()\idCanvas,#PB_Canvas_MouseY)
                If ClicOn And HoverSlider
                    MoveSlider()
                    ProcedureReturn 
                EndIf
                WhereIsMonse()
            Case #PB_EventType_LeftButtonDown
                If Not ClicOn
                    OldMouseX=gMouseX
                    OldMousY=gMouseY
                    OldSate=mySliders()\State
                    ClicOn=#True
                EndIf
            Case #PB_EventType_LeftButtonUp
                ClicOn=#False
        EndSelect
    EndProcedure
    Procedure Draw()
        StartDrawing(CanvasOutput(mySliders()\idCanvas))
        With mySliders()\myPos
            ; Dessin du fond
            DrawingMode(#PB_2DDrawing_Default)
            Box(0,0,\W,\H,mySliders()\BgColor)
            ; Dessin du contour
            DrawingMode(#PB_2DDrawing_Outlined)
            Box(0,0,\W,\H,mySliders()\FgColor)
            ; Dessin du slider
            DrawingMode(#PB_2DDrawing_Default)
            Box(10,\H-(mySliders()\State+6),\W-20,6,mySliders()\FgColor)
        EndWith
        StopDrawing()
    EndProcedure
    ;}
    ;-* PUBLIC PORCEDURE
    Procedure AddSlider(name.s,X,Y,W,H,BgColor,FgColor,*CallBack)
        ; 1) ajout dans la liste
        AddElement(mySliders())
        With mySliders()
            \name=name
            \BgColor=BgColor
            \FgColor=FgColor
            \myPos\X=X
            \myPos\Y=Y
            \myPos\W=W
            \myPos\H=H
            \CallBack=*CallBack
            ; Au depart le niveau est à 0
            \State=0
            ; 2) Création du canvas
            \idCanvas=CanvasGadget(#PB_Any,X,Y,W,H)
            ; 3) ICI je mémorise dans le canvas le pointeur de la liste, pour la gestion de Event
            SetGadgetData(\idCanvas,@mySliders())
            ;4) Je place le caalback event
            BindGadgetEvent(\idCanvas,@Event())
        EndWith
        Draw()
        ; Je renvoie l'index de la liste, cela poura être ustiliser par d'autre paramètre
        ProcedureReturn ListIndex(mySliders())
    EndProcedure
    ;}
EndModule
;}
;-* MODULE mainForm
DeclareModule mainForm
    Declare Open()
EndDeclareModule
Module mainForm
    EnableExplicit
    Global Form
    Procedure Exit()
        End
    EndProcedure
    Procedure EventSlider(Value,Id)
        Debug "Le sqlider "+Str(Id)+" a la valeur "+Str(Value)
    EndProcedure
    Procedure Open()
        Protected X=20
        Form=OpenWindow(#PB_Any,0,0,800,600,"teste",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
        BindEvent(#PB_Event_CloseWindow,@Exit(),Form)
        ; Ajout des sliders
        sliders::AddSlider("Slider 1",X,20,50,300,$D1CE00,$000000,@EventSlider())
        X+70
        sliders::AddSlider("Slider 2",X,20,50,300,$00FF00,$000000,@EventSlider())
        X+70
        sliders::AddSlider("Slider 3",X,20,50,300,$00A5FF,$000000,@EventSlider())
        X+70
        sliders::AddSlider("Slider 3",X,20,50,300,$9314FF,$000000,@EventSlider())
        
    EndProcedure
EndModule
mainForm::Open()
Repeat:WaitWindowEvent():ForEver