Plugicielle pour Panoramic

' programme pour tabler les DLL
error_french
width 0,750 +180:height 0,screen_y
label mouse_info , prise_info  ,mouse_path, prise_path,prise_path_suite ,liste , sauve
label initial , valide , decide ,all_select , aide ,aide_s , empile , copier ,del
dim a% ,b% ,a$ , b$ ,c$ , f$ ,x,y  ,a ,list$ , j% ,anul% , path%
dim c%,l%:' colonne et ligne%
dim w%(10):' tableau des largeurs de colonnes
dim t%(50)
dim u%(10):u%(1)=3:u%(2)=2:u%(3)=4:u%(4)=5:u%(5)=6 :' pour le tableau,ordre de tri, la DLL en premier

a=40
rem montre une boite de dialogue servant à définir les dossiers, appelé comme #INCLUDE
rem les numéros sont définis par le programe appelant et transmis par la variable "a"
  if variable("a")=0 then dim a:a=1 :' seulement pour la mise au point, vu que a est définit ailleurs
  if variable("OBJ_")=0 then dim OBJ_
  if variable("DIR_a%")=0 then dim DIR_a%
  if variable("DIR_a$")=0 then dim DIR_a$
  if variable("DIR_f$")=0 then dim DIR_f$
  if variable("DIR_test%")=0 then dim DIR_test%
  if variable("DIR_dossier$")=0 then dim DIR_dossier$
  if variable("OBJ_DIR")=0 then dim OBJ_DIR
  if variable("DIR_fichier$")=0 then dim DIR_FICHIER$
  if variable("ini_DIR%")=0 then dim ini_dir%
  if variable("OBJ_edit")=0 then dim OBJ_edit
  if variable("OBJ_sortir")=0 then dim OBJ_sortir
  if variable("OBJ_accepte")=0 then dim OBJ_accepte
  rem passage de paramètres depuis le programme appelant
    OBJ_=a : ' ainsi il n'est pas nécessaire de reprendre le programme, transmis par le programme appelant
DIR_Fichier$=dir_current$
      OBJ_DIR=OBJ_
form OBJ_DIR :command_target_is OBJ_DIR : hide OBJ_DIR
width OBJ_DIR,445:border_hide OBJ_DIR:color OBJ_DIR,180,180,170:top OBJ_DIR,010:left OBJ_DIR,500 :height OBJ_DIR,525
dir_change "C:\"

label DIR_dossier ,DIR_disque , DIR_choix ,DIR_impose ,DIR_retour ,DIR_exit,DIR_ferme,DIR_sorti,ini_DIR,DIR_end

on_close OBJ_DIR,DIR_ferme
      OBJ_DIR=OBJ_+1  :' 16
alpha OBJ_DIR:top OBJ_DIR, 5:left OBJ_DIR,100:font_bold OBJ_DIR:font_size OBJ_DIR,10:' font_color OBJ_DIR,204,204,153
                  caption OBJ_DIR,"choisir le dossier d'installation"

      OBJ_DIR=OBJ_+2  :' 15
edit  OBJ_DIR:top OBJ_DIR,35:left OBJ_DIR,5:width OBJ_DIR,435:font_size OBJ_DIR,12:font_bold OBJ_DIR:color OBJ_DIR,255,255,153 :OBJ_edit=OBJ_DIR
      hint obj_dir,obj_dir
      OBJ_DIR=OBJ_+3  :' 19
alpha OBJ_DIR:top OBJ_DIR,65:left OBJ_DIR,80:font_color OBJ_DIR,255,255,255:font_bold OBJ_DIR:font_size OBJ_DIR,10:caption OBJ_DIR,"dossier"
      OBJ_DIR=OBJ_+4  :' 10
list OBJ_DIR: top OBJ_DIR,85:left OBJ_DIR,5:width OBJ_DIR,230:height OBJ_DIR,390:font_size OBJ_DIR,12:font_bold OBJ_DIR:color OBJ_DIR,255,255,204:on_click OBJ_DIR,DIR_choix
      OBJ_DIR=OBJ_+5  :' 11
list OBJ_DIR: top OBJ_DIR,85:width OBJ_DIR,200:left OBJ_DIR,240:height OBJ_DIR,305:font_color OBJ_DIR,160,160,160
      OBJ_DIR=OBJ_+6  :' 13
alpha OBJ_DIR:top OBJ_DIR,397:left OBJ_DIR,245:font_color OBJ_DIR,255,255,255:font_bold OBJ_DIR:font_size OBJ_DIR,10:caption OBJ_DIR,"Lecteur:"
      OBJ_DIR=OBJ_+7  :' 14
list  OBJ_DIR:top OBJ_DIR,415:left OBJ_DIR,245:height OBJ_DIR,60:width OBJ_DIR,50:font_size OBJ_DIR,12:color OBJ_DIR,255,255,210 :on_click OBJ_DIR,DIR_disque



      OBJ_DIR=OBJ_+8  :' 18
edit  OBJ_DIR:top OBJ_DIR,490:left OBJ_DIR,170:width OBJ_DIR,270:font_size OBJ_DIR,12:font_bold OBJ_DIR:color OBJ_DIR,255,255,153:on_change OBJ_DIR,DIR_impose

      OBJ_DIR=OBJ_+9  :' 20
button OBJ_DIR:top OBJ_DIR,410:left OBJ_DIR,330:caption OBJ_DIR,"sortir" :on_click OBJ_DIR,DIR_retour: OBJ_accepte =OBJ_DIR
      OBJ_DIR=OBJ_+10  :' 21
button OBJ_DIR:top OBJ_DIR,450:left OBJ_DIR,330:caption OBJ_DIR,"accepter" :on_click OBJ_DIR,DIR_exit    : OBJ_sortir  =OBJ_DIR

      OBJ_DIR=OBJ_+11  :' 17
alpha OBJ_DIR:top OBJ_DIR,500:left OBJ_DIR,5:font_color OBJ_DIR,255,255,255:font_bold OBJ_DIR:font_size OBJ_DIR,10:caption OBJ_DIR,"créé nouveau dossier :"

OBJ_DIR=OBJ_ :command_target_is 0
' gosub ini_DIR
 goto DIR_sorti :' pour include
DIR_end:

end
' ==============================================

ini_DIR:
to_foreground OBJ_
if ini_dir%=0
  for DIR_a%=asc("C") to asc("Z")
        DIR_a$= chr$(DIR_a%)+":" : if dir_exists(DIR_a$)=1 then item_add OBJ_+7,DIR_a$
  next DIR_a%
  ini_dir%=1
end_if
return

DIR_dossier:
  gosub ini_dir
  clear OBJ_+4:clear OBJ_+5
  item_add  OBJ_+4,".."
  DIR_a$ = file_find_first$
  while DIR_a$<>"_"
      DIR_test%=File_Exists(DIR_a$)
      if DIR_test%=0
                  item_add  OBJ_+4,DIR_a$
      else
                  item_add OBJ_+5,DIR_a$
      end_if
      DIR_a$ = file_find_next$
  end_while
  file_find_close
return
DIR_disque:
gosub ini_dir
dir_change "C:\"
DIR_f$= item_index$(OBJ_+7):DIR_dossier$=DIR_f$
dir_change DIR_f$ : gosub DIR_dossier
return

DIR_choix:
    gosub ini_dir
      DIR_f$=item_index$(OBJ_+4)
  dir_change DIR_f$
      if item_index(OBJ_+4)>1
      DIR_dossier$=DIR_dossier$+"\"+DIR_f$
  else
      for DIR_a%=len(DIR_dossier$) to 1 step -1
        if mid$(DIR_dossier$,DIR_a%,1)="\" then exit_for
      next DIR_a%
      if DIR_a%>2 then DIR_dossier$=left$(DIR_dossier$,DIR_a%-1)
  end_if
  gosub DIR_dossier
  gosub DIR_impose
return

DIR_impose:
      if text$(OBJ_+8)<>"" then text OBJ_+2,DIR_dossier$+"\"+text$(OBJ_+8) :else:text OBJ_+2,DIR_dossier$
return

DIR_exit:
hide OBJ_:active 0:DIR_dossier$="_"  :text OBJ_+2,"_"
    if DIR_f$="" or DIR_f$="_"
    else
      DIR_f$=left$(DIR_f$,DIR_a%-1) :dir_change DIR_fichier$:hide OBJ_
    end_if
return

DIR_retour:
  clipboard_string_copy text$(OBJ_+2) :dir_change DIR_Fichier$:hide OBJ_
return

DIR_ferme:
terminate

DIR_sorti:

dir_change DIR_fichier$:hide OBJ_






w%(1)=1:w%(2)=16:w%(3)=38:w%(4)=143:w%(5)=203:w%(6)=230
' ------------------------------------------------------------------------------

GRID 15:top 15,35:grid_column 15,2:grid_row 15,20:width 15,210:height 15,360:grid_fixed_color 15,80,255,199
  grid_one_column_width 15,1,20:grid_one_column_width 15,2,180:grid_row_height 15,16
  for a%=2 to 20:grid_write 15,a%,1,a%-1:next a%
  grid_write 15,1,2,"    chemin des différentes DLL"
' ~~~~~~
BUTTON 16:width 16,24 : height 16,21 :left 16,-20  :font_bold 16 :font_size 16,13
EDIT  21:width 21,20 : height 21,17 :left 21,-20  :font_bold 21 :font_size 21,11 :color 21,255,255,0 :font_color 21,255,0,0
' ------------------------------------------------------------------------------
GRID 20:left 20,380:top 20,20:grid_column 20,6:grid_row 20,40 :width 20,500:height 20,height(0)-90:grid_fixed_color 20,231,252,252
  grid_one_column_width 20,1,15  :' n°
  grid_one_column_width 20,2,20  :' flag
  grid_one_column_width 20,3,105 :' DLL nom
  grid_one_column_width 20,4,60  :' auteur
  grid_one_column_width 20,5,25  :' chemin
  grid_one_column_width 20,6,243 :' commentaire
  grid_row_height 20,16
  grid_write 20,1,2,"flag":grid_write 20,1,3,"  DLL":grid_write 20,1,4,"  Auteur"
  grid_write 20,1,5,"path":grid_write 20,1,6,"          COMMENTAIRE"
  for a%=1 to 40:grid_write 20,a%,1,a%:next a%

BUTTON  9:caption 9,"enregistre":on_click 9,sauve


ALPHA  10:left 10,100  :alpha 8:left 8,400
BUTTON 11:width 11,15 : height 11,15 :left 11,-20
' ~~~~~~
BUTTON 22:left 22,380+18:top 22,38:width 22,507:height 22,20
check  23:left 23,left(22)+3  :top 23,top(22):width 23,12
edit  24:left 24,left(22)+19 :top 24,top(22):width 24,106 :color 24,255,255,246
edit  25:left 25,left(24)+107:top 25,top(22):width 25,57  :color 25,255,255,246
edit  26:left 26,left(25)+64 :top 26,top(22):width 26,24  :color 26,255,255,246
edit  27:left 27,left(26)+25 :top 27,top(22):width 27,244 :color 27,255,255,246
button 29:left 29,left(27)+244:top 29,top(22)+2:width 29,23  :caption 29,"ok":height 29,16
edit  31:left 31,left(26)-10 :top 31,top(22)+3:width 31,10:color 31,255,0,0:height 31,16 :hint 31,"copie le nom de la ligne précédente" :cursor_arrow 31
button 32:left 32,left(29)+23 :top 32,top(22)+2:width 32,23  :height 32,16:caption 32,"del":on_click 32,del
          hint 32,"efface les données de la ligne"
' ------------------------------------------------------------------------------
button 17:left 17,220:top 17,18:width 17, 50:height 17,15:caption 17,"ajouter"
LIST  18:left 18,220:top 18,35:width 18,150:height 18,height(0)-100:color 18,250,237,200
button 30:left 30,280:top 30,18:width 30, 90:height 30,15:caption 30,"tout sélectionner":font_size 30,3
' ~~~~~~
list  19:left 19,355:top 19,35:width 19, 15:height 19,height(18)
button  4:left  4,355:width 4,18:height 4,20:top 4,35
check  5:left  5,357:width 5,14:height 5,18:top 5,36  :on_click 5,valide :hide 4:hide 5
' ------------------------------------------------------------------------------
MEMO    3:top 3,415:width 3,210:height 3,height(18)-400:color 3,236,255,228
ALPHA  2:top 2,395:width 2,210:font_bold 2 :caption 2,"cliquez ici pour continuer":font_size 2,12:color 2,255,255,0
' ------------------------------------------------------------------------------
dlist  28:' left 28,760+150:height 28,500 :width 28,200
' ------------------------------------------------------------------------------
gosub initial

if      grid_read$(20,2,2)="1" then mark_on 23
text 24,grid_read$(20,2,3)
text 25,grid_read$(20,2,4)
text 26,grid_read$(20,2,5)
text 27,grid_read$(20,2,6)
' ------------------------------------------------------------------------------
on_click 18,decide
on_click 20,mouse_info
on_click 29,prise_info
on_click 15,mouse_path
on_click 16,prise_path :on_click 21,prise_path
on_click 17,empile
on_click 30,all_select
on_click 31,copier

end
' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
initial:
' ------------------------------------------------------------------------------
  if file_exists("c:\Panoramic-Init\chemin.txt") = 1
      file_load 28,"c:\Panoramic-Init\chemin.txt"
      if count(28)>0
        for a%=1 to count(28)
            a$=item_read$(28,a%)
            grid_write 15,a%+1,2,a$
        next a%
      end_if
  end_if

  ' --------------------------------------------------
  if file_exists("c:\Panoramic-Init\DLL.txt") = 1
      file_load 28,"c:\Panoramic-Init\DLL.txt"
      if count(28)>0
      for a% = 1 to count(28)
        a$=item_read$(28,a%)
        b%=2
        repeat
            c%= instr(a$,"/")
            if c%>0
              b$= left$(a$,c% -1)
              grid_write 20,a%+1,b%,b$
              a$=mid$(a$,c%+1,len(a$))
              b%=b%+1
            end_if
        until c% =0 or scancode =27
      next a%
      end_if
  end_if
  gosub aide
return
' ==============================================================================
copier:
  if l%>2
      a$=grid_read$(20,l%-1,4)
      grid_write 20,l%,4,a$  : text 25,a$
  end_if
return
' ==============================================================================
del:
  for a%=2 to 6 :grid_write 20,l%,a%,"": next a%
  mark_off 23:text 24,"":text 25,"":text 26,"":text 27,""
return
' ==============================================================================

all_select:
  anul%=-1-anul% :if anul%=0 then caption 30,"annule select..":else:caption 30,"tout sélectionner"
  if count(19)>0
      for a%=1 to count(19):item_delete 19,a%
        if anul%= -1 then item_insert 19,a%,"1" :else: item_insert 19,a%,"0"
      next a%
  end_if
  hide 4:hide 5
return
sauve:
' ---- dossiers des dll
  for a%=20 to 1 step -1
      caption 8,"a%="+str$(a%)+"  >"+ grid_read$(15,a%,2)
      if grid_read$(15,a%,2)<> "" then exit_for
  next a%  : l%=a%
  item_add 28,"92 l%=" + str$(l%)
  file_open_write 2,"c:\Panoramic-Init\chemin.txt"

  for a%=2 to l%
      file_writeln 2, grid_read$(15,a%,2)
      item_add 28,"98: "+ grid_read$(15,a%,2)
  next a%
  item_add 28,"100: fin close"
  file_close 2
' ---- renseignements des DLL
      for a%=40 to 1 step -1
        item_add 28,"104: a%=" + str$(a%)+ "  >"+ grid_read$(20,a%,3)
        if grid_read$(20,a%,3) <>"" then exit_for
      next a% : l%=a%
      item_add 28,"107: L%=" + str$(l%)

      file_open_write 2,"c:\Panoramic-Init\DLL.txt"

      for a%=2 to l%
      item_add 28,"114: a%="+str$(a%)
        b$=""
        for b%=2 to 6
            b$=b$+grid_read$(20,a%,b%)+"/"
        next b%
        file_writeln 2,b$
      next a%
item_add 28,"120: fin close"
      file_close 2
return
' ------------------------------------------------------------------------------
mouse_info:
  x= mouse_x_position(20)  :  y= mouse_y_position(20)
  l%= (y -8 ) /17 +1

  for a%= 6 to 1 step -1
      if  x < w%(a%)
      else
        c%=a%
        exit_for
      end_if
  next a%

  top 22,l%*17+5 : top 23,top(22) : top 24,top(22) : top 25,top(22)
  top 26,top(22) : top 27,top(22) : top 29,top(22)+2 : top 31,top(22)+3 : top 32,top(22)+2

  if grid_read$(20,l%,2)= "1" then mark_on 23 :else:mark_off 23
  text 24,grid_read$(20,l%,3) :height 24,19
  text 25,grid_read$(20,l%,4) :height 25,19
  text 26,grid_read$(20,l%,5) :height 26,19
  text 27,grid_read$(20,l%,6) :height 27,19

  color 24,255,255,246:color 25,255,255,246:color 26,255,255,246:color 27,255,255,246
return
' ------------------------------------------------------------------------------
prise_info:
  color 24,255,255,0:color 25,255,255,0:color 26,255,255,0:color 27,255,255,0
  if l%<2 then l%=2
  if checked(23) =1 then grid_write 20,l%,2,1:else:grid_write 20,l%,2,0
  grid_write 20,l%,3,text$(24)
  grid_write 20,l%,4,text$(25)
  grid_write 20,l%,5,text$(26)
  grid_write 20,l%,6,text$(27)
return
' ------------------------------------------------------------------------------
decide:
  j%=item_index(18)
  top 4,j%*13+35-15:top 5,top(4)+2  :show 4:show 5
  if item_read$(19,j%) ="0" then mark_off 5:else:mark_on 5
return

valide:
  if checked(5)=1
      t%(j%)=1 :item_delete 19,j%:item_insert 19,j%,"1"
  else
      t%(j%)=0 :item_delete 19,j%:item_insert 19,j%,"0"
  end_if
return
' ------------------------------------------------------------------------------
mouse_path:
  x= mouse_x_position(15)
  y= mouse_y_position(15)
  l%= (y -8 ) /17 +1
  for a%= 6 to 1 step -1
      if  x < w%(a%)
      else
        c%=a%
        exit_for
      end_if
  next a%:' 22
  left 16, 0 :top 16,l% * 17 +18
  left 21, 2 :top 21,top(16)+2  :text 21,l%-1  :height 21,17
  hide 4:hide 5:mark_off 5
  path%=l% -1
  gosub liste
return
' ------------------------------------------------------------------------------
prise_path:
  a$ = grid_read$(15,l%,c%)
  show OBJ_DIR
  gosub ini_DIR
  gosub DIR_end

  on_click OBJ_accepte,prise_path_suite
  on_click OBJ_sortir ,prise_path_suite
  end
prise_path_suite:
  hide OBJ_
  a$=  text$(OBJ_edit)
  if number_click = OBJ_sortir then grid_write 15,l%,2, a$ :caption 10,a$:gosub liste

return
' ==============================================================================
empile:
' on remet de l'ordre dans le grid 20
  clear 28

  for a%=2 to 40
    a$=""
    ' reste à mettre dans l'ordre du tri

    for b%=1 to 5
        a$= a$ + grid_read$(20,a%,u%(b%))+"/"
    next b%

    if a$<>"/////"
        item_add 28,a$
    end_if
  next a%
  sort 28

  for a% = 2 to 40
    if a% > count(28) then exit_for
    a$ = item_read$(28,a%-1)
    for b%=1 to 5
        b$=left$(a$,instr(a$,"/")-1)
        a$=mid$( a$,instr(a$,"/")+1,len(a$))
        grid_write 20,a%+1,u%(b%),b$
    next b%
  next a%

' message "le tri est fait"
 ' a revoir

' on ajoute la liste 18
  if count(18) > 0
    c%=count(28) +2
    for a%=1 to count(18)
        a$ = item_read$(18,a%)
        if item_read$(19,a%)="1"

          for b%=c% to 2 step -1
              if grid_read$(20,b%,3)=a$ then exit_for
          next b%
          ' message "b%="+str$(b%)+"  c%="+str$(c%)


          if b%=1
              grid_write 20,c%,3,a$ :grid_write 20,c%,2,"0"
              grid_write 20,c%,5,path% :c%=c%+1  :' message "ecrire"
          end_if
        end_if
    next a%
  end_if



return
' ------------------------------------------------------------------------------
liste:
' revoir, il faut aussi pouvoir item_index!
  f$ =  grid_read$(15,l%,2)
  caption 10,f$
  if dir_exists(f$) = 1 and  f$<> ""
      dir_change f$
      clear 18  : clear 19
      list$ = file_find_first$
      while list$<>"_"
        a%=File_Exists(list$)
        if a%>0  and right$(upper$(list$),4) = ".DLL"
            item_add  18,list$
            item_add 19,"0"
        end_if
        list$ = file_find_next$
      end_while
      file_find_close
  else
      clear 18:clear 19
  end_if
  for a%=2 to 50:t%(a%)=0:next a%
return
' #####################################################################################
data "Ce programme est conçu pour aller chercher les DLLs qui peuvent être "
data " dans un programme Panoramic, les mettre en liste, et ensuite marquer "
data "celles qui ont été programmées dans le programme de mot clés."
data "Le Grid de gauche sert à l'aide d'une boite de dialogue, à rechercher les dossiers"
data" qui concerne les DLLs. Il suffit de cliquer sur la 1ère ligne pour voir la boite. Si "
data "une ligne contient un chemin défini, le clic sur celle-ci dépile les Dll dans le liste "
data "à côté."
data "On peut tout sélec- tionner ou désélectionner. Cliquer sur une ligne fait apparaitre"
data "un boite à cocher. En cliquant dessus, on sélectionne la ligne ou non. Cette liste sert d'un coup "
data "à ajouter toutes les lignes cochées, dans le GRID de droite (bleu)."
data "»"
data "Le GRID bleu, est le grid de réception des dll, avec les renseignements l'accompagnant. Un clic sur "
data "une ligne fait apparaitre une barre pour modifier les renseignements. Celles-ci sont validées par le bouton à droite"
data "la boite à cocher sert à valider au fur et à mesure, que les commandes pour Panoramic sont faites."
data "la case rouge sur la barre d'édition, sert à copier la le nom de la ligne précédente. "
data "Le bouton 'del' efface toute la ligne de la barre d'édition"
data "$$$"
aide:
  a$=""
  repeat
      read b$
      if b$="»"
        on_click 2,aide_s:end
      aide_s:
        hide 2
      end_if
      if b$<>"$$$" then a$=a$+b$
      if right$(b$,1)="" then b$=left$(b$,len(b$)-1):a$=a$+b$:item_add 3,a$ :a$="":b$=""
  until b$="$$$" or scancode = 27
  item_add 3,a$+chr$(0)

return