se positionner dans une liste

dim a%,b%,a$,l% :label decale
  width 0,320
  memo 1:width 1,100:height 1,100:font_size 1,12                :color 1,198,243,148
  memo 2:width 2,70 :height 2,100:font_size 2,12:left 2,105      :color 2,239,215,140
 
 
  form 10:left 10,400
  command_target_is 10
  memo 11:width 11,100:height 11,150:font_size 11,12            :color 11,198,243,148
  memo 12:width 12,70 :height 12,150:font_size 12,12:left 12,105 :color 12,239,215,140
  scroll_bar 3:left 3,180:height 3,10:width 3,150:vertical 3:on_change 3,decale
  edit 4:left 4,200:font_size 4,12:width 4,50
 
  data "un",deux,trois,quatre,cinq,six,sept,huit,neuf,dix,onze,douze,treize,quatorze,quinze,seize,"dix-sept"
  data "dix-huit","dix_neuf",vingt
  for a%=1 to 20
      read a$
      item_add 1,a$:item_add 11,a$
      item_add 2,a%:item_add 12,a%
  next a%
  max 3,count(1):min 3,1
 
  end

 
  decale:
  l%=position(3):clear 11:clear 12:text 4,l%
  for a%=l% to l%+6
      a$=item_read$(1,a%):item_add 11,a$+chr$(0)
      a$=item_read$(2,a%):item_add 12,a$+chr$(0)
  next a%
  return

' -------------------------------------------------------
' Déclaration d'une GLIST
' -------------------------------------------------------
LABEL Glist_function, GLIST_err : DIM GLIST_params$

' -------------------------------------------------------
' Ici commence la déclaration de ton programme
' -------------------------------------------------------
dim i%, nb_item%,item$
' création d'une GLIST qui porte comme n°identification 20 N=20
' elle a une hauteur de 8 lignes A=8
' une largeur de 200 pixels W=200
' elle se situe en hauteur à 30 pixels T=30
' et elle se trouve à 20 pixels à gauche L=20
GLIST_params$="Create|N=20|A=8|W=200|T=30|L=20|" : gosub GLIST_function                                                                : ' Création de la GLIST

' l'interet d'une GLIST c'est de pouvoir avoir des attribut Gras/Souligné,etc pour chaque item !
' ci-dessous l'attribut n°1 est Gras ecriture en rouge, le 2eme en Normal + bleu
GLIST_params$="Attributs|1=G255,0,0|2=0,0,255|" : gosub GLIST_function

' on défini quel attribut de couleur à affecter à un item lorsque celui-ci est sélectionné
' attention cet attribut n'a rien à voir avec ceux défini au dessus. Pour plus d'info voir la doc dans le fichier zip
GLIST_params$="Revelation|4|": gosub GLIST_function : ' je veux que l'item sélectionné soit blanc sur fond bleu


' la GLIST est maintenant affichée et prête à recevoir des items.
' on lui rajoute des items :
GLIST_params$="Item_add|texte du premier item|" : gosub GLIST_function
for i%=2 to 20
  GLIST_params$="Item_add|texte de l'item "+str$(i%)+"|" : gosub GLIST_function
next i%

' on veut par exemple, avoir le 3 ème item de sélectionné
GLIST_params$ = "Item_select|3|" : gosub GLIST_function

' puis on veut que tout les items pairs soit en bleu (cf. les attributs de couleur)

' je récupère le nombre d'item total
GLIST_params$="Total|" : gosub GLIST_function : ' recupère la taille de la GLIST
nb_item% = val(GLIST_params$)
' puis j'affecte les attributs de couleur
for i%=2 to nb_item% step 2
  ' lecture de l'item
  GLIST_params$="Item_read|"+str$(i%)+"|": gosub GLIST_function : ' GLIST_param$ contient au retour le texte de l'item i%
  item$=GLIST_params$
  ' on ajoute son attribut de couleur (le 2eme que l'on a defini plus haut)
  GLIST_params$="Item_write|"+str$(i%)+"|2|["+item$+"]" : gosub GLIST_function : ' "|Attribut_couleur[texte_item]"
next i%

' voila c'est un simple exemple, il existe une foule de fonctions pour traiter une GLIST
' tout est indiqué dans la doc...


end



' *****************************************************************************************
' *  Objet GLIST à inclure
' *  Attention : il faut adapter bien sur le chemin d'accès dans lequel GLIST.bas se trouve
' *****************************************************************************************
#INCLUDE "G:\Perso\Dev\Panoramic\LogAnalyser\GLIST.bas"