;************************************************************************************************************************ ; Author : MicrodevWeb ; Project Name : Module ScroolCanvas ; File Name : ScroolCanvas.pbi ; Module :ScrollCanvas ; Description : Module ScrollCanvas ; Version: B0.1 Date of begin : 2016/04/24 ;************************************************************************************************************************ DeclareModule ScrollCanvas ;-* PUBLIC VARIABLE/LIST/MAP/CONSTANTE Enumeration #Vertical #Horizontal EndEnumeration ;} ;-* PUBLIC DECLARATION Declare InitScroll(IdCanvas,*ProcedureCallback) ;{ InitScroll initialisation du scrollBar ; IdCanvas --> Le canvas ou sernot déssiné les scrollBar ; La procédure qui sera appellée à chaque événement ; ------ La procédure doit être déclarée comme suit ; Procedure (IdScroll.i,Value.i,ValReturn) ; ---> IdScroll l'id renseigné ou récupéré avec Add ; ---> Value la valeur du ScrollBar ; ---> La valeur personnel passé au l'ors de la création avec Add ;} Declare Add(Id,X,Y,W,H,min,max,ScrollStep,ScrollValues=0,returnValue=0,type=ScrollCanvas::#Vertical) Declare Disable(Id,State.b=#True) ;{ Disable désactive ou active le ScrollBar ; Id --> Numéro identifiant précédement renseigné ou récupère avec Add ; State #True le ScrollBar est désactivé, #False le ScrollBar est désactivé ; VALEUR DE RETOUR ; #True si ca c'est bien passé ; #Faalse si Echec ;} Declare Draw() ;{ Draw dessine le ScrollBar ;} ;} Declare Free() ;{ Free Libère tous les ScrollBar IL EST IMPORTANT D'APPELER CETTE FONCTION POUR LIBERER LE TREAD ;} Declare GetState(Id) ;{ GetState renoyer l'état du scrollbar ; Id --> Numéro identifiant précédement renseigné ou récupère avec Add ; VALEUR DE RETOUR ; #True si le scrollbar est désactivé ; #False si le scrollbar est activé ;} Declare Resize(Id,X,Y,W,H) ;{ Resize changer la taile et ou la position ; Id --> Numéro identifiant précédement renseigné ou récupère avec Add ; X,Y,W,H nouvelle valeur ou #Pb_ignore ; VALEUR DE RETOUR ; #True si bien modié ; #False si échec ;} Declare GetValue(Id) ;{ GetValue renvoie la valeur du ScrollBar ; Id --> Numéro identifiant précédement renseigné ou récupère avec Add ; VALEUR DE RETOUR ; La valeur du scrollbar ; #False si échec ;} Declare SetValue(Id,Value) ;{ SetValue Modifier la valeur du Scroolbar ; Id --> Numéro identifiant précédement renseigné ou récupère avec Add ; Value --> La nouvelle valeur ; VALEUR DE RETOUR ; #True si bien modié ; #False si échec ;} Declare SetMinMaxStep(Id,Min,Max,myStep) ;{ SetMinMaxStep modifie les valeur Min/Max/Step ; Id --> Numéro identifiant précédement renseigné ou récupère avec Add ;,Min,Max,myStep les nouvelles valeur ; VALEUR DE RETOUR ; #True si bien modié ; #False si échec ;} ;} EndDeclareModule Module ScrollCanvas EnableExplicit UsePNGImageDecoder() UseSQLiteDatabase() Prototype.i prPro(Id.i,Value.i,ValReturn.i) ;-* LOCAL VARIABLE/LIST/MAP/CONSTANTE Structure pos X.i Y.i W.i H.i EndStructure Structure Scroll Disable.b myPos.pos Type.i HOverArowRigth.b HOverArowLeft.b HOverButton.b HOverStepDown.b HOverStepUp.b HoverArowUp.b HoverArowDown.b myMin.i myMax.i UnityMove.f myState.i myStep.i DecalButton.i Margin.i PosArrowRigth.pos PosArrowLeft.pos PosArrowUp.pos PosArrowDown.pos PosButton.pos WorksBox.pos RefreshOn.b ClicOn.b TemporyClick.i ValReturn.i EndStructure Global NewMap myScroll.Scroll() Global Canvas.i,Db.i Global *CallBack Global LeftArow=CatchImage(#PB_Any,?LeftArow) Global RigthArow=CatchImage(#PB_Any,?RigthArow) Global UpArow=CatchImage(#PB_Any,?UpArow) Global DownArow=CatchImage(#PB_Any,?DownArow) Global gMouseX,gMouseY,ClicOn.b=#False Global msg.s="Error ScrollCanvas " Global LastScroll=-1 ; Le dernier scroll sur lequel a eu lieu des événement Global myTread Global CurrentTime,Chronos=500 Global EventDisable.b=#False, NoActivScroll.b=#True Global OldMouseX,OldMouseY Global OldPosButton.pos,OldStage ;} ;-* LOCAL DECLARATION Declare DbOpen() Declare DbCreateMemoris() Declare DrawMy() Declare Event() Declare DrawBoxH() Declare DrawBoxV() Declare DrawLeftArrow() Declare DrawDownArrow() Declare DrawUpArrow() Declare DrawButtonH() Declare DrawButtonV() Declare WhereIsMouse() Declare Refresh() Declare IsHoverRightArrow() Declare DbQuery(query.s) Declare DbUpdate(query.s) Declare AddToDb(id,X,Y,W,H) Declare Redraw() Declare IsHoverLeftArrow() Declare IsHoverUpArrow() Declare IsHoverDownArrow() Declare SendCallback() Declare IsHoverButton() Declare MyTread(Value) Declare Incremente() Declare Decremente() Declare MoveButton() Declare MoveButtonH() Declare IsHoverSepUp() Declare StepUp() Declare IsHoverSepDown() Declare StepDown() ;} ;-* PRIVATE PROCEDURE Procedure StepDown() With myScroll() If Not \HOverStepDown:ProcedureReturn :EndIf \myState-\myStep If \myState<\myMin \myState=\myMin EndIf SendCallback() EndWith EndProcedure Procedure StepUp() With myScroll() If Not \HOverStepUp:ProcedureReturn :EndIf \myState+\myStep If \myState>\myMax \myState=\myMax EndIf SendCallback() EndWith EndProcedure Procedure IsHoverSepDown() Protected X1,X2,Y1,Y2 With myScroll() \HOverStepDown=#False Select \Type Case #Horizontal X1=\PosArrowLeft\X+\PosArrowLeft\W X2=\PosButton\X Y1=\PosArrowLeft\Y Y2=\PosArrowLeft\Y+\PosArrowLeft\H If (gMouseX>=X1 And gMouseX<=X2) And (gMouseY>=Y1 And gMouseY<=Y2) \HOverStepDown=#True SetGadgetAttribute(Canvas,#PB_Canvas_Cursor,#PB_Cursor_Hand) Redraw() ProcedureReturn #True EndIf Case #Vertical X1=\PosArrowUp\X X2=\PosArrowUp\X+\PosArrowUp\W Y1=\PosArrowUp\Y+\PosArrowUp\H Y2=\PosButton\Y If (gMouseX>=X1 And gMouseX<=X2) And (gMouseY>=Y1 And gMouseY<=Y2) \HOverStepDown=#True SetGadgetAttribute(Canvas,#PB_Canvas_Cursor,#PB_Cursor_Hand) Redraw() ProcedureReturn #True EndIf EndSelect ProcedureReturn #False EndWith EndProcedure Procedure IsHoverSepUp() Protected X1,X2,Y1,Y2 With myScroll() \HOverStepUp=#False Select \Type Case #Horizontal X1=\PosButton\X+\PosButton\W X2=\PosArrowRigth\X Y1=\PosArrowLeft\Y Y2=\PosArrowLeft\Y+\PosArrowLeft\H If (gMouseX>=X1 And gMouseX<=X2) And (gMouseY>=Y1 And gMouseY<=Y2) \HOverStepUp=#True SetGadgetAttribute(Canvas,#PB_Canvas_Cursor,#PB_Cursor_Hand) Redraw() ProcedureReturn #True EndIf Case #Vertical X1=\PosArrowUp\X X2=\PosArrowUp\X+\PosArrowUp\W Y1=\PosButton\Y+\PosButton\H Y2=\PosArrowDown\Y If (gMouseX>=X1 And gMouseX<=X2) And (gMouseY>=Y1 And gMouseY<=Y2) \HOverStepUp=#True SetGadgetAttribute(Canvas,#PB_Canvas_Cursor,#PB_Cursor_Hand) Redraw() ProcedureReturn #True EndIf EndSelect ProcedureReturn #False EndWith EndProcedure Procedure MoveButtonH() Protected Temp With myScroll() If \DecalButton>0 Temp=Round(\DecalButton/\UnityMove,#PB_Round_Up) If Temp>0 If OldStage+Temp<=\myMax \myState=OldStage+Temp \DecalButton=0 SendCallback() ProcedureReturn EndIf EndIf EndIf If \DecalButton<0 Temp=Round(Abs(\DecalButton)/\UnityMove,#PB_Round_Up) If Temp>0 If OldStage-Temp>=\myMin \DecalButton=0 \myState=OldStage-Temp SendCallback() ProcedureReturn EndIf EndIf EndIf EndWith EndProcedure Procedure MoveButton() Protected DepX=gMouseX-OldMouseX Protected DepY=gMouseY-OldMouseY If NoActivScroll:ProcedureReturn :EndIf With myScroll() Select \Type Case #Horizontal \DecalButton=DepX MoveButtonH() Case #Vertical \DecalButton=DepY MoveButtonH() EndSelect EndWith EndProcedure Procedure Decremente() Protected TimeElapsed With myScroll() If Not \HOverArowLeft And Not \HoverArowUp:ProcedureReturn :EndIf If CurrentTime=0 CurrentTime=ElapsedMilliseconds() EndIf TimeElapsed=ElapsedMilliseconds()-CurrentTime If TimeElapsed<=Chronos Delay(Chronos-TimeElapsed) EndIf If \myState-1>=\myMin \myState-1 Redraw() SendCallback() EndIf EndWith EndProcedure Procedure Incremente() Protected TimeElapsed With myScroll() If Not \HOverArowRigth And Not \HoverArowDown:ProcedureReturn :EndIf If CurrentTime=0 CurrentTime=ElapsedMilliseconds() EndIf TimeElapsed=ElapsedMilliseconds()-CurrentTime If TimeElapsed<=Chronos Delay(Chronos-TimeElapsed) EndIf If \myState+1<=\myMax \myState+1 Redraw() SendCallback() EndIf EndWith EndProcedure Procedure MyTread(Value) Repeat Delay(1) If ClicOn And Not EventDisable And Not NoActivScroll With myScroll() Incremente() Decremente() EndWith EndIf ForEver EndProcedure Procedure IsHoverButton() myScroll()\HOverButton=#False With myScroll()\PosButton If (gMouseX>=\X And gMouseX<=(\X+\W)) And (gMouseY>=\Y And gMouseY<=(\Y+\H)) myScroll()\HOverButton=#True SetGadgetAttribute(Canvas,#PB_Canvas_Cursor,#PB_Cursor_Hand) Redraw() ProcedureReturn #True EndIf ProcedureReturn #False EndWith EndProcedure Procedure SendCallback() Protected myProcedure.prPro=*CallBack With myScroll() myProcedure(Val(MapKey(myScroll())),\myState,\ValReturn) EndWith EndProcedure Procedure DbOpen() ; Ouverture de la base de sonnées en mémoire Db=OpenDatabase(#PB_Any,":memory:","","") ; Création de la table If Db=0 MessageRequester(msg+"OpenDb","Can Not open Database") ProcedureReturn #False EndIf ProcedureReturn #True EndProcedure Procedure DbCreateMemoris() Protected query.s query="CREATE TABLE SCROLL (" query+"id_scroll INTEGER," query+"X1 INTEGER," query+"Y1 INTEGER," query+"X2 INTEGER," query+"Y2 INTEGER" query+")" If Not DbUpdate(query) MessageRequester("Error ScrollCanvas DbCreateMemoris","Can not create database") ProcedureReturn #False EndIf ProcedureReturn #True EndProcedure Procedure DbQuery(query.s) If DatabaseQuery(Db,query)=0 MessageRequester("Error ScrollCanvas DbQuery",DatabaseError()) ProcedureReturn #False EndIf ProcedureReturn #True EndProcedure Procedure DbUpdate(query.s) If DatabaseUpdate(Db,query)=0 MessageRequester("Error ScrollCanvas DbUpdate",DatabaseError()) ProcedureReturn #False EndIf ProcedureReturn #True EndProcedure Procedure Refresh() If FindMapElement(myScroll(),Str(LastScroll))=0 MessageRequester(msg+"Refresh","The lastId "+Str(LastScroll)+" not exists") LastScroll=-1 ProcedureReturn EndIf With myScroll() If \Disable:ProcedureReturn :EndIf \HoverArowDown=#False \HOverArowLeft=#False \HOverArowRigth=#False \HoverArowUp=#False \HOverButton=#False \HOverStepDown=#False \HOverStepUp=#False \DecalButton=0 EndWith Redraw() LastScroll=-1 EndProcedure Procedure Redraw() StartDrawing(CanvasOutput(Canvas)) EventDisable=#True DrawMy() EventDisable=#False StopDrawing() EndProcedure Procedure IsHoverDownArrow() myScroll()\HoverArowDown=#False With myScroll()\PosArrowDown If (gMouseX>=\X And gMouseX<=(\X+\W)) And (gMouseY>=\Y And gMouseY<=(\Y+\H)) myScroll()\HoverArowDown=#True SetGadgetAttribute(Canvas,#PB_Canvas_Cursor,#PB_Cursor_Hand) Redraw() ProcedureReturn #True EndIf ProcedureReturn #False EndWith EndProcedure Procedure IsHoverUpArrow() myScroll()\HoverArowUp=#False With myScroll()\PosArrowUp If (gMouseX>=\X And gMouseX<=(\X+\W)) And (gMouseY>=\Y And gMouseY<=(\Y+\H)) myScroll()\HoverArowUp=#True SetGadgetAttribute(Canvas,#PB_Canvas_Cursor,#PB_Cursor_Hand) Redraw() ProcedureReturn #True EndIf ProcedureReturn #False EndWith EndProcedure Procedure IsHoverLeftArrow() myScroll()\HOverArowLeft=#False With myScroll()\PosArrowLeft If (gMouseX>=\X And gMouseX<=(\X+\W)) And (gMouseY>=\Y And gMouseY<=(\Y+\H)) myScroll()\HOverArowLeft=#True SetGadgetAttribute(Canvas,#PB_Canvas_Cursor,#PB_Cursor_Hand) Redraw() ProcedureReturn #True EndIf ProcedureReturn #False EndWith EndProcedure Procedure IsHoverRightArrow() myScroll()\HOverArowRigth=#False With myScroll()\PosArrowRigth If (gMouseX>=\X And gMouseX<=(\X+\W)) And (gMouseY>=\Y And gMouseY<=(\Y+\H)) myScroll()\HOverArowRigth=#True SetGadgetAttribute(Canvas,#PB_Canvas_Cursor,#PB_Cursor_Hand) Redraw() ProcedureReturn #True EndIf ProcedureReturn #False EndWith EndProcedure Procedure WhereIsMouse() Select myScroll()\Type Case #Horizontal If IsHoverRightArrow():ProcedureReturn #True:EndIf If IsHoverLeftArrow():ProcedureReturn #True:EndIf Case #Vertical If IsHoverUpArrow():ProcedureReturn #True:EndIf If IsHoverDownArrow():ProcedureReturn #True:EndIf EndSelect If IsHoverButton():ProcedureReturn #True:EndIf If IsHoverSepUp():ProcedureReturn #True:EndIf If IsHoverSepDown():ProcedureReturn #True:EndIf Refresh() SetGadgetAttribute(Canvas,#PB_Canvas_Cursor,#PB_Cursor_Default) ProcedureReturn #False EndProcedure Procedure DrawButtonV() With myScroll() Protected WG,X,Y,H,W,Image WG=(\myPos\W*0.20)-2 W=\myPos\W-(WG*2) H=(\myPos\H-(W*2))-(\myMax-\myMin) W=W*0.8 Y=\myPos\Y+W+Round(\UnityMove*\myState,#PB_Round_Up) X=(\myPos\X+\myPos\W/2)-(W/2) If H<10 H=10 EndIf Y+\DecalButton If Y+H>\PosArrowDown\Y Y=\PosArrowDown\Y-H EndIf If Y<\PosArrowUp\Y+\PosArrowUp\H Y=\PosArrowUp\Y+\PosArrowUp\H EndIf \UnityMove=((\myPos\H-(W*2))-H)/(\myMax-\myMin) DrawingMode(#PB_2DDrawing_Gradient) If \HOverButton=#False DrawingMode(#PB_2DDrawing_Gradient) BackColor($F4F4F4) GradientColor(0,$D6D6D6) GradientColor(0.5,$CFCFCF) GradientColor(0.6,$D5D5D5) GradientColor(0.8,$DEDEDE) GradientColor(1,$CCCCCC) FrontColor($F4F4F4) Else DrawingMode(#PB_2DDrawing_Gradient) BackColor($FCFBC0) GradientColor(0,$FDFCD2) GradientColor(0.5,$F7F219) GradientColor(0.6,$C5C106) GradientColor(0.8,$B5B106) GradientColor(1,$8B8804) FrontColor($FCFBC0) EndIf LinearGradient(X,Y,X+(W*0.9),Y) Box(X,Y,W,H) \PosButton\X=X \PosButton\Y=Y \PosButton\W=W \PosButton\H=H DrawingMode(#PB_2DDrawing_Outlined) Box(X,Y,W,H,$B5B5B5) ;Dessin des petites lignes du bouton If H>20 Y+(H/2)-2 ResetGradientColors() DrawingMode(#PB_2DDrawing_Gradient) BackColor($9D9D9D) FrontColor($EEEEEE ) H=3 W=W*0.5 X=(\myPos\X+\myPos\W/2)-(W/2) LinearGradient(X,Y,X+(W*0.8),Y) Box(X,Y,W,H) DrawingMode(#PB_2DDrawing_Outlined) Box(X,Y,W,H,$B5B5B5) Y-5 DrawingMode(#PB_2DDrawing_Gradient) BackColor($9D9D9D) FrontColor($EEEEEE ) H=3 X=(\myPos\X+\myPos\W/2)-(W/2) LinearGradient(X,Y,X+(W*0.8),Y) Box(X,Y,W,H) DrawingMode(#PB_2DDrawing_Outlined) Box(X,Y,W,H,$B5B5B5) Y+10 DrawingMode(#PB_2DDrawing_Gradient) BackColor($9D9D9D) FrontColor($EEEEEE ) H=3 X=(\myPos\X+\myPos\W/2)-(W/2) LinearGradient(X,Y,X+(W*0.8),Y) Box(X,Y,W,H) DrawingMode(#PB_2DDrawing_Outlined) Box(X,Y,W,H,$B5B5B5) EndIf EndWith EndProcedure Procedure DrawButtonH() With myScroll() Protected HG,X,Y,H.f,W.f,Image HG=(\myPos\H*0.20)-2 H=\myPos\H-(HG*2) W=(\myPos\W-(H*2))-(\myMax-\myMin) H=H*0.8 X=\myPos\X+H+Round(\UnityMove*\myState,#PB_Round_Up) Y=(\myPos\Y+\myPos\H/2)-(H/2) If W<10 W=10 EndIf X+\DecalButton If X+W>\PosArrowRigth\X X=\PosArrowRigth\X-W EndIf If X<\PosArrowLeft\X+\PosArrowLeft\W X=\PosArrowLeft\X+\PosArrowLeft\W EndIf \UnityMove=((\myPos\W-(H*2))-W)/(\myMax-\myMin) DrawingMode(#PB_2DDrawing_Gradient) If \HOverButton=#False DrawingMode(#PB_2DDrawing_Gradient) BackColor($F4F4F4) GradientColor(0,$D6D6D6) GradientColor(0.5,$CFCFCF) GradientColor(0.6,$D5D5D5) GradientColor(0.8,$DEDEDE) GradientColor(1,$CCCCCC) FrontColor($F4F4F4) Else DrawingMode(#PB_2DDrawing_Gradient) BackColor($FCFBC0) GradientColor(0,$FDFCD2) GradientColor(0.5,$F7F219) GradientColor(0.6,$C5C106) GradientColor(0.8,$B5B106) GradientColor(1,$8B8804) FrontColor($FCFBC0) EndIf LinearGradient(X,Y,X,Y+(H*0.9)) Box(X,Y,W,H) \PosButton\X=X \PosButton\Y=Y \PosButton\W=W \PosButton\H=H DrawingMode(#PB_2DDrawing_Outlined) Box(X,Y,W,H,$B5B5B5) ;Dessin des petite ligne du bouton If W>20 X+(W/2)-2 ResetGradientColors() DrawingMode(#PB_2DDrawing_Gradient) BackColor($9D9D9D) FrontColor($EEEEEE ) W=3 H=H*0.5 Y=(\myPos\Y+\myPos\H/2)-(H/2) LinearGradient(X,Y,X,Y+(H*0.8)) Box(X,Y,W,H) DrawingMode(#PB_2DDrawing_Outlined) Box(X,Y,W,H,$B5B5B5) X-5 DrawingMode(#PB_2DDrawing_Gradient) BackColor($9D9D9D) FrontColor($EEEEEE ) W=3 Y=(\myPos\Y+\myPos\H/2)-(H/2) LinearGradient(X,Y,X,Y+(H*0.8)) Box(X,Y,W,H) DrawingMode(#PB_2DDrawing_Outlined) Box(X,Y,W,H,$B5B5B5) X+10 DrawingMode(#PB_2DDrawing_Gradient) BackColor($9D9D9D) FrontColor($EEEEEE ) W=3 Y=(\myPos\Y+\myPos\H/2)-(H/2) LinearGradient(X,Y,X,Y+(H*0.8)) Box(X,Y,W,H) DrawingMode(#PB_2DDrawing_Outlined) Box(X,Y,W,H,$B5B5B5) EndIf EndWith EndProcedure Procedure DrawUpArrow() With myScroll() Protected WG,X,Y,H,W Y=\myPos\Y+2 WG=(\myPos\W*0.20)-2 W=\myPos\W-(WG*2) W=W*0.8 X=(\myPos\X+(\myPos\W/2))-(W/2) If \HoverStepUp Or \HoverStepDown Or \HoverArowUp DrawingMode(#PB_2DDrawing_Gradient) If \HoverArowUp=#True BackColor($FEFEF1) GradientColor(0,$FDFDDC) GradientColor(0.5,$FCFBC0) GradientColor(0.6,$FBF88A) GradientColor(0.8,$F7F21B) GradientColor(1,$CECA05) FrontColor($FEFEF1) Else BackColor($F4F4F4) GradientColor(0,$D6D6D6) GradientColor(0.5,$CFCFCF) GradientColor(0.6,$D5D5D5) GradientColor(0.8,$DEDEDE) GradientColor(1,$CCCCCC) FrontColor($F4F4F4) EndIf LinearGradient(X,Y,X+W*0.5,Y) Box(X,Y,W,W) ;ResetGradientColors() DrawingMode(#PB_2DDrawing_Outlined) Box(X,Y,W,W,$9D9D9D) EndIf DrawingMode(#PB_2DDrawing_AlphaClip) DrawImage(ImageID(UpArow),X,Y,W,W) \PosArrowUp\X=X \PosArrowUp\Y=Y \PosArrowUp\W=W \PosArrowUp\H=W EndWith EndProcedure Procedure DrawDownArrow() With myScroll() Protected WG,X,Y,H,W,Image WG=(\myPos\W*0.20)-2 W=\myPos\W-(WG*2) W=W*0.8 Y=(\myPos\Y+\myPos\H)-(W+2) X=(\myPos\X+\myPos\W/2)-(W/2) If \HoverStepUp Or \HoverStepDown Or \HoverArowDown DrawingMode(#PB_2DDrawing_Gradient) If \HoverArowDown=#True BackColor($FEFEF1) GradientColor(0,$FDFDDC) GradientColor(0.5,$FCFBC0) GradientColor(0.6,$FBF88A) GradientColor(0.8,$F7F21B) GradientColor(1,$CECA05) FrontColor($FEFEF1) Else BackColor($F4F4F4) GradientColor(0,$D6D6D6) GradientColor(0.5,$CFCFCF) GradientColor(0.6,$D5D5D5) GradientColor(0.8,$DEDEDE) GradientColor(1,$CCCCCC) FrontColor($F4F4F4) EndIf LinearGradient(X,Y,X+W*0.5,Y) Box(X,Y,W,W) ;ResetGradientColors() DrawingMode(#PB_2DDrawing_Outlined) Box(X,Y,W,W,$9D9D9D) EndIf DrawingMode(#PB_2DDrawing_AlphaClip) DrawImage(ImageID(DownArow),X,Y,W,W) \PosArrowDown\X=X \PosArrowDown\Y=Y \PosArrowDown\W=W \PosArrowDown\H=W EndWith EndProcedure Procedure DrawRightArrow() With myScroll() Protected HG,X,Y,H,W HG=(\myPos\H*0.20)-2 H=\myPos\H-(HG*2) H=H*0.8 ;Centrage Y=(\myPos\Y+(\myPos\H/2))-(H/2) X=(\myPos\X+\myPos\W)-(H+2) If \HoverStepUp Or \HOverStepDown Or \HOverArowRigth DrawingMode(#PB_2DDrawing_Gradient) If \HOverArowRigth=#True BackColor($FEFEF1) GradientColor(0,$FDFDDC) GradientColor(0.5,$FCFBC0) GradientColor(0.6,$FBF88A) GradientColor(0.8,$F7F21B) GradientColor(1,$CECA05) FrontColor($FEFEF1) Else BackColor($F4F4F4) GradientColor(0,$D6D6D6) GradientColor(0.5,$CFCFCF) GradientColor(0.6,$D5D5D5) GradientColor(0.8,$DEDEDE) GradientColor(1,$CCCCCC) FrontColor($F4F4F4) EndIf LinearGradient(X,Y,X,Y+(H*0.5)) Box(X,Y,H,H) DrawingMode(#PB_2DDrawing_Outlined) Box(X,Y,H,H,$9D9D9D) EndIf DrawingMode(#PB_2DDrawing_AlphaClip) DrawImage(ImageID(LeftArow),X,Y,H,H) \PosArrowRigth\X=X \PosArrowRigth\Y=Y \PosArrowRigth\W=H \PosArrowRigth\H=H EndWith EndProcedure Procedure DrawLeftArrow() Protected HG,X,Y,H,W With myScroll() X=\myPos\X+2 HG=(\myPos\H*0.20)-2 H=\myPos\H-(HG*2) H=H*0.8 ;Centrage Y=(\myPos\Y+(\myPos\H/2))-(H/2) If \HoverStepUp Or \HoverStepDown Or \HOverArowLeft DrawingMode(#PB_2DDrawing_Gradient) If \HOverArowLeft=#True BackColor($FEFEF1) GradientColor(0,$FDFDDC) GradientColor(0.5,$FCFBC0) GradientColor(0.6,$FBF88A) GradientColor(0.8,$F7F21B) GradientColor(1,$CECA05) FrontColor($FEFEF1) Else BackColor($F4F4F4) GradientColor(0,$D6D6D6) GradientColor(0.5,$CFCFCF) GradientColor(0.6,$D5D5D5) GradientColor(0.8,$DEDEDE) GradientColor(1,$CCCCCC) FrontColor($F4F4F4) EndIf LinearGradient(X,Y,X,Y+(H*0.5)) Box(X,Y,H,H) DrawingMode(#PB_2DDrawing_Outlined) Box(X,Y,H,H,$9D9D9D) EndIf DrawingMode(#PB_2DDrawing_AlphaClip) DrawImage(ImageID(RigthArow),X,Y,H,H) \PosArrowLeft\X=X \PosArrowLeft\Y=Y \PosArrowLeft\W=H \PosArrowLeft\H=H EndWith EndProcedure Procedure DrawBoxH() Protected Y,H DrawingMode(#PB_2DDrawing_Default) With myScroll() Box(\myPos\X,\myPos\Y,\myPos\W,\myPos\H,$F6F6F6) Y=\myPos\Y H=\myPos\H*0.20 DrawingMode(#PB_2DDrawing_Gradient) BackColor($E3E3E3) GradientColor(0.2,$F8F8F8) FrontColor($E7E7E7) LinearGradient(\myPos\X,Y,\myPos\X,Y+(H*0.4)) Box(\myPos\X,Y,\myPos\W,H) DrawingMode(#PB_2DDrawing_Outlined) Box(\myPos\X,Y,\myPos\W,H,$D9D9D9) Y+(\myPos\H-H) DrawingMode(#PB_2DDrawing_Gradient) BackColor($E3E3E3) GradientColor(0.2,$F8F8F8) FrontColor($E7E7E7) LinearGradient(\myPos\X,Y,\myPos\X,Y+(H*0.4)) Box(\myPos\X,Y,\myPos\W,H) DrawingMode(#PB_2DDrawing_Outlined) Box(\myPos\X,Y,\myPos\W,H,$D9D9D9) EndWith EndProcedure Procedure DrawBoxV() Protected X,W DrawingMode(#PB_2DDrawing_Default) With myScroll() Box(\myPos\X,\myPos\Y,\myPos\W,\myPos\H,$F6F6F6) X=\myPos\X W=\myPos\W*0.20 DrawingMode(#PB_2DDrawing_Gradient) BackColor($E3E3E3) GradientColor(0.2,$F8F8F8) FrontColor($E7E7E7) LinearGradient(X,\myPos\Y,X+W*(0.4),\myPos\Y) Box(X,\myPos\Y,W,\myPos\H) DrawingMode(#PB_2DDrawing_Outlined) Box(X,\myPos\Y,W,\myPos\H,$D9D9D9) X+(\myPos\W-W) DrawingMode(#PB_2DDrawing_Gradient) BackColor($E3E3E3) GradientColor(0.2,$F8F8F8) FrontColor($E7E7E7) LinearGradient(X,\myPos\Y,X+W*(0.1),\myPos\Y) Box(X,\myPos\Y,W,\myPos\H) DrawingMode(#PB_2DDrawing_Outlined) Box(X,\myPos\Y,W,\myPos\H,$D9D9D9) EndWith EndProcedure Procedure DrawMy() Select myScroll()\Type Case #Horizontal DrawBoxH() DrawRightArrow() DrawLeftArrow() DrawButtonH() Case #Vertical DrawBoxV() DrawDownArrow() DrawUpArrow() DrawButtonV() EndSelect EndProcedure Procedure FindScroll() Protected query.s ; Relève les postions de la souris gMouseX=GetGadgetAttribute(Canvas,#PB_Canvas_MouseX) gMouseY=GetGadgetAttribute(Canvas,#PB_Canvas_MouseY) ;Regarde sur que Scroll on est query="SELECT id_scroll FROM SCROLL " query+"WHERE (X1<="+gMouseX+" AND " query+"X2>="+gMouseX+") AND " query+"(Y1<="+gMouseY+" AND " query+"(Y2)>="+gMouseY+")" If Not DbQuery(query) ProcedureReturn #False EndIf If FirstDatabaseRow(Db)=0 ProcedureReturn #False EndIf If FindMapElement(myScroll(),Str(GetDatabaseLong(Db,0)))=0 MessageRequester(msg+"FindScroll","This Id "+Str(GetDatabaseLong(Db,0))+" not exists") ProcedureReturn #False EndIf LastScroll=GetDatabaseLong(Db,0) FinishDatabaseQuery(Db) ProcedureReturn #True EndProcedure Procedure Event() If EventDisable:ProcedureReturn :EndIf ; Si aucun scroll on sort If Not FindScroll() If LastScroll<>-1 Refresh() EndIf NoActivScroll=#True CurrentTime=0 ClicOn=#False SetGadgetAttribute(Canvas,#PB_Canvas_Cursor,#PB_Cursor_Default) ProcedureReturn EndIf If myScroll()\Disable NoActivScroll=#True ProcedureReturn EndIf NoActivScroll=#False Select EventType() Case #PB_EventType_MouseMove ;si le bt gauche n'est pas enfoncé If Not ClicOn WhereIsMouse() Else If myScroll()\HOverButton MoveButton() Redraw() EndIf EndIf Case #PB_EventType_LeftButtonDown ;si le bt gauche n'est pas enfoncé If Not ClicOn OldMouseX=gMouseX OldMouseY=gMouseY OldPosButton\X=myScroll()\PosButton\X OldMouseY=myScroll()\PosButton\Y OldStage=myScroll()\myState StepUp() StepDown() ClicOn=#True EndIf Case #PB_EventType_LeftButtonUp myScroll()\DecalButton=0 CurrentTime=0 ; Reset le chrono ClicOn=#False NoActivScroll=#True EndSelect EndProcedure Procedure AddToDb(id,X,Y,W,H) ;A jout de l'id et des position à la db cela permettra de les ; retouver plus facilement qu'avec une boucle Protected query.s query="INSERT INTO SCROLL (" query+"id_scroll,X1,Y1,X2,Y2) VALUES (" query+Str(id)+","+Str(X)+","+Str(Y)+","+Str(X+W)+","+Str(Y+H)+")" If Not DbUpdate(query) ProcedureReturn #False EndIf ProcedureReturn #True EndProcedure ;} ;-* PUBLIC PROCEDURE Procedure Draw() ; Dessin de tous les crollbar StartDrawing(CanvasOutput(Canvas)) EventDisable=#True ForEach myScroll() If Not myScroll()\Disable DrawMy() EndIf Next StopDrawing() EventDisable=#False BindGadgetEvent(Canvas,@Event()) myTread=CreateThread(@myTread(),1) EndProcedure Procedure Disable(Id,State.b=#True) ; Active ou désactive le ScrollBar ; Vérifie si la map existe If FindMapElement(myScroll(),Str(Id))=0 MessageRequester("Error SrollCanvas Disable","This Id "+Str(id)+" not exists") ProcedureReturn #False EndIf ; Place le callback ou enlève le callback Select State Case #False BindGadgetEvent(Canvas,@Event()) Case #True UnbindGadgetEvent(Canvas,@Event()) EndSelect With myScroll() \Disable=State EndWith ProcedureReturn #True EndProcedure Procedure InitScroll(IdCanvas,*ProcedureCallback) If Not DbOpen():ProcedureReturn #False :EndIf DbCreateMemoris() Canvas=IdCanvas *CallBack=*ProcedureCallback EndProcedure Procedure Add(Id,X,Y,W,H,min,max,ScrollStep,ScrollValues=0,returnValue=0,type=ScrollCanvas::#Vertical) If Id=#PB_Any Id=0 While FindMapElement(myScroll(),Str(Id))<>0 Id+1 Wend Else If FindMapElement(myScroll(),Str(Id))<>0 MessageRequester(msg+"Add","This Id "+Str(Id)+" allready exists") ProcedureReturn -1 EndIf EndIf AddMapElement(myScroll(),Str(Id)) With myScroll()\myPos \X=X \Y=Y \W=W \H=H EndWith With myScroll() \myState=ScrollValues \myStep=ScrollStep \myMax=max \myMin=min \Disable=#False \ValReturn=returnValue \Type=type EndWith If Not AddToDb(id,X,Y,W,H) ProcedureReturn -1 EndIf ProcedureReturn Id ProcedureReturn -1 EndProcedure Procedure Free() ClearMap(myScroll()) If myTread>0 KillThread(myTread) EndIf EndProcedure Procedure GetState(Id) ; Renvoyer l'état du scrollbar ; Vérifie si la map existe If FindMapElement(myScroll(),Str(Id))=0 MessageRequester("Error SrollCanvas Disable","This Id "+Str(id)+" not exists") ProcedureReturn #False EndIf ProcedureReturn myScroll()\Disable EndProcedure Procedure GetValue(Id) ; Renvoyer la valeur du scrollbar ; Vérifie si la map existe If FindMapElement(myScroll(),Str(Id))=0 MessageRequester("Error SrollCanvas Disable","This Id "+Str(id)+" not exists") ProcedureReturn #False EndIf ProcedureReturn myScroll()\myState EndProcedure Procedure SetValue(Id,Value) ; Modifier la valeur du scrollbar ; Vérifie si la map existe If FindMapElement(myScroll(),Str(Id))=0 MessageRequester("Error SrollCanvas Disable","This Id "+Str(id)+" not exists") ProcedureReturn #False EndIf myScroll()\myState=Value ProcedureReturn #True EndProcedure Procedure SetMinMaxStep(Id,Min,Max,myStep) ; Modifier les valeur Min/Max/Step ; Vérifie si la map existe If FindMapElement(myScroll(),Str(Id))=0 MessageRequester("Error SrollCanvas Disable","This Id "+Str(id)+" not exists") ProcedureReturn #False EndIf myScroll()\myMin=Min myScroll()\myMax=Max myScroll()\myStep=myStep ProcedureReturn #True EndProcedure Procedure Resize(Id,X,Y,W,H) Protected query.s ; Modiifier la taille et ou la position ; Vérifie si la map existe If FindMapElement(myScroll(),Str(Id))=0 MessageRequester("Error SrollCanvas Disable","This Id "+Str(id)+" not exists") ProcedureReturn #False EndIf With myScroll()\myPos If X<>#PB_Ignore \X=X EndIf If Y<>#PB_Ignore \Y=Y EndIf If W<>#PB_Ignore \W=W EndIf If H<>#PB_Ignore \H=H EndIf query="UPDATE SCROLL " query+" SET X1="+Str(\X)+",Y1="+Str(\Y)+",X2="+Str(\X+\W)+",Y2="+Str(\Y+\H) query+" WHERE id_scroll="+Str(Id) If Not DbUpdate(query) ProcedureReturn #False EndIf ProcedureReturn #True EndWith EndProcedure ;} DataSection LeftArow: ; size : 2850 bytes Data.q $0A1A0A0D474E5089,$524448490D000000,$1400000014000000,$1D898D0000000608,$434369370A00000D Data.q $4549204247527350,$322D363639313643,$969D9C780000312E,$BDCF8716D9535477,$D0948A109250BD37 Data.q $48BD0D480252686B,$C04A1009312A2E91,$4470544436220090,$80E0283208A69151,$01858A22B19143A3 Data.q $71D4441904EBB151,$19AD6449961B1470,$1FDF9BCDEF79BCDF,$67DDCFBD9F6B7EF7,$83FC9000BAD67DEF Data.q $A10C8009584CC205,$8B8D88C5E7E11458,$0300F00C01076067,$1642B3B370E0006C,$8CD87C02990246F8 Data.q $0EBABD17F813996C,$C18C3FD32AFBF920,$312259B9949FFF00,$D9F8F2E78C985000,$9C573D38C917195C Data.q $4D34B698C94FB725,$32825922CE4A30CE,$F67C5B2CF2739356,$3C8432F3390F6599,$E4F065E2CE73CB19 Data.q $8CBE12398DE327DC,$B9F808E717196091,$864974836326BE32,$4E7C19B1E46FC640,$73E62EDC92280036 Data.q $322892632D6C6453,$C948E00079E32D82,$13CFCC582FD2F05F,$122E5ACCCEC50FCB,$86535C261988A724 Data.q $4DCFCFE18B13938D,$8D370E30CCC58BE7,$1C591999D831E223,$1459FCCF660072E1,$38D83B22B2196D79 Data.q $28BE6D2D6D303839,$76F7929BFC5D7FD4,$1F4419EE7F845E96,$000D997E57F6C3F8,$6D87FAD9B565A6B0 Data.q $BB5001EB5D001569,$B28A002F60CD87FD,$7CBA1E717D0E75BE,$AB2B672CE2C4525E,$296B9F014B5CDCDC Data.q $437F0E9FFAEFE82F,$E5EFDDBE52CF7C5F,$3174923893F37861,$44A67A666E375E43,$E60CF970E2CEC8C4 Data.q $1E75FE071FF8879F,$942F88BE24FC1116,$964C204CA6CB4445,$4299058813C85BB5,$C30FF89A9FF84086 Data.q $F8DA8996B9D9A4FE,$1A21A5025896D011,$20112A28001E7E40,$0B7DEFD02B647B09,$99D18BCDF90347C6 Data.q $577DFE82CFFB9D98,$8E7F2416C8FE4CB8,$CE5112B832444763,$002034025AFC9AEC,$03E81B40EA034045 Data.q $00B811C0B604C013,$048828410203E00F,$01901482E0316071,$18A0B58014172044,$7506A82760AD8294 Data.q $74187036833411A0,$812E073834E06381,$0E305201DC0460CB,$1040CC0AF029809E,$7487521510C88584 Data.q $905885B21CC84320,$1C5011430503E41B,$1502484243250894,$86AA1CA852A0EB40,$7428E85BE866A1EA Data.q $51A0B7430D00BA1A,$3023077A15FA1268,$056C11B05AC1A609,$17848E08384F60B3,$822E1F3832F0C9C1 Data.q $EE107C037095C0B7,$0A5811E097C34F84,$3A11108011A7813F,$4246C21611308BA2,$90AB211109247891 Data.q $1E90DA406902A412,$C8A791488AB91FA4,$4C5031454506145B,$A2E285151FCA0B94,$51AAA336A156A196 Data.q $D455D43EA89D5007,$6B464D11F50A6A28,$2C7400E8CED1CDA2,$A057462E8B9D193A,$F411E8B3E81DD09B Data.q $8C63A1830615FA38,$15261C4C7F188E31,$8ED31BB319B302B3,$B1A6618CC6198539,$0D8AEB1CD63AAC58 Data.q $0AB6316C62B072C5,$8E3B057B127B107B,$38B67074E223837D,$55C42B884E3C5C5F,$1370577027705AE0 Data.q $8CEF10DE12BC19B8,$F865F1CBF0F3C50F,$9F8E3F087E0F7C46,$4884AE098C132821,$46D092A12D612A42 Data.q $122441784BB84B38,$B880A270C44E88F5,$1C4F3C443C495886,$362466485125BE25,$27ED216D21248129 Data.q $C99320BD22DD229D,$DE4C593C720F6446,$BF27DF219F266E42,$F028042A582AA051,$5C2A7428D42B5614 Data.q $F454345788A67851,$78A158AF98AC5C54,$C95E12A9F1487144,$54A55A51C4AD8948,$32B4D286E95474A3 Data.q $794339543946D955,$1447E505F28B72B3,$8A51E143E288C52C,$845463286728FB28,$D475D4B953654FAA Data.q $33430D38EA59EA46,$6FB4A56952D005A6,$9D8A8A1529B48368,$71CA8D4A9E4AB44A,$E803D11BA11D2915 Data.q $FA75FA61FA32F4E9,$EABE554F552D553B,$D5AFAA2BD536D526,$D44AD5F1A879A8E6,$D433A9DED446D5DA Data.q $A977A9B7D4D3D47D,$6B8469986940D3DF,$74F1AB38D1EC6AE4,$929CEE1CCB8E6D0E,$CD3584D6DCE78739 Data.q $1CD3EE6857342334,$CAD3F2D6D2D69CD0,$9B54F5A33AD2AAD2,$FB43BDAA9DA1EDAE,$474DC7550EA4F684 Data.q $8663CEA4E743B3A0,$F464A8CE9193C30A,$2575FD753574A631,$C67A33BA83BAF5BA,$F77AED7A857A517A Data.q $1DFD24FD2CFA09F4,$21063A0653FABDFA,$F10DB706AD060506,$FD865DC314C32C86,$368C628D8C8DAF86 Data.q $0E3356323D197518,$426BBE356E37CE30,$7260D26659377136,$DD334D32CA6314CD,$4B37B3360CD97A6D Data.q $1DCD87321B31AB31,$D02D87CDBBE605CC,$1B8B068B42164E16,$656CC39993D3124C,$2D0B2D832DD25A8E Data.q $5BC55819599F2CBB,$6F6D68FAB7EAB36D,$6286C77D68DD6E9D,$ABF363D368536813,$DAF6C6B6D72D99AD Data.q $76E7ABB9DF5CF25C,$DBB7C76E676E7DCF,$BF621F6A9ED37763,$83A38383FED7BEC1,$31C0D1D261CDA1C8 Data.q $0AC68B06F1D6B1D1,$793B42779D666D63,$D9D6F4E63A76AD39,$1717F9D87CEC59C1,$79A3CB8B4B9A4BA6 Data.q $B98DE71AF3F8F3C6,$6EA55DEB5C72B9EA,$77526EBDB744B70C,$0F03FB837B8E775D,$A784C793479E0F7D Data.q $5E67CF41E7AA67A9,$6CD7AF0EAF225ED6,$DBC46F29F64AF667,$13E287D07BC4BBCF,$37CF57DF73ED53E5 Data.q $6FDECFCA77D5B7D9,$FF907FB47F29DF85,$80DC015A011BFF36,$8195C0C740A980E6,$41D54105A0A4417D Data.q $213DC14582CD820F,$F3BB90F6C8604870,$D0828577E70BE70D,$C38CC2F7A1EDD080,$0B0F098E1F7D8596 Data.q $10511361187F09AF,$9682C960BA80BFD1,$EF22CB22BD22AF05,$15A37AA249449944,$78C75FA39BA213A3 Data.q $5762AD6348C794C7,$75C41388D38A5EC6,$A7E29BE3A3E363C7,$C13C70B9DC2CFA17,$45E322FAE138A13E Data.q $BE9C58D62C2E8B79,$47259C25C512F8F8,$EF892D893189D112,$80D2F4CE069CA139,$2EEE6CB8A74BB5A5 Data.q $926F076F079E13EE,$26B9244FE72FCAEF,$9EDE4D764A3D2795,$54F291529EE2993C,$A7FAA79E0B5416C0 Data.q $9FDB4D0B4EBEA5D6,$97033DBD263D29F6,$09A6114854719891,$B38732F333B532FB,$979CCBA4B38AB3CC Data.q $6535120A25365CED,$D934C5BBB28BD943,$325EB244C480D4CF,$3726F3935396E39A,$6F309E729E48F73A Data.q $F227CB4DF2D9B960,$5DC15A815EBFF37D,$7460B6B05BA05BD1,$A5AAD055FACAE7A5,$3D5A2EAFEB577AAB Data.q $B584B581CD6FC6BE,$2F2C2EB4287F6B69,$56914F5D662EB97C,$5BEB7EF5B1A29AD1,$B83637C5458A158B Data.q $38D828DA88DBA86C,$4B1F4DAAA6EE69B8,$4A2B4BAD4B172578,$CD95F8BE6EE66FDF,$65B492DA7D5F9557 Data.q $56CC56CF6CA1CCB0,$281DB7DCDBEBD6E1,$B21EDB1F2FCF2E57,$978EC947630773BD,$51576150BCEC973B Data.q $195A4BB24BB08BB7,$EAB5B550655DD95C,$4D578D48F54A757D,$BBD7DAA6ED66AD7B,$56D3D8F1ECAFBB79 Data.q $60AF6EF75A5755A7,$A306CEFABF7ACDEF,$1EFB397D987D8A86,$BAFACD7FF6374636,$7EC3E9B4A9A349B9 Data.q $CD7D038881E97EE1,$AD652D9A2DCDCD8E,$C1C260F275A4AB70,$6CC6DDD37F78DFCB,$87021E97B7A76FAB Data.q $F5EDF89B7F1E8724,$B48EB08F7B8741C3,$A3B5076D5DF8677D,$95D539DE5CEA13A4,$1A3E1EEB8EED25D2 Data.q $7BE3A7A5C7B7B478,$73563DD31FF7EFCB,$A289C209D978E55C,$953E9C9FE64E9F13,$BD63D3E4E9E9EA75 Data.q $AD733D899CEF7A4B,$F3D9D06CF06FBC2F,$3FECF7E99DCF7CE7,$17CE0BB1FCF5DE79,$70E4BAEC5D645E8E Data.q $FB07E3A07EC073A9,$1C873B061D063A1F,$9E19EE5D3B2FBA87,$57D395FB8AE27C37,$D2ED7016BB9EAFBD Data.q $6FD751EBE191FCC8,$F9BBC9BD21B848DE,$6E73B7E7ADFA56E8,$E4B77D177359DCCF,$1BF79AFB8ABDD29E Data.q $3D20EA5DB1FD347E,$83C160F03A3DEA3E,$FF653F27B1DC633B,$C561F921E8BC7EF4,$C747DB23F344CE84 Data.q $78F85E3F2F277D26,$3FC5A79993D649FC,$77D9E4CCFB5CFF2B,$353B153032FC78BF,$5F9BAFD3FCF45CFE Data.q $EF65EED2FFD8BFA8,$66AF1957FDF4D874,$2DE0737F51BC975E,$33137798BBFF6DEB,$7E983F2BEFB1EFB9 Data.q $8CA7EEF1F418F9E8,$FBF384F7037E9F4F,$090000002A66708F,$120B000073594870,$7EDDD201120B0000 Data.q $41444991000000FC,$800E31D4AD9C7854,$E4E64E0661850C20,$75C23174DD4471C2,$DD135F00DE4AF5D8 Data.q $0697C9A47FD25A50,$739C0D7ECE51AC12,$B40CD10350E94A5D,$819A006A40B5EA07,$CA2E1A81E5205A8E Data.q $F012A36417284501,$9F1A902D274EE945,$D017A2F80B688B4D,$5C15B0E972A40B5D,$6BE5B00302D05DB1 Data.q $2AC14B0BDFC30528,$F35182E307230126,$4A76037035611073,$8BD56EA305B05FB0,$0000505204C60244 Data.q $42AE444E45490000 RigthArow: ; size : 2866 bytes Data.q $0A1A0A0D474E5089,$524448490D000000,$1400000014000000,$1D898D0000000608,$434369370A00000D Data.q $4549204247527350,$322D363639313643,$969D9C780000312E,$BDCF8716D9535477,$D0948A109250BD37 Data.q $48BD0D480252686B,$C04A1009312A2E91,$4470544436220090,$80E0283208A69151,$01858A22B19143A3 Data.q $71D4441904EBB151,$19AD6449961B1470,$1FDF9BCDEF79BCDF,$67DDCFBD9F6B7EF7,$83FC9000BAD67DEF Data.q $A10C8009584CC205,$8B8D88C5E7E11458,$0300F00C01076067,$1642B3B370E0006C,$8CD87C02990246F8 Data.q $0EBABD17F813996C,$C18C3FD32AFBF920,$312259B9949FFF00,$D9F8F2E78C985000,$9C573D38C917195C Data.q $4D34B698C94FB725,$32825922CE4A30CE,$F67C5B2CF2739356,$3C8432F3390F6599,$E4F065E2CE73CB19 Data.q $8CBE12398DE327DC,$B9F808E717196091,$864974836326BE32,$4E7C19B1E46FC640,$73E62EDC92280036 Data.q $322892632D6C6453,$C948E00079E32D82,$13CFCC582FD2F05F,$122E5ACCCEC50FCB,$86535C261988A724 Data.q $4DCFCFE18B13938D,$8D370E30CCC58BE7,$1C591999D831E223,$1459FCCF660072E1,$38D83B22B2196D79 Data.q $28BE6D2D6D303839,$76F7929BFC5D7FD4,$1F4419EE7F845E96,$000D997E57F6C3F8,$6D87FAD9B565A6B0 Data.q $BB5001EB5D001569,$B28A002F60CD87FD,$7CBA1E717D0E75BE,$AB2B672CE2C4525E,$296B9F014B5CDCDC Data.q $437F0E9FFAEFE82F,$E5EFDDBE52CF7C5F,$3174923893F37861,$44A67A666E375E43,$E60CF970E2CEC8C4 Data.q $1E75FE071FF8879F,$942F88BE24FC1116,$964C204CA6CB4445,$4299058813C85BB5,$C30FF89A9FF84086 Data.q $F8DA8996B9D9A4FE,$1A21A5025896D011,$20112A28001E7E40,$0B7DEFD02B647B09,$99D18BCDF90347C6 Data.q $577DFE82CFFB9D98,$8E7F2416C8FE4CB8,$CE5112B832444763,$002034025AFC9AEC,$03E81B40EA034045 Data.q $00B811C0B604C013,$048828410203E00F,$01901482E0316071,$18A0B58014172044,$7506A82760AD8294 Data.q $74187036833411A0,$812E073834E06381,$0E305201DC0460CB,$1040CC0AF029809E,$7487521510C88584 Data.q $905885B21CC84320,$1C5011430503E41B,$1502484243250894,$86AA1CA852A0EB40,$7428E85BE866A1EA Data.q $51A0B7430D00BA1A,$3023077A15FA1268,$056C11B05AC1A609,$17848E08384F60B3,$822E1F3832F0C9C1 Data.q $EE107C037095C0B7,$0A5811E097C34F84,$3A11108011A7813F,$4246C21611308BA2,$90AB211109247891 Data.q $1E90DA406902A412,$C8A791488AB91FA4,$4C5031454506145B,$A2E285151FCA0B94,$51AAA336A156A196 Data.q $D455D43EA89D5007,$6B464D11F50A6A28,$2C7400E8CED1CDA2,$A057462E8B9D193A,$F411E8B3E81DD09B Data.q $8C63A1830615FA38,$15261C4C7F188E31,$8ED31BB319B302B3,$B1A6618CC6198539,$0D8AEB1CD63AAC58 Data.q $0AB6316C62B072C5,$8E3B057B127B107B,$38B67074E223837D,$55C42B884E3C5C5F,$1370577027705AE0 Data.q $8CEF10DE12BC19B8,$F865F1CBF0F3C50F,$9F8E3F087E0F7C46,$4884AE098C132821,$46D092A12D612A42 Data.q $122441784BB84B38,$B880A270C44E88F5,$1C4F3C443C495886,$362466485125BE25,$27ED216D21248129 Data.q $C99320BD22DD229D,$DE4C593C720F6446,$BF27DF219F266E42,$F028042A582AA051,$5C2A7428D42B5614 Data.q $F454345788A67851,$78A158AF98AC5C54,$C95E12A9F1487144,$54A55A51C4AD8948,$32B4D286E95474A3 Data.q $794339543946D955,$1447E505F28B72B3,$8A51E143E288C52C,$845463286728FB28,$D475D4B953654FAA Data.q $33430D38EA59EA46,$6FB4A56952D005A6,$9D8A8A1529B48368,$71CA8D4A9E4AB44A,$E803D11BA11D2915 Data.q $FA75FA61FA32F4E9,$EABE554F552D553B,$D5AFAA2BD536D526,$D44AD5F1A879A8E6,$D433A9DED446D5DA Data.q $A977A9B7D4D3D47D,$6B8469986940D3DF,$74F1AB38D1EC6AE4,$929CEE1CCB8E6D0E,$CD3584D6DCE78739 Data.q $1CD3EE6857342334,$CAD3F2D6D2D69CD0,$9B54F5A33AD2AAD2,$FB43BDAA9DA1EDAE,$474DC7550EA4F684 Data.q $8663CEA4E743B3A0,$F464A8CE9193C30A,$2575FD753574A631,$C67A33BA83BAF5BA,$F77AED7A857A517A Data.q $1DFD24FD2CFA09F4,$21063A0653FABDFA,$F10DB706AD060506,$FD865DC314C32C86,$368C628D8C8DAF86 Data.q $0E3356323D197518,$426BBE356E37CE30,$7260D26659377136,$DD334D32CA6314CD,$4B37B3360CD97A6D Data.q $1DCD87321B31AB31,$D02D87CDBBE605CC,$1B8B068B42164E16,$656CC39993D3124C,$2D0B2D832DD25A8E Data.q $5BC55819599F2CBB,$6F6D68FAB7EAB36D,$6286C77D68DD6E9D,$ABF363D368536813,$DAF6C6B6D72D99AD Data.q $76E7ABB9DF5CF25C,$DBB7C76E676E7DCF,$BF621F6A9ED37763,$83A38383FED7BEC1,$31C0D1D261CDA1C8 Data.q $0AC68B06F1D6B1D1,$793B42779D666D63,$D9D6F4E63A76AD39,$1717F9D87CEC59C1,$79A3CB8B4B9A4BA6 Data.q $B98DE71AF3F8F3C6,$6EA55DEB5C72B9EA,$77526EBDB744B70C,$0F03FB837B8E775D,$A784C793479E0F7D Data.q $5E67CF41E7AA67A9,$6CD7AF0EAF225ED6,$DBC46F29F64AF667,$13E287D07BC4BBCF,$37CF57DF73ED53E5 Data.q $6FDECFCA77D5B7D9,$FF907FB47F29DF85,$80DC015A011BFF36,$8195C0C740A980E6,$41D54105A0A4417D Data.q $213DC14582CD820F,$F3BB90F6C8604870,$D0828577E70BE70D,$C38CC2F7A1EDD080,$0B0F098E1F7D8596 Data.q $10511361187F09AF,$9682C960BA80BFD1,$EF22CB22BD22AF05,$15A37AA249449944,$78C75FA39BA213A3 Data.q $5762AD6348C794C7,$75C41388D38A5EC6,$A7E29BE3A3E363C7,$C13C70B9DC2CFA17,$45E322FAE138A13E Data.q $BE9C58D62C2E8B79,$47259C25C512F8F8,$EF892D893189D112,$80D2F4CE069CA139,$2EEE6CB8A74BB5A5 Data.q $926F076F079E13EE,$26B9244FE72FCAEF,$9EDE4D764A3D2795,$54F291529EE2993C,$A7FAA79E0B5416C0 Data.q $9FDB4D0B4EBEA5D6,$97033DBD263D29F6,$09A6114854719891,$B38732F333B532FB,$979CCBA4B38AB3CC Data.q $6535120A25365CED,$D934C5BBB28BD943,$325EB244C480D4CF,$3726F3935396E39A,$6F309E729E48F73A Data.q $F227CB4DF2D9B960,$5DC15A815EBFF37D,$7460B6B05BA05BD1,$A5AAD055FACAE7A5,$3D5A2EAFEB577AAB Data.q $B584B581CD6FC6BE,$2F2C2EB4287F6B69,$56914F5D662EB97C,$5BEB7EF5B1A29AD1,$B83637C5458A158B Data.q $38D828DA88DBA86C,$4B1F4DAAA6EE69B8,$4A2B4BAD4B172578,$CD95F8BE6EE66FDF,$65B492DA7D5F9557 Data.q $56CC56CF6CA1CCB0,$281DB7DCDBEBD6E1,$B21EDB1F2FCF2E57,$978EC947630773BD,$51576150BCEC973B Data.q $195A4BB24BB08BB7,$EAB5B550655DD95C,$4D578D48F54A757D,$BBD7DAA6ED66AD7B,$56D3D8F1ECAFBB79 Data.q $60AF6EF75A5755A7,$A306CEFABF7ACDEF,$1EFB397D987D8A86,$BAFACD7FF6374636,$7EC3E9B4A9A349B9 Data.q $CD7D038881E97EE1,$AD652D9A2DCDCD8E,$C1C260F275A4AB70,$6CC6DDD37F78DFCB,$87021E97B7A76FAB Data.q $F5EDF89B7F1E8724,$B48EB08F7B8741C3,$A3B5076D5DF8677D,$95D539DE5CEA13A4,$1A3E1EEB8EED25D2 Data.q $7BE3A7A5C7B7B478,$73563DD31FF7EFCB,$A289C209D978E55C,$953E9C9FE64E9F13,$BD63D3E4E9E9EA75 Data.q $AD733D899CEF7A4B,$F3D9D06CF06FBC2F,$3FECF7E99DCF7CE7,$17CE0BB1FCF5DE79,$70E4BAEC5D645E8E Data.q $FB07E3A07EC073A9,$1C873B061D063A1F,$9E19EE5D3B2FBA87,$57D395FB8AE27C37,$D2ED7016BB9EAFBD Data.q $6FD751EBE191FCC8,$F9BBC9BD21B848DE,$6E73B7E7ADFA56E8,$E4B77D177359DCCF,$1BF79AFB8ABDD29E Data.q $3D20EA5DB1FD347E,$83C160F03A3DEA3E,$FF653F27B1DC633B,$C561F921E8BC7EF4,$C747DB23F344CE84 Data.q $78F85E3F2F277D26,$3FC5A79993D649FC,$77D9E4CCFB5CFF2B,$353B153032FC78BF,$5F9BAFD3FCF45CFE Data.q $EF65EED2FFD8BFA8,$66AF1957FDF4D874,$2DE0737F51BC975E,$33137798BBFF6DEB,$7E983F2BEFB1EFB9 Data.q $8CA7EEF1F418F9E8,$FBF384F7037E9F4F,$090000002A66708F,$120B000073594870,$7EDDD201120B0000 Data.q $414449A1000000FC,$800E3DD4AD9C7854,$57803C4C60050C20,$474DD475CEE81BD1,$DE48F9ABD1AB0F3D Data.q $E0061A4DB56C52E0,$65FD47383A853F0B,$202E5D294FB18C52,$1B120FFC874D1DB0,$62B03E0D46348791 Data.q $C48153069B6040A8,$0822B15A0AF60D26,$8B432C082262B56C,$411305F544411315,$96D7826CAB0D82BC Data.q $32DE2D158340CE89,$4482BE0D557DBCD1,$FAA8ADB0A7D4AE27,$9F34436FD3516B2D,$6E0E811D1202EB69 Data.q $293601BBEA53D120,$0000485017449336,$42AE444E45490000 Data.b $60,$82 UpArow: ; size : 2860 bytes Data.q $0A1A0A0D474E5089,$524448490D000000,$1400000014000000,$1D898D0000000608,$434369370A00000D Data.q $4549204247527350,$322D363639313643,$969D9C780000312E,$BDCF8716D9535477,$D0948A109250BD37 Data.q $48BD0D480252686B,$C04A1009312A2E91,$4470544436220090,$80E0283208A69151,$01858A22B19143A3 Data.q $71D4441904EBB151,$19AD6449961B1470,$1FDF9BCDEF79BCDF,$67DDCFBD9F6B7EF7,$83FC9000BAD67DEF Data.q $A10C8009584CC205,$8B8D88C5E7E11458,$0300F00C01076067,$1642B3B370E0006C,$8CD87C02990246F8 Data.q $0EBABD17F813996C,$C18C3FD32AFBF920,$312259B9949FFF00,$D9F8F2E78C985000,$9C573D38C917195C Data.q $4D34B698C94FB725,$32825922CE4A30CE,$F67C5B2CF2739356,$3C8432F3390F6599,$E4F065E2CE73CB19 Data.q $8CBE12398DE327DC,$B9F808E717196091,$864974836326BE32,$4E7C19B1E46FC640,$73E62EDC92280036 Data.q $322892632D6C6453,$C948E00079E32D82,$13CFCC582FD2F05F,$122E5ACCCEC50FCB,$86535C261988A724 Data.q $4DCFCFE18B13938D,$8D370E30CCC58BE7,$1C591999D831E223,$1459FCCF660072E1,$38D83B22B2196D79 Data.q $28BE6D2D6D303839,$76F7929BFC5D7FD4,$1F4419EE7F845E96,$000D997E57F6C3F8,$6D87FAD9B565A6B0 Data.q $BB5001EB5D001569,$B28A002F60CD87FD,$7CBA1E717D0E75BE,$AB2B672CE2C4525E,$296B9F014B5CDCDC Data.q $437F0E9FFAEFE82F,$E5EFDDBE52CF7C5F,$3174923893F37861,$44A67A666E375E43,$E60CF970E2CEC8C4 Data.q $1E75FE071FF8879F,$942F88BE24FC1116,$964C204CA6CB4445,$4299058813C85BB5,$C30FF89A9FF84086 Data.q $F8DA8996B9D9A4FE,$1A21A5025896D011,$20112A28001E7E40,$0B7DEFD02B647B09,$99D18BCDF90347C6 Data.q $577DFE82CFFB9D98,$8E7F2416C8FE4CB8,$CE5112B832444763,$002034025AFC9AEC,$03E81B40EA034045 Data.q $00B811C0B604C013,$048828410203E00F,$01901482E0316071,$18A0B58014172044,$7506A82760AD8294 Data.q $74187036833411A0,$812E073834E06381,$0E305201DC0460CB,$1040CC0AF029809E,$7487521510C88584 Data.q $905885B21CC84320,$1C5011430503E41B,$1502484243250894,$86AA1CA852A0EB40,$7428E85BE866A1EA Data.q $51A0B7430D00BA1A,$3023077A15FA1268,$056C11B05AC1A609,$17848E08384F60B3,$822E1F3832F0C9C1 Data.q $EE107C037095C0B7,$0A5811E097C34F84,$3A11108011A7813F,$4246C21611308BA2,$90AB211109247891 Data.q $1E90DA406902A412,$C8A791488AB91FA4,$4C5031454506145B,$A2E285151FCA0B94,$51AAA336A156A196 Data.q $D455D43EA89D5007,$6B464D11F50A6A28,$2C7400E8CED1CDA2,$A057462E8B9D193A,$F411E8B3E81DD09B Data.q $8C63A1830615FA38,$15261C4C7F188E31,$8ED31BB319B302B3,$B1A6618CC6198539,$0D8AEB1CD63AAC58 Data.q $0AB6316C62B072C5,$8E3B057B127B107B,$38B67074E223837D,$55C42B884E3C5C5F,$1370577027705AE0 Data.q $8CEF10DE12BC19B8,$F865F1CBF0F3C50F,$9F8E3F087E0F7C46,$4884AE098C132821,$46D092A12D612A42 Data.q $122441784BB84B38,$B880A270C44E88F5,$1C4F3C443C495886,$362466485125BE25,$27ED216D21248129 Data.q $C99320BD22DD229D,$DE4C593C720F6446,$BF27DF219F266E42,$F028042A582AA051,$5C2A7428D42B5614 Data.q $F454345788A67851,$78A158AF98AC5C54,$C95E12A9F1487144,$54A55A51C4AD8948,$32B4D286E95474A3 Data.q $794339543946D955,$1447E505F28B72B3,$8A51E143E288C52C,$845463286728FB28,$D475D4B953654FAA Data.q $33430D38EA59EA46,$6FB4A56952D005A6,$9D8A8A1529B48368,$71CA8D4A9E4AB44A,$E803D11BA11D2915 Data.q $FA75FA61FA32F4E9,$EABE554F552D553B,$D5AFAA2BD536D526,$D44AD5F1A879A8E6,$D433A9DED446D5DA Data.q $A977A9B7D4D3D47D,$6B8469986940D3DF,$74F1AB38D1EC6AE4,$929CEE1CCB8E6D0E,$CD3584D6DCE78739 Data.q $1CD3EE6857342334,$CAD3F2D6D2D69CD0,$9B54F5A33AD2AAD2,$FB43BDAA9DA1EDAE,$474DC7550EA4F684 Data.q $8663CEA4E743B3A0,$F464A8CE9193C30A,$2575FD753574A631,$C67A33BA83BAF5BA,$F77AED7A857A517A Data.q $1DFD24FD2CFA09F4,$21063A0653FABDFA,$F10DB706AD060506,$FD865DC314C32C86,$368C628D8C8DAF86 Data.q $0E3356323D197518,$426BBE356E37CE30,$7260D26659377136,$DD334D32CA6314CD,$4B37B3360CD97A6D Data.q $1DCD87321B31AB31,$D02D87CDBBE605CC,$1B8B068B42164E16,$656CC39993D3124C,$2D0B2D832DD25A8E Data.q $5BC55819599F2CBB,$6F6D68FAB7EAB36D,$6286C77D68DD6E9D,$ABF363D368536813,$DAF6C6B6D72D99AD Data.q $76E7ABB9DF5CF25C,$DBB7C76E676E7DCF,$BF621F6A9ED37763,$83A38383FED7BEC1,$31C0D1D261CDA1C8 Data.q $0AC68B06F1D6B1D1,$793B42779D666D63,$D9D6F4E63A76AD39,$1717F9D87CEC59C1,$79A3CB8B4B9A4BA6 Data.q $B98DE71AF3F8F3C6,$6EA55DEB5C72B9EA,$77526EBDB744B70C,$0F03FB837B8E775D,$A784C793479E0F7D Data.q $5E67CF41E7AA67A9,$6CD7AF0EAF225ED6,$DBC46F29F64AF667,$13E287D07BC4BBCF,$37CF57DF73ED53E5 Data.q $6FDECFCA77D5B7D9,$FF907FB47F29DF85,$80DC015A011BFF36,$8195C0C740A980E6,$41D54105A0A4417D Data.q $213DC14582CD820F,$F3BB90F6C8604870,$D0828577E70BE70D,$C38CC2F7A1EDD080,$0B0F098E1F7D8596 Data.q $10511361187F09AF,$9682C960BA80BFD1,$EF22CB22BD22AF05,$15A37AA249449944,$78C75FA39BA213A3 Data.q $5762AD6348C794C7,$75C41388D38A5EC6,$A7E29BE3A3E363C7,$C13C70B9DC2CFA17,$45E322FAE138A13E Data.q $BE9C58D62C2E8B79,$47259C25C512F8F8,$EF892D893189D112,$80D2F4CE069CA139,$2EEE6CB8A74BB5A5 Data.q $926F076F079E13EE,$26B9244FE72FCAEF,$9EDE4D764A3D2795,$54F291529EE2993C,$A7FAA79E0B5416C0 Data.q $9FDB4D0B4EBEA5D6,$97033DBD263D29F6,$09A6114854719891,$B38732F333B532FB,$979CCBA4B38AB3CC Data.q $6535120A25365CED,$D934C5BBB28BD943,$325EB244C480D4CF,$3726F3935396E39A,$6F309E729E48F73A Data.q $F227CB4DF2D9B960,$5DC15A815EBFF37D,$7460B6B05BA05BD1,$A5AAD055FACAE7A5,$3D5A2EAFEB577AAB Data.q $B584B581CD6FC6BE,$2F2C2EB4287F6B69,$56914F5D662EB97C,$5BEB7EF5B1A29AD1,$B83637C5458A158B Data.q $38D828DA88DBA86C,$4B1F4DAAA6EE69B8,$4A2B4BAD4B172578,$CD95F8BE6EE66FDF,$65B492DA7D5F9557 Data.q $56CC56CF6CA1CCB0,$281DB7DCDBEBD6E1,$B21EDB1F2FCF2E57,$978EC947630773BD,$51576150BCEC973B Data.q $195A4BB24BB08BB7,$EAB5B550655DD95C,$4D578D48F54A757D,$BBD7DAA6ED66AD7B,$56D3D8F1ECAFBB79 Data.q $60AF6EF75A5755A7,$A306CEFABF7ACDEF,$1EFB397D987D8A86,$BAFACD7FF6374636,$7EC3E9B4A9A349B9 Data.q $CD7D038881E97EE1,$AD652D9A2DCDCD8E,$C1C260F275A4AB70,$6CC6DDD37F78DFCB,$87021E97B7A76FAB Data.q $F5EDF89B7F1E8724,$B48EB08F7B8741C3,$A3B5076D5DF8677D,$95D539DE5CEA13A4,$1A3E1EEB8EED25D2 Data.q $7BE3A7A5C7B7B478,$73563DD31FF7EFCB,$A289C209D978E55C,$953E9C9FE64E9F13,$BD63D3E4E9E9EA75 Data.q $AD733D899CEF7A4B,$F3D9D06CF06FBC2F,$3FECF7E99DCF7CE7,$17CE0BB1FCF5DE79,$70E4BAEC5D645E8E Data.q $FB07E3A07EC073A9,$1C873B061D063A1F,$9E19EE5D3B2FBA87,$57D395FB8AE27C37,$D2ED7016BB9EAFBD Data.q $6FD751EBE191FCC8,$F9BBC9BD21B848DE,$6E73B7E7ADFA56E8,$E4B77D177359DCCF,$1BF79AFB8ABDD29E Data.q $3D20EA5DB1FD347E,$83C160F03A3DEA3E,$FF653F27B1DC633B,$C561F921E8BC7EF4,$C747DB23F344CE84 Data.q $78F85E3F2F277D26,$3FC5A79993D649FC,$77D9E4CCFB5CFF2B,$353B153032FC78BF,$5F9BAFD3FCF45CFE Data.q $EF65EED2FFD8BFA8,$66AF1957FDF4D874,$2DE0737F51BC975E,$33137798BBFF6DEB,$7E983F2BEFB1EFB9 Data.q $8CA7EEF1F418F9E8,$FBF384F7037E9F4F,$090000002A66708F,$120B000073594870,$7EDDD201120B0000 Data.q $4144499B000000FC,$6032A061639C7854,$FAFAFA063E903519,$EE6F379BFFA90056,$AA401D61A040D8A4 Data.q $B640DA1A04E6CA1C,$8C503D414186C881,$350206C905686803,$281CAA458657BC82,$31E206AC50CB80C7 Data.q $1861120618A1A08C,$04839143408CA1B2,$A83281830C1240D5,$744A040DC286E14B,$286AC30C1252A901 Data.q $C40865202730D40B,$66808C041030C87B,$C810360FDD0D0238,$0A186991F6A407D8,$0008197879792618 Data.q $793AC825A737DF10,$444E454900000000 Data.b $AE,$42,$60,$82 DownArow: ; size : 2854 bytes Data.q $0A1A0A0D474E5089,$524448490D000000,$1400000014000000,$1D898D0000000608,$434369370A00000D Data.q $4549204247527350,$322D363639313643,$969D9C780000312E,$BDCF8716D9535477,$D0948A109250BD37 Data.q $48BD0D480252686B,$C04A1009312A2E91,$4470544436220090,$80E0283208A69151,$01858A22B19143A3 Data.q $71D4441904EBB151,$19AD6449961B1470,$1FDF9BCDEF79BCDF,$67DDCFBD9F6B7EF7,$83FC9000BAD67DEF Data.q $A10C8009584CC205,$8B8D88C5E7E11458,$0300F00C01076067,$1642B3B370E0006C,$8CD87C02990246F8 Data.q $0EBABD17F813996C,$C18C3FD32AFBF920,$312259B9949FFF00,$D9F8F2E78C985000,$9C573D38C917195C Data.q $4D34B698C94FB725,$32825922CE4A30CE,$F67C5B2CF2739356,$3C8432F3390F6599,$E4F065E2CE73CB19 Data.q $8CBE12398DE327DC,$B9F808E717196091,$864974836326BE32,$4E7C19B1E46FC640,$73E62EDC92280036 Data.q $322892632D6C6453,$C948E00079E32D82,$13CFCC582FD2F05F,$122E5ACCCEC50FCB,$86535C261988A724 Data.q $4DCFCFE18B13938D,$8D370E30CCC58BE7,$1C591999D831E223,$1459FCCF660072E1,$38D83B22B2196D79 Data.q $28BE6D2D6D303839,$76F7929BFC5D7FD4,$1F4419EE7F845E96,$000D997E57F6C3F8,$6D87FAD9B565A6B0 Data.q $BB5001EB5D001569,$B28A002F60CD87FD,$7CBA1E717D0E75BE,$AB2B672CE2C4525E,$296B9F014B5CDCDC Data.q $437F0E9FFAEFE82F,$E5EFDDBE52CF7C5F,$3174923893F37861,$44A67A666E375E43,$E60CF970E2CEC8C4 Data.q $1E75FE071FF8879F,$942F88BE24FC1116,$964C204CA6CB4445,$4299058813C85BB5,$C30FF89A9FF84086 Data.q $F8DA8996B9D9A4FE,$1A21A5025896D011,$20112A28001E7E40,$0B7DEFD02B647B09,$99D18BCDF90347C6 Data.q $577DFE82CFFB9D98,$8E7F2416C8FE4CB8,$CE5112B832444763,$002034025AFC9AEC,$03E81B40EA034045 Data.q $00B811C0B604C013,$048828410203E00F,$01901482E0316071,$18A0B58014172044,$7506A82760AD8294 Data.q $74187036833411A0,$812E073834E06381,$0E305201DC0460CB,$1040CC0AF029809E,$7487521510C88584 Data.q $905885B21CC84320,$1C5011430503E41B,$1502484243250894,$86AA1CA852A0EB40,$7428E85BE866A1EA Data.q $51A0B7430D00BA1A,$3023077A15FA1268,$056C11B05AC1A609,$17848E08384F60B3,$822E1F3832F0C9C1 Data.q $EE107C037095C0B7,$0A5811E097C34F84,$3A11108011A7813F,$4246C21611308BA2,$90AB211109247891 Data.q $1E90DA406902A412,$C8A791488AB91FA4,$4C5031454506145B,$A2E285151FCA0B94,$51AAA336A156A196 Data.q $D455D43EA89D5007,$6B464D11F50A6A28,$2C7400E8CED1CDA2,$A057462E8B9D193A,$F411E8B3E81DD09B Data.q $8C63A1830615FA38,$15261C4C7F188E31,$8ED31BB319B302B3,$B1A6618CC6198539,$0D8AEB1CD63AAC58 Data.q $0AB6316C62B072C5,$8E3B057B127B107B,$38B67074E223837D,$55C42B884E3C5C5F,$1370577027705AE0 Data.q $8CEF10DE12BC19B8,$F865F1CBF0F3C50F,$9F8E3F087E0F7C46,$4884AE098C132821,$46D092A12D612A42 Data.q $122441784BB84B38,$B880A270C44E88F5,$1C4F3C443C495886,$362466485125BE25,$27ED216D21248129 Data.q $C99320BD22DD229D,$DE4C593C720F6446,$BF27DF219F266E42,$F028042A582AA051,$5C2A7428D42B5614 Data.q $F454345788A67851,$78A158AF98AC5C54,$C95E12A9F1487144,$54A55A51C4AD8948,$32B4D286E95474A3 Data.q $794339543946D955,$1447E505F28B72B3,$8A51E143E288C52C,$845463286728FB28,$D475D4B953654FAA Data.q $33430D38EA59EA46,$6FB4A56952D005A6,$9D8A8A1529B48368,$71CA8D4A9E4AB44A,$E803D11BA11D2915 Data.q $FA75FA61FA32F4E9,$EABE554F552D553B,$D5AFAA2BD536D526,$D44AD5F1A879A8E6,$D433A9DED446D5DA Data.q $A977A9B7D4D3D47D,$6B8469986940D3DF,$74F1AB38D1EC6AE4,$929CEE1CCB8E6D0E,$CD3584D6DCE78739 Data.q $1CD3EE6857342334,$CAD3F2D6D2D69CD0,$9B54F5A33AD2AAD2,$FB43BDAA9DA1EDAE,$474DC7550EA4F684 Data.q $8663CEA4E743B3A0,$F464A8CE9193C30A,$2575FD753574A631,$C67A33BA83BAF5BA,$F77AED7A857A517A Data.q $1DFD24FD2CFA09F4,$21063A0653FABDFA,$F10DB706AD060506,$FD865DC314C32C86,$368C628D8C8DAF86 Data.q $0E3356323D197518,$426BBE356E37CE30,$7260D26659377136,$DD334D32CA6314CD,$4B37B3360CD97A6D Data.q $1DCD87321B31AB31,$D02D87CDBBE605CC,$1B8B068B42164E16,$656CC39993D3124C,$2D0B2D832DD25A8E Data.q $5BC55819599F2CBB,$6F6D68FAB7EAB36D,$6286C77D68DD6E9D,$ABF363D368536813,$DAF6C6B6D72D99AD Data.q $76E7ABB9DF5CF25C,$DBB7C76E676E7DCF,$BF621F6A9ED37763,$83A38383FED7BEC1,$31C0D1D261CDA1C8 Data.q $0AC68B06F1D6B1D1,$793B42779D666D63,$D9D6F4E63A76AD39,$1717F9D87CEC59C1,$79A3CB8B4B9A4BA6 Data.q $B98DE71AF3F8F3C6,$6EA55DEB5C72B9EA,$77526EBDB744B70C,$0F03FB837B8E775D,$A784C793479E0F7D Data.q $5E67CF41E7AA67A9,$6CD7AF0EAF225ED6,$DBC46F29F64AF667,$13E287D07BC4BBCF,$37CF57DF73ED53E5 Data.q $6FDECFCA77D5B7D9,$FF907FB47F29DF85,$80DC015A011BFF36,$8195C0C740A980E6,$41D54105A0A4417D Data.q $213DC14582CD820F,$F3BB90F6C8604870,$D0828577E70BE70D,$C38CC2F7A1EDD080,$0B0F098E1F7D8596 Data.q $10511361187F09AF,$9682C960BA80BFD1,$EF22CB22BD22AF05,$15A37AA249449944,$78C75FA39BA213A3 Data.q $5762AD6348C794C7,$75C41388D38A5EC6,$A7E29BE3A3E363C7,$C13C70B9DC2CFA17,$45E322FAE138A13E Data.q $BE9C58D62C2E8B79,$47259C25C512F8F8,$EF892D893189D112,$80D2F4CE069CA139,$2EEE6CB8A74BB5A5 Data.q $926F076F079E13EE,$26B9244FE72FCAEF,$9EDE4D764A3D2795,$54F291529EE2993C,$A7FAA79E0B5416C0 Data.q $9FDB4D0B4EBEA5D6,$97033DBD263D29F6,$09A6114854719891,$B38732F333B532FB,$979CCBA4B38AB3CC Data.q $6535120A25365CED,$D934C5BBB28BD943,$325EB244C480D4CF,$3726F3935396E39A,$6F309E729E48F73A Data.q $F227CB4DF2D9B960,$5DC15A815EBFF37D,$7460B6B05BA05BD1,$A5AAD055FACAE7A5,$3D5A2EAFEB577AAB Data.q $B584B581CD6FC6BE,$2F2C2EB4287F6B69,$56914F5D662EB97C,$5BEB7EF5B1A29AD1,$B83637C5458A158B Data.q $38D828DA88DBA86C,$4B1F4DAAA6EE69B8,$4A2B4BAD4B172578,$CD95F8BE6EE66FDF,$65B492DA7D5F9557 Data.q $56CC56CF6CA1CCB0,$281DB7DCDBEBD6E1,$B21EDB1F2FCF2E57,$978EC947630773BD,$51576150BCEC973B Data.q $195A4BB24BB08BB7,$EAB5B550655DD95C,$4D578D48F54A757D,$BBD7DAA6ED66AD7B,$56D3D8F1ECAFBB79 Data.q $60AF6EF75A5755A7,$A306CEFABF7ACDEF,$1EFB397D987D8A86,$BAFACD7FF6374636,$7EC3E9B4A9A349B9 Data.q $CD7D038881E97EE1,$AD652D9A2DCDCD8E,$C1C260F275A4AB70,$6CC6DDD37F78DFCB,$87021E97B7A76FAB Data.q $F5EDF89B7F1E8724,$B48EB08F7B8741C3,$A3B5076D5DF8677D,$95D539DE5CEA13A4,$1A3E1EEB8EED25D2 Data.q $7BE3A7A5C7B7B478,$73563DD31FF7EFCB,$A289C209D978E55C,$953E9C9FE64E9F13,$BD63D3E4E9E9EA75 Data.q $AD733D899CEF7A4B,$F3D9D06CF06FBC2F,$3FECF7E99DCF7CE7,$17CE0BB1FCF5DE79,$70E4BAEC5D645E8E Data.q $FB07E3A07EC073A9,$1C873B061D063A1F,$9E19EE5D3B2FBA87,$57D395FB8AE27C37,$D2ED7016BB9EAFBD Data.q $6FD751EBE191FCC8,$F9BBC9BD21B848DE,$6E73B7E7ADFA56E8,$E4B77D177359DCCF,$1BF79AFB8ABDD29E Data.q $3D20EA5DB1FD347E,$83C160F03A3DEA3E,$FF653F27B1DC633B,$C561F921E8BC7EF4,$C747DB23F344CE84 Data.q $78F85E3F2F277D26,$3FC5A79993D649FC,$77D9E4CCFB5CFF2B,$353B153032FC78BF,$5F9BAFD3FCF45CFE Data.q $EF65EED2FFD8BFA8,$66AF1957FDF4D874,$2DE0737F51BC975E,$33137798BBFF6DEB,$7E983F2BEFB1EFB9 Data.q $8CA7EEF1F418F9E8,$FBF384F7037E9F4F,$090000002A66708F,$120B000073594870,$7EDDD201120B0000 Data.q $41444995000000FC,$400EBDD3ED9C7854,$B3662F1260051430,$E9C7BF9B0B1075F4,$AA28972A71B163CE Data.q $FBDE9A7A5D090655,$3F787879CF5A69A5,$6E4A63E6319052F8,$16844099BCE7395A,$96C0B5625A188068 Data.q $4AD02C75011A1213,$09502D0EE90BCEF4,$7BB68C40742B81DB,$AA93A6342410EC3A,$EC52D06A094C43D0 Data.q $623DA121DF4EFAA9,$1DA033424169826A,$0A7E8DEAE85C8BA2,$3E32BC18CEA4D2A0,$9ECE1B43A1158E08 Data.q $4549000000003E65 Data.b $4E,$44,$AE,$42,$60,$82 EndDataSection EndModule ; IDE Options = PureBasic 5.42 LTS (Windows - x64) ; CursorPosition = 192 ; FirstLine = 99 ; Folding = B+j---rQAAgE5fQAAACvzgA7Pg ; Markers = 1125 ; EnableUnicode ; EnableXP ; IDE Options = PureBasic 5.41 LTS (Windows - x64) ; CursorPosition = 21 ; Folding = ---------- ; EnableUnicode ; EnableXP ; EnableUser ; EnableCompileCount = 0 ; EnableBuildCount = 0