[Résolu]L'objet TIMER perturbe les GOSUB et/ou les FREE ?

DIM I,J,H,W
DIM LST_Select
DIM BUFFER: BUFFER=200
DLIST 100

FOR I=1 TO 100
  ITEM_ADD 100,"Ligne "+STR$(I)
NEXT I

PICTURE BUFFER:HIDE BUFFER
W = TEXT_WIDTH("X",BUFFER)
H = TEXT_HEIGHT("X",BUFFER)+1
CAPTION 0,STR$(H)+"-"+STR$(W)

' notre pseudo-liste
PICTURE 2 : LEFT 2,40:TOP 2,40
WIDTH 2,W*40:HEIGHT 2,H*20 : ' une liste de 20 lignes et 40 colonnes
' la barre de défilement
WIDTH BUFFER,WIDTH(2):HEIGHT BUFFER,HEIGHT(2)
SCROLL_BAR 3:VERTICAL 3: TOP 3,TOP(2):HEIGHT 3,HEIGHT(2):LEFT 3,LEFT(2)+WIDTH(2)
MIN 3,1 : MAX 3,COUNT(100)
' le défilement
LABEL Rafr:GOSUB Rafr:ON_CHANGE 3,Rafr

' la souris
LABEL TMouse:TIMER 4:TIMER_INTERVAL 4,100:ON_TIMER 4,TMouse

END

TMouse:
  DIM TMouse_Ligne
  TMouse_Ligne = INT(MOUSE_Y_POSITION(2)/H)+POSITION(3)
  CAPTION 0,"List de "+STR$(POSITION(3))+" à "+STR$(POSITION(3)+19)
  IF MOUSE_RIGHT_DOWN(2)=1
    LST_Select=TMouse_Ligne
    GOSUB Rafr
    MESSAGE "Click droit sur la ligne "+STR$(TMouse_Ligne) : ' affiche le n°item de la liste
  END_IF
  IF MOUSE_LEFT_DOWN(2)=1
    LST_Select=TMouse_Ligne
    GOSUB Rafr
  END_IF
 
  FREE TMouse_Ligne
RETURN


Rafr:
  DIM Rafr_I,Rafr_H,Rafr_J
  MAX 3,COUNT(100)
  IMAGE 5
  2D_TARGET_IS BUFFER:PRINT_TARGET_IS BUFFER
  2D_CLEAR
  Rafr_H = TEXT_HEIGHT("X",2)+1
  Rafr_J=0
  FOR Rafr_I=POSITION(3) TO POSITION(3)+INT(HEIGHT(2)/Rafr_H)
 
    IF Rafr_I<=COUNT(100)
      IF Rafr_I=LST_Select
        2D_FILL_COLOR 0,0,255:FONT_COLOR BUFFER,255,255,255
        2D_RECTANGLE 0,Rafr_J,WIDTH(2),Rafr_J+Rafr_H
      ELSE
        2D_FILL_COLOR 255,255,255 : FONT_COLOR BUFFER,0,0,0
      END_IF
      PRINT ITEM_READ$(100,Rafr_I)
    ELSE
      PRINT
    END_IF
    Rafr_J=Rafr_J+Rafr_H
  NEXT Rafr_I
  2D_IMAGE_COPY 5,0,0,WIDTH(2),HEIGHT(2)
  2D_TARGET_IS 2
  2D_IMAGE_PASTE 5,0,0
  DELETE 5
  FREE Rafr_I:FREE Rafr_H:FREE Rafr_J
RETURN

' les numéros de la pseudo-liste
DIM NLIST_PIC  :NLIST_PIC    = 206 : ' l'image de notre liste
DIM NLIST_LIST  :NLIST_LIST  = 205 : ' la liste elle-même

' appel à l'init
LABEL NLIST_INIT:GOSUB NLIST_INIT



' dimensions de la pseudo-liste
DIM H,W
PICTURE NLIST_PIC : LEFT NLIST_PIC,40:TOP NLIST_PIC,40
W = TEXT_WIDTH("X",NLIST_PIC) : H = TEXT_HEIGHT("X",NLIST_PIC)+1
WIDTH NLIST_PIC,W*40:HEIGHT NLIST_PIC,H*20 : ' une liste de 20 lignes et 40 colonnes

' on y ajoute quelques éléments (on peut très bien faire un load...)
DIM I
FOR I=1 TO 100 : ITEM_ADD NLIST_LIST,"Ligne "+STR$(I) : NEXT I

LABEL Supprimer: BUTTON 1 : LEFT 1,400:TOP 1,40: CAPTION 1,"Supprimer": ON_CLICK 1,Supprimer


END

' ------------------------------------------------------------------------------
' exemple de suppression
' ------------------------------------------------------------------------------
Supprimer:
 IF NLIST_Select=-1 THEN MESSAGE "Désolé mais pas de ligne sélectionnée! ":RETURN
 ITEM_DELETE NLIST_LIST,NLIST_Select
 NLIST_Select= -1 : ' plus de ligne sélectionnée
RETURN



' ------------------------------------------------------------------------------
' ------------------------------------------------------------------------------
' ------------------------------------------------------------------------------
' ------------------------------------------------------------------------------
' ------------------------------------------------------------------------------
' Les lignes ci-dessous sont à copier en fin de votre prog...
' ------------------------------------------------------------------------------
NLIST_INIT:
  DIM NLIST_Select:NLIST_Select=-1
 
  DIM NLIST_BUFFER:NLIST_BUFFER = 200
  DIM NLIST_Souris:NLIST_Souris = 201
  DIM NLIST_Timer :NLIST_Timer  = 202
  DIM NLIST_IMG  :NLIST_IMG    = 203
  DIM NLIST_BAR  :NLIST_BAR    = 204
  DIM NLIST_COUNT
  DIM NLIST_Config:NLIST_Config = 0
  DLIST NLIST_LIST
  LABEL NLIST_Rafr
  PICTURE NLIST_BUFFER:HIDE NLIST_BUFFER
  ' la souris
  LABEL TMouse:TIMER NLIST_Timer:TIMER_INTERVAL NLIST_Timer,100:ON_TIMER NLIST_Timer,TMouse
RETURN

' -------------------------------------------------------
'PROCEDURE DE RAFRAICHISSEMENT ET D'EVENEMENT SOURIS
' -------------------------------------------------------
TMouse:
  DIM TMouse_Ligne
  ' --------------
  ' L'init
  ' --------------
  IF NLIST_Config = 0
    NLIST_Config = 1
    ' la barre de défilement
    WIDTH NLIST_BUFFER,WIDTH(NLIST_PIC):HEIGHT NLIST_BUFFER,HEIGHT(NLIST_PIC)
    SCROLL_BAR NLIST_BAR:VERTICAL NLIST_BAR: TOP NLIST_BAR,TOP(NLIST_PIC):HEIGHT NLIST_BAR,HEIGHT(NLIST_PIC):LEFT NLIST_BAR,LEFT(NLIST_PIC)+WIDTH(NLIST_PIC)
    MIN NLIST_BAR,1 : MAX NLIST_BAR,COUNT(NLIST_LIST)
    ON_CHANGE NLIST_BAR,NLIST_Rafr
  END_IF
 
  IF NLIST_COUNT<>COUNT(NLIST_LIST)
    NLIST_COUNT=COUNT(NLIST_LIST)
    GOSUB NLIST_Rafr
  END_IF
  TMouse_Ligne = INT(MOUSE_Y_POSITION(NLIST_PIC)/H)+POSITION(NLIST_BAR)
  CAPTION 0,"List de "+STR$(POSITION(NLIST_BAR))+" à "+STR$(POSITION(NLIST_BAR)+19)
  IF MOUSE_RIGHT_DOWN(NLIST_PIC)=1
    NLIST_Select=TMouse_Ligne
    GOSUB NLIST_Rafr
    MESSAGE "Click droit sur la ligne "+STR$(TMouse_Ligne) : ' affiche le n°item de la liste
  END_IF
  IF MOUSE_LEFT_DOWN(NLIST_PIC)=1
    NLIST_Select=TMouse_Ligne
    GOSUB NLIST_Rafr
  END_IF
  FREE TMouse_Ligne
RETURN

NLIST_Rafr:
  DIM Rafr_I,Rafr_H,Rafr_J
  MAX NLIST_BAR,COUNT(NLIST_LIST)
  IMAGE NLIST_IMG
  2D_TARGET_IS NLIST_BUFFER:PRINT_TARGET_IS NLIST_BUFFER
  2D_CLEAR
  Rafr_H = TEXT_HEIGHT("X",NLIST_PIC)+1
  Rafr_J=0
  FOR Rafr_I=POSITION(NLIST_BAR) TO POSITION(NLIST_BAR)+INT(HEIGHT(NLIST_PIC)/Rafr_H)
 
    IF Rafr_I<=COUNT(NLIST_LIST)
      IF Rafr_I=NLIST_Select
        ' là tu peux mettre tout les attributs que tu veux... gras, italique, etc...
        2D_FILL_COLOR 0,0,255:FONT_COLOR NLIST_BUFFER,255,255,255
        2D_RECTANGLE 0,Rafr_J,WIDTH(NLIST_PIC),Rafr_J+Rafr_H
      ELSE
        2D_FILL_COLOR 255,255,255 : FONT_COLOR NLIST_BUFFER,0,0,0
      END_IF
      PRINT ITEM_READ$(NLIST_LIST,Rafr_I)
    ELSE
      PRINT
    END_IF
    Rafr_J=Rafr_J+Rafr_H
  NEXT Rafr_I
  2D_IMAGE_COPY NLIST_IMG,0,0,WIDTH(NLIST_PIC),HEIGHT(NLIST_PIC)
  2D_TARGET_IS NLIST_PIC
  2D_IMAGE_PASTE NLIST_IMG,0,0
  DELETE NLIST_IMG
  FREE Rafr_I:FREE Rafr_H:FREE Rafr_J
RETURN

' programme d'essai pour les 3 boutons de la souris.
dim click$ , clic% ,a$ ,a    :    label liste2,liste3,teste , fin
width 0,300
' ------------------------------------------------------------------------------
' à mettre en 1er objet, pour correspondre: "classname=TEdit1","INSTANCE:1"
EDIT 1:left 1, -1000:top 1,-1000:font_size 1,10
' ------------------------------------------------------------------------------
LIST 2:top 2,50:width 2,60:height 2,100
      item_add 2,"ligne 1":item_add 2,"ligne 2":item_add 2,"ligne 3":item_add 2,"ligne 4"
LIST 3:top 3,50:left 3,100:width 3,90:height 3,100
      for a=1 to 20:item_add 3,"LIGNE: "+str$(a):next a
memo 4:top 4,170:width 4,150:height 4,height(0)-250

on_click 2,liste2  :  on_click 3,liste3  :  on_close 0,fin
clipboard_string_copy ""
execute "C:\TESTE\OUTILS_DEBOGAGE\clic_droit_voir.exe"
wait 500
end
' ----
teste:
  click$=text$(1)
  if numeric(click$)=1 then clic%=val(click$) : else : clic%=0
  text 1,""
return
' ----
liste2:
  gosub teste :set_focus 1
  select clic%
      case 0:item_add 4,"clic gauche  :"+item_index$(2)
      case 2:item_add 4,"clic droite  :"+item_index$(2)
      case 3:item_add 4,"clic milieu  :"+item_index$(2)
  end_select
return

liste3:
  gosub teste :set_focus 1
  select clic%
      case 0:item_add 4,"clic gauche  :"+item_index$(3)
      case 2:item_add 4,"clic droite  :"+item_index$(3)
      case 3:item_add 4,"clic milieu  :"+item_index$(3)
  end_select
return
' ---
fin:
a$="commande exit"
clipboard_string_copy a$
wait 100