Lanceur pour l'éditeur Panoramic

open_dialog 13:filter 13,"Panoramic_editeur|*.exe" : ' PANORAMIC_EDITOR.exe"

width 0,800

xScrollBar(10,10,200,0,0,0,10,300)
xTrackBar(40,10,200,0,0,0,10,300)
xProgressBar(70,10,200,0,0,0,10,300)
xSpin(100,10,200,0,3,7)

xGrid(10,300,400,150,0,0,0,0,0)
xList(170,300,400,150,0)

xForm(300,400,0,0,0,"Test")

end

#INCLUDE "KGF_OBJ.bas"

' KGF_OBJ.bas

' Ce fichier implémente la création normalisée d'objets,
' visuels ou non  Les objets visuels sont inclus ici pour
' être intégrés dans la gestion automatisée des numéros d'objets.
' Il n'y a rien d'autre à insérer dans le programme.

' ############# ici, le #INCLUDE KGF_OBJ.bas contenant tout ce qui suit #########
' ===============================================================================
' interface de procédures autour de KGF.dll
' Auteur: Klaus
'
' Objets visuels gérés:
'  alpha  edit  button  combo  container      container_option
'  memo  list  check  image  scene2d        scene3d
'  scroll_bat  track_bar      progress_bar  spin
'  sub_menu    grid          option        list
'  form
'
' Objets non visuels gérés:
'  Main_Menu    Sound  Movie  Open_Dialog    Save_Dialog
'  Dlist        Timer  Image

' =============== dipatching des fonctions ====================================
message "KGF: on ne peut pas executer ce module directement !"
terminate

' =============== objets visuels =============================================


' paramètres: (top,left,width,height,caption)
sub xContainer(t%,l%,w%,h%,c$)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : container no%
    top no%,t% : left no%,l% : width no%,w% : height no%,h%
    caption no%,c$
end_sub

' paramètres: (top,left,width,height,parent,caption)
sub xContainer_Option(t%,l%,w%,h%,p%,c$)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : container_option no%
    top no%,t% : left no%,l% : width no%,w% : height no%,h%
    caption no%,c$
    if p%>0 then parent no%,p%
end_sub

' paramètres: (top,left,parent,fontsize,caption)
sub xAlpha(t%,l%,p%,s%,s$)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : alpha no%  : caption no%,s$
    font_size no%,s%
    top no%,t% : left no%,l%
    if p%>0 then parent no%,p%
end_sub

' paramètres: (top,left,width,parent,inactive)
sub xEdit(t%,l%,w%,p%,a%)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : edit no%
    top no%,t% : left no%,l% : width no%,w%
    if p%>0 then parent no%,p%
    if a%=1 then inactive no%
end_sub

' paramètres: (top,left,width,parent,inactive,mask,userset)
' mask est un masque de saisie
' userset est un jeu de caractères donné par l'utilisateur.
' Les caractères suivants représentent des jeux de caractères spéciaux:
'  9 = chiffre 0...9
'  A = lettre majuscule ou espace
'  a = lettre minuscule ou espace
'  $ = lettre minuscule ou majuscule ou espace
'  X = code hexadécimal en majuscules
'  x = code hexadécimal en minuscules
'  * = tout caractère
'  U = contenu du paramètre userset
' tous les autres caractères sont imposés tels quels à leur place
' Exemples:
'  numéro de sécurité sociale: 9.99.99.999.999.99
'  Nom propre: A$$$$$$$
'  Numéro de téléphone: 09U99U99U99U99  avec userset = " ."
sub xEditMask(t%,l%,w%,p%,a%,m$,u$)
  if m$<>""  : ' au premier appel, création de tout ce qu'il faut
    if variable("mask_list%")=0
      dim mask_list%(3),  mask_temp$, mask_n%
      dim mask_c$, mask_ci%, mask_set$
      dim mask_i%, mask_m$, mask_s$
      dim mask_codes$ : mask_codes$ = "9Aa$Xx*U"
      dim mask_masks$(7)
      mask_masks$(1) = "01234567890"
      mask_masks$(2) = "ABCDEFGHIJKLMNOPQRSTUVWXYZ "
      mask_masks$(3) = "abcdefghijklmnopqrstuvwxyz "
      mask_masks$(4) = mask_masks$(2) + mask_masks$(3)
      mask_masks$(5) = mask_masks$(1) + "ABCDEF"
      mask_masks$(6) = mask_masks$(1) + "abcdef"
      mask_masks$(7) = u$
      no% = no% + 1 : dlist no% : mask_list%(1) = no%  : ' liste des numéros d'objet
      no% = no% + 1 : dlist no% : mask_list%(2) = no%  : ' liste des masques
      no% = no% + 1 : dlist no% : mask_list%(3) = no%  : ' liste des valeurs anciennes
    end_if
    if label("mask_change")=0 then label mask_change, mask_change_1
  end_if      : ' ici, on a fini de créer tout ce qu'il faut
  if variable("no%")=0 then dim no%
  no% = no% + 1 : edit no%
  top no%,t% : left no%,l% : width no%,w% : ' créer l'objet Panoramic
  if p%>0 then parent no%,p%              : ' autre parent que form 0 ?
  if a%=1 then inactive no%              : ' le EDIT doit être inactif au début ?
  if m$<>""                            : ' si un filtre est demandé, alors
    on_change no%,mask_change          : ' on utilise l'évènement On_CHANGE
    item_add mask_list%(1),str$(no%)    : ' on ajoute le numéro d'objet dans une 1ère liste
    item_add mask_list%(2),m$          : ' on ajoute le filtre dans une 2ème liste
    item_add mask_list%(3),""
  end_if                                : ' fin du traitement du filtre
end_sub
mask_change:                            : ' évènement ON_CHANGE sur EDITs maskqués
  mask_temp$ = str$(number_change)      : ' prendre le numéro de l'objet
  for mask_n%=1 to count(mask_list%(1))              : ' chercher cet objet dans la liste '
    mask_s$ = item_read$(mask_list%(1),mask_n%)
    if mask_temp$=mask_s$ then exit_for              : ' est-ce que l'objet est trouvé ?
  next mask_n%                                        : ' fin de recherche
  mask_temp$ = text$(number_change)                  : ' prendre le texte du EDIT
  if mask_temp$=""                                    : ' si le EDIT est vide:
    item_delete mask_list%(3),mask_n%                : ' alors vider la ligne de la 3ème liste
    item_insert mask_list%(3),mask_n%,""
    return                                            : ' on a fini
  end_if
  mask_s$ = item_read$(mask_list%(2),mask_n%)        : ' prendre le masque
  for mask_i%=1 to len(mask_temp$)                    : ' pour tous les caractères du EDIT:
    if mask_i%>len(mask_s$)
      mask_s$ = item_read$(mask_list%(3),mask_n%)          : ' alors reprendre l'état précédent
      off_change number_change                              : ' désactiver ON_CHANGE
      text number_change,item_read$(mask_list%(3),mask_n%)  : ' remplacer le contenu de l'EDIT
      caret_position number_change,mask_i%-1                : ' restaurer la position du curseur
      on_change number_change,mask_change                  : ' réactiver le ON_CHANGE
      return
    end_if
    mask_c$ = mid$(mask_s$,mask_i%,1)                : ' prendre le caractère du masque
    if instr(mask_codes$,mask_c$)=0
      if mid$(mask_temp$,mask_i%,1)<>mask_c$          : ' pas le bon caractère imposé ?
        mask_s$ = item_read$(mask_list%(3),mask_n%)          : ' alors reprendre l'état précédent
        off_change number_change                              : ' désactiver ON_CHANGE
        text number_change,item_read$(mask_list%(3),mask_n%)  : ' remplacer le contenu de l'EDIT
        caret_position number_change,mask_i%-1                : ' restaurer la position du curseur
        on_change number_change,mask_change                  : ' réactiver le ON_CHANGE
        return
      end_if
      goto mask_change_1
    end_if
    if mask_c$<>"*"
      mask_set$ = mask_masks$(instr(mask_codes$,mask_c$))    : ' prendre le bon jeu de caractères
      if instr(mask_set$,mid$(mask_temp$,mask_i%,1))=0        : ' est-ce que le car n'est pas dans le jeu ?
        mask_s$ = item_read$(mask_list%(3),mask_n%)          : ' alors reprendre l'état précédent
        off_change number_change                              : ' désactiver ON_CHANGE
        text number_change,item_read$(mask_list%(3),mask_n%)  : ' remplacer le contenu de l'EDIT
        caret_position number_change,mask_i%-1                : ' restaurer la position du curseur
        on_change number_change,mask_change                  : ' réactiver le ON_CHANGE
        return
      end_if
    end_if
mask_change_1:
  next mask_i%                                        : ' fin de la boucle sur le contenu de l'EDIT
  item_delete mask_list%(3),mask_n%                  : ' ici, tous les caractères sont valides,
  item_insert mask_list%(3),mask_n%,mask_temp$        : ' donc on sauvegarde le contenu de l'EDIT
  return                                              : ' ouf !

' paramètres: (top,left,width,parent,inactive,filtre)
sub xEditFilter(t%,l%,w%,p%,a%,f$)
  if f$<>""  : ' au premier appel, création de tout ce qu'il faut
    if variable("filter_list%")=0
      dim filter_list%(3),  filter_temp$, filter_n%
      dim filter_i%, filter_f$, filter_s$
      no% = no% + 1 : dlist no% : filter_list%(1) = no%  : ' liste des numéros d'objet
      no% = no% + 1 : dlist no% : filter_list%(2) = no%  : ' liste des filtres
      no% = no% + 1 : dlist no% : filter_list%(3) = no%  : ' liste des valeurs anciennes
    end_if
    if label("filter_change")=0 then label filter_change
  end_if      : ' ici, on a fini de créer tout ce qu'il faut
  if variable("no%")=0 then dim no%
  no% = no% + 1 : edit no%
  top no%,t% : left no%,l% : width no%,w% : ' créer l'objet Panoramic
  if p%>0 then parent no%,p%              : ' autre parent que form 0 ?
  if a%=1 then inactive no%              : ' le EDIT doit être inactif au début ?
  if f$<>""                            : ' si un filtre est demandé, alors
    on_change no%,filter_change        : ' on utilise l'évènement On_CHANGE
    item_add filter_list%(1),str$(no%)  : ' on ajoute le numéro d'objet dans une 1ère liste
    item_add filter_list%(2),f$        : ' on ajoute le filtre dans une 2ème liste
    item_add filter_list%(3),""
  end_if                                : ' fin du traitement du filtre
end_sub
filter_change:                          : ' évènement ON_CHANGE sur EDITs filtrés
  filter_temp$ = str$(number_change)    : ' prendre le numéro de l'objet
  for filter_n%=1 to count(filter_list%(1))          : ' chercher cet objet dans la liste '
    filter_s$ = item_read$(filter_list%(1),filter_n%)
    if filter_temp$=filter_s$ then exit_for          : ' est-ce que l'objet est trouvé ?
  next filter_n%                                      : ' fin de recherche
  filter_temp$ = trim$(text$(number_change))          : ' prendre le texte du EDIT
  if filter_temp$=""                                  : ' si le EDIT est vide:
    item_delete filter_list%(3),filter_n%            : ' alors vider la ligne de la 3ème liste
    item_insert filter_list%(3),""
    return                                            : ' on a fini
  end_if
  filter_s$ = item_read$(filter_list%(2),filter_n%)  : ' prendre le filtre
  for filter_i%=1 to len(filter_temp$)                : ' pour tous les caractères du EDIT:
    if instr(filter_s$,mid$(filter_temp$,filter_i%,1))=0    : ' est-ce que le car n'est pas dans le filtre ?
      filter_s$ = item_read$(filter_list%(3),filter_n%)    : ' alors reprendre l'état précédent
      off_change number_change                              : ' désactiver ON_CHANGE
      text number_change,item_read$(filter_list%(3),filter_n%)  : ' remplacer le contenu de l'EDIT
      caret_position number_change,filter_i%-1            : ' restaurer la position du curseur
      on_change number_change,filter_change                : ' réactiver le ON_CHANGE
      return                                                : ' et sortir
    end_if
  next filter_i%                                      : ' fin de la boucle sur le contenu de l'EDIT
  item_delete filter_list%(3),filter_n%              : ' ici, tous les caractères sont valides,
  item_insert filter_list%(3),filter_n%,filter_temp$  : ' donc on sauvegarde le contenu de l'EDIT
  return                                              : ' ouf !

' paramètres: (top,left,width,parent,caption)
sub xButton(t%,l%,w%,p%,c$)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : button no%
    top no%,t% : left no%,l% : width no%,w%
    if p%>0 then parent no%,p%
    caption no%,c$
end_sub

' paramètres: (top,left,width,parent,caption)
sub xOption(t%,l%,w%,p%,c$)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : option no%
    top no%,t% : left no%,l% : width no%,w%
    if p%>0 then parent no%,p%
    caption no%,c$
end_sub

' paramètres: (top,left,parent)
sub xCombo(t%,l%,p%)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : combo no%
    top no%,t% : left no%,l%
    if p%>0 then parent no%,p%
end_sub

' paramètres: (top,left,width,height,parent,bar_horizontal,bar_vertical)
sub xMemo(t%,l%,w%,h%,p%,bh%,bv%)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : memo no%
    top no%,t% : left no%,l% : width no%,w% : height no%,h%
    if p%>0 then parent no%,p%
    if bh%>0 then bar_horizontal no%
    if bv%>0 then bar_vertical no%
end_sub
   
' paramètres: (top,left,width,height,parent)
sub xList(t%,l%,w%,h%,p%)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : list no%
    top no%,t% : left no%,l% : width no%,w% : height no%,h%
    if p%>0 then parent no%,p%
end_sub

' paramètres: (top,left,width,parent,caption)
sub xCheck(t%,l%,w%,p%,c$)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : option no%
    top no%,t% : left no%,l% : width no%,w%
    if p%>0 then parent no%,p%
    caption no%,c$
end_sub

' paramètres: (top,left,width,height,parent)
sub xPicture(t%,l%,w%,h%,p%)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : picture no%
    top no%,t% : left no%,l% : width no%,w%
    if p%>0 then parent no%,p%
end_sub

' paramètres: (top,left,width,height,parent)
sub xScene2d(t%,l%,w%,h%,p%)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : picture no%
    top no%,t% : left no%,l% : width no%,w%
    if p%>0 then parent no%,p%
end_sub

' paramètres: (top,left,width,height,parent)
sub xScene3d(t%,l%,w%,h%,p%)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : picture no%
    top no%,t% : left no%,l% : width no%,w%
    if p%>0 then parent no%,p%
end_sub

' paramètres: (parent,caption)
sub xSub_Menu(p%,c$)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : sub_menu no%
    parent no%,p%
    caption no%,c$
end_sub

' paramètres: (top,left,width,height,parent,orientation,min,max)
'    w%,h%:  0 = défaut
'    o%:  0=défaut  1=horizontal  2=vertical
'    mn%,mx%:  0 = défaut
sub xTrackBar(t%,l%,w%,h%,p%,o%,mn%,mx%)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : track_bar no%
    top no%,t% : left no%,l%
    if w%>0 then width no%,w%
    if h%>0 then height no%,h%
    if p%>0 then parent no%,p%
    if o%=1 then horizontal no%
    if o%=2 then vertical no%
    if mn%<>0 then min no%,mn%
    if mx%<>0 then max no%,mx%
end_sub

' paramètres: (top,left,width,height,parent,orientation,min,max)
'    w%,h%:  0 = défaut
'    o%:  0=défaut  1=horizontal  2=vertical
'    mn%,mx%:  0 = défaut
sub xScrollBar(t%,l%,w%,h%,p%,o%,mn%,mx%)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : scroll_bar no%
    top no%,t% : left no%,l%
    if w%>0 then width no%,w%
    if h%>0 then height no%,h%
    if p%>0 then parent no%,p%
    if o%=1 then horizontal no%
    if o%=2 then vertical no%
    if mn%<>0 then min no%,mn%
    if mx%<>0 then max no%,mx%
end_sub

' paramètres: (top,left,width,height,parent,orientation,min,max)
'    w%,h%:  0 = défaut
'    o%:  0=défaut  1=horizontal  2=vertical
'    mn%,mx%:  0 = défaut
sub xProgressBar(t%,l%,w%,h%,p%,o%,mn%,mx%)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : progress_bar no%
    top no%,t% : left no%,l%
    if w%>0 then width no%,w%
    if h%>0 then height no%,h%
    if p%>0 then parent no%,p%
    if o%=1 then horizontal no%
    if o%=2 then vertical no%
    if mn%<>0 then min no%,mn%
    if mx%<>0 then max no%,mx%
end_sub

' paramètres: (top,left,width,parent,min,max)
'    w%    :  0 = défaut
'    mn%,mx%:  0 = défaut
sub xSpin(t%,l%,w%,p%,mn%,mx%)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : spin no%
    top no%,t% : left no%,l%
    if p%>0 then parent no%,p%
    if w%>0 then width no%,w%
    if mn%<>0 then min no%,mn%
    if mx%<>0 then max no%,mx%
    if mn%<>0 then position no%,mn%
end_sub

' paramètres: (top,left,width,height,parent,ncol,ncolfix,nrow,nrowfix)
'    w%,h%,nc%,ncf%,nr%,nrf%:      0 = defaut
sub xGrid(t%,l%,w%,h%,p%,nc%,ncf%,nr%,nrf%)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : grid no%
    top no%,t% : left no%,l%
    if w%>0 then width no%,w%
    if h%>0 then height no%,h%
    if p%>0 then parent no%,p%
    if nc%>0 then grid_column no%,nc%
    if ncf%>0 then grid_column_fixed no%,ncf%
    if nr%>0 then grid_row no%,nr%
    if nrf%>0 then grid_row_fixed no%,nrf%
end_sub

' paramètres: (top,left,width,height,border,caption)
'    w%,h%,b%:  0 = défaut
sub xForm(t%,l%,w%,h%,b%,c$)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : form no%
    top no%,t% : left no%,l%
    if w%>0 then width no%,w%
    if h%>0 then height no%,h%
    if b%=1 then border_normal,no%
    if b%=2 then border_small,no%
    if b%=3 then border_hide,no%
    caption no%,c$
end_sub

' =============== objets non visuels =========================================

' paramètres: aucun
sub xMainMenu()
  if variable("no%")=0 then dim no%
  no% = no% + 1 : main_menu no%
end_sub

' paramètres: aucun
sub xSound()
  if variable("no%")=0 then dim no%
  no% = no% + 1 : sound no%
end_sub

' paramètres: aucun
sub xMovie()
  if variable("no%")=0 then dim no%
  no% = no% + 1 : movie no%
end_sub

' paramètres: (filter)
sub xOpenDialog(f$)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : open_dialog no%
  if f$<>"" then filter no%,f$
end_sub

' paramètres: (filter)
sub xSaveDialog(f$)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : save_dialog no%
  if f$<>"" then filter no%,f$
end_sub

' paramètres: aucun
sub xDlist()
  if variable("no%")=0 then dim no%
  no% = no% + 1 : dlist no%
end_sub

' paramètres: (actif,interval)
'    a%,i%:    0 = défaut
sub xTimer(a%,i%)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : timer no%
  if a%=0 then timer_off no%
  if i%>0 then timer_interval no%,i%
end_sub

' paramètres: aucun
sub xImage()
  if variable("no%")=0 then dim no%
  no% = no% + 1 : image no%
end_sub

#INCLUDE "C:\Documents and Settings\Klaus\Mes documents\Mes projets Delphi\KGF\KGF_OBJ.bas"

' test.bas
dim txt$
charger_txt()
message txt$
end

#INCLUDE "module1.bas"

sub charger_txt()
txt$ = "Coucou"
end_sub

ControlFocus($hWnd, "", $hSynedit)
 Send("^+à",0) ; MARQUE LA POSITION DANS L'ECRAN par <CTRL> <SHIFT> '0'  (le + signifiant <SHIFT>)
 ControlClick($hWnd, "", $hSynedit, "left", 20, 100)
 MouseClick("left", 30, 100, 1, 0)
 Send("^a!eo") ; ctrl a copier (menu)

Run("C:\Panoramic-Init\lanceur_pour_Panoramic.exe")

' lanceur pour l'éditeur panoramic
memo 3:bar_both 3  :hide 3
hide 0
dlist 1
dlist 4
dlist  6
clipboard_paste 3
include()
file_save 1,"C:\Panoramic-Init\programme.bas"
chain "C:\Panoramic-Init\programme.bas"
end
' ==============
sub include()
dim_local a%,b%,a$,v%,c$,lig_a% ,include% ,c% , n% , n$
   if count(3)> 1
      b%=0 :' pour numéroter les #include
      a%=1
      repeat
         a$=item_read$(3,a%)
         ' je rajoute éventuellement les includes
         if left$(upper$(trim$(a$)),8)="#INCLUDE"  
            v%=instr(upper$(a$),"#INCLUDE ")  :b% = b% + 1 :c$ = mid$(a$, v% + 9 , 80)
             item_add 4,trim$(a$)
            item_add 1,"' #" + str$(b%) + " dépilé: " + trim$(a$)
            include%=1
            file_add 6, c$ : lig_a%=a%+1  :' on ajoute le fichier c$

            item_insert 3,a%+1,"' ==== FIN du programme #INCLUDE dépilé: "+c$+"  #"+str$(b%)+" ===="
            for c%=1 to count(6)
               a$=item_read$(6,1) : item_insert 3,lig_a%,a$ : item_delete 6,1:lig_a%=lig_a%+1
            next c%
         else
             item_add 1,a$
         end_if
         a%=a%+1
      until a% > count(3) or scancode=27
  end_if
  item_add 1,""
end_sub

                      ' lanceur pour l'éditeur panoramic
memo 3:bar_both 3  :hide 3
hide 0
dlist 1
dlist 4
dlist  6
clipboard_paste 3
include()
file_save 1,"C:\Panoramic-Init\programme.bas"
chain "C:\Panoramic-Init\programme.bas"
end
' ==============
sub include()
dim_local a%,b%,a$,v%,c$,lig_a% ,include% ,c% , n% , n$
  if count(3)> 1
      b%=0 :' pour numéroter les #include
      a%=1
      repeat
        a$=item_read$(3,a%)
        ' je rajoute éventuellement les includes
        if left$(upper$(trim$(a$)),8)="#INCLUDE": ' syntaxe possible ici: #INCLUDE |N°|
            v%=instr(upper$(a$),"#INCLUDE ") : b% = b% + 1 : c$ = mid$(a$, v% + 9 , len(a$))
            item_add 4,trim$(a$)
            item_add 1,"' #" + str$(b%) + " dépilé: " + trim$(a$)
            include%=1
            file_add 6, c$ : lig_a%=a%+1  :' on ajoute le fichier c$

            item_insert 3,a%+1,"' ==== FIN du programme #INCLUDE dépilé: "+c$+"  #"+str$(b%)+" ===="
            for c%=1 to count(6)
              a$=item_read$(6,1) : item_insert 3,lig_a%,a$ : item_delete 6,1:lig_a%=lig_a%+1
            next c%
        else
            item_add 1,a$
        end_if
        a%=a%+1
      until a% > count(3) or scancode=27
  end_if
  item_add 1,""
end_sub

' lanceur pour l'éditeur panoramic
memo 3:bar_both 3  :top 3,100
hide 0
list 2
list 1
list 4
list 6
clipboard_paste 3
include()
file_save 1,"C:\Panoramic-Init\programme.bas"
ligne()
chain "C:\Panoramic-Init\programme.bas"
end
' ==============
sub include()
dim_local a%,b%,a$,v%,c$,lig_a% ,include% ,c% , n% , n$
   if count(3)> 1
      b%=0 :' pour numéroter les #include
      a%=1
      repeat
         a$=item_read$(3,a%)
         ' je rajoute éventuellement les includes
         if left$(upper$(trim$(a$)),8)="#INCLUDE"   :' syntaxe possible ici: #INCLUDE |N°|
            v%=instr(upper$(a$),"#INCLUDE ")  :b% = b% + 1 :c$ = mid$(a$, v% + 9 , len(a$))
             item_add 4,trim$(a$)
            item_add 1,"' #" + str$(b%) + " dépilé: " + trim$(a$)
            include%=1
            file_add 6, c$ : lig_a%=a%+1  :' on ajoute le fichier c$

            item_insert 3,a%+1,"' ==== FIN du programme #INCLUDE dépilé: "+c$+"  #"+str$(b%)+" ===="
            for c%=1 to count(6)
               a$=item_read$(6,1) : item_insert 3,lig_a%,a$ : item_delete 6,1:lig_a%=lig_a%+1
            next c%
         else
             item_add 1,a$
         end_if
         a%=a%+1
      until a% > count(3) or scancode=27
  end_if
  item_add 1,""
end_sub

sub ligne()
   dim_local a%,a$
   for a% = 1 to count(1)
      a$ = item_read$(1,a%)
      item_delete 1,a%
      item_insert 1,a%,right$("   "+str$(a%),4)+"| "+a$
   next a%
   file_save 1,"C:\Panoramic-Init\LIGNE_programme.bas"
end_sub