;************************************************************************************************************************
; Author : MicrodevWeb
; Project Name : Module ScroolCanvas
; File Name : Main.pb
; Module : NULL
; Description : Teste Module ScroolCanvas
; Version: B0.1  Date of begin : 2016/04/24
;************************************************************************************************************************
XIncludeFile "ScroolCanvas.pbi"
Global Dim myScroll.s(7)
Global Teste
For N=0 To 7
    myScroll(N)="ascensseur "+Str(N)
Next
#MainForm=0
#Canvas=0
#btDisable=1
 #btMode=2
Procedure EventScroll(IdScroll,Value,MyData)
    Debug " L'"+myScroll(MyData)+" a la valeur "+Str(Value)
EndProcedure
Procedure EventDisableScroll()
    Select ScrollCanvas::GetState(Teste)
        Case #True
            ScrollCanvas::Disable(Teste,#False)
        Case #False
            ScrollCanvas::Disable(Teste,#True)
    EndSelect
    StartDrawing(CanvasOutput(#Canvas))
    Box(0,0,GadgetWidth(#Canvas),GadgetHeight(#Canvas),$FFFFFF)
    StopDrawing()
    ScrollCanvas::Draw()
EndProcedure
Procedure EventMoveScroll()
    ScrollCanvas::Resize(Teste,100,#PB_Ignore,650,#PB_Ignore)
    StartDrawing(CanvasOutput(#Canvas))
    Box(0,0,GadgetWidth(#Canvas),GadgetHeight(#Canvas),$FFFFFF)
    StopDrawing()
    ScrollCanvas::Draw()
EndProcedure
OpenWindow(#MainForm,0,0,800,600,"Teste ScrollCanvas",#PB_Window_SystemMenu|#PB_Window_Maximize)
CanvasGadget(#Canvas,0,0,WindowWidth(#MainForm),400)
ScrollCanvas::InitScroll(#Canvas,@EventScroll())
ScrollCanvas::Add(#PB_Any,50,40,10,150,0,1000,10,0,0)
ScrollCanvas::Add(#PB_Any,100,40,20,150,0,100,10,0,1)
ScrollCanvas::Add(#PB_Any,150,40,30,150,0,100,10,0,2)
ScrollCanvas::Add(#PB_Any,200,40,40,150,0,100,10,0,3)

ScrollCanvas::Add(#PB_Any,50,220,150,10,0,100,10,0,4,ScrollCanvas::#Horizontal)
Teste=ScrollCanvas::Add(#PB_Any,50,270,300,20,0,1000,10,0,5,ScrollCanvas::#Horizontal)
ScrollCanvas::Add(#PB_Any,50,320,150,30,0,100,10,0,6,ScrollCanvas::#Horizontal)
ScrollCanvas::Add(#PB_Any,50,370,400,40,0,10,10,0,7,ScrollCanvas::#Horizontal)
ScrollCanvas::Draw()
ButtonGadget(#btDisable,50,450,90,30,"Disable")
BindGadgetEvent(#btDisable,@EventDisableScroll())
ButtonGadget(#btMode,50,550,90,30,"Move")
BindGadgetEvent(#btMode,@EventMoveScroll())
Global Event
Repeat
    Event=WaitWindowEvent()
Until Event=#PB_Event_CloseWindow
ScrollCanvas::Free()
End

; IDE Options = PureBasic 5.42 LTS (Windows - x64)
; CursorPosition = 8
; Folding = -
; EnableUnicode
; EnableXP
; IDE Options = PureBasic 5.41 LTS (Windows - x64)
; CursorPosition = 68
; FirstLine = 8
; Folding = -
; EnableUnicode
; EnableXP
; EnableUser
; EnableCompileCount = 0
; EnableBuildCount = 0