Coloriser les lignes paire et impair des listiconGadget

celtic88 · Message par **celtic88** » mar. 22/sept./2015 16:41

;Coder Celtic88 juste un test ;p

Global hndllv,Pbhndllv
Structure Lvitemdata
  iTcolor.l
  SubiTcolor1.l
  SubiTcolor2.l
  SubiTcolor3.l
  iTTextSize.l
  iFontname.s
EndStructure

Procedure WinCallback(hWnd, uMsg, wParam, lParam)     
  If uMsg = #WM_NOTIFY
    *nhdr.NMHDR=lParam
    If *nhdr\hwndFrom = hndllv
      code=*nhdr\code
      Select code
        Case #NM_CUSTOMDRAW
          *customdraw.NMLVCUSTOMDRAW=lParam
          iDrawStage = *customdraw\nmcd\dwDrawStage
          Select iDrawStage
            Case #CDDS_ITEMPREPAINT
              ProcedureReturn #CDRF_NOTIFYSUBITEMDRAW
            Case #CDDS_ITEMPREPAINT
              ProcedureReturn #CDRF_NOTIFYSUBITEMDRAW             
            Case (#CDDS_ITEMPREPAINT|#CDDS_SUBITEM)
              iItem = *customdraw\nmcd\dwItemSpec
              subitem = *customdraw\iSubItem
              *valeur = GetGadgetItemData(Pbhndllv, iItem)
              
              *valeurttt.Lvitemdata=*valeur
              
              Select subitem
                Case 0
                  mSelectedcol=*valeurttt\iTcolor
                Case 1
                  mSelectedcol=*valeurttt\SubiTcolor1
                Case 2
                  mSelectedcol=*valeurttt\SubiTcolor2
                Case 3 To 99
                  mSelectedcol=*valeurttt\SubiTcolor3
              EndSelect
              
              *customdraw\clrTextBk=mSelectedcol
              
;               *hDC = *customdraw\nmcd\hdc
;               ;https://msdn.microsoft.com/en-us/library/windows/desktop/dd183499(v=vs.85).aspx
;               *Hfont=CreateFont_(*valeurttt\iTTextSize,#False,#False,#False,#FW_NORMAL,#False,#False,#False,#DEFAULT_CHARSET,#OUT_DEFAULT_PRECIS,#CLIP_DEFAULT_PRECIS,#DEFAULT_QUALITY,#False,*valeurttt\iFontname)
;               SelectObject_(*hDC,*Hfont)
              
              ProcedureReturn #CDRF_NEWFONT
              
          EndSelect
      EndSelect
    EndIf 
  EndIf
  ProcedureReturn #PB_ProcessPureBasicEvents 
EndProcedure 

If OpenWindow(0, 0, 0, 690, 300, "ListIconGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
  ListIconGadget(0,  10,  10, 690-20, 300-40, "Colonne 1", 100)
  ButtonGadget(1, 10, 300-25, 300, 20, "Changer la couleur de fond")
  
  For b = 1 To 3      
    AddGadgetColumn(0, b, "Colonne " + Str(b+1), 65)
  Next b
  Pbhndllv=0
  hndllv=GadgetID(0)
  SetWindowCallback(@WinCallback())
  For b = 0 To 4          
    AddGadgetItem(0, b, "Elément 1"+Chr(10)+"Elément 2"+Chr(10)+"Elément 3"+Chr(10)+"Elément 4")
  Next b
  
  For b = 0 To 4           
    *itemst.Lvitemdata=AllocateMemory(SizeOf(Lvitemdata))
    With *itemst
      \iTcolor=$ffffff
      \SubiTcolor1=$ffffff
      \SubiTcolor2=$ffffff
      \SubiTcolor3=$ffffff
      ;\iTTextSize=14
      ;https://msdn.microsoft.com/en-us/library/windows/desktop/dd162620(v=vs.85).aspx
      \iFontname="Arial"
    EndWith    
    SetGadgetItemData(0, b, *itemst)
  Next
  
  Repeat 
    Event= WaitWindowEvent()
    If Event = #PB_Event_Gadget And EventGadget() = 1
      mmr=RGB(Random(255,0),Random(255,0),Random(255,0))
      For b = 0 To 4         
        *valeur = GetGadgetItemData(Pbhndllv, b)
        *itemst.Lvitemdata=*valeur
        With *itemst
          \iTcolor=mmr
          \SubiTcolor1=RGB(Random(255,0),Random(255,0),Random(255,0))
          \SubiTcolor2=RGB(Random(255,0),Random(255,0),Random(255,0))
          \SubiTcolor3=RGB(Random(255,0),Random(255,0),Random(255,0))
          ;\iTTextSize=Random(21,5)
          ;\iFontname="Arial"
        EndWith
        SetGadgetItemData(0, b, *itemst) ;Appliquer les couleurs ;)
      Next
      InvalidateRect_(hndllv,0,#True)
    EndIf   
  Until  Event = #PB_Event_CloseWindow
EndIf

falsam · Message par **falsam** » mar. 22/sept./2015 18:35

Celtic ce n'est pas ce que veut microdevweb. Connaissant aussi Windev, je sais ce que veut microdevweb.

Que la le tableau soit vide ou initialisé avec des valeurs meme partiellement, il faut que la totalité des lignes soit colorée comme le montre cette image.

Les lignes sans données sont elles aussi colorées, mais pas sectionnables.

microdevweb · Message par **microdevweb** » mar. 22/sept./2015 19:12

@Falsam,

C'est tout à fait cela.

celtic88 · Message par **celtic88** » mar. 22/sept./2015 19:16

falsam a écrit :Celtic ce n'est pas ce que veut microdevweb. Connaissant aussi Windev, je sais ce que veut microdevweb.

Que la le tableau soit vide ou initialisé avec des valeurs meme partiellement, il faut que la totalité des lignes soit colorée comme le montre cette image.

Les lignes sans données sont elles aussi colorées, mais pas sectionnables.

ah j'ai compris !mais je pense pas que c'est faisable:(, ca?

falsam · Message par **falsam** » mar. 22/sept./2015 20:21

Spock a écrit :comprends pas , tu montres une ligne grise , et le reste en blanc.... elle est ou ta coloration ?

Effectivement ta vue baisse, ou alors change de moniteur. Le noir et blanc à eu son temps, il serait temps de penser à la couleur

A part la ligne en gris parce que non sélectionnable, les autres sont colorés alternativement en jaune et blanc.

G-Rom · Message par **G-Rom** » mar. 22/sept./2015 21:39

falsam a écrit :
Spock a écrit :comprends pas , tu montres une ligne grise , et le reste en blanc.... elle est ou ta coloration ?
Effectivement ta vue baisse, ou alors change de moniteur. Le noir et blanc à eu son temps, il serait temps de penser à la couleur

A part la ligne en gris parce que non sélectionnable, les autres sont colorés alternativement en jaune et blanc.

Je vois la même chose que spock, j'ai une bonne vue, j'en déduis que tu as forcé sur la vinasse

( je vais régler le contraste de mon écran , au cas ou... )

Edit: Effectivement , avec un réglages "terne" de mon écran ( contraste à zéro ) , on vois bien des zone jaune pisse.

microdevweb · Message par **microdevweb** » mer. 23/sept./2015 8:07

Spock, G-rom réglez le contraste de vos écrans.
Lignes impaires blanche Rgb(255,255,255)
Lignes paires jaune très clair Rgb (255,255,232)

Nb: Ce n'est pas mois qui inventes les valeurs Rgb, mais ce sont les valeurs retournées par le plugin Firefox ColorPicker.

falsam · Message par **falsam** » mer. 23/sept./2015 11:31

Meme sur une tablette sans aucun réglage la différence de couleur est visible.

J'ai changé l'image pour les mal voyants^^

microdevweb · Message par **microdevweb** » mer. 23/sept./2015 12:31

pour remédier à cela je vais réutilisé une de mes tables Canvas

Module Table 1ère partie du code

Code : Tout sélectionner

;////////////////////////////////////////////////////////////////////////////////////////////////////////////
; Nom: MemoryTable / DataTable
; Vers 2.2B2 du 2014-12-20
;Descrition : Affichage d'une table mémoire sur un canvas
; © AllDev / MicrodevWeb / Bielen Pierre
;////////////////////////////////////////////////////////////////////////////////////////////////////////////
XIncludeFile "EditBox.pbi"
XIncludeFile "ScroolH.pbi"
XIncludeFile "ScroolV.pbi"

DeclareModule Table
      ;-*---------- Constantes
      #Left=0
      #Right=1
      #Center=2
      #Numeric=0
      #String=1
      #Combo=2
      #Image=3
      #Spin=4
      ;}----------- FIN Constantes
      ;-*---------- Déclaration
      Declare Create(Id,X,Y,W,H,title$)
      Declare AddColumn(IdTable,Width,Title$,Type=Table::#String,Justifi=#Left,Margin=20,OrderOn.b=#False,SearchOn.b=#False,MoveableOn.b=#False,ResizeOn.b=#False,MinimumWith=60)
      Declare SetProcedureCallBackSelectLine(IdTable,*ProcedureCallback)
      Declare AddItem(IdTable,IdColumn,IdLine,DisplayValue$,*DataReturn=-1)
      Declare Draw(Id)
      Declare Event(Id,Event)
      ;} ----------- FIN Déclaration
EndDeclareModule
Module Table
      ;-* Initialisation
      EnableExplicit
      UsePNGImageDecoder()
      ;} FIN Initialisation
      ;-* Prototype
      Prototype.l ProtoEventSelectLine(Nline.l) 
      ;} FIN Prototype
      ;-* Contantes
      #OrderD=1
      #OrderA=2
      #OrderOF=0
      ;} FIN Contantes
      ;-* Structures
      Structure Pos ;Différente position
            X.i
            Y.i
            W.i
            H.i
      EndStructure
      Structure Column ;Les colonnes de la table
            Id.i
            Title$
            X.i
            Widh.i
            OrderOn.b
            SearchOn.b
            MoveableOn.b
            Type.i
            ResizeOn.b
            MinimumWith.i
            myIcoSearch.Pos ;Pour localiser l'icone recherche
            myIcoOrder.Pos  ;Pour localiser l'icone de tri
            Order.i
            Justifi.i
            Margin.i
      EndStructure
      Structure DataLine ;Les datas de chaque ligne par colonne
            IDColumn.i
            *ReturnData
            DisplayValue$
            Image.i
            Width.i
            Height.i
            Shearch.b
      EndStructure
      Structure Line ;Les lignes de la table
            Id.i
            TriValue$ ;Pour le tri de la table
            ColorFront.i ;En cas de couleur personalisée
            ColorBack.i  ;Idem
            Selected.b   ;La ligne est sélectionnée?
            List myDataLine.DataLine() ;Les datas de la ligne par colonne
      EndStructure
      Structure Table ;Les informations générales de la table
            LineColor.i
            HeaderHeight.i
            TilteBackColor.i
            TilteFrontColor.i
            TitleFont.i
            ColumnHeight.i
            ColumnBackColor.i
            ColumnFrontColor.i
            ColumnFont.i
            LineHeight.i
            PairFrontColor.i
            PairBackColor.i
            ImpairFrontColor.i
            ImpairBackColor.i
            LineFont.i
            NbLine.i
            CurrentLine.i
            SelectFrontColor.i
            SelectBackColor.i
            SelectFont.i
            myPos.Pos
            List  myColumn.Column()
            List  myLine.Line()
            myCanvas.i
            Title$
            myScroolHOn.b
            myScroolVOn.b
            myImageTable.i
            myIdScroolH.i
            myIdScroolV.i
            *ProcedureCallbackSelectLine
            myEditBox.i
            EditBoxOn.b
      EndStructure
      Structure Chaine
            deb.i
            Long.i
      EndStructure
      ;} FIN Structures
      ;-* Liste / Map
      Global NewMap myTable.Table() ;Pusieurs tables pourrons être inssèrée avec le même module
                                    ;} FIN Liste / Map
      ;-* Variables globales
      Global gMouseX,gMouseY,gClicOn.b=#False,OverScrool.b=#False
      Global *ColumnLineOver=-1,*ColumnOver=-1,*LineOver=-1
      Global OldPos.Pos
      Global OldMous.Pos
      Global *ColumnTilteOver=-1
      Global Denied.b=#False
      Global *ColumnRightChange=-1
      Global *ColumnLeftChange=-1
      Global *ColumnOrder=-1
      Global *ColumnShearch=-1
      Global TxtShearch$
      Global FontShearch=LoadFont(#PB_Any,"Arial",12,#PB_Font_HighQuality)
      Global ShearchOn.b=#False
      Global *ShearchIdColumn=-1
      Global MaskCursor
      Global CurrentTime=ElapsedMilliseconds()
      Global TimeElapsed
      Global CursorPos.Pos
      Global MaskPos.Pos
      Global OverMask.b=#False
      Global FirstCaractere=0
      Global myChaine.Chaine
      Global ShearchPosX
      Global *LineSelected=-1
      Global *ColumnEdited=-1
      Global CursorOn=#False
      ;} FIN Variables globales
      ;-* Images
      Global SEARCH=CatchImage(#PB_Any,?SEARCH)
      Global ORDER_A=CatchImage(#PB_Any,?ORDER_A)
      Global ORDER_A_OF=CatchImage(#PB_Any,?ORDER_A_OF)
      Global ORDER_D=CatchImage(#PB_Any,?ORDER_D)
      Global ORDER_D_OF=CatchImage(#PB_Any,?ORDER_D_OF)
      Global MOV_L=CatchImage(#PB_Any,?MOV_L)
      Global MOV_R=CatchImage(#PB_Any,?MOV_R)
      Global No=CatchImage(#PB_Any,?No)
      Global Yes=CatchImage(#PB_Any,?Yes)
      ;} FIN Images
      ;-* Local déclaration
      Declare GrabTable()
      Declare DrawTable()
      Declare DrawBoxShearch()
      Declare ChangeCursor()
      Declare DeleteBoxShearch()
      Declare ManageEvent()
      ;} FIN  Local déclaration
      ;-* Procédures
      Procedure LookDeleteShearchBox()
            If ShearchOn=#False:ProcedureReturn : EndIf
            If Not EditBox::OverEditBox(myTable()\myEditBox) 
                  DeleteBoxShearch()
            EndIf    
      EndProcedure
      Procedure SetProcedureCallBackSelectLine(IdTable,*ProcedureCallback)
            ;Cette procédure permet l'ajout d'une procédure CallBack, cette dernière sera appellée
            ;à de la sélection d'une ligne de la table
            ;Vérifie si la table existe
            If FindMapElement(myTable(),Str(IdTable))=0
                  MessageRequester("Table \ SetProcedureCallBack ","Error this Id "+Str(IdTable)+" not exist...")
                  ProcedureReturn #False
            EndIf
            myTable()\ProcedureCallbackSelectLine=*ProcedureCallback
            ProcedureReturn #True
      EndProcedure
      Procedure DeleteBoxShearch()
            If ShearchOn=#False :ProcedureReturn  :EndIf
            ShearchOn=#False
            EditBox::Free(myTable()\myEditBox)
            myTable()\EditBoxOn=#False
            DrawTable()
            StartDrawing(CanvasOutput(myTable()\myCanvas))
            GrabTable()
            StopDrawing()
            ChangeCursor()
      EndProcedure
      Procedure Shearch()
             Protected Index,N,PN
             ChangeCurrentElement(myTable()\myColumn(),*ShearchIdColumn)
            Index=myTable()\myColumn()\Id
            PN=0
            If Len(TxtShearch$)>0
                  ForEach myTable()\myLine()
                        N+1
                        ForEach myTable()\myLine()\myDataLine()
                              With myTable()\myLine()\myDataLine()
                                    \Shearch=#False
                                    If \IDColumn=Index
                                          If Left(\DisplayValue$,Len(TxtShearch$))=TxtShearch$
                                                If PN=0:PN=N-1:EndIf
                                                \Shearch=#True
                                          EndIf
                                    EndIf
                              EndWith
                        Next
                  Next
            Else
                  PN=0
            EndIf
            ScrollV::SetState(myTable()\myIdScroolV,PN)
            StartDrawing(CanvasOutput(myTable()\myCanvas))
            ScrollV::Draw(myTable()\myIdScroolV)
            StopDrawing()
            DrawTable()
            StartDrawing(CanvasOutput(myTable()\myCanvas))
            GrabTable()
            StopDrawing()
      EndProcedure
      Procedure EventShearch(Txt$)
            ;If Len(Txt$)=0:ProcedureReturn :EndIf
            TxtShearch$=Txt$
            Shearch()
      EndProcedure
      Procedure DrawBoxShearch()
            Protected X,Y,W,H
            If ShearchOn=#False :ProcedureReturn  :EndIf
            ChangeCurrentElement(myTable()\myColumn(),*ShearchIdColumn)
            With myTable()
                  Y=\HeaderHeight
                  X=\myColumn()\X
                  W=\myColumn()\Widh
                  H=\ColumnHeight
                  ;Création de l'éditor box
                  If \EditBoxOn=#False
                        \myEditBox=EditBox::Create(#PB_Any,\myCanvas,X,Y,W,H,"",@EventShearch())
                  EndIf
                  ;Affiche l'EditBox
                  EditBox::Draw(\myEditBox,#True)
                  \EditBoxOn=#True
                  EditBox::GiveFocus(\myEditBox,#True)
            EndWith 
      EndProcedure
      Procedure IsOverIcone()
            Protected X1,X2,Y1,Y2
            ;Cette procédure va recherché si la souris est sur une icone,  cherche ou order
            ;Par défaut on est sur aucun icone
            *ColumnShearch=-1
            *ColumnOrder=-1
            ;parcours de toutes les colonnes
            ForEach myTable()\myColumn()
                  ;Si la recherche est active
                  With myTable()\myColumn()
                        If \SearchOn=#True
                              X1=\myIcoSearch\X:X2=X1+\myIcoSearch\W
                              ;NOTE: La table étant déssinée dans une image on doit prendre en compte la postition de l'image
                              Y1=myTable()\HeaderHeight
                              Y1+\myIcoSearch\Y:Y2=Y1+\myIcoSearch\H
                              ;Si l'ascenseur Horisontal est actif on le prend en compte
                              If myTable()\myScroolHOn=#True
                                    X1-ScrollH::GetState(myTable()\myIdScroolH)
                                    X2-ScrollH::GetState(myTable()\myIdScroolH)
                              EndIf
                              If (gMouseX>=X1 And gMouseX<=X2) And (gMouseY>=Y1 And gMouseY<=Y2)
                                    *ColumnShearch=@myTable()\myColumn()
                                    ;Si les icone de deplcement de colonne on été affiché on rafraichi la table
                                    If *ColumnTilteOver<>-1
                                          StartDrawing(CanvasOutput(myTable()\myCanvas))
                                          GrabTable()
                                          StopDrawing()
                                    EndIf
                                    ProcedureReturn #True ;On a trouvé quelque chose
                              EndIf
                        EndIf
                        If \OrderOn=#True
                              X1=\myIcoOrder\X:X2=X1+\myIcoOrder\W
                              Y2=\myIcoOrder\Y:Y2=Y1+\myIcoOrder\H
                               ;Si l'ascenseur Horisontal est actif on le prend en compte
                              If myTable()\myScroolHOn=#True
                                    X1-ScrollH::GetState(myTable()\myIdScroolH)
                                    X2-ScrollH::GetState(myTable()\myIdScroolH)
                              EndIf
                              If (gMouseX>=X1 And gMouseX<=X2) And (gMouseY>=Y1 And gMouseY<=Y2)
                                    *ColumnOrder=@myTable()\myColumn()
                                    ;Si les icone de deplcement de colonne on été affiché on rafraichi la table
                                    If *ColumnTilteOver<>-1
                                          StartDrawing(CanvasOutput(myTable()\myCanvas))
                                          GrabTable()
                                          StopDrawing()
                                    EndIf
                                    ProcedureReturn #True ;On a trouvé quelque chose
                              EndIf
                        EndIf
                  EndWith
            Next
            ProcedureReturn #False ;On a rien trouvé
      EndProcedure
      Procedure IsOverCulumnLine()
            Protected X1,X2
            ;La souris est elle sur une ligne de la colonne ?
            ;On vas parcourir toutes les colonne pour vérifier cela
            ;A la base la première colonne est à la gauche de la table
            ;Donc X1 =0, mais ATTENTION si la largueur total des colonnes est plus grande que la largeur de la table
            ;On a un ascenseur et donc, il peu y avoir un décalage on vas donc vérifier cela 
            If myTable()\myScroolHOn=#True ;L'ascenseur horisontal est actif
                  X1=0-ScrollH::GetState(myTable()\myIdScroolH)-1
            EndIf
            ;A la base aucune ligne de colonnes n'est survolée
            *ColumnLineOver=-1
            ForEach myTable()\myColumn()
                  X1+myTable()\myColumn()\Widh ;On ajoute la largeur de la colonne
                  ;Une petite marge de 4 pixel
                  X2=X1+4
                  ;Maintenant on vérifie
                  If gMouseX>=X1 And gMouseX<=X2 ;On est sur un ligne de cololnne
                        ;On mémorise l'adresse mémoire de la colonne
                        *ColumnLineOver=@myTable()\myColumn()
                        ;On dis que on trouvé quelque chose
                        ProcedureReturn #True
                  EndIf
            Next
            ;Si on arrive à la fin de la boucle on a rien trouvé et on le signale
            ProcedureReturn #False
      EndProcedure
      Procedure IsOverLine()
            Protected X1,X2,Y1,Y2,LineDisplay=0
            ;A la base aucune colonne et aucune ligne
            OverMask=#False
            *ColumnOver-1
            *LineOver=-1
            ;Si la souris est au dessus du titre des  colonnes, on est pas sur la table à proprement parlé
            ;donc on signale que l'on a rien trouvé
            If gMouseY<myTable()\HeaderHeight+myTable()\ColumnHeight
                  ProcedureReturn #False
            EndIf
            ;Si on sort horisontalement de la colonne on signale que l'on a rien trouvé
            ;Cas ou La largeur total des colonne est plus petite que la largeur de la table
            If gMouseX>ImageWidth(myTable()\myImageTable)
                  ProcedureReturn #False
            EndIf
            ;On va en premier regarder sur quel colonne
            ;A la base la première colonne est à la gauche de la table
            ;Donc X1 =0, mais ATTENTION si la largueur total des colonnes est plus grande que la largeur de la table
            ;On a un ascenseur et donc, il peu y avoir un décalage on vas donc vérifier cela 
            If myTable()\myScroolHOn=#True ;L'ascenseur horisontal est actif
                  X1=0-ScrollH::GetState(myTable()\myIdScroolH)
            EndIf
            ;             On parcours ensuite toutes les colonnes
            ForEach myTable()\myColumn()
                  X2=X1+myTable()\myColumn()\Widh
                  ;On est sur la colonne on mémorise l'adresse de la colonne et on arrête la boucle
                  ;ATTENTION on ne sort pas de la procédure
                  If gMouseX>=X1 And gMouseX<=X2
                        *ColumnOver=@myTable()\myColumn()
                        Break ; Sortir de la boucle
                  EndIf
                  X1+myTable()\myColumn()\Widh ;Pour passer à la colonne suivante
            Next
            ;Pour les lignes on vas procéder autrement
            ;On se position sur le bon record en fonction de l'ascenseur
            ;             ResetList(myTable()\myLine())
            If myTable()\myScroolVOn=#True ;L'ascenseur vertical est actif
                  SelectElement(myTable()\myLine(),ScrollV::GetState(myTable()\myIdScroolV))
            Else
                  SelectElement(myTable()\myLine(),0)
            EndIf
            ;La la basse la premiere ligne se situe sous le titre de la colonne
            With myTable()
                  Y1=\HeaderHeight+\ColumnHeight 
            EndWith
            ;Maintenant on peut parcourir la liste
            ;Tantque toutes les lignes affichées non pas été testées
            While LineDisplay<myTable()\NbLine
                  Y2=Y1+myTable()\LineHeight
                  If gMouseY>=Y1 And gMouseY<=Y2
                        *LineOver=@myTable()\myLine()
                        ProcedureReturn #True ; Signale que l'on trouvé quelque chose
                  EndIf
                  ;Passe à la ligne suivante
                  Y1+myTable()\LineHeight
                  NextElement(myTable()\myLine())
                  LineDisplay+1
            Wend
            ProcedureReturn #False ; Signale que l'on rien trouvé 
      EndProcedure
      Procedure IsOverColumnTitle()
             If ShearchOn=#True :ProcedureReturn #False :EndIf
            ;Dans ce procédure, on regarde sur quel titre de colonne la souris se trouve
            ;On autorisera ainsi une permuttation de l'ordre des colonnes
            ;Si on est sur icone ne pas poursuivre la procédure
            If *ColumnOrder<>-1 Or *ColumnShearch<>-1  :ProcedureReturn #False :EndIf
            Protected X1,Y1,X2,Y2
            ;On commence à gauche de la table
            X1=0
            ;Si l'ascenseur Horisontal est actif on prend sa valeur en compte
            With myTable()
                  If \myScroolHOn=#True
                        X1-ScrollH::GetState(\myIdScroolH)-1
                  EndIf
                  Y1=\HeaderHeight ;La hauteur de l'entete de titre
                  Y2=Y1+\ColumnHeight ;La hauteur du titre des colonnes
            EndWith
            ;Parcours de toutes les colonnes
            ForEach myTable()\myColumn()
                  With myTable()\myColumn()
                        X2=X1+\Widh
                        If (gMouseY>=Y1 And gMouseY<=Y2) And (gMouseX>=X1 And gMouseX<=X2)
                              *ColumnTilteOver=@myTable()\myColumn() ;La colonne survolée
                              ProcedureReturn #True ;On a trouvé quelque chose
                        EndIf
                        X1+\Widh ;Passe à la colonne suivante
                  EndWith   
            Next
            ProcedureReturn #False ;Rien trouvé
      EndProcedure
      Procedure EditColumn()
            If *ColumnOver=-1:ProcedureReturn #False :EndIf
            If *LineSelected=-1 :ProcedureReturn #False:EndIf
            If gMouseY<myTable()\HeaderHeight+myTable()\ColumnHeight :ProcedureReturn :EndIf
            ChangeCurrentElement(myTable()\myLine(),*LineSelected)
            ChangeCurrentElement(myTable()\myColumn(),*ColumnOver)
            SelectElement(myTable()\myLine()\myDataLine(),ListIndex(myTable()\myColumn()))
            *ColumnEdited=*ColumnOver
            With myTable()\myColumn()
                  If \Type=#String
                        StartDrawing(CanvasOutput(myTable()\myCanvas))
                        myChaine\deb=Len(myTable()\myLine()\myDataLine()\DisplayValue$)
;                         DrawEditBox()
                        CursorOn=#True
                        StopDrawing()
                  EndIf
            EndWith
      EndProcedure
      Procedure DrawIconMoveColum()
            Protected X1,Y,X2
            ;Calcul de la position X
            ForEach myTable()\myColumn()
                  X2+myTable()\myColumn()\Widh ;A droite de la colonne
                  If @myTable()\myColumn()=*ColumnTilteOver :Break :EndIf
            Next
            ;Memorise la position pour la procédure de déplacement
            OldPos\X=X2-myTable()\myColumn()\Widh
            OldPos\W=myTable()\myColumn()\Widh
            X2-30
            X1=X2-myTable()\myColumn()\Widh ;A gauche de la colonne
            ;Si ascenseur horisontal on le prend en compte
            If myTable()\myScroolHOn=#True
                  X2-ScrollH::GetState(myTable()\myIdScroolH)
                  X1-ScrollH::GetState(myTable()\myIdScroolH)
            EndIf
            ;Calcul de la posiiton Y
            Y=myTable()\HeaderHeight+myTable()\ColumnHeight
            ;Pointer sur la bonne colonne
            ChangeCurrentElement(myTable()\myColumn(),*ColumnTilteOver)
            With myTable()\myColumn()
                  If \MoveableOn=#True ;La colonne est déplacable
                        StartDrawing(CanvasOutput(myTable()\myCanvas))
                        ;Efface le dessin avec l'image mémoire
                        GrabTable()
                        ChangeCurrentElement(myTable()\myColumn(),*ColumnTilteOver)
                        ;Première colonne, déplacable vers la droite uniquement
                        ;Donc on affiche l' icone MOV_R
                        If ListIndex(myTable()\myColumn())=0 
                              DrawingMode(#PB_2DDrawing_AlphaClip)
                              DrawImage(ImageID(MOV_R),X2,Y)
                        EndIf
                        ;Colonnes du milieux déplacable dans les 2 sens
                        ;Donc on affiche les icones MOV_R et MOV_L
                        If ListIndex(myTable()\myColumn())>0 And ListIndex(myTable()\myColumn())<ListSize(myTable()\myColumn())-1
                              DrawingMode(#PB_2DDrawing_AlphaClip)
                              DrawImage(ImageID(MOV_R),X2,Y)
                              DrawImage(ImageID(MOV_L),X1,Y)
                        EndIf
                        ;Dernière colonne déplacable vers la gauche
                        ;Donc on affiche l' icone MOV_L
                        If ListIndex(myTable()\myColumn())=ListSize(myTable()\myColumn())-1
                              DrawingMode(#PB_2DDrawing_AlphaClip)
                              DrawImage(ImageID(MOV_L),X1,Y)
                        EndIf
                        StopDrawing()
                  EndIf
            EndWith
      EndProcedure
      Procedure WhereIsMouse()
            ;La souris est elle sur un icone cherche ou order
            If IsOverIcone():ProcedureReturn #True :EndIf
            ;La souris est elle sur un titre de colonne?
            If IsOverColumnTitle() 
                  DrawIconMoveColum()
                  ProcedureReturn #True 
            Else
                  If *ColumnTilteOver<>-1
                        StartDrawing(CanvasOutput(myTable()\myCanvas))
                        GrabTable()
                        StopDrawing()
                        *ColumnTilteOver=-1
                  EndIf
            EndIf
            ;La souris est elle sur une ligne de la colonne ?
            If IsOverCulumnLine():ProcedureReturn #True :EndIf ;Oui on le signale
            ;La souris est elle sur une ligne ?Et sur quel colonne de cette ligne?
            If IsOverLine():ProcedureReturn #True :EndIf
;             ;La souris est elle sur un masque de saisie
;             If IsOverMask():ProcedureReturn #True:EndIf     
            ;La souris ne survole rien que l'on gère 
            ProcedureReturn #False ; on le signale
      EndProcedure
      Procedure MoveColumn()
            If *ColumnTilteOver=-1 :ProcedureReturn :EndIf
            Protected DepX,X,Y,H,W,MaxW,Color,Image
            Denied=#False ;Par défaut l'opération est autorisé
            *ColumnRightChange=-1 ;par défaut pas d'interversion de colonne
            *ColumnLeftChange=-1
            DepX=gMouseX-OldMous\X
            With myTable()
                  Y=\HeaderHeight
                  H=\ColumnHeight
                  MaxW=\myPos\W
            EndWith
            ;Is l'ascenseur Horisontal est actif
            If myTable()\myScroolHOn=#True
                  MaxW-20
            EndIf
            ChangeCurrentElement(myTable()\myColumn(),*ColumnTilteOver)
            ;La première colonne ne peut aller vers la gauche
            If ListIndex(myTable()\myColumn())=0
                  If DepX<0
                        Denied=#True
                        ProcedureReturn 
                  EndIf
            EndIf
            ;La dernière colonne ne peu pas aller vers la droite
            If ListIndex(myTable()\myColumn())=ListSize(myTable()\myColumn())-1
                  If DepX>0
                        Denied=#True
                        ProcedureReturn 
                  EndIf
            EndIf
            X=OldPos\X+DepX
            W=OldPos\W
            ;Si derrière la table
            If (X+W)>MaxW
                  Denied=#True
                  ProcedureReturn 
            EndIf
            If X<=0
                  Denied=#True
                  ProcedureReturn 
            EndIf
            ChangeCurrentElement(myTable()\myColumn(),*ColumnTilteOver)
            If  DepX>0 ;Vers la droite
                       ;Pour toutes les colonnes de droite
                  While NextElement(myTable()\myColumn())
                        With myTable()\myColumn()
                              ;si la colonne que l'on déplace en piéte de 1/3 sur la colonne de droite 
                              ;et que ne dépasse pas
                              If (X+W)>(\X+(\Widh)/3) And (X+W<(\X+\Widh))
                                    *ColumnRightChange=@myTable()\myColumn()
                                    Break
                              EndIf
                        EndWith
                  Wend
            EndIf
            If DepX<0 ; vers la gauche
                      ;Pour Toutes les colonnes à gauche
                  While PreviousElement(myTable()\myColumn())
                        With myTable()\myColumn()
                              ;si la colonne que l'on déplace en piéte de 1/3 sur la colonne de droite 
                              ;et que ne dépasse pas
                              ;et que ne dépasse pas
                              If X<((\X+\Widh)-(\Widh/3)) And X>\X
                                    *ColumnLeftChange=@myTable()\myColumn()
                                    Break
                              EndIf
                        EndWith
                  Wend
            EndIf
            StartDrawing(CanvasOutput(myTable()\myCanvas))
            GrabTable()
            DrawingMode(#PB_2DDrawing_AlphaBlend)
            If *ColumnRightChange<>-1 Or *ColumnLeftChange<>-1
                  Color=RGBA(124,252,0,130)
                  Image=Yes
            Else
                  Color=RGBA(255,123,123,130)
                  Image=No
            EndIf
            Box(X,Y,W,H,RGBA(0,0,139,130))
            Box(X+4,Y+4,W-8,H-8,Color)
            DrawingMode(#PB_2DDrawing_AlphaClip)
            DrawImage(ImageID(Image),X+((W/2)-((H-8)/2)),Y+((H/2)-((H-8)/2)),H-8,H-8)
            StopDrawing()
      EndProcedure
      Procedure InterChangeColumn()
            ;Interchange les colonne les une aux autres
            If *ColumnRightChange=-1 And *ColumnLeftChange=-1 :ProcedureReturn :EndIf
            ChangeCurrentElement(myTable()\myColumn(),*ColumnTilteOver)
            If *ColumnRightChange<>-1
                  MoveElement(myTable()\myColumn(),#PB_List_After,*ColumnRightChange)
            EndIf
            If *ColumnLeftChange<>-1
                  MoveElement(myTable()\myColumn(),#PB_List_Before,*ColumnLeftChange)
            EndIf
            DrawTable()
            StartDrawing(CanvasOutput(myTable()\myCanvas))
            GrabTable()
            StopDrawing()
            *ColumnRightChange=-1
            *ColumnLeftChange=-1
      EndProcedure
      Procedure MemoriseOldColumnWidth()
            ;Si une ligne de colonne est survolée on mémorise 
            ;l'ancienn largeur de la colonne
            If *ColumnLineOver=-1:ProcedureReturn : EndIf
            ChangeCurrentElement(myTable()\myColumn(),*ColumnLineOver)
            OldPos\W=myTable()\myColumn()\Widh
      EndProcedure
      Procedure ChangeCursor()
            ;Sur l'EditBox
            If myTable()\EditBoxOn And EditBox::OverEditBox(myTable()\myEditBox)
                  SetGadgetAttribute(myTable()\myCanvas,#PB_Canvas_Cursor,#PB_Cursor_IBeam)
                  ProcedureReturn ;Pour ne pas aller plus loin
            EndIf
            ;Sur un ascenseur
            If OverScrool=#True
                  SetGadgetAttribute(myTable()\myCanvas,#PB_Canvas_Cursor,#PB_Cursor_Default)
                  ProcedureReturn ;Pour ne pas aller plus loin
            EndIf
            ;Si pas autoriser
            If Denied=#True
                  SetGadgetAttribute(myTable()\myCanvas,#PB_Canvas_Cursor,#PB_Cursor_Denied)
                  ProcedureReturn ;Pour ne pas aller plus loin
            EndIf
            ;Survol d'un masque de saisie
            If OverMask=#True
                  SetGadgetAttribute(myTable()\myCanvas,#PB_Canvas_Cursor,#PB_Cursor_IBeam)
                  ProcedureReturn ;Pour ne pas aller plus loin
            EndIf
            ;Survol d'uneicone
            If *ColumnShearch<>-1 Or *ColumnOrder<>-1
                  SetGadgetAttribute(myTable()\myCanvas,#PB_Canvas_Cursor,#PB_Cursor_Hand)
                  ProcedureReturn ;Pour ne pas aller plus loin
            EndIf
            ;Survol d'un titre de colonne
            If *ColumnTilteOver<>-1
                  SetGadgetAttribute(myTable()\myCanvas,#PB_Canvas_Cursor,#PB_Cursor_LeftRight)
                  ProcedureReturn ;Pour ne pas aller plus loin
            EndIf
            ;Survol d'une ligne de colonne
            If *ColumnLineOver<>-1
                  SetGadgetAttribute(myTable()\myCanvas,#PB_Canvas_Cursor,#PB_Cursor_LeftRight)
                  ProcedureReturn ;Pour ne pas aller plus loin
            EndIf
            If *LineOver<>-1
                  SetGadgetAttribute(myTable()\myCanvas,#PB_Canvas_Cursor,#PB_Cursor_Hand)
                  ProcedureReturn ;Pour ne pas aller plus loin
            EndIf
            ;Le curseur par défaut 
            SetGadgetAttribute(myTable()\myCanvas,#PB_Canvas_Cursor,#PB_Cursor_Default)
      EndProcedure
      Procedure ChangeOrder()
            Protected Index
            If *ColumnOrder=-1 :ProcedureReturn  : EndIf
            ;Change l'ordre de tri
            ChangeCurrentElement(myTable()\myColumn(),*ColumnOrder)
            Index=ListIndex(myTable()\myColumn())
            With myTable()\myColumn()
                  Select \Order
                        Case #OrderA
                              \Order=#OrderD
                        Case #OrderD
                              \Order=#OrderA
                        Case #OrderOF
                              \Order=#OrderD
                              ;Remet toutes les autres colonnes à OF
                              ForEach myTable()\myColumn()
                                    If @myTable()\myColumn()<>*ColumnOrder
                                          \Order=#OrderOF
                                    EndIf
                              Next
                              ;Change la variable de tri de la ligne
                              ForEach myTable()\myLine()
                                    SelectElement(myTable()\myLine()\myDataLine(),Index)
                                    myTable()\myLine()\TriValue$=myTable()\myLine()\myDataLine()\DisplayValue$
                              Next
                  EndSelect
            EndWith
            DrawTable()
            StartDrawing(CanvasOutput(myTable()\myCanvas))
            GrabTable()
            StopDrawing()
      EndProcedure
      Procedure ModifColumnWith()
            If *ColumnLineOver=-1:ProcedureReturn : EndIf
            Protected DepX
            DeleteBoxShearch()
            ChangeCurrentElement(myTable()\myColumn(),*ColumnLineOver)
            DepX=OldMous\X-gMouseX
            If OldPos\W-DepX>=myTable()\myColumn()\MinimumWith
                  myTable()\myColumn()\Widh=OldPos\W-DepX
                  Draw(Val(MapKey(myTable())))
            EndIf
      EndProcedure     
      Procedure DeselectAll()
            ForEach myTable()\myLine()
                  myTable()\myLine()\Selected=#False
            Next
      EndProcedure
      Procedure DefaultParameters()
            ;Le paramètres par défault qui seront modifiable par l'ajout de procédures
            With myTable()
                  \HeaderHeight=60
                  \TilteBackColor=$8B8B00
                  \TilteFrontColor=$FFFFFF
                  \TitleFont=LoadFont(#PB_Any,"Time new roman",12,#PB_Font_Bold|#PB_Font_HighQuality)
                  \ColumnHeight=30
                  \ColumnBackColor=$AEAE00
                  \ColumnFrontColor=$FFFFFF
                  \ColumnFont=LoadFont(#PB_Any,"Time new roman",11,#PB_Font_Bold|#PB_Font_HighQuality)
                  \LineColor=$626200
                  \ImpairBackColor=$EDCBA3
                  \ImpairFrontColor=$89561A
                  \PairBackColor=$FBF5EE
                  \PairFrontColor=$89561A
                  \LineFont=LoadFont(#PB_Any,"Time new roman",10,#PB_Font_HighQuality)
                  \SelectFont=LoadFont(#PB_Any,"Time new roman",10,#PB_Font_Bold|#PB_Font_HighQuality)
                  \SelectBackColor=$FF0000
                  \SelectFrontColor=$FFFFFF
                  \LineHeight=20
                  \ProcedureCallbackSelectLine=-1
                  \EditBoxOn=#False
            EndWith
      EndProcedure
      Procedure Create(Id,X,Y,W,H,title$)
            Protected NbLine,HeightWorkable,Height
            If Id=#PB_Any
                  AddMapElement(myTable(),Str(MapSize(myTable())))
            Else
                  If FindMapElement(myTable(),Str(Id))<>0
                        MessageRequester("Table \ Create ","Error this Id "+Str(Id)+" already exist...")
                        ProcedureReturn -1
                  EndIf
                  AddMapElement(myTable(),Str(Id))
            EndIf
            DefaultParameters() ;Initialise les paramètres par défaut 
                                ;Calcul la hauteur suivant la hauteur de ligne
            HeightWorkable=H-(myTable()\HeaderHeight+myTable()\ColumnHeight)
            NbLine=Round(HeightWorkable/myTable()\LineHeight,#PB_Round_Nearest)
            Height=(NbLine*myTable()\LineHeight)+(myTable()\HeaderHeight+myTable()\ColumnHeight)
            With myTable()\myPos
                  \X=X
                  \Y=Y
                  \W=W
                  \H=Height
                  myTable()\myCanvas=CanvasGadget(#PB_Any,\X,\Y,\W,\H,#PB_Canvas_Keyboard)   
            EndWith
            myTable()\Title$=title$
            myTable()\NbLine=NbLine
            ;Juste pour récupèrer l'id des l'ascenseur
            myTable()\myIdScroolV=ScrollV::Init(#PB_Any,myTable()\myCanvas,0,0,0,0,0)
            myTable()\myIdScroolH=ScrollH::Init(#PB_Any,myTable()\myCanvas,0,0,0,0,0)
            BindGadgetEvent(myTable()\myCanvas,@ManageEvent())
            ProcedureReturn Val(MapKey(myTable())) ;Renvoyer l'id de la table/Important si #Pb_Any
      EndProcedure

microdevweb · Message par **microdevweb** » mer. 23/sept./2015 12:33

Module Table 2ème partie

Code : Tout sélectionner

Procedure AddItem(IdTable,IdColumn,IdLine,DisplayValue$,*DataReturn=-1)
            Protected ColumnExist.b=#False,LineExist.b=#False
            ;Vérifie si la table existe
            If FindMapElement(myTable(),Str(IdTable))=0
                  MessageRequester("Table \ AddItem ","Error this Id table "+Str(IdTable)+" not exist...")
                  ProcedureReturn #False
            EndIf
            ;Pointe sur la colonne
            ForEach myTable()\myColumn()
                  If myTable()\myColumn()\Id=IdColumn
                        ColumnExist=#True ;La colonne a été trouvée
                        Break 
                  EndIf
            Next
            If ColumnExist=#False ;La colonne n'a pas été trouvée
                  MessageRequester("Table \ AddItem ","Error this Id column "+Str(IdColumn)+" not exist...")
                  ProcedureReturn #False
            EndIf  
            ;Si l'utilisateur renseigne -1 on ajoute une nouvelle ligne
            If IdLine=-1
                  AddElement(myTable()\myLine())
                  With myTable()\myLine()
                        \Id=ListSize(myTable()\myLine())-1
                        \Selected=#False ;Par défaut La ligne n'est pas sélectionnée
                  EndWith
            Else ;Dans le cas contaire
                 ;On pointe sur la ligne et on envoie un message d'erreur si cette dernière n'est pas trouvée
                  ForEach myTable()\myLine()
                        If myTable()\myLine()\Id=IdLine
                              LineExist=#True
                              Break
                        EndIf
                  Next
                  If LineExist=#False ;La ligne n'a pas été trouvée
                        MessageRequester("Table \ AddItem ","Error this Id line "+Str(IdLine)+" not exist...")
                        ProcedureReturn #False
                  EndIf
            EndIf
            ;On recherche si un data na pas déjà été renseigné pour cette ligne et cette colonne
            ForEach myTable()\myLine()\myDataLine()
                  If myTable()\myLine()\myDataLine()\IDColumn=IdColumn
                        MessageRequester("Table \ AddItem ","Error this Id Column "+Str(IdColumn)+" already exist...")
                        ProcedureReturn #False
                  EndIf
            Next
            ;On ajoute la data de la ligne
            AddElement(myTable()\myLine()\myDataLine())
            With myTable()\myLine()\myDataLine()
                  \DisplayValue$=DisplayValue$
                  \ReturnData=*DataReturn
                  \IDColumn=IdColumn
            EndWith
            ;Si la colonne est triée on ajoute le tri dans la liste ligne
            With  myTable()\myColumn()
                  If \OrderOn=#True And (\Order=#OrderA Or \Order=#OrderD)
                        myTable()\myLine()\TriValue$=DisplayValue$
                  EndIf
            EndWith
            ProcedureReturn #True ;Tout c'est bien passé
      EndProcedure
      Procedure AddColumn(IdTable,Width,Title$,Type=Table::#String,Justifi=#Left,Margin=20,OrderOn.b=#False,SearchOn.b=#False,MoveableOn.b=#False,ResizeOn.b=#False,MinimumWith=60)
            ;Vérifie si la table existe
            If FindMapElement(myTable(),Str(IdTable))=0
                  MessageRequester("Table \ AddColumn ","Error this Id "+Str(IdTable)+" not exist...")
                  ProcedureReturn #False
            EndIf
            AddElement(myTable()\myColumn())
            ;Si la colonne est redimentionable, il faut une largeur minimum
            If ResizeOn=#True And MinimumWith<=0
                  MessageRequester("Table / AddColumn","Error minimumWith is requiered...")
                  ProcedureReturn -1
            EndIf
            ;La largeur est obligatoire
            If ResizeOn=#True And (MinimumWith>Width)
                  MessageRequester("Table / AddColumn","Error With is lower of MinimumWith...")
                  ProcedureReturn -1
            EndIf
            ;Si la largeur minimum est inférieur à la largeur
            If Width<=0
                  MessageRequester("Table / AddColumn","Error The With is requiered...")
                  ProcedureReturn -1
            EndIf
            With myTable()\myColumn()
                  \Id=ListSize(myTable()\myColumn())-1
                  \Title$=Title$
                  \Widh=Width
                  \Type=Type
                  \MoveableOn=MoveableOn
                  \OrderOn=OrderOn
                  \SearchOn=SearchOn
                  \ResizeOn=ResizeOn
                  \MinimumWith=MinimumWith
                  \Justifi=Justifi
                  \Margin=Margin
                  If ListSize(myTable()\myColumn())=1
                        \Order=#OrderD
                  Else
                        \Order=#OrderOF
                  EndIf
            EndWith
            ProcedureReturn myTable()\myColumn()\Id ;Renvoiyer l'id de la table
      EndProcedure
      Procedure ScroolHEvent()
            DeleteBoxShearch()
            StartDrawing(CanvasOutput(myTable()\myCanvas))
            GrabTable()
            StopDrawing()
      EndProcedure
      Procedure ScrooVEvent()
            DrawTable()
            StartDrawing(CanvasOutput(myTable()\myCanvas))
            GrabTable()
            StopDrawing()
      EndProcedure
      Procedure GrabTable()
            ;Cette procédure va copier une partie de l'image mémoire de la table et la dessiner sur le canvas
            ;Elle prend en considération l'ascenseur horisontal
            Protected X,Y,W,H,ImageTemp,Max
            ;Si l'editbox est actif sortir
;             If myTable()\EditBoxOn:ProcedureReturn :EndIf
            ;1) Calcul de taille
            H=ImageHeight(myTable()\myImageTable)
            ;On regarde la largeur total des colonne
            ForEach myTable()\myColumn()
                  W+myTable()\myColumn()\Widh
            Next
            ;Si la largeur des colonnes est plus grande que la largeur de la table
            ;On prend la largeur de la table
            If W>myTable()\myPos\W
                  W=myTable()\myPos\W
            EndIf
            ;Si l'ascenseur Verticales est affiché
            If myTable()\myScroolVOn=#True
                  W-20
            EndIf
            Max=(ImageWidth(myTable()\myImageTable)-W)+2
            ScrollH::SetMinMaxStep(myTable()\myIdScroolH,1,Max,10)
            ;2) Calcul de la position X
            ;On deplace à droite suivant l'ascenseur Horisontal
            If myTable()\myScroolHOn=#True
                  X+(ScrollH::GetState(myTable()\myIdScroolH))
            EndIf
            ;3) Copie de la portion désirée sur l'image mémoire
            ImageTemp=GrabImage(myTable()\myImageTable,#PB_Any,X,Y,W-4,H)
            ;4)Dessin de l'image
            DrawImage(ImageID(ImageTemp),2,myTable()\HeaderHeight)
            ;5)Suppression de l'image temporaire
            FreeImage(ImageTemp)
            DrawBoxShearch()
      EndProcedure
      Procedure DrawLine()
            Protected Y,H,Color,W,N,NbLine,HL,X,HC
            ;Dessin du contour de la table
            With myTable()
                  HC=\ColumnHeight
                  HL=\LineHeight
                  Y=\ColumnHeight
                  H=\myPos\H
                  Color=\LineColor
                  NbLine=\NbLine
            EndWith
            ;On prend la largeur de l'image en mémoire
            W=ImageWidth(myTable()\myImageTable)
            ;Dessin des lignes horisontales (Ligne de table)
            For N=1 To NbLine 
                  Line(0,Y,W,1,Color)
                  Y+HL ;Passe à la ligne suivante
            Next
            ;Dessin des lignes verticales (Linge des colonnes)
            X=0
            ForEach myTable()\myColumn()
                  myTable()\myColumn()\X=X
                  Line(X+myTable()\myColumn()\Widh,0,1,H,Color)
                  X+myTable()\myColumn()\Widh ;Passe à la colonne suivante
            Next
      EndProcedure
      Procedure DrawLineBack()
            Protected Y,NbLine,ColorP,ColorI,N,H,W,CurrentLine=1,Color
            With myTable()
                  Y=\ColumnHeight ;Les lignes sont sous les colonnes
                  H=\LineHeight
                  ColorP=\PairBackColor
                  ColorI=\ImpairBackColor
                  NbLine=\NbLine
            EndWith
            ;On prend la largeur de l'image mémoire
            W=ImageWidth(myTable()\myImageTable)
            ;Si l'ascenseur Vertical est actif la ligne courante varie suivant la valeur de ce dernier
            If myTable()\myScroolVOn=#True
                  CurrentLine=ScrollV::GetState(myTable()\myIdScroolV)
            EndIf
            ;Dessin de toutes les lignes pouvant être visible
            For N=1 To NbLine
                  If CurrentLine & 1 ;Chiffre impair
                        Color=ColorI
                  Else ;Chiffre pair
                        Color=ColorP
                  EndIf
                  ;Dessin du fond de la ligne
                  Box(0,Y,W,H,Color)
                  ;Passe à la ligne suivante
                  Y+H
                  ;Et pour la colorisation pair et impair
                  CurrentLine+1
            Next
      EndProcedure
      Procedure DrawColumnBack()
            Protected W,Y,H,Color,X,Txt$,XT,YT,DecSearch,XI,YI,Dec
            ;{ Dessin du fond des colonne
            With myTable()
                  H=myTable()\ColumnHeight
                  BackColor(\ColumnBackColor)
                  FrontColor(\ColumnFrontColor)
                  Color=\ColumnBackColor
                  ;Changer la police de caractère par la police pour le titre des colonnes
                  DrawingFont(FontID(\ColumnFont))
            EndWith
            ;                On prend toute la largeur de l'image mémoire
            W=ImageWidth(myTable()\myImageTable)
            DrawingMode(#PB_2DDrawing_Default)
            Box(0,0,W,H,Color) ;Le boite des titres des colonne
                               ;} FIN Dessin du fond des colonne
                               ;{ Dessin du titre des colonnes
                               ;                On commence à gauche de la table
            X=0
            ForEach myTable()\myColumn()
                  With myTable()\myColumn()
                        Dec=0
                        ;Si la colonne à l'option de recherche activée on dessine une icone 
                        If \SearchOn=#True
                              Dec+20
                              DrawingMode(#PB_2DDrawing_AlphaClip)
                              XI=X+4
                              YI=Y+4
                              DrawImage(ImageID(SEARCH),XI,YI,10,10)
                              ;Mémorise la position de l'icone pour les évenement ultérieur
                              \myIcoSearch\X=XI : \myIcoSearch\Y=YI :\myIcoSearch\H=10 :\myIcoSearch\W=10
                        EndIf
                        ;Si la colonne à l'option de tri
                        If \OrderOn=#True
                              Dec+20
                              XI=X+(\Widh-14)
                              ;Suivant l'ordre sélectionné
                              Select \Order
                                    Case #OrderA ;Ordre ascendant
                                          DrawImage(ImageID(ORDER_A),XI,YI,10,10)
                                    Case #OrderD ;Ordre descendant
                                          DrawImage(ImageID(ORDER_D),XI,YI,10,10)
                                    Case #OrderOF ;Ordre non actif
                                          DrawImage(ImageID(ORDER_D_OF),XI,YI,10,10)
                              EndSelect
                              ;Mémoorise la position de l'icone pour la gestion évenementielle
                              \myIcoOrder\X=XI:\myIcoOrder\Y=YI:\myIcoOrder\W=10:\myIcoOrder\H=10
                        EndIf
                        Txt$=\Title$
                        ;Si le texte est plus grand que la largeur de la colonne on tronque le texte
                        While TextWidth(Txt$)>(\Widh-Dec)
                              Txt$=Left(Txt$,Len(Txt$)-4)
                              Txt$+"..."
                        Wend
                        ;Calcul des coordonnée du texte
                        XT=X+25
                        XT+((\Widh-50)/2)
                        XT-TextWidth(Txt$)/2
                        YT=Y+((myTable()\ColumnHeight/2)-(TextHeight(Txt$)/2))
                        DrawingMode(#PB_2DDrawing_Default)
                        DrawText(XT,YT,Txt$)
                        X+\Widh ; pour passé  à la colonne suivante
                  EndWith
            Next
            ;} FIN Dessin du titre des colonnes
      EndProcedure
      Procedure DrawData()
            Protected X,Y,ColorBack,ColorFront,LineDisplay,NbLine,XT,YT,H,Txt$,WC,OrderTri
            Protected LineOk.b
            If ListSize(myTable()\myLine())=0:ProcedureReturn :EndIf
            LineOk=#True
            ;Change le type de tri suivant le chois de l'user
            ForEach myTable()\myColumn() 
                  If myTable()\myColumn()\Order=#OrderA
                        OrderTri=#PB_Sort_Ascending
                        Break
                  EndIf
                  If myTable()\myColumn()\Order=#OrderD
                        OrderTri=#PB_Sort_Descending
                        Break
                  EndIf
            Next
            SortStructuredList(myTable()\myLine(),OrderTri,OffsetOf(Line\TriValue$),TypeOf(Line\TriValue$))
            ;Si l'ascenseur Horisontal est actif, on se positionne sur le record en fonction de l'ascenseur en question
            ResetList(myTable()\myLine())
            If myTable()\myScroolVOn=#True
                  SelectElement(myTable()\myLine(),ScrollV::GetState(myTable()\myIdScroolV))
            Else ;Sino le premier elément
                  SelectElement(myTable()\myLine(),0)
            EndIf
            ;On commence sous les colonnes
            With myTable()
                  Y=\ColumnHeight
                  NbLine=\NbLine
                  H=\LineHeight
            EndWith
            ;Tant que toutes les lignes affichables ne sont pas dessinées
            While LineDisplay<NbLine
                  LineDisplay+1
                  ;Parcours de toutes les data de la ligne
                  X=0 ; on commence à gauche de la table
                      ;Choix de la police de caractère
                      ;Si la ligne n'est pas sélectionnée
                  If myTable()\myLine()\Selected=#False
                        DrawingFont(FontID(myTable()\LineFont))
                  Else
                        DrawingFont(FontID(myTable()\SelectFont))
                  EndIf
                  If LineOk
                        ForEach myTable()\myLine()\myDataLine()
                              ;On releve les infos sur la colonne
                              With myTable()\myLine()\myDataLine()
                                    ForEach myTable()\myColumn()
                                          If myTable()\myColumn()\Id=\IDColumn
                                                Break ;On pointe ainsi sur la bone colonne
                                          EndIf
                                    Next
                                    Txt$=\DisplayValue$
                                    ;Si le texte dépasse de la colonne on le tronque
                                    ;On enleve la marge définie
                                    WC=myTable()\myColumn()\Widh-myTable()\myColumn()\Margin
                                    While TextWidth(Txt$)>WC
                                          Txt$=Left(Txt$,Len(Txt$)-4)
                                          Txt$+"..."
                                    Wend
                                    ;Calcul de la position du texte
                                    ;Centrage Vertical
                                    YT=Y+((H/2)-(TextHeight(Txt$)/2))
                                    ;La placement vertical dépend de la justification demandée par l'user
                                    Select myTable()\myColumn()\Justifi
                                          Case #Left
                                                XT=X+myTable()\myColumn()\Margin
                                          Case #Right
                                                XT=X+myTable()\myColumn()\Widh
                                                XT-myTable()\myColumn()\Margin
                                                XT-TextWidth(Txt$)
                                          Case #Center
                                                XT=X+(myTable()\myColumn()\Widh/2)
                                                XT-TextWidth(Txt$)/2
                                    EndSelect
                                    ;Choix des couleur du texte
                                    ;Si la ligne n'est pas sélectionnée
                                    If myTable()\myLine()\Selected=#False
                                          ;Si l'user à choisi une couleur de fond pour la ligne on prend sa couleur
                                          If myTable()\myLine()\ColorBack<>0
                                                ColorBack=myTable()\myLine()\ColorBack
                                                ;Et dessine une boite avec cette couleur
                                                DrawingMode(#PB_2DDrawing_Default)
                                                Box(X,Y,myTable()\myColumn()\Widh,H,ColorBack)
                                          Else ;Dans le cas constraire on prend pair ou impair 
                                                If LineDisplay & 1 ;Chiffre impair
                                                      ColorBack=myTable()\ImpairBackColor
                                                Else ;Pair
                                                      ColorBack=myTable()\PairBackColor
                                                EndIf
                                          EndIf
                                    Else ;La ligne est sélectionnée
                                         ;On prend la couleur et on dessine la boite
                                          ColorBack=myTable()\SelectBackColor
                                          DrawingMode(#PB_2DDrawing_Default)
                                          Box(X,Y,myTable()\myColumn()\Widh,H,ColorBack)
                                    EndIf
                                    ;si la ligne n'est pas sélectionnée
                                    If myTable()\myLine()\Selected=#False
                                          ;Si l'user à choisi une couleur de texte pour la ligne on prend sa couleur
                                          If myTable()\myLine()\ColorFront<>0
                                                ColorFront=myTable()\myLine()\ColorFront
                                          Else ;Dans le cas constraire on prend pair ou impair
                                                If LineDisplay & 1 ;Chiffre impair
                                                      ColorFront=myTable()\ImpairFrontColor
                                                Else ;Pair
                                                      ColorFront=myTable()\PairFrontColor
                                                EndIf
                                          EndIf
                                    Else ;La ligne est sélectionnée
                                          ColorFront=myTable()\SelectFrontColor
                                    EndIf
                                    ;Et on peut enfin dessiné le texte
                                    DrawingMode(#PB_2DDrawing_Transparent)
                                    DrawText(XT,YT,Txt$,ColorFront)
                                    ;Si le début du texte de la colonne corespond à la recherche
                                    If ShearchOn=#True
                                          If myTable()\myLine()\myDataLine()\Shearch=#True
                                                DrawingMode(#PB_2DDrawing_AlphaBlend)
                                                Box(XT,YT,TextWidth(TxtShearch$),TextHeight(TxtShearch$),RGBA(0,255,0,120))
                                          EndIf
                                    EndIf
                                    X+myTable()\myColumn()\Widh ;Passe à la colonne suivante
                              EndWith
                        Next
                  EndIf
                  Y+H ;Passe à la ligne suivante
                  LineOk=#False
                  If NextElement(myTable()\myLine()) ;Passe au record de ligne suivante
                        LineOk=#True
                  EndIf
            Wend
      EndProcedure
      Procedure DrawScrool()
            If myTable()\myScroolHOn=#True
                  ScrollH::Draw(myTable()\myIdScroolH)
            EndIf
            If myTable()\myScroolVOn=#True
                  ScrollV::Draw(myTable()\myIdScroolV)
            EndIf
      EndProcedure
      Procedure DrawHeader()
            Protected W,H,Txt$,Color,XT,YT,ColorLine
            ;{ Dessin du fond de la table
            DrawingMode(#PB_2DDrawing_Default)
            With myTable()
                  W=\myPos\W:H=\myPos\H
                  Color=\TilteBackColor
                  BackColor(\TilteBackColor)
                  FrontColor(\TilteFrontColor)
                  Txt$=\Title$
                  ColorLine=\LineColor
                  DrawingFont(FontID(\TitleFont)) ;La police du titre de la colonne
            EndWith
            Box(0,0,W,H,Color);La boite du titre
            Line(0,myTable()\HeaderHeight-1,W,1,ColorLine);Une ligne sous l'entete
                                                          ;} FIN Dessin du fond de la table
                                                          ;{ Dessin du titres de la table
                                                          ;          Si le titre est plus grand que la table on le tronque
            While (TextWidth(Txt$)>W)
                  Txt$=Left(Txt$,Len(Txt$)-4)
                  Txt$+"..."
            Wend
            ;           calcul des coordonnées du titre
            XT=(W/2)-(TextWidth(Txt$)/2)
            YT=(myTable()\HeaderHeight/2)-(TextHeight(Txt$)/2)
            ;           Si la hauteur du texte est plus grande que la hauteur de l'entete on le dessine pas
            If (YT+TextHeight(Txt$))<myTable()\HeaderHeight
                  DrawText(XT,YT,Txt$)
            EndIf
            ;} FIN Dessin du titres de la table
      EndProcedure
      Procedure ScroolVerticale()
            Protected X,Y,H,Max
            ;On vas vérifier le nombre de lignes en data par rapport au nombre de lignes affichable
            If ListSize(myTable()\myLine())>myTable()\NbLine      ;Plus de lignes data
                                                                  ;On crée l'ascenseur
                  X=myTable()\myPos\W-20
                  Y=myTable()\HeaderHeight
                  H=(myTable()\myPos\H-myTable()\HeaderHeight)
                  ScrollV::Init(myTable()\myIdScroolV,myTable()\myCanvas,X,Y,20,H,@ScrooVEvent())
                  ;Initialisation de l'ascenseur
                  Max=ListSize(myTable()\myLine())-myTable()\NbLine 
                  ScrollV::SetMinMaxStep(myTable()\myIdScroolV,1,Max,10)
                  myTable()\myScroolVOn=#True          ;Indique que l'ascenseur est actif
            Else
                  myTable()\myScroolVOn=#False          ;Indique que l'ascenseur est actif
            EndIf
      EndProcedure
      Procedure ScroolHorizontale()
            Protected W=0,Max,WTable
            ;Vérifie la largeur de toutes les colonnes et affiche un ascenseur si nécessaire
            ;Calcul de la largeur total
            ForEach myTable()\myColumn()
                  W+myTable()\myColumn()\Widh
            Next
            ;Si l'ascenseur Vertical est actif il faut prendre en consédération la largeur de la table -20
            If myTable()\myScroolVOn=#True
                  WTable=myTable()\myPos\W-20
            Else
                  WTable=myTable()\myPos\W
            EndIf
            If W>WTable
                  ScrollH::Init(myTable()\myIdScroolH,myTable()\myCanvas,0,myTable()\myPos\H-20,WTable,20,@ScroolHEvent())
                  myTable()\myScroolHOn=#True
                  ;Initialisation de l'ascenseur
                  Max=(W-myTable()\myPos\W)
                  ScrollH::SetMinMaxStep(myTable()\myIdScroolH,1,Max,10)
            Else ;La largeur n'est pas plus grande
                  myTable()\myScroolHOn=#False
            EndIf
      EndProcedure
      Procedure DrawTable()
            Protected NbLine,HeightWorkable,Height
            ;Message d'erreur si aucune colonne
            If ListSize(myTable()\myColumn())=0
                  MessageRequester("Table \ Draw ","Error the  column is empty...")
                  ProcedureReturn #False
            EndIf
            ;Cette procédure va dessiné la table dans image en mémoire, cette image pourrat être plus 
            ;grande que la table. Elle sera par après grace à un GrapImage() dessinée sur le canvas
            ;et ceci en fonction des ascenseurs
            ;1) première partie calcul de la largeur nécessaire
            ;Calcul de la largeur en fonction du nombre de colonnes ainsi que de la hauteur si l'ascenseur vertical
            ;doit être affiché
            ;Et autre positions
            Protected W=0,H=0,Max
            ForEach myTable()\myColumn()
                  W+myTable()\myColumn()\Widh
            Next
            ;Calcul la hauteur suivant la hauteur de ligne
            ;La hauteur exploitable varie suivant l'ascenseur
            HeightWorkable=myTable()\myPos\H-(myTable()\HeaderHeight+myTable()\ColumnHeight)
            If myTable()\myScroolHOn=#True
                  HeightWorkable-20
            EndIf
            NbLine=Round(HeightWorkable/myTable()\LineHeight,#PB_Round_Nearest)
            myTable()\NbLine=NbLine
            ;Réinitialise l'ascenseur horisontal
            Max=ListSize(myTable()\myLine())-myTable()\NbLine 
            ScrollV::SetMinMaxStep(myTable()\myIdScroolV,1,Max,10)
            Height=(NbLine*myTable()\LineHeight)+myTable()\ColumnHeight
            H=Height
            ;2) suppresion de l'image si elle existe
            If IsImage(myTable()\myImageTable):FreeImage(myTable()\myImageTable):EndIf
            ;3) Création de l'image
            myTable()\myImageTable=CreateImage(#PB_Any,W,H,24,myTable()\TilteBackColor)
            StartDrawing(ImageOutput(myTable()\myImageTable))
            ;4)Dessin des colonnes
            DrawColumnBack()
            ;5) Dessin du fond des lignes de la table
            DrawLineBack()
            ;6) Dessin des datas de la table
            DrawData()
            ;7) Dessin des lignes de colonnes et lignes de sépration des lignes
            DrawLine()
            StopDrawing()
      EndProcedure
      Procedure Draw(Id)
            Protected X,Y,W,H,XT,YT,Txt$,X2
            ;Vérifie si la table existe
            If FindMapElement(myTable(),Str(Id))=0
                  MessageRequester("Table \ Draw ","Error this Id "+Str(Id)+" not exist...")
                  ProcedureReturn #False
            EndIf
            ;1)Ascenseur Vertical oui ou non
            ScroolVerticale()
            ;2) Ascenseur Horisontal oui ou non
            ScroolHorizontale()
            ;3) Dessin de la table sur l'image mémoire
            DrawTable()
            ;4) Debut du dessin sur le canvas
            StartDrawing(CanvasOutput(myTable()\myCanvas))
            ;5) Dessin de l'entete et du titre de la table
            DrawHeader() 
            ;6) Dessin des ascenseurs
            DrawScrool()
            ;7) Decoupage image mémoire et dessin de la portion découpée
            GrabTable()
            StopDrawing()
            ProcedureReturn #True
      EndProcedure
      Procedure SelectLine()
            If  *LineOver=-1 :ProcedureReturn #False :EndIf  
            If *LineOver=*LineSelected :ProcedureReturn :EndIf
            ;Si en mode recherche supprimer la recherche
            If ShearchOn=#True
                  ;                   DeleteBoxShearch()
            EndIf
            *LineSelected=-1
            ;Déselctionne toutes les lignes
            DeselectAll()
            ;Selection de la ligne sur laquel l'utilisateur a cliquer
            ChangeCurrentElement(myTable()\myLine(),*LineOver)
            myTable()\myLine()\Selected=#True
            *LineSelected=@myTable()\myLine()
            ;Si une procédure CallBack a été définie on l'appelle
            If myTable()\ProcedureCallbackSelectLine<>-1
                  Protected EventSelectLine
                  EventSelectLine.ProtoEventSelectLine=myTable()\ProcedureCallbackSelectLine
                  ;Appel de la procédure
                  EventSelectLine(myTable()\myLine()\Id)
            EndIf
            ;On redessine la table
            DrawTable()
            ;Et on réaffiche la table
            StartDrawing(CanvasOutput(myTable()\myCanvas))
            GrabTable()
            StopDrawing()
            ProcedureReturn #True
      EndProcedure
      Procedure ManageEvent()
            Event(GetActiveGadget(),EventType())
      EndProcedure
      Procedure Event(Id,Event)
            ;{ Gestion événements EditBox
            If myTable()\EditBoxOn
                  EditBox::Event(myTable()\myEditBox,Event)
            EndIf
            ;} FIN Gestion événements EditBox
            ;{ Relevé la position de la souris
            gMouseX=GetGadgetAttribute(myTable()\myCanvas,#PB_Canvas_MouseX)
            gMouseY=GetGadgetAttribute(myTable()\myCanvas,#PB_Canvas_MouseY)
            ;} FIN Relevé la position de la souris
            ;{ Les ascenseurs
            ;Les évenement sur l'ascenseur Vertical
            OverScrool=#False
            If myTable()\myScroolVOn=#True
                  If ScrollV::Event(myTable()\myIdScroolV,Event)
                        StartDrawing(CanvasOutput(myTable()\myCanvas))
                        ScrollV::Draw(myTable()\myIdScroolV)
                        StopDrawing()
                        OverScrool=#True
                  EndIf
            EndIf
            ;Les évenement sur l'ascenseur Horisontal
            If myTable()\myScroolVOn=#True
                  If ScrollH::Event(myTable()\myIdScroolH,Event)
                        StartDrawing(CanvasOutput(myTable()\myCanvas))
                        ScrollH::Draw(myTable()\myIdScroolH)
                        StopDrawing()
                        OverScrool=#True
                  EndIf
            EndIf
            ;} FIN Les ascenseurs
            ;{ En fonction du type d'évenement
            Select EventType()
                        ;{ La souris bouge      
                  Case #PB_EventType_MouseMove
                        ;On change le curseur de la souris suivant les divers évenement
                        ChangeCursor()
                        ;Suivant que le bouton gauche est enfoncé ou non
                        Select gClicOn
                              Case #True
                                    ModifColumnWith() ;Modifie la largeur de la colonne
                                    MoveColumn()      ;Deplace la colonne
                              Case #False
                                    WhereIsMouse() ;Ou est la souris? Tel est la question
                        EndSelect
                        ;} FIN La souris bouge           
                        ;{ Clique Gauche    
                  Case #PB_EventType_LeftClick
                        If gClicOn=#False
                              LookDeleteShearchBox()
                              If SelectLine()=#True
                                    ProcedureReturn 
                              EndIf
                              ChangeOrder()
                              ;                               EditColumn()
                              ;Si sur l'icone de recherche
                              If *ColumnShearch<>-1 ;And *ShearchIdColumn=-1
                                    *LineSelected=-1
                                    *ShearchIdColumn=*ColumnShearch
                                    ShearchOn=#True
                                    DrawBoxShearch()
                              Else
                                    ;                                     DeleteBoxShearch()
                              EndIf
                              ;                               RepositionCursor()
                              ;Regarde si il fau supprimé la boite dde recherche
                              
                        EndIf
                        ;} FIN Clique Gauche
                        ;{ Bt Gauche enfoncé
                  Case #PB_EventType_LeftButtonDown
                        If gClicOn=#False
                              ;Mémorise la position de la souris actuel
                              OldMous\X=gMouseX
                              OldMous\Y=gMouseY
                              ;Si une ligne de colonne est survolée on mémorise 
                              ;l'ancienn largeur de la colonne
                              MemoriseOldColumnWidth()
                        EndIf
                        gClicOn=#True
                        ;} FIN Bt Gauche enfoncé
                        ;{ Bt Gauche relaché
                  Case #PB_EventType_LeftButtonUp
                        gClicOn=#False
                        Denied=#False ;Pour ne pas affiché denied
                        InterChangeColumn() ;Interchange les colonnes les unes aux autres
                                            ;} FIN Bt Gauche relaché
                        ;{ Double clique gauche
                  Case #PB_EventType_LeftDoubleClick
                        
                        ;} FIN Double clique gauche
                        ;{ Touche clavier
                  Case #PB_EventType_Input
                        
                  Case #PB_EventType_KeyUp
                        Select GetGadgetAttribute(myTable()\myCanvas,#PB_Canvas_Key)
                              Case #PB_Shortcut_Escape
                                    DeleteBoxShearch()
                        EndSelect
                        ;} FIN Touche clavier
                        ;{ La souris sort
                  Case #PB_EventType_MouseLeave               
                        ;} FIN La souris sort
            EndSelect
            ;} FIN En fonction du type d'évenement
      EndProcedure
      ;} FIN Procédures

microdevweb · Message par **microdevweb** » mer. 23/sept./2015 12:35

Module Table 3ème partie

Code : Tout sélectionner

 ;-* DataSection
      ;Le image en datas pure / pas besoins de livré les images
      DataSection
            SEARCH:
            ; size : 319 bytes
            Data.q $0A1A0A0D474E5089,$524448490D000000,$1000000010000000,$FFF31F0000000608,$474B620600000061
            Data.q $A0FF00FF00FF0044,$49F400000093A7BD,$BDD39D8D38544144,$54CFE0051051034A,$04EB441F5C68588A
            Data.q $36D0B0A7C110419F,$16C43E34BFC79F41,$A344042F60A362FE,$9B31AF04EC589568,$B9CCE670EC303C5D
            Data.q $C8BA1AC6FCB9EECB,$76054C83A3951CF1,$B653B00D49518EF1,$72C2D18F08618DBC,$726B621B31271B54
            Data.q $E1BC66F6086BC339,$C947074CD05E687E,$6F25376D0B3855C9,$65ED0CD830D56C82,$14B061AC5C820E4A
            Data.q $0D34B1A8D131B7DA,$E2C6BD7E8A79B48D,$07F45E83531F3C46,$7F4C94F39AC60C35,$58FA6861F2C66763
            Data.q $14163CD20B4E1C9D,$E44507C893F53A41,$7F47DC7DCA2AA0FF,$5F03E997A46EE4A7,$C2AE0AC32D8456B8
            Data.q $1D30CD0AA4CCB6E4,$5E23E2838FFB9F21,$45834C8E621BF3E0,$49000000007A848D
            Data.b $45,$4E,$44,$AE,$42,$60,$82
            ORDER_A:
            ; size : 177 bytes
            Data.q $0A1A0A0D474E5089,$524448490D000000,$1400000014000000,$1D898D0000000608,$474B62060000000D
            Data.q $A0FF00FF00FF0044,$496600000093A7BD,$1860638D38544144,$82AEA913300E8305,$28E181819AC18181
            Data.q $0FF8606060ED2C35,$C83B860C34D40DC5,$8A1B64618B13AC35,$1830C6250D9230CF,$22ED0D0461A6A4EE
            Data.q $13B4A059430C30C3,$1EC3030321830303,$1818188C01C05E42,$7FA993F61818191C,$43DEB10000290C14
            Data.q $0000002FBD08BD1A,$6042AE444E454900
            Data.b $82
            ORDER_A_OF:
            ; 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,$BCDE6E063E903519,$EDF5F5F7FD4802B9,$AA401D61A040D8A4
            Data.q $B640DA1A04E6CA1C,$8C503D414186C881,$350206C905686803,$281CAA458657BC82,$31E206AC50CB80C7
            Data.q $1861120618A1A08C,$04839143408CA1B2,$A83281830C1240D5,$744A040DC286E14B,$286AC30C1252A901
            Data.q $C40865202730D40B,$66808C041030C87B,$C810360FDD0D0238,$0A186991F6A407D8,$0008197879792618
            Data.q $D85E2CD605404A0A,$444E454900000000
            Data.b $AE,$42,$60,$82
            ORDER_D:
            ; size : 169 bytes
            Data.q $0A1A0A0D474E5089,$524448490D000000,$1400000014000000,$1D898D0000000608,$474B62060000000D
            Data.q $A0FF00FF00FF0044,$495E00000093A7BD,$1860638D38544144,$067F6942301FC305,$60626ACD0A5A8606
            Data.q $C0C0C4502C84D860,$7216CB885C4C9FF0,$0C1262F4E4222D0C,$D350940C1864262B,$A9095863C5281830
            Data.q $60C35C94B433E186,$830D4A32B0C90CA0,$196A368606067681,$418A49000CE80A36,$000000ECA455352A
            Data.q $6042AE444E454900
            Data.b $82
            ORDER_D_OF:
            ; size : 2877 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 $414449AC000000FC,$6032A061639C7854,$F379B81A90703519,$4D59A14B55207F66,$190206C09BBEBEBE
            Data.q $64BD99032A86811B,$A842EE0C3204561A,$B430C81943407DA1,$430941C61FB7A818,$86910F66408CA1A8
            Data.q $0A44600B20F48095,$0C226ED0D42F4150,$EC2A0658D60DF0C3,$6C52B0C385DA1A81,$3437686A1034E186
            Data.q $4B8859032D0DD14C,$D2E414350874DE1F,$1E9F0C483950A84E,$50D01740681B0982,$3D484D883FF32041
            Data.q $EA31255068053951,$040D023014903688,$29C3AA2D37180300,$4E4549000000007A
            Data.b $44,$AE,$42,$60,$82
            MOV_L:
            ; size : 6157 bytes
            Data.q $0A1A0A0D474E5089,$524448490D000000,$3300000040000000,$0EDF270000000608,$434369370A0000B1
            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 $4144497C0D0000FC,$5574095AED9C7854,$C93DBDBB999E19C5,$AC88B20210D9024B,$B22A595120228109
            Data.q $B6A1CB5AD5420554,$9CAD296D4A54B145,$6B040A96A253DB56,$B451515408AD072D,$4201648220128316
            Data.q $921242484F64B080,$3FE99DEF7ADE5EF7,$590925B4E1ED8937,$65DDF7793273A7A0,$444F333AFF7DFFEE
            Data.q $8CC6309D75D36137,$8CE863D7FA318C63,$847F0846BEAF8A52,$3EC57BF6F798EFF1,$8D7A04104D5D70C2
            Data.q $5404F0DDAF47585B,$0D85096E680D34D4,$777F659AB6288849,$F2E4A67013437F8F,$33ECDBDAEF8FE9C8
            Data.q $BDE5BB388C4D0F45,$9B76F87B35BED782,$02686E3BD776F145,$1298345726D6CE72,$653D2A92A007A263
            Data.q $7D2BED7652E7CBD5,$1EDD27ABD5D3CBE8,$1809A1B8EF1DD39F,$6A0E6EDC28AA303E,$8C8A4C8CC9B22B0C
            Data.q $FF7ABFDFA6782E0A,$3991E2B05C7E6F27,$04D0DC77DEBADE63,$E273A3DE7FADB84C,$85861FA5EEF4D95F
            Data.q $905AB66410812245,$6EB773D2A7CE241E,$B6FC60BA5E5C73DD,$D108804D0DC779EB,$E595C1ACFD0817DE
            Data.q $13BB0E5BF6B32B7C,$91664C2451208151,$AA7FDC6F8F9B33CA,$F9759FD1D19EE2BE,$498B344F7029DD1D
            Data.q $A1FB4EE3EA83FBF6,$11AC5A574BBBCDC6,$3EF748051322898C,$FB2E1FF5477AB6C5,$E32BBEB8CCFDDDD9
            Data.q $00A45666F004F0DF,$AFC3526151D3FAA5,$0B2470E6A3AC16B7,$8F752E9DA4459332,$DA7EDB82AE87217A
            Data.q $442378020A6FB195,$9A67376BF3CC05E0,$548F625AE4FD7F9E,$5A7ABE8871919C09,$2454637D23615EFF
            Data.q $DA021A6F71D9D339,$B72B3E7B4D97CFDB,$6289538D338BF524,$37C38A66F58298D1,$3B3A27E5C04FA69E
            Data.q $BB02515980474DDE,$BBDE67ECFBFE3D3F,$68AA1DC2D04CC343,$9B894174953D81C1,$778CCEB290760FA6
            Data.q $0E43C99DDBC011D3,$41A1CDE5154B4625,$B7216255A0D88496,$BCB85CD92B7B9C86,$72FB0139F56333A9
            Data.q $30A1EEB4FF6D661A,$92DBB1BDF6FEE4BB,$A76899EB5FE7B56F,$665F3A5E77F67EA3,$4264FB44C7B40C72
            Data.q $159A2D7F68C04575,$BE8EB580B22BD9D2,$6FF37405F008CFBF,$64F45E9C59AC9476,$ED35374135FE88DC
            Data.q $F72D2579C585DDFA,$D8F9EB5DE5B60F25,$873E0990C71AC8F8,$B56089BA6202838C,$B820D178558683CC
            Data.q $E70109F472A3B17C,$1BE3D9E37F865A2A,$74737E6713EBD58F,$E5229D0A8E2DC266,$CF742BEFE78A8FFD
            Data.q $953E308049AE5B82,$09FBA256DCA3F944,$FD91D6E4230C4C14,$7602646E8EDD8B8C,$2F79359EE4BD567E
            Data.q $7433BED2F9450658,$32935E3B1D184227,$D2E2844705D46872,$E0A2F6C635AE4C04,$DC269D936B8FEBA3
            Data.q $23140260C54808A8,$809C42E45CC8601C,$B57008D7A7951D3D,$C7ABFB3B5F678EA8,$6F3C359A4D2D1737
            Data.q $7E96FAFAC9FC725C,$ECD3E2D1DE54E45F,$A0822448BA8D6F23,$DB4D4ABF0EC5C7FF,$B29E06E7A596074E
            Data.q $6220BF05166FC428,$F04640C611D329CA,$42BD5C8CE80D0F92,$CCAEF771A6A289C0,$2C7BEFC34AA738CE
            Data.q $4573BAF6B1FEA3E5,$5487C66B0A0B2375,$95EAF8B8B70B0E5D,$E7EAF5632CDD622C,$EA687545F1DD015D
            Data.q $92589A0ACB5D8FD2,$0511EC259B362AD3,$AE3C09FCDCE813A4,$994AA7210A6C1C30,$E0271EC2058E9128
            Data.q $FD995ACD9717DDB5,$6F7369F581A4E89B,$C5D0F87251AEABFB,$682CB2894D1555E9,$1084244B33E48B0E
            Data.q $4BD9885F35C91063,$49447A039B83431A,$E8B09D56BF243693,$62D0343E9549C69D,$0A880EB156318212
            Data.q $6441306BA156020A,$0B48A04D1B770040,$77BFCC91D414C8E8,$1029A1A0231EBE44,$396E56EFFE7A4CF9
            Data.q $932323F8DA4A64BB,$C739095D2BAB0BE3,$8B761C04F5E6BF4A,$88AC26E7412493EC,$C6C4DA732D550438
            Data.q $9C1A527FF73DE7BD,$2CB209D01589D7EB,$2A14E41BE8B3566A,$748244CC36E1D4C1,$C5045F11530040E8
            Data.q $194A207C08288448,$0423D9CA8E85D022,$7DD1E7B94ED4E764,$EEAB03CC5B667519,$4E78E57ACA3C2F7A
            Data.q $CDC1635593A9D245,$049A8B40FB2ADDB1,$432C08E08298089D,$D5B28A8F2F0B8F8A,$98C65CC5F1304640
            Data.q $C10FDF0212BA6AA0,$704CBA44A0314475,$313817CC41C56600,$3AF946038002C012,$0427DEF813A58C30
            Data.q $315C2D6E37151A68,$54463301DAD6797F,$A0DEBDB7E8C6FA2E,$1A2AAAB353DEDF79,$FC9262D0522CD907
            Data.q $0A842700091150BC,$FD4945494E98D102,$A1851AE1E4DDAB30,$64DA0653A8B41D04,$AA224934104C0182
            Data.q $0A63017DF700E024,$05C36FC58D4A2433,$9032FC80B35EE58C,$3DC4B4D75404EBD3,$E6BA16F697CCFDF2
            Data.q $8A4D0F9FA983F5DD,$759D989F545C50BB,$8A6C3BB01BCF8A7E,$0E990F082A0B24DF,$778D30817582788A
            Data.q $6F7E6DFB73E463F0,$11880D81020586D0,$0DDE251741444A05,$58C355B5309121D0,$5307EFADC65AEDC3
            Data.q $7AF4350508B49CC0,$0B5DE67CB32FB825,$3DA4B3F427F26CF6,$BD9BD9986B2EDF77,$44E365B913E4C2FF
            Data.q $D122480945BB2311,$32DA5F184C44E6B9,$1CFC20201DD73DB2,$002722080B218D08,$4D227C2CF01103C0
            Data.q $E60C5B8E202C9CC4,$B825EE206A6F8F11,$3883481D9BE23C15,$BAFD919D55416F10,$CE7A7A5334040808
            Data.q $C96C3D3E66EFB4EA,$B9A4F98D16730B84,$96E72FF6C1FE1BC1,$8B01C9B562DE3797,$DCBA60691125D449
            Data.q $C642E2E50701196C,$07F033BBE7420067,$0907501380681C69,$7C34D012B70987DC,$3C1DBBFC363C0352
            Data.q $0406E0E076D38D01,$8A81CC37E0F22FB4,$A2FC772AAA80857A,$9D4C125592BF77FB,$6531F1A0E64E6EB1
            Data.q $7A77DC1D87AB72E7,$404AEDDAB21FC79A,$5A4EFEE70386A281,$828BC16D65B372C1,$AE779873F31EB7B7
            Data.q $B424601E60EA0850,$6AD9C71246D62095,$280273FD723E3CEF,$FFE0C914AB80141F,$5D228B53B86111DE
            Data.q $EDA496DA09E3C022,$2BC96632C854F57E,$D7F03D49164A760B,$37463A597E4FD313,$0DE51083956AC88B
            Data.q $1C0106E3E0B660F0,$80DF8D5ACF036E2C,$0CFE1E75E7E009C3,$EE66DC34CED48C22,$1D86D411541A8D6D
            Data.q $0E04B14E94181DD2,$45430E0F37FE422F,$F9B0138F795058B7,$E7A3EB2F0A2BA3E5,$761DCEABA1F79A6D
            Data.q $1C4AF2AAB52B2320,$0781446E2F299A72,$6C0AFE2486F8C239,$F6DFFF28D6E2DFAB,$9D8D8FDBD755D0EE
            Data.q $1E482B9C3066DA4E,$86BF248634180E92,$E8A6BC83A1FA53CC,$6940F070112E960C,$7F10766FD22625AA
            Data.q $C6544EAA1365FBDE,$CA657F04E83B78A1,$75A340A9FF52CDB8,$FE1F86D637B73F38,$45214FC61BAF7CF3
            Data.q $A04BED73CD00B842,$F8B1199E42558B7D,$6F7C044BBF1D9DEF,$B8CC1CCFE58CC4F9,$1C98C0F29F18D854
            Data.q $35E3F3A1FE4DD50A,$436C621409991755,$30FFE35D6AF8E873,$6CADF3BA35ADD5E4,$8748039411B5F7C4
            Data.q $4406920361198F32,$B93484A01205597C,$D83EDE2240F11454,$CC044BA58B3A4A41,$536AC763C3E23F9D
            Data.q $BD9F3355EEE1FA5E,$87638731A2DA7337,$B9AD353DED66D745,$1914406E25061FC5,$618015B9173A5981
            Data.q $AECD1EDC561888C2,$8EDC8719FC5ADD02,$C344E40CD82A6CB8,$8648178BEC3329FC,$DD91D1E89802C1E6
            Data.q $7F579286C7DAB0A9,$37AA00225D2C05D1,$E9ADA748BAFA69AA,$7C70B553593EE7F9,$0B8C1FB39247D4FC
            Data.q $C5C59DD4F8FAC86F,$1E5A861086010797,$B67FCA78401338F2,$68033713188C1100,$672BED022A30305B
            Data.q $64009B7C0920D861,$760F30C75883E801,$85FD3E53E23CD5FC,$964357AB23ABDFFA,$A9D23601DAC24935
            Data.q $DC8A0F18045D7FFC,$5B1D570E878BD105,$5FA85F6F198393FE,$687BEEFB69C9FB38,$8F72938B87B947E2
            Data.q $420464AA82FB2496,$B7DF21B29E3CA781,$4185423322E23682,$E7CEBBFB9D12B706,$7CF02C0D42FD5033
            Data.q $00C64961937E7588,$6B665579F15E509C,$E7EFD231F2EFA984,$046DD200BC3B140D,$37D50E135369B7B4
            Data.q $77FAC8EEBD5EEEF8,$96BECBA9A2F1F17E,$888498DC90FA693D,$F971E29D9FF687CB,$CC85C4A14282EC22
            Data.q $00161B1681A8E800,$35E63FF982600BC5,$118F005C6C37603F,$B0FE068C0F5AD6F4,$021A74815114C500
            Data.q $F0103770B00E6FDF,$1B8BB713E36568F8,$8E14A5BBF90EBA9E,$B793A5B003D4B28E,$575F91D376BA3D9F
            Data.q $6B2E345D4F886F9D,$4FCEB24787CA5A41,$0728FF843CBE2B2E,$1DC3E07E3723875C,$58682C3C3317B49A
            Data.q $9106EBCA305186A6,$3E74130149365510,$D58680572442001F,$72FCF05966FEB578,$5CDF908F0F67F9A2
            Data.q $840864DB77B29D75,$39F553BCC7FD2EE6,$95FD73B1997DD7CB,$CE633A7E274BD9B4,$E44EEAAB2785FDA8
            Data.q $C98C429A02F92795,$46700803F731530E,$EDAAC2E2FDD40462,$8D1454882246E661,$D6DD41FC97E52259
            Data.q $21316B71AFF6A2D0,$13D3E64A81D4C4CA,$06DE9D8A4647EB2C,$479203D7DBAD77FB,$6ED7B383BB37E747
            Data.q $2C781D2FEBDCF138,$3C0F276379B1C1E5,$9291D8F971DFDD11,$2F108DA45F669EC9,$AC1CBE30375E7A37
            Data.q $065E72C884D88148,$7BB5479708D45BBB,$ABF70B5793586AFC,$D035995C2CC229BA,$48EE3B2CDBE2C1F4
            Data.q $C8F6F28DD6BC8F90,$8AC7C17143B84882,$5C28CEAE8F4B7BED,$5182F77B14D65D5F,$B9F96FEA339ACF9F
            Data.q $D5E56F1ACA2A13E5,$D0850D950A898292,$886BA5597EB5E21E,$4E2A65141B63D9BF,$C6172A2707178BB4
            Data.q $F74E968F6FF299C5,$1ED6407A1BF589B3,$33F6E26E787C135D,$DA6C4FD327FCAE25,$FD8D1733258BE5B9
            Data.q $1AC0FDD92194F274,$AB3504B52754154E,$61C53C35543C6502,$F8EC728DA4774077,$AFF5CA4F7A746A51
            Data.q $3B0E0E474517C7AD,$6E76DB9EF36BF5EB,$F775189F725FC66D,$3844E4B749E4C2D0,$EAEA9395F9798DAD
            Data.q $E90C7A46A248B1BD,$7740BEE6BB29544C,$F09A8BE716595EB6,$FF2BA39AE1CF66B1,$7BFCF72AA5C36E74
            Data.q $CD6F3BD4B3EC3EBE,$4EED565C94B82FCC,$4A90928D55808884,$C6A60B6F6808F7FF,$A5B9582BEB5A507E
            Data.q $319E2F8E37AEC368,$134709C949FEF867,$19551F7AF92A5BE2,$68EEDD15E1DF4486,$0B2963189635BEBD
            Data.q $F55F2DDF17E2FAAA,$28494E0F57A77BC2,$2D443058E131349E,$9B232311F13C2A97,$24551CD93E9E537B
            Data.q $2BC9F9FB7FD9CF81,$3EDF17E2E7FC7E47,$60949B025F21657B,$7A2B3BC46270BA3A,$635DC07DFD3E9651
            Data.q $EF37F303EBAA079D,$E8F75CA71883F4BD,$37ABA2ADC237988C,$9B47C4481FF3E865,$9A9EBE3F2D63E1AA
            Data.q $F6EBE809CFADABBE,$FF6EBE805AFA027F,$F4D0C1772E8F7700,$4E454900000000A6
            Data.b $44,$AE,$42,$60,$82

G-Rom · Message par **G-Rom** » mer. 23/sept./2015 12:36

Merci du partage & aussi de m'avoir fait prendre conscience que mon écran est mal étalonné

microdevweb · Message par **microdevweb** » mer. 23/sept./2015 12:36

Module Table 4ème partie

Code : Tout sélectionner

 MOV_R:
            ; size : 6211 bytes
            Data.q $0A1A0A0D474E5089,$524448490D000000,$3300000040000000,$0EDF270000000608,$434369370A0000B1
            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 $414449B20D0000FC,$15540B5AED9C7854,$393CE3CF7BDEB9D7,$1451111011D7901C,$83536DFBE3010A82
            Data.q $5B136B1BC49AF779,$318AE9AD5AF6A373,$5B126D4DC9A2B36D,$A9349B695CB963CD,$1091F1A8D5ADB18D
            Data.q $1882822F8A1E5015,$98F381C384411010,$BB695D1CF7FDDEC7,$F75DC92078E572B2,$FFCCCF666199CC5F
            Data.q $8F7BDFFB7FFFFF7F,$10D8618C613AEBA8,$2314A510DF5D98C6,$37842171AFCC7E10,$1058FC6BF7FDB60D
            Data.q $D2857E2265BE8A04,$C5F62295BFE797AC,$476342E58A7C7B43,$2EA2B907BB2ED39A,$A0056125C23BC5F5
            Data.q $F9B9D1F3BDB01BDB,$63B1735459ED96D3,$2D6BAAAB6FEAD384,$09EF9C2AAE243918,$F29B6763800D84A7
            Data.q $4CAD5A5F5DEE560A,$0D4766D591229AB1,$C2E4B59F65EC976D,$A9F771FC00DBFFE5,$895FA370755BEE47
            Data.q $A4058A22C4768E8A,$53C3025846722AE9,$5B92BE8EF1C3AA62,$78FE16271DADE006,$B164DE29B29BF97D
            Data.q $720AEBA91C0A9199,$BCDF13FBD2D1DBBB,$2BED1438457C447D,$FE9B6E9E0E0025B9,$098079651B9DCAD0
            Data.q $514E9AC35429848B,$3BDC66647A1AE797,$7786FC5A7FC89EEB,$77B163EAD003218D,$05D9315437F27F3E
            Data.q $90D34562AA55D32B,$C375207D2F03A7B7,$F924C5B4F4992CFF,$FC00C8485F6CA9C3,$2B2BB17B3CAE8CBA
            Data.q $2BA289574501444A,$FD963C5FA275F158,$844205FE307E67CB,$DA67001210BD456F,$0C658B6BEF89C8E9
            Data.q $78F51531A4554F41,$B3ED6A3FBE67C5DA,$56E1E3ECF75A4F8F,$A59E36002424EFB3,$D5584DDA76293A4B
            Data.q $33138AF013D09F34,$B5BAD268B33C8E23,$01AF4ADF62ADC24B,$EED4EFC783A2EBA8,$29041D39AFC4AD11
            Data.q $A647F2E8BB53223D,$FF39F1BE99316ABF,$05625D76006BD2EF,$9A8F58948E8A1A5D,$A56353914CBD92E4
            Data.q $C142FB8769B9C9FA,$FC4CE8A0015E96BE,$84D79194ED9D215E,$E2127AD588494068,$3B46C7CEBBA343EC
            Data.q $9C9EB51519E66EDA,$1D51EDD0BCB9EC3F,$662F3B37BFC567F3,$40057A4787AA685F,$8B0D07B9FC1A0F43
            Data.q $2C23351940B77194,$CBF2FE5D79C6F378,$9CEE775D457F7337,$9AF3601F687FCF17,$6B3DF57D63BFD964
            Data.q $5E43C3F569B3577E,$9ADC26685F059AB0,$53F4CB372A800AF4,$54461983C8887364,$C5825DC1E0CC49D7
            Data.q $66BA677DFEE66E4E,$EDA5775DEA1D129B,$B41B898E340A0811,$D8F76AD2B2F56769,$9FB20F86CBDD0D73
            Data.q $540057A5D08CCD0B,$901666904CA651BB,$C660B042A7C4309F,$C0EADDEE3312B96A,$7EEABFB7A619F982
            Data.q $BCFB726511C4C04D,$F0D6766AE6AAA5AA,$27EB66307EF3B3D8,$E0E2BAB19F4CD51F,$C4F4D0FA7E9B8FD6
            Data.q $0057A4EF5266B7AD,$99014049B2517B34,$03C3184173E04560,$6BFDCBEB65184A98,$B79A66163AF4A8DE
            Data.q $089101BDA5F22458,$57B5F3E0A94F8D85,$4BCF8F2677373647,$1595DDC8EF739E2E,$E5E6F55AF47EA34D
            Data.q $3F11A2DCF1DD4E1B,$ABF131E15D4BB48F,$151713295001A6E5,$2A9844AE841368B3,$88243288FD822700
            Data.q $9FFE954DD1B02B08,$B7C173DF4C0FAA1E,$FC2CD2247CA27C65,$7588B2AB1916118B,$9DDC7B136916933E
            Data.q $6765676B4FC2A8DE,$1AE93C4DCE8C4EB9,$968FD383E77968E8,$7278EEACAFCA2F2E,$57FE4DF865544674
            Data.q $3AFD923A020069B9,$4240D21922180B32,$208D602A510CC748,$702136C9770C0A2C,$3D79E838AE65ADDE
            Data.q $2C76B81F57EA8AD9,$705E25121F2A4127,$4C223A2AF78E859A,$CC28944180421ED0,$34544E934555792A
            Data.q $5373736279B5B7E4,$BBA7FEFB1E2DE74A,$2DBED1797B3C9B3E,$96E8607A2F576BDB,$0011B0D3DC00046F
            Data.q $1C3033016DE00A80,$0A380F81D72C0869,$2ACC2BC5DBC64E18,$736837F7DBAA9F62,$5BAA5227DFF5AC3F
            Data.q $1B1B149AA9A3DA04,$D1D4224CC1DC02D1,$424612E824259622,$C776AFDA43ABC5C3,$D660FD9D1EA7E5E4
            Data.q $9C6FE5ACA8D4AABE,$5A5E3BE2EAF8F0D8,$D7FB732898B3F395,$6323A46386E1000A,$CCD901006C519802
            Data.q $ACC94051B1884690,$AE11651A319A0CEB,$7002144966A43BC5,$C937E391047B0F03,$24908D0C9A28A2A2
            Data.q $116147A04C254860,$7E0E3AF6E3DBD116,$664E92A36DD67674,$7CB6724F8CAA0CE7,$E5F60BE5B9D2BBF8
            Data.q $A12F21393CB59515,$11603FD800036BE8,$8E87F40F10C6EF90,$2C12F60E88425310,$AAACC2B814217318
            Data.q $0B3117AB5406F254,$6D07806F8205E301,$894E9823F8F1EE19,$52846447A20D1028,$53EBCFA2CCC1A904
            Data.q $DD9A5BF2EB47E5CD,$E56F7F17A4A7E371,$DDE27A76FF876DD4,$5A9F3757F7FA7E4F,$B448A28DACB1ECBB
            Data.q $AF46515C140007FE,$CC6082BE0CA176D6,$81C60031E62FC38E,$20243E6119EB86A1,$840ACCCA9AC92E0D
            Data.q $C14274D74174D53D,$7003478D805C3068,$18B824A7F7833C08,$07785059667DC221,$576B6AF535B170D3
            Data.q $CBCFA68AC32984CC,$CDD9FD263D26A4FE,$BA6D8CB6958F6BC5,$57EE6F65D122BDDC,$700963515A24B800
            Data.q $9E71BFEEE10C5F01,$228407E0D0313AB3,$00BD402302986BA2,$2810EE70886A2114,$0D40262013802B81
            Data.q $3C260F7E60CE4125,$D502A8743112083D,$EEEFEC8B08909125,$E8E77951DDEC45F6,$C597A7276395C1A6
            Data.q $B345EBDF75ABBDAD,$EA077D93E3B3DDA6,$015FBFB2999ECE97,$D8790C9CD540E618,$8396180506644272
            Data.q $CB1B6E79EC3A601D,$F03440299C0BC044,$C141E0087C0D84AE,$0F479809DF285CF5,$82718078531422F4
            Data.q $599B2103A8C03701,$93523D284D7EBC54,$B273A9F8B5D2E577,$B64A5FE666B03D0E,$7FDE0787EF371A9D
            Data.q $5BCAAD565792F9FE,$057B428F218B366F,$0A3008B2AE244640,$11FF700A319648A4,$1AC6EC8163310E5E
            Data.q $5F053D0E9A0BFF19,$51B4AC6604640331,$1E729A3140F09E7E,$99E214E60D10A609,$374A73058A028400
            Data.q $6C5F9FFC9360704B,$CF26FBA2ADFDB41B,$C4A2ECE1E13C3CCE,$AA7FEC2FF5A6B88C,$89EBB1B1BF21B8B4
            Data.q $0830039F534724A4,$46E750BA3B14F6FA,$3D419620F9105019,$346DCF2B9D50CD30,$E2330447815FF29A
            Data.q $983701478C408003,$81070C66EF834E1B,$499189CD1A9BD740,$178F009268849C40,$6027A780A559B231
            Data.q $4BAE5CEFD2A7FBDD,$37A1F47D9B9B8D75,$5CEF7BB5DEEB63FF,$BCC09E3D9B5DA3FC,$FBC0029F77530888
            Data.q $D1DB6743F4E7CDEE,$10234BD024809B18,$E3CA4CB83540E0D3,$C179E7F90D7386E0,$41ACC2FAF08E6DFF
            Data.q $04C2081C4998382F,$74165910AA113308,$5A63D503F1E2A345,$C2FCCFFD4FC6B5CF,$BDF4B5DCEEE6EBB9
            Data.q $F2DC19747B7ED782,$9109EBD2E1EC6F62,$31E8B5BBD1FC2E99,$C30DED9062AC86BF,$3B0F686865781A20
            Data.q $F446A2F348716821,$C7041C14F8384718,$3504CC86120A0400,$3E97169B581A5E56,$EFA704D6C3E8C171
            Data.q $18003FA8A9C5E150,$FCF6D09FCF7520E2,$D0F0A03C0F9B22E5,$3A42140A8E816AE5,$DDFE85F8050F1970
            Data.q $3E57F01A237A08A0,$E260F5DDA2F90BF8,$1D55FFF17C46F72B,$44EF2879CB441EC6,$89ED33E6B2ACDCDE
            Data.q $FC9A5F8BEC9BE75D,$45269084FA10EEFA,$0CFACD85CD93A617,$2F41D5E80E1CC28F,$21858DC227C6DC0D
            Data.q $9C197C02DEF316D0,$4C17F40790AE8027,$331F0D237060A5F9,$A978912F136798E3,$3B2A9F1584C578CD
            Data.q $1E1DB70529CEB69D,$7D297C535B55CA3A,$EC3858AE667B73FF,$4B62867633BB82E5,$7ACEE349DB240048
            Data.q $D180AFA31CCF57ED,$37D412F70F41F01A,$C7C546E183AF6822,$3F609C1C200C1179,$D638683C82400D81
            Data.q $5979D23C07E03C58,$EBCF186A329FE3C4,$A813A2BF6B4A1525,$7329BAAE19A1E510,$F27CF7348B643B6E
            Data.q $ACA44E0FFAD4F956,$FB927F8FCD66315B,$BC8540AD2120411B,$D3DBF1DC45373230,$99309F94A7EBDA6A
            Data.q $85700F39BA889B11,$00A79D0548D8FDC1,$D80583E0888D4818,$C11820CAE4142141,$FCEBC34BAB070A82
            Data.q $92804C6BC6E54176,$9446D3F1D3E7025A,$DBB5BBB8ED313EDC,$E8E98C1F7B17EDB9,$349DEE73ADB7FABC
            Data.q $715AA1558AF0E931,$2A0DC5324B836B8B,$848A6581D3E6F2B0,$745051653B8CA764,$F18604A1AD80FD28
            Data.q $95F83A8A14396192,$F5F1DFB8300D1B0F,$A3CE39822B80734F,$0BF7088398422005,$4C75B4888A629F1E
            Data.q $A1BA2D2528A2319A,$4E8E5B23C8C368EA,$70FFEB6D988EF078,$889A9BD631B153EF,$BF760720F80033ED
            Data.q $6F8575FE695AB77A,$AE1365C93D2EA5F5,$FC30715437259A44,$69B02B355FBF05D5,$2D3083180200101C
            Data.q $1059470CEBB0F758,$745145E27CF60D14,$66ABB86D39402A09,$EFB9047C256194DC,$BDC4D514AEB3E3ED
            Data.q $C47F387F2BD9DFFC,$F2C2DE9658704266,$ED558FF90CFCC07D,$D6154FBDCA57F1DA,$10E5C638215E6607
            Data.q $A5A72895F2EC625B,$010021030EBAC795,$5A037DB8F11A4406,$439E79B7B9133B9B,$044E8803220D6060
            Data.q $3C98EFD4C4304DC3,$CBB699D2546B38AC,$1A5674AB7D7F715D,$EE416332DDEED409,$AD0E1A3F17C7B16D
            Data.q $100E46442FB61283,$71951B8B0B2057F9,$3FC1B8B87DE67FEF,$FC12458C67B5A1B9,$615102C233B13651
            Data.q $C23D874B088E3C12,$CD14D789EAD6DDDA,$9865214F0C01990C,$F6F6D1116CD3EDD4,$2B8E5C124A4371FC
            Data.q $993F6D9747EA4B27,$7CBB5FBF0969FDFB,$BE970EE4C3A71AF4,$924F8D491FEC2437,$9EC5ADDAD257604B
            Data.q $7539FD9B2B33536D,$F3FA205F4EF49557,$E0F444670EB4FECB,$06745138F005E764,$A55F92A54048C13C
            Data.q $53DB9CEAF8B0EA72,$7E553FEEF12D81CA,$F665737F64D553D7,$F3F4DDDF520BF313,$8C4AF93E941A6B70
            Data.q $7D785504E45D9C4B,$AE7F55B6C2D5E433,$001E3DCC43861ED5,$FE0A28B33404085E,$5B1A1B4E2A0EC7DB
            Data.q $C9DB7FB89DC97CD3,$934DA6C551226359,$E95F59F9121C8E96,$835132F800CFA5C8,$EDD9A855E9DE375E
            Data.q $39B9CBF6B1F16DD5,$47656BD6519CC7C9,$E4F5935C7CCEF21B,$6B5F0E166B6BD72C,$015FA9D6BEDE88B3
            Data.q $7A40844E544A5450,$9CAAD8F4F4FB085E,$DCED3745011581EC,$BDBD1DB9746EE67E,$FEFEBA267BD1F322
            Data.q $000AFD4E8FF57FE2,$A889258655409855,$37B04C4A1D07F313,$373EEC0E53BBD7D5,$F29786F1FCB27A63
            Data.q $9D4FEF3F5826A797,$6E6CE913288015FA,$01B8A5E3A3AA24F0,$CAEA130D4523D6D6,$2B8BE07BBE9ED31A
            Data.q $7F4A0924D9794FEF,$3F3078015FA5C3EA,$DAEC15AF4B0F83EA,$E93649F8BCBBF67A,$51B4FF791A9FDB8D
            Data.q $927F9153FBAB85D1,$7B3A5B94E5C0057E,$72D059681F6F79B4,$C48DF030525F894D,$7E92E15953487358
            Data.q $6662F226D38B8005,$25FE5FBFA17E3F23,$01FFE4D37C00EFD2,$221FE5BAF815BAF8,$007E8086FE229360
            Data.q $AE444E4549000000
            Data.b $42,$60,$82
            Yes:
            ; size : 4157 bytes
            Data.q $0A1A0A0D474E5089,$524448490D000000,$1800000018000000,$3D77E00000000608,$434369370A0000F8
            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 $414449AC050000FC,$54506B56B59C7854,$D9757B39CE7E1865,$677212E561059765,$CC8ACD4951464405
            Data.q $A1C94C9ACC2526A6,$614E4CD3398E321F,$0471A978E6158D35,$832F274A99D19823,$8B90D15332441597
            Data.q $117288220A982B02,$839DF4B9EBD96043,$9DE777A7F59A6DAC,$3CBDE79E77CF676F,$9EC9B3FF0CADFBDF
            Data.q $CB4CF687FEC470F4,$EA39BD8E3B1AB79E,$5A8D3A94AB524DE9,$9C79B4EEC028A32B,$4671BC2ABFA0F72E
            Data.q $541D65C667EF92CC,$4AE1704CFFAE3429,$E4A36D2F5DFAE645,$F4D93133B129C9A3,$084AE428009A743C
            Data.q $81B64394B8F6E002,$573C1E165A771B90,$CED6EAE94D58F0B0,$5FE1BB353F33DEDF,$60E6FCAF17570E09
            Data.q $D8A4AAE9D4FA515E,$270714080A14A834,$E787C8101B9707DF,$232727E23455C828,$6C642FDFC68B14C2
            Data.q $2C0E97AFC4E2B3DC,$9C123FF9496D3F9F,$E2BAC5496AF7DBAC,$70A1C1A1E4F319F9,$0A686009C5C3EFB8
            Data.q $0801243EA4500D34,$2079E00E744E00BC,$77C0752A540A7A31,$20BB3F5E34F70F96,$F7BD0423ED6E7635
            Data.q $6D28B97CEDD642BA,$6DBEE351A35C8A6A,$B4E0229C09030C00,$20B0220BA2E08AB8,$060C022091C248B9
            Data.q $2FCE1F17F945C424,$4618D3A39C1D1E1E,$0FA3592D9F0E087D,$2906C80D5A754262,$C9053812E441FA62
            Data.q $1E704408C6D17045,$A0060505D94BCB2C,$B787E6B2B539AFBB,$2BEDC7412F6296C9,$0C8B0D2EE40E5B91
            Data.q $8808A7163431CD84,$059E30A78FA2C087,$8B8D983AF390B3C7,$842EB84634FF7ED0,$1F1CF2B5ED420A4D
            Data.q $22DB9039DDF9CB02,$24E0F03F22014178,$9C671EC8A4668600,$172A2B31E94942C0,$5F8C903E10731189
            Data.q $AE518EBE8B876EAE,$AF95EB8683D3ECD7,$0F0ECB870A508405,$A9FE610536A842E7,$2421E0BC1FB3D4B8
            Data.q $7E6FC963A45817B4,$A65116B09B3C60B2,$504DEA30A3B17069,$60A6428F0FB0742B,$1AF1FD5D86087CFD
            Data.q $19C0C889CD9C168F,$91135A011F7E6058,$1C8C9115AEA716A8,$4182EF2CEDB1A9A0,$C83C21D713178E15
            Data.q $B0A8B04122EB0F0C,$8727D9055773436E,$7C818A021F69659B,$5888F4CD2A546478,$46A4769E4421B418
            Data.q $93371A47060D042E,$0C7F930710088697,$C93443108F59495E,$EA136EACA1F529D6,$253820B808602DDB
            Data.q $0416EF3CF010F801,$50254D138334455A,$39B875FE3A7854C8,$B1A54D239E229207,$9EC811351873E6AF
            Data.q $87E0BDC3FC8219F1,$8C6428EDAEA0B76A,$0825F0273B1E0252,$4533DDDCD93647D6,$8BB6EB477644F0A9
            Data.q $476BEA4D9F1D98A4,$3A0AFDCC56065862,$385952217E0111B5,$0B7010DFF52383DE,$3412495F2BC2B464
            Data.q $5BDECE4BCC10FBC5,$C28A55802A9858D9,$9B254A162FCBC117,$81E1038F66459315,$7012C04497840489
            Data.q $9C871FB43476C34B,$A0128D8AF61A4851,$CB6999043E433464,$B5B01DC969D4BC7E,$C0432E4E4D3C0B25
            Data.q $E916564B7F365438,$2C4D494ED4498BD1,$ACDE340EE37946E7,$0312991780A15282,$7A193346E11E5717
            Data.q $D81A4C344C121F57,$B6DBCBAAEEEB6677,$934402396593138A,$F3495296E7E2CA53,$DC70DB74E18B51E9
            Data.q $C041414EB7CB845A,$430CE239D2722929,$AE627239C8672E43,$2D1677CCA0128DF9,$4AC8FDBEB4A77B48
            Data.q $ED8B6923249DD0A7,$7B1D0BC8D4A57812,$76D0BA46063C3341,$1F183DF826FC1CF7,$960531138D2D3822
            Data.q $CA632ABD3F4C2F94,$67EF4D12253E43A2,$993D2CAD56B1AE1C,$EF2C7004D26C1957,$EFA458EF5992267D
            Data.q $8D524D7D7F81FE81,$23BE9B4E00485234,$E7B50A54ABCD85F7,$B5B2FBC83ED10211,$0DB8DAF64373BBB5
            Data.q $F84923CE3AC171D1,$0F2E46918C7CDBEF,$C9EDEFCE775BC5EB,$1ECFE31BD8DDFAFB,$E9BBDCD6EDE9E821
            Data.q $E5CC96CB49F5D869,$FA8DE2E33232CB23,$52E3E34C7A0C2240,$EEFA14E92C26C6A4,$9FEADAD6D1D4E00E
            Data.q $56565AD641188BFA,$68258FF165656746,$38E050505BBB6B6B,$FAB5703BA9EF2966,$79C6E909D9DAE9F2
            Data.q $060D138984A64931,$C387760736295A95,$67D2D6DFD833DFD5,$5484209AAF64D9BD,$8ACE4E76F4B55EAF
            Data.q $BD8FCA6F74F4F4E1,$BD11646DF3F3F332,$D5D5D4CF1B358BFD,$74CDDA2D7FD9ACED,$C7E34FC9A0DC1D9A
            Data.q $759332753A9827EB,$226F364FDA67E4DA,$161466D6AC1F6917,$D10ABFE27AC1F0EE,$90615F7223F4FE3E
            Data.q $4FDE27662703FD78,$7FFBE27F1C1609BC,$BF52B9E489EF1F02,$4E454900000000A6
            Data.b $44,$AE,$42,$60,$82

microdevweb · Message par **microdevweb** » mer. 23/sept./2015 12:38

Module Table 5ème partie

Code : Tout sélectionner

No:
            ; size : 4416 bytes
            Data.q $0A1A0A0D474E5089,$524448490D000000,$1800000018000000,$3D77E00000000608,$434369370A0000F8
            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 $414449AF060000FC,$54500D558D9C7854,$FFDBEEEDF6FE15D7,$2131015058167E5D,$2344756360985152
            Data.q $293B4A9231344331,$B6B4699AA9A8D633,$33510A75A30C9DB6,$66621D0C994C8749,$54C1304D189B1A20
            Data.q $C305B7464B68C751,$D96058581041888F,$AF7DBEDF7FF6165D,$99E9D2A6C61B5F67,$EEFBF7BDDE66F339
            Data.q $6C3FF028E7BBE739,$6BB7468B88A26262,$90A05D92ACF59A34,$4044D7C4C0196A33,$450EF5EBD05C7308
            Data.q $690D0909898B9122,$1878A18BBE776969,$F0F0F0C274F4F4F0,$2A4C9B2677144111,$C07C186A6041E3CE
            Data.q $9768C4288517188F,$4A726D7AD46B918C,$F6850DEF9CD929BE,$4160B993BC0C0FF4,$76EC0939C1B2CB35
            Data.q $5B1E8FCECECEC2FB,$EF2634CCD909F8BC,$5C90417ED10C40F6,$4539021E7910F188,$182AB021B73B9980
            Data.q $B35F0B5935EB1772,$1573B9DCFF7C8C8D,$323045FF93656565,$34B4D5D5D5DA9232,$E9DE07DFD420BF3F
            Data.q $8384422129316200,$E97944114F011228,$8AB9463089848B1B,$F308BD9B021B61C0,$3A339863253E97D6
            Data.q $259BE02040B9EE9D,$AB5DAF2FB2830608,$8C7042EEFB078389,$B3A00B4B49C3A443,$4E1C4415DAF463A4
            Data.q $BCF9C0E02272E4C8,$F81D024606B55D48,$BDDEF0DD3D0234F4,$9AC775B15B9D1F03,$6C763B1F55F6FB7D
            Data.q $5993CF4F4F412CFF,$EF8431F1D115D9D9,$8D5CACB030C303DF,$4D86F67AD225BCE4,$05FCAE3843F67FB8
            Data.q $3239FCECE43189A1,$81EE76F2D6952A9F,$423EF5391895F7F5,$63BA7E0518E0CDCD,$04B38D4D4D4D2BC7
            Data.q $D974F4FCD77FBF7E,$B5380F5E3035EB58,$4654FA6CE2535106,$7F9BEE04FF951613,$23B62B7205795645
            Data.q $AD508DE82E4A8D1A,$882E0600F99C00DF,$767285EF213F86A1,$D5EAE0894EF9794B,$71C155D4D4E6B9AB
            Data.q $716B94141B76223B,$E78981BE3F9E85CA,$B04F2406BC5051CA,$4098F814FEB2B244,$CF418CBCE049F217
            Data.q $3164803AAB1833B9,$7708323700AF5E0C,$F8A25D3FD64A0777,$714BCBCDCC9FDEB7,$19CA213B778376F7
            Data.q $D80DFB4CC1BE0604,$58507791E08B38BF,$EBFDC70788A92CFA,$3BE8882F0FAA31D6,$FBC23C41ED5C167F
            Data.q $C34445E61129D611,$E6576DBB9584BC3C,$BB0D968D1A8504B7,$0F783331BB4E889C,$BA241928D0BB81C1
            Data.q $1161670A3FADE1C7,$BC5B8F02782D5A34,$906A8F86138F11D8,$151420D46221F32A,$26384F0023E72011
            Data.q $AC9D3A70225A8253,$09D3D33E7490A142,$E05A872B0D06DC6E,$836FC3F48F965DA0,$C997C5E3C1C49AA5
            Data.q $F55343E7D29B9264,$1F7EC985EC3F842E,$0424405CB90542AC,$1022515EF8BA7528,$1834A082882DC104
            Data.q $582C751841E1DEE5,$D557A44AF9768791,$A952A69240BE9D41,$D3C555F2498F8844,$DAF028F79B910F48
            Data.q $0DB7AE84ADDF1871,$6E42432B0F094AA2,$098236FB1233A51E,$D9427F2CB315D3B7,$FF4910FCE1823065
            Data.q $F0214E6742366F19,$C60081BC352AE428,$85F982A32F0EBF8E,$28914140D3A89197,$AA4449F0EC411F33
            Data.q $69C96206FBBA825E,$9515CBB4C628ACB0,$76ADC75B43060C08,$FECF69D45B2D96DF,$B8533C108DD38110
            Data.q $82929495961B75F7,$855E3998FBD3B064,$8CDE74A043CF3BC7,$8D12582BFADEA145,$E343775FA3160F94
            Data.q $847FE7EA0029009A,$48CCB4B5B42CCCE4,$69696F7FA5A5A504,$BFE59299E67D2EE9,$1B1C48EBD62B8C3D
            Data.q $053D39B803CDE444,$D1475E1AE0E5D2F3,$2AECD219A152EBBD,$1F2F64502ED19FEB,$9157EDF601DC3704
            Data.q $EC78258CEDC61AE6,$AD57D4FA9446BF67,$46371B8D8225B7AD,$3ECFF3EA7FDFEFF6,$F7DA8AC0A8A8A92B
            Data.q $C0C73B2445E57D61,$4C961A731E0477BF,$2A32F134A3AF07DF,$4FD67BE2C98A8C9E,$D98369C9876933D0
            Data.q $F97F183CCD2E8235,$E3F7F7F466895416,$CDE4BECE1FCBE5F2,$37B757575C7F379B,$A18AAB07F0A72727
            Data.q $981F7071FE05F93C,$7499F0DC6798568E,$97D500E528448688,$7DD5906441834454,$1802CC8DE6921E1D
            Data.q $39318B45FA06FDB6,$DBDADA974BA5C766,$9D6EB75825993FDB,$389C4F7B43A1D0FF,$B5DAF56988069E71
            Data.q $893E3FB705BA70D8,$D685EC1CE00FA6D1,$621972E5C09A801F,$14B2DF83AB30D724,$C6862A2FA1AB6581
            Data.q $E6CD9B033BD04162,$C0F9E79579A9A9A9,$DDD6EAEAEAEBB47F,$EF7C6C6C6F6F77BB,$F0CACB9B495BADD6
            Data.q $3856F1FBC85DB6F8,$2E020EEFBB85E9BE,$98C1EAD03CF8B807,$72CE8920B14E61D3,$1D278608D16200C1
            Data.q $5BF5A897868686AE,$A89BEBEBEA703A1F,$E48EA170B85C4ED5,$483E1A005050585B,$22D48E567643CCB5
            Data.q $5EBDF861C3844228,$92A293634186DA8C,$343DCD350760A683,$D6D5B8B44E73AC70,$7A2FD369B4D8DED6
            Data.q $D2D6F9F3E77F7B7B,$3366CC0646464541,$FF46E39AF4BD7AF4,$DBBC8910695AB561,$DCDCD1BD111BFEED
            Data.q $A37104A1EB107D6C,$70E03A4A4A4D6686,$6AD5AC5A31A69E38,$DE32AFA0497BD217,$8A678F1EA67A3802
            Data.q $5AB52BF83340302E,$4E67177DF4CE957D,$6742CB522F178B82,$8686861B2B2B2BDC,$A062B6A7CE29A9B2
            Data.q $3292929531A0347F,$E77871236454545A,$F47A3B41E09399C2,$F67FFF6F713E9BA8,$B43C6DF304FF683F
            Data.q $00000000F7491B83,$826042AE444E4549
      EndDataSection
      ;} FIN DataSection
EndModule

microdevweb · Message par **microdevweb** » mer. 23/sept./2015 12:39

Module ScrollH

Code : Tout sélectionner

;////////////////////////////////////////////////////////////////////////////////////////////////////////////
; ScrollH
; Vers 1.0 du 2014-08-08
; Vers 1.1 du 2014-12-26
;--> Ajout d'un chronos sur le nombre de click pour eviter trop d'appel
; © AllDev / MicrodevWeb / Bielen Pierre
;////////////////////////////////////////////////////////////////////////////////////////////////////////////
DeclareModule ScrollH
      Declare Init(IdScrool,IdCanvas,X,Y,W,H,*ProcedureCallBack)
      Declare Draw(IdScrool)
      Declare SetMinMaxStep(IdScrool,Min,Max,StepValue=1)
      Declare GetState(IdScrool)
      Declare SetActifOf(IdScrool)
      Declare SetState(IdScrool,State)
      Declare Event(IdScrool,Event)
      Declare SetTemporyClick(IdScrool,TemporyClick)
EndDeclareModule
Module ScrollH
      UsePNGImageDecoder()
      EnableExplicit
      Global LeftArow=CatchImage(#PB_Any,?LeftArow)
      Global RigthArow=CatchImage(#PB_Any,?RigthArow)
      Structure pos
            X.i
            Y.i
            W.i
            H.i
      EndStructure
      Structure Scrool
            ActifOn.b
            myIdCanvas.i
            myPos.pos
            OverArowRigth.b
            OverArowLeft.b
            OverButton.b
            OverStepDown.b
            OverStepUp.b
            myMin.i
            myMax.i
            UnityMove.f
            myState.i
            myStep.i
            DecalButton.i
            Margin.i
            PosArrowRigth.pos
            PosArrowLeft.pos
            PosButton.pos
            RefreshOn.b
            ClicOn.b
            *ProcedureCallBack
            TemporyClick.i
      EndStructure
      Global NewMap myScrool.Scrool()
      Procedure Init(IdScrool,IdCanvas,X,Y,W,H,*ProcedureCallBack)
            Protected N
            If IdScrool=#PB_Any
                   While FindMapElement(myScrool(),Str(N))<>0
                        N+1
                  Wend
                  AddMapElement(myScrool(),Str(N))
            Else
                  If FindMapElement(myScrool(),Str(IdScrool))=0
                        AddMapElement(myScrool(),Str(IdScrool))
                  EndIf
            EndIf
            myScrool()\myIdCanvas=IdCanvas
            myScrool()\myPos\X=X
            myScrool()\ myPos\Y=Y
            myScrool()\myPos\W=W
            myScrool()\myPos\H=H
            myScrool()\OverArowRigth=#False
            myScrool()\OverArowLeft=#False
            myScrool()\OverButton=#False
            myScrool()\OverStepDown=#False
            myScrool()\OverStepUp=#False
            myScrool()\ProcedureCallBack=*ProcedureCallBack
            myScrool()\TemporyClick=100
            ProcedureReturn Val(MapKey(myScrool()))
      EndProcedure
      Procedure SetActifOf(IdScrool)
            If FindMapElement(myScrool(),Str(IdScrool))=0
                  MessageRequester("Error Scrool V","This Id not exist...")
                  ProcedureReturn  -1
            EndIf
            myScrool()\ActifOn=#False
      EndProcedure
      Procedure GetState(IdScrool)
            If FindMapElement(myScrool(),Str(IdScrool))=0
                  MessageRequester("Error Scrool H","This Id not exist...")
                  ProcedureReturn  -1
            EndIf
            ProcedureReturn myScrool()\myState
      EndProcedure
      Procedure SetTemporyClick(IdScrool,TemporyClick)
             If FindMapElement(myScrool(),Str(IdScrool))=0
                  MessageRequester("Error Scrool H","This Id not exist...")
                  ProcedureReturn  #False
            EndIf
            myScrool()\TemporyClick=TemporyClick
      EndProcedure
      Procedure SetState(IdScrool,State)
            If FindMapElement(myScrool(),Str(IdScrool))=0
                  MessageRequester("Error Scrool V","This Id not exist...")
                  ProcedureReturn  -1
            EndIf
            myScrool()\myState=State
            ProcedureReturn myScrool()\myState
      EndProcedure
      Procedure SetMinMaxStep(IdScrool,Min,Max,StepValue=1)
            If FindMapElement(myScrool(),Str(IdScrool))=0
                  MessageRequester("Error Scrool V","This Id not exist...")
                  ProcedureReturn  -1
            EndIf
            myScrool()\myMin=Min
            myScrool()\myMax=Max
            myScrool()\myStep=StepValue
            ProcedureReturn IdScrool
      EndProcedure
      Procedure DrawBox()
            Protected Y,H
            DrawingMode(#PB_2DDrawing_Default)
            Box(myScrool()\myPos\X,myScrool()\myPos\Y,myScrool()\myPos\W,myScrool()\myPos\H,$F6F6F6)
            Y=myScrool()\myPos\Y
            H=myScrool()\myPos\H*0.20
            DrawingMode(#PB_2DDrawing_Gradient)
            BackColor($E3E3E3)
            GradientColor(0.2,$F8F8F8)
            FrontColor($E7E7E7)
            LinearGradient(myScrool()\myPos\X,Y,myScrool()\myPos\X,Y+(H*0.4))
            Box(myScrool()\myPos\X,Y,myScrool()\myPos\W,H)
            DrawingMode(#PB_2DDrawing_Outlined)
            Box(myScrool()\myPos\X,Y,myScrool()\myPos\W,H,$D9D9D9)
            Y+(myScrool()\myPos\H-H)
            DrawingMode(#PB_2DDrawing_Gradient)
            BackColor($E3E3E3)
            GradientColor(0.2,$F8F8F8)
            FrontColor($E7E7E7)
            LinearGradient(myScrool()\myPos\X,Y,myScrool()\myPos\X,Y+(H*0.4))
            Box(myScrool()\myPos\X,Y,myScrool()\myPos\W,H)
            DrawingMode(#PB_2DDrawing_Outlined)
            Box(myScrool()\myPos\X,Y,myScrool()\myPos\W,H,$D9D9D9)
      EndProcedure
      Procedure DrawLeftArrow()
            Protected HG,X,Y,H,W
            HG=(myScrool()\myPos\H*0.20)-2
            H=myScrool()\myPos\H-(HG*2)
            H=H*0.8
            ;Centrage
            Y=(myScrool()\myPos\Y+(myScrool()\myPos\H/2))-(H/2)
            X=(myScrool()\myPos\X+myScrool()\myPos\W)-(H+2)
            If myScrool()\OverStepUp Or myScrool()\OverStepDown Or myScrool()\OverArowLeft
                  DrawingMode(#PB_2DDrawing_Gradient)
                  If myScrool()\OverArowLeft=#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)
            myScrool()\PosArrowLeft\X=X
            myScrool()\PosArrowLeft\Y=Y
            myScrool()\PosArrowLeft\W=H
            myScrool()\PosArrowLeft\H=H
      EndProcedure
      Procedure DrawRightArrow()
            Protected HG,X,Y,H,W
            X=myScrool()\myPos\X+2
            HG=(myScrool()\myPos\H*0.20)-2
            H=myScrool()\myPos\H-(HG*2)
            H=H*0.8
            ;Centrage
            Y=(myScrool()\myPos\Y+(myScrool()\myPos\H/2))-(H/2)
            If myScrool()\OverStepUp Or myScrool()\OverStepDown Or myScrool()\OverArowRigth
                  DrawingMode(#PB_2DDrawing_Gradient)
                  If myScrool()\OverArowRigth=#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)
            myScrool()\PosArrowRigth\X=X
            myScrool()\PosArrowRigth\Y=Y
            myScrool()\PosArrowRigth\W=H
            myScrool()\PosArrowRigth\H=H
      EndProcedure
      Procedure DrawButton()
            Protected HG,X,Y,H,W,Image
            HG=(myScrool()\myPos\H*0.20)-2
            H=myScrool()\myPos\H-(HG*2)
            W=(myScrool()\myPos\W-(H*2))-(myScrool()\myMax-myScrool()\myMin)
            H=H*0.8
            X=myScrool()\myPos\X+H+Round(myScrool()\UnityMove*myScrool()\myState,#PB_Round_Up)
            Y=(myScrool()\myPos\Y+myScrool()\myPos\H/2)-(H/2)
            If W<10
                  W=10
            EndIf
            X+myScrool()\DecalButton
            If X+W>myScrool()\PosArrowLeft\X
                  X=myScrool()\PosArrowLeft\X-W
            EndIf
            If  X<myScrool()\PosArrowRigth\X+myScrool()\PosArrowRigth\W
                  X=myScrool()\PosArrowRigth\X+myScrool()\PosArrowRigth\W
            EndIf
            myScrool()\UnityMove=((myScrool()\myPos\W-(H*2))-W)/(myScrool()\myMax-myScrool()\myMin)
            DrawingMode(#PB_2DDrawing_Gradient)
            If myScrool()\OverButton=#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)
            myScrool()\PosButton\X=X
            myScrool()\PosButton\Y=Y
            myScrool()\PosButton\W=W
            myScrool()\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=(myScrool()\myPos\Y+myScrool()\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=(myScrool()\myPos\Y+myScrool()\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=(myScrool()\myPos\Y+myScrool()\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
      EndProcedure
      Procedure Draw(IdScrool)
            If FindMapElement(myScrool(),Str(IdScrool))=0
                  MessageRequester("Error Scrool H","This Id not exist...")
                  ProcedureReturn  -1
            EndIf
            myScrool()\ActifOn=#True
            DrawBox()
            DrawRightArrow()
            DrawLeftArrow()
            DrawButton()
      EndProcedure
      Procedure WhereIsMouse()
            Protected mouseX,mouseY
            mouseX=GetGadgetAttribute(myScrool()\myIdCanvas,#PB_Canvas_MouseX)
            mouseY=GetGadgetAttribute(myScrool()\myIdCanvas,#PB_Canvas_MouseY)
            myScrool()\OverArowRigth=#False
            myScrool()\OverArowLeft=#False
            myScrool()\OverButton=#False
            myScrool()\OverStepDown=#False
            myScrool()\OverStepUp=#False
            
            If mouseX>=myScrool()\PosArrowRigth\X And mouseX<=myScrool()\PosArrowRigth\X+myScrool()\PosArrowRigth\W
                  If mouseY>=myScrool()\PosArrowRigth\Y And mouseY<=myScrool()\PosArrowRigth\Y+myScrool()\PosArrowRigth\H
                        myScrool()\OverArowRigth=#True
                  EndIf
            EndIf
            If mouseX>=myScrool()\PosArrowLeft\X And mouseX<=myScrool()\PosArrowLeft\X+myScrool()\PosArrowLeft\W
                  If mouseY>=myScrool()\PosArrowLeft\Y And mouseY<=myScrool()\PosArrowLeft\Y+myScrool()\PosArrowLeft\H
                        myScrool()\OverArowLeft=#True
                  EndIf
            EndIf
            If mouseX>=myScrool()\PosButton\X And mouseX<=myScrool()\PosButton\X+myScrool()\PosButton\W
                  If mouseY>=myScrool()\PosButton\Y And mouseY<=myScrool()\PosButton\Y+myScrool()\PosButton\H
                        myScrool()\OverButton=#True
                  EndIf
            EndIf
            If myScrool()\OverArowRigth=#False And myScrool()\OverArowLeft=#False And myScrool()\OverButton=#False
                  If mouseX>=myScrool()\myPos\X And mouseX<=myScrool()\myPos\X+myScrool()\myPos\W
                        If mouseY>=myScrool()\myPos\Y And mouseY<=myScrool()\myPos\Y+myScrool()\myPos\H
                              If mouseX>myScrool()\PosButton\X+myScrool()\PosButton\W
                                    myScrool()\OverStepDown=#True
                              EndIf
                              If mouseX<myScrool()\PosButton\X
                                    myScrool()\OverStepUp=#True
                              EndIf
                        EndIf
                  EndIf
            EndIf
            If myScrool()\OverArowRigth=#True Or myScrool()\OverArowLeft=#True Or myScrool()\OverButton=#True Or myScrool()\OverStepUp=#True Or myScrool()\OverStepDown=#True
                  ;SetGadgetAttribute(myScrool()\myIdCanvas,#PB_Canvas_Cursor,#PB_Cursor_Hand)
                  myScrool()\RefreshOn=#True
                  ProcedureReturn #True
                  ;                   Draw(Val(MapKey(myScrool())))
            Else
                  ;SetGadgetAttribute(myScrool()\myIdCanvas,#PB_Canvas_Cursor,#PB_Cursor_Default)
                  If myScrool()\RefreshOn=#True
                        myScrool()\RefreshOn=#False
                        ProcedureReturn #True
                  EndIf
                  ProcedureReturn #False
            EndIf
            
      EndProcedure
      Procedure Event(IdScrool,Event)
            Static  OldX,Click
            Protected DepX,Temp,TempSate,DepXP
            If FindMapElement(myScrool(),Str(IdScrool))=0
                  MessageRequester("Error Scrool V","This Id not exist...")
                  ProcedureReturn  #False
            EndIf
            If myScrool()\ActifOn=#False : ProcedureReturn  :EndIf
            If myScrool()\ClicOn=#True And myScrool()\OverArowLeft=#True
                  If Event=#PB_Event_Gadget
                        If EventGadget()=myScrool()\myIdCanvas
                              If EventType()=#PB_EventType_LeftButtonUp
                                    myScrool()\ClicOn=#False
                                    Click=0
                                    ProcedureReturn #True
                              EndIf
                        EndIf
                  EndIf
                   If Click=0
                        Click=1
                  Else 
                        If Click<myScrool()\TemporyClick
                              Click+1
                              ProcedureReturn #False
                        EndIf
                  EndIf
                  If myScrool()\myState<myScrool()\myMax
                        myScrool()\myState+1
                        If myScrool()\ProcedureCallBack<>-1
                              CallFunctionFast(myScrool()\ProcedureCallBack)
                        EndIf
                        ProcedureReturn #True
                  EndIf
            EndIf
            If myScrool()\ClicOn=#True And myScrool()\OverArowRigth=#True
                  If Event=#PB_Event_Gadget
                        If EventGadget()=myScrool()\myIdCanvas
                              If EventType()=#PB_EventType_LeftButtonUp
                                    myScrool()\ClicOn=#False
                                    Click=0
                                    ProcedureReturn #True
                              EndIf
                        EndIf
                  EndIf
                   If Click=0
                        Click=1
                  Else 
                        If Click<myScrool()\TemporyClick
                              Click+1
                              ProcedureReturn #False
                        EndIf
                  EndIf
                  If myScrool()\myState>myScrool()\myMin
                        myScrool()\myState-1
                        If myScrool()\ProcedureCallBack<>-1
                              CallFunctionFast(myScrool()\ProcedureCallBack)
                        EndIf
                        ProcedureReturn #True
                  EndIf
            EndIf
            Select Event
                  Case #PB_Event_Gadget
                        Select EventGadget()
                              Case myScrool()\myIdCanvas
                                    Select EventType()
                                          Case #PB_EventType_MouseMove
                                                If myScrool()\ClicOn=#False
                                                      If WhereIsMouse()=#True
                                                            ProcedureReturn #True 
                                                      EndIf
                                                EndIf
                                                If myScrool()\ClicOn=#True And myScrool()\OverButton=#True
                                                       DepX=GetGadgetAttribute(myScrool()\myIdCanvas,#PB_Canvas_MouseX)-OldX
                                                      myScrool()\DecalButton=DepX
                                                      If DepX>0
                                                            Temp=Round(DepX/myScrool()\UnityMove,#PB_Round_Up)
                                                            If Temp>0
                                                                  myScrool()\myState+Temp
                                                                  If myScrool()\myState>myScrool()\myMax
                                                                        myScrool()\myState=myScrool()\myMax
                                                                  EndIf
                                                                  OldX=GetGadgetAttribute(myScrool()\myIdCanvas,#PB_Canvas_MouseX)
                                                                  myScrool()\DecalButton=0
                                                            EndIf
                                                      EndIf
                                                      If DepX<0
                                                            DepXP=OldX-GetGadgetAttribute(myScrool()\myIdCanvas,#PB_Canvas_MouseX)
                                                            Temp=Round(DepXP/myScrool()\UnityMove,#PB_Round_Up)
                                                            If Temp>0
                                                                  myScrool()\myState-Temp
                                                                  If myScrool()\myState<myScrool()\myMin
                                                                        myScrool()\myState=myScrool()\myMin
                                                                  EndIf
                                                                  OldX=GetGadgetAttribute(myScrool()\myIdCanvas,#PB_Canvas_MouseX)
                                                                  myScrool()\DecalButton=0
                                                            EndIf
                                                      EndIf
                                                      If myScrool()\ProcedureCallBack<>-1
                                                            CallFunctionFast(myScrool()\ProcedureCallBack)
                                                      EndIf
                                                      ProcedureReturn #True 
                                                EndIf
                                          Case #PB_EventType_LeftButtonDown
                                                If myScrool()\ClicOn=#False
                                                      OldX=GetGadgetAttribute(myScrool()\myIdCanvas,#PB_Canvas_MouseX)
                                                EndIf
                                                myScrool()\ClicOn=#True
                                          Case #PB_EventType_LeftButtonUp
                                                myScrool()\ClicOn=#False
                                          Case #PB_EventType_LeftClick
                                                If myScrool()\OverStepDown=#True And myScrool()\OverButton=#False
                                                      myScrool()\myState+myScrool()\myStep
                                                      If myScrool()\myState>myScrool()\myMax
                                                            myScrool()\myState=myScrool()\myMax
                                                      EndIf
                                                      If myScrool()\ProcedureCallBack<>-1
                                                            CallFunctionFast(myScrool()\ProcedureCallBack)
                                                      EndIf
                                                      ProcedureReturn #True
                                                EndIf
                                                If myScrool()\OverStepUp=#True And myScrool()\OverButton=#False
                                                      myScrool()\myState-myScrool()\myStep
                                                      If myScrool()\myState<myScrool()\myMin
                                                            myScrool()\myState=myScrool()\myMin
                                                      EndIf
                                                      If myScrool()\ProcedureCallBack<>-1
                                                            CallFunctionFast(myScrool()\ProcedureCallBack)
                                                      EndIf
                                                      ProcedureReturn #True 
                                                EndIf
                                          Case #PB_EventType_MouseLeave
                                                myScrool()\OverArowLeft=#False
                                                myScrool()\OverArowRigth=#False
                                                myScrool()\OverButton=#False
                                                myScrool()\OverStepDown=#False
                                                myScrool()\OverStepUp=#False
                                          Case #PB_EventType_MouseWheel
                                                If GetGadgetAttribute(myScrool()\myIdCanvas,#PB_Canvas_WheelDelta)>0
                                                      myScrool()\myState-myScrool()\myStep/2
                                                      If myScrool()\myState<myScrool()\myMin
                                                            myScrool()\myState=myScrool()\myMin
                                                      EndIf
                                                      If myScrool()\ProcedureCallBack<>-1
                                                            CallFunctionFast(myScrool()\ProcedureCallBack)
                                                      EndIf
                                                      ProcedureReturn #True
                                                Else
                                                      myScrool()\myState+myScrool()\myStep/2
                                                      If myScrool()\myState>myScrool()\myMax
                                                            myScrool()\myState=myScrool()\myMax
                                                      EndIf
                                                      If myScrool()\ProcedureCallBack<>-1
                                                            CallFunctionFast(myScrool()\ProcedureCallBack)
                                                      EndIf
                                                      ProcedureReturn #True
                                                EndIf
                                    EndSelect
                        EndSelect
            EndSelect
            ProcedureReturn #False
      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
      EndDataSection        
EndModule

PureBasic

Coloriser les lignes paire et impair des listiconGadget

Re: Coloriser les lignes paire et impair des listiconGadget

Re: Coloriser les lignes paire et impair des listiconGadget

Re: Coloriser les lignes paire et impair des listiconGadget

Re: Coloriser les lignes paire et impair des listiconGadget

Re: Coloriser les lignes paire et impair des listiconGadget

Re: Coloriser les lignes paire et impair des listiconGadget

Re: Coloriser les lignes paire et impair des listiconGadget

Re: Coloriser les lignes paire et impair des listiconGadget

Re: Coloriser les lignes paire et impair des listiconGadget

Re: Coloriser les lignes paire et impair des listiconGadget

Re: Coloriser les lignes paire et impair des listiconGadget

Re: Coloriser les lignes paire et impair des listiconGadget

Re: Coloriser les lignes paire et impair des listiconGadget

Re: Coloriser les lignes paire et impair des listiconGadget

Re: Coloriser les lignes paire et impair des listiconGadget