MENU-Fichiers

rem ' MENU-Fichiers - par jjn4 - Rénové le 24/07/2021 =========================
   dim a$ , a% , i% , j% : rem Variables provisoires générales
   dim cd$ : rem Répertoire courant
   dim NGA% : rem Numéro du Grid Affiché
   label aide , ajout , change , clic , go , modif
   cd$=dir_current$

rem form0
   width 0,1365
   height 0,720
   caption 0,"   MENU des fichiers panoramic et autres"
   dlist 5
  
main_menu 10
   sub_menu 11
      parent 11,10
      caption 11,"Ajout"
      on_click 11,ajout
   sub_menu 12
      parent 12,10
      caption 12,"Modifs"
      on_click 12,modif
   sub_menu 15
      parent 15,10
      caption 15,"Aide"
      on_click 15,aide
  
rem Affichage des pictures
   for i%=1 to 6
      for j%=1 to 10
         panel i%*20+(j%-1)*2 : rem N° 20 à 118 à pas de 2
            left i%*20+(j%-1)*2,(j%-1)*133+13
            top i%*20+(j%-1)*2,(i%-1)*108+17
            width i%*20+(j%-1)*2,123
            height i%*20+(j%-1)*2,85
            font_size i%*20+(j%-1)*2,60
            color i%*20+(j%-1)*2,200,200,200
            on_click i%*20+(j%-1)*2,go
         alpha i%*20+(j%-1)*2+130 : rem N° 150 à 268 à pas de 2
            left i%*20+(j%-1)*2+130,(j%-1)*133+38
            top i%*20+(j%-1)*2+130,(i%-1)*108+4
            font_color i%*20+(j%-1)*2+130,255,0,0
         alpha i%*20+(j%-1)*2+131 : rem N° 151 à 269 à pas de 2
            left i%*20+(j%-1)*2+131,(j%-1)*133+130
            top i%*20+(j%-1)*2+131,(i%-1)*108+101
            font_size i%*20+(j%-1)*2+131,6
            caption i%*20+(j%-1)*2+131,(i%-1)*10+j%
      next j%
   next i%

memo 300 : rem Base du système de modifications
   hide 300
   left 300,10
   width 300,1330
   height 300,655
   bar_vertical 300
   if file_exists(cd$+"\Menu-fichier.txm")=0
      file_save 300,cd$+"\Menu-fichier.txm"
   else
      file_load 300,cd$+"\Menu-fichier.txm"
   end_if
   i%=0
   if count(300)>4
      i%=1
      while i%<count(300)
         a$=item_read$(300,i%)
         if numeric(a$)=1
            a%=val(a$)
            j%=(a%*2)+18
            caption j%+130,item_read$(300,i%+1)
            font_name j%,item_read$(300,i%+2)
            font_color j%,val(item_read$(300,i%+4)),val(item_read$(300,i%+5)),val(item_read$(300,i%+6))
            caption j%,chr$(val(item_read$(300,i%+3)))
         end_if
         i%=i%+9
      end_while
   end_if

rem Base du système d`ajout de données ========================================
panel 400 : rem Tableau des entrées
   hide 400
   left 400,10
   width 400,1330
   height 400,655
alpha 405
   parent 405,400
   left 405,2
   top 405,1
   font_size 405,14
   font_color 405,255,0,0
   font_name 405,"Wingdings 3"
   caption 405,chr$(199)
alpha 410 : rem Titre
   parent 410,400
   left 410,50
   top 410,8
   font_bold 410
   font_size 410,24
   font_color 410,255,0,0
   caption 410,"Entrée de données nouvelles :"
  
' Choix du numéro d'ordre
alpha 420
   parent 420,400
   left 420,20
   top 420,80
   font_bold 420
   font_size 420,14
   caption 420,"Choisissez un numéro d'ordre dans la grille des lancés de programme :"
combo 430
   parent 430,400
   left 430,40
   top 430,110
   width 430,90
   font_bold 430
   font_size 430,24
   remplir()
   on_click 430,clic
alpha 440
   parent 440,400
   left 440,1000
   top 440,80
   font_bold 440
   font_size 440,14
   font_color 440,0,0,255
   caption 440,"Numéro choisi :"
alpha 445
   parent 445,400
   left 445,950
   top 445,75
   font_size 445,25
   font_color 445,255,0,0
   font_name 445,"Webdings"
   caption 445,chr$(110)
alpha 450
   parent 450,400
   left 450,1020
   top 450,110
   font_bold 450
   font_size 450,14
   font_color 450,255,0,0

' Inscription du nom du programme à afficher
alpha 460
   parent 460,400
   left 460,20
   top 460,200
   font_bold 460
   font_size 460,14
   caption 460,"Inscription du nom du programme à ajouter :"
edit 470
   parent 470,400
   left 470,40
   top 470,230
   width 470,395
   font_bold 470
   font_size 470,24
   on_change 470,change
alpha 480
   parent 480,400
   left 480,1000
   top 480,200
   font_bold 480
   font_size 480,14
   font_color 480,0,0,255
   caption 480,"Nom du programme à ajouter :"
alpha 485
   parent 485,400
   left 485,950
   top 485,195
   font_size 485,25
   font_color 485,255,0,0
   font_name 485,"Webdings"
   caption 485,chr$(110)
alpha 490    
   parent 490,400
   left 490,1020
   top 490,230
   font_bold 490
   font_size 490,14
   font_color 490,255,0,0

' Choix de la police de caractère et du numéro de police
alpha 500
   parent 500,400
   left 500,20
   top 500,320
   font_bold 500
   font_size 500,14
   caption 500,"Choix de la police de caractère et du numéro de police :"
combo 510
   parent 510,400
   left 510,40
   top 510,350
   width 510,250
   font_bold 510
   font_size 510,24
   item_add 510,"Arial"
   item_add 510,"Symbol"
   item_add 510,"Webdings"
   item_add 510,"Wingdings"
   item_add 510,"Wingdings 2"
   item_add 510,"Wingdings 3"
   on_click 510,clic
button 515
   parent 515,400
   left 515,310
   top 515,350
   width 515,100
   height 515,50
   font_bold 515
   font_size 515,14
   caption 515,"Voir 1"
   on_click 515,clic
   inactive 515
button 517
   parent 517,400
   left 517,430
   top 517,350
   width 517,100
   height 517,50
   font_bold 517
   font_size 517,14
   caption 517,"Voir 2"
   on_click 517,clic
   inactive 517
alpha 520
   parent 520,400
   left 520,1000
   top 520,280
   font_bold 520
   font_size 520,14
   font_color 520,0,0,255
   caption 520,"Police choisie :"
alpha 525
   parent 525,400
   left 525,950
   top 525,275
   font_size 525,25
   font_color 525,255,0,0
   font_name 525,"Webdings"
   caption 525,chr$(110)
alpha 530
   parent 530,400
   left 530,1020
   top 530,310
   font_bold 530
   font_size 530,14
   font_color 530,255,0,0
alpha 540
   parent 540,400
   left 540,1000
   top 540,340
   font_bold 540
   font_size 540,14
   font_color 540,0,0,255
   caption 540,"Numéro de police :"
alpha 545
   parent 545,400
   left 545,950
   top 545,335
   font_size 545,25
   font_color 545,255,0,0
   font_name 545,"Webdings"
   caption 545,chr$(110)
alpha 550
   parent 550,400
   left 550,1020
   top 550,370
   font_bold 550
   font_size 550,14
   font_color 550,255,0,0
alpha 560
   parent 560,400
   left 560,1220
   top 560,340
   font_size 560,40
   font_color 560,255,0,0

' Détermination du répertoire et de l'adresse exacte du programme
alpha 570
   parent 570,400
   left 570,20
   top 570,460
   font_bold 570
   font_size 570,14
   caption 570,"Détermination du répertoire et de l'adresse exacte du programme :"                      
button 580
   parent 580,400
   left 580,40
   top 580,490
   width 580,580
   height 580,50
   font_bold 580
   font_size 580,14
   caption 580,"Parcourir la mémoire à la recherche du programme"
   on_click 580,clic
alpha 590
   parent 590,400
   left 590,50
   top 590,552
   font_bold 590
   font_size 590,14
   font_color 590,0,0,255
   caption 590,"Chemin du programme :"
alpha 595
   parent 595,400
   left 595,5
   top 595,542
   font_size 595,25
   font_color 595,255,0,0
   font_name 595,"Webdings"
   caption 595,chr$(110)
alpha 600
   parent 600,400
   left 600,5
   top 600,577
   font_size 600,10
   font_color 600,255,0,0  
alpha 610
   parent 610,400
   left 610,50
   top 610,605
   font_bold 610
   font_size 610,14
   font_color 610,0,0,255
   caption 610,"Nom complet du programme :"
alpha 615
   parent 615,400
   left 615,5
   top 615,595
   font_size 615,25
   font_color 615,255,0,0
   font_name 615,"Webdings"
   caption 615,chr$(110)
alpha 620
   parent 620,400
   left 620,5
   top 620,630
   font_size 620,10
   font_color 620,255,0,0
  
' Bouton d'ajout d'une donnée du panneau d'ajout
alpha 625
   parent 625,400
   left 625,870
   top 625,460
   font_size 625,100
   font_color 625,255,0,0
   font_name 625,"Wingdings 3"
   caption 625,chr$(198)
   hide 625
button 630
   parent 630,400
   left 630,1000
   top 630,490
   width 630,280
   height 630,80
   font_bold 630
   font_size 630,24
   caption 630,"Ajouter"
   on_click 630,clic
   inactive 630
  
' Détermination de la couleur du logo
alpha 640
   parent 640,400
   left 640,630
   top 640,320
   font_bold 640
   font_size 640,14
   caption 640,"Choix de la couleur du Logo :"
option 645
   parent 645,400
   left 645,600
   top 645,350
   width 645,20
   on_click 645,clic
alpha 650
   parent 650,400
   left 650,625
   top 650,350
   caption 650,"Rouge"
track_bar 660
   parent 660,400
   left 660,660
   top 660,347
   width 660,250
   max 660,255
   on_change 660,change
option 665
   parent 665,400
   left 665,600
   top 665,385
   width 665,20
   on_click 665,clic
alpha 670
   parent 670,400
   left 670,635
   top 670,385
   caption 670,"Vert"
track_bar 680
   parent 680,400
   left 680,660
   top 680,382
   width 680,250
   max 680,255
   on_change 680,change
option 685
   parent 685,400
   left 685,600
   top 685,420
   width 685,20
   on_click 685,clic
alpha 690
   parent 690,400
   left 690,635
   top 690,420
   caption 690,"Bleu"
track_bar 700
   parent 700,400
   left 700,660
   top 700,417
   width 700,250
   max 700,255
   on_change 700,change
alpha 710
   parent 710,400
   left 710,912
   top 710,350
   font_color 710,255,0,0
   caption 710,"0"
alpha 720
   parent 720,400
   left 720,912
   top 720,385
   font_color 720,255,0,0
   caption 720,"0"
alpha 730
   parent 730,400
   left 730,912
   top 730,420
   font_color 730,255,0,0
   caption 730,"0"      
alpha 740
   parent 740,400
   left 740,1000
   top 740,400
   font_bold 740
   font_size 740,14
   font_color 740,0,0,255
   caption 740,"Couleur du Logo :"
picture 750
   parent 750,400
   left 750,1190
   top 750,406
   width 750,115
   height 750,65
   color 750,0,0,0
button 760
   parent 760,400
   left 760,1000
   top 760,430
   width 760,170
   height 760,42
   font_bold 760
   font_size 760,14
   caption 760,"Voir la couleur"
   on_click 760,clic
button 770
   parent 770,400
   left 770,670
   top 770,455
   width 770,80
   height 770,50
   font_size 770,24
   font_name 770,"Wingdings 3"
   caption 770,chr$(116)
   on_click 770,clic
   inactive 770
button 780
   parent 780,400
   left 780,760
   top 780,455
   width 780,80
   height 780,50
   font_size 780,24
   font_name 780,"Wingdings 3"
   caption 780,chr$(117)
   on_click 780,clic
   inactive 780
  
' Tableau de choix du caractère de la poilce choisie
grid 800
   hide 800
   parent 800,400
   left 800,8
   width 800,1315
   height 800,640
   grid_column_fixed 800,0
   grid_column 800,16
   grid_column_width 800,81
   grid_row_fixed 800, 0
   grid_row 800,7
   grid_row_height 800,90
   font_size 800,58
   on_click 800,clic
      
rem 1000 est utilisé pour l`open-dialog                

end : ' =======================================================================

aide: : rem Explications sur le fonctionnement du programme ===================
   application_title "   Aide du programme MENU"
   a$="Format de l'inclusion de fichiers :"+chr$(13)
   a$=a$+"- Numéro du fichier sur l'écran du programme menu"+chr$(13)
   a$=a$+"- Nom du fichier tel qu'il sera affiché à l'écran"+chr$(13)
   a$=a$+"- Police où se trouve l'image choisie pour le figurer"+chr$(13)
   a$=a$+"- Numéro de l'image choisie dans la police correspondante"+chr$(13)
   a$=a$+"- Quantité de couleur rouge intégrée au Logo"+chr$(13)
   a$=a$+"- Quantité de couleur vertes intégrée au Logo"+chr$(13)
   a$=a$+"- Quantité de couleur bleu intégrée au Logo"+chr$(13)
   a$=a$+"- Chemin du fichier pour le fonctionnement ultérieur du pg"+chr$(13)
   a$=a$+"- Nom long du fichier à appeler."+chr$(13)+chr$(13)
   a$=a$+"NOTA: les numéros des emplacements à l'écran vont de 1 à 60"+chr$(13)
   a$=a$+"             de gauche à droite et de haut en bas."
   message a$
return

ajout: : rem Ajout d`une donnée nouvelle ======================================
   if show(400)=0
      show 400
      caption 11,"Sortir"
   else
      hide 400
      caption 11,"Ajout"
      dir_change cd$
   end_if
return

sub ajouter() : rem Ajouter un programme à la liste ===========================
   item_add 300,caption$(450)
   item_add 300,caption$(490)
   item_add 300,caption$(530)
   item_add 300,caption$(550)
   item_add 300,caption$(710)
   item_add 300,caption$(720)
   item_add 300,caption$(730)
   item_add 300,caption$(600)
   item_add 300,caption$(620)
   dir_change cd$
   file_save 300,"Menu-fichier.txm"
   beep
   text 430,""
   caption 450,""
   text 470,""
   caption 490,""
   text 510,""
   inactive 515
   inactive 517
   caption 530,""
   caption 550,""
   position 660,0
   position 680,0
   position 700,0
   caption 710,"0"
   caption 720,"0"
   caption 730,"0"
   color 750,0,0,0
   hide 625
   inactive 630
   caption 600,""
   caption 620,""
   show 445
   show 485
   show 525
   show 545
   show 595
   show 615
   mark_off 645
   mark_off 665
   mark_off 685
   inactive 770
   inactive 780
   caption 560,""
   remplir()
end_sub

sub avance() : rem Avancer le bouton du track-bar de 10 =======================
   dim_local v1av% , v2av%
   for v1av% = 645 to 685 step 20
      if checked(v1av%)=1
         v2av%=v1av%+15
      end_if
   next v1av%
   if position(v2av%)<246
      position v2av%,position(v2av%)+10
   end_if
end_sub

sub caract() : rem Caractère choisi dans la police ============================
   dim_local xca% , yca% , v1ca%
   xca%=int(mouse_x_position(800)/82.18)+1
   yca%=int(mouse_y_position(800)/91.43)+1
   v1ca%=(yca%-1)*16+xca%+31+NGA%*112
   caption 550,v1ca%
   font_name 560,caption$(530)
   caption 560,chr$(val(caption$(550)))
   hide 800
   hide 545
end_sub

change: : rem Gestion de tous les on-change ===================================
   select number_change
      case 470
         caption 490,text$(470)
         if caption$(490)<>""
            hide 485
         else
            show 485
         end_if
         detect()
      case 660 : caption 710,position(660)
      case 680 : caption 720,position(680)
      case 700 : caption 730,position(700)
   end_select
return

sub chemin() : rem Repérage du chemin du programme ============================
   dim_local v1ch$ , v2ch$ , v3ch%
   open_dialog 1000
      v1ch$=file_name$(1000)
      if v1ch$<>"" and v1ch$<>"_"
         caption 620,v1ch$
         v2ch$=reverse$(v1ch$)
         v3ch%=instr(v2ch$,"\")
         caption 600,left$(v1ch$,len(v1ch$)-v3ch%+1)
         hide 595
         hide 615
      end_if
   delete 1000
end_sub

clic: : rem Regroupement de tous les on-click =================================
   select number_click
      case 430 : caption 450,text$(430) : hide 445 : detect()
      case 510 : caption 530,text$(510) : active 515 : active 517 : hide 525 : detect()
      case 515 : police() : detect()
      case 517 : police() : detect()
      case 580 : chemin() : detect()
      case 630 : ajouter()
      case 645 : active 770 : active 780
      case 665 : active 770 : active 780
      case 685 : active 770 : active 780
      case 760 : color 750,position(660),position(680),position(700)
      case 770 : recule()
      case 780 : avance()
      case 800 : caract()
   end_select
return

sub detect() : rem Le programme détecte si la bouton Ajouter est à activer ====
   if caption$(450)<>""
      if caption$(490)<>""
         if caption$(530)<>""
            if caption$(550)<>""
               if caption$(600)<>""
                  if caption$(620)<>""
                     active 630
                     show 625
                  end_if
               end_if
            end_if
         end_if
      end_if
   end_if
end_sub

go: : rem Lancé d`une application =============================================
   j%=number_click
   j%=(j%/2)-9
   a%=0
   if count(300)>0
      for i%=1 to count(300) step 9
         if item_read$(300,i%)=str$(j%)
            a%=i%
            exit_for
         end_if
      next i%
   end_if
   if a%>0
      dir_change item_read$(300,a%+7)
      execute item_read$(300,a%+8)
   end_if
return

modif: : rem Système de modification des données entrées ======================
   if show(300)=0
      show 300
      caption 12,"Enregistrer et sortir"
   else
      hide 300
      caption 12,"Réglages"
      dir_change cd$
      file_save 300,"Menu-fichier.txm"
   end_if
return

sub police() : rem Affichage des grilles de caractère de police ===============
   dim_local v1po% , v2po% , v3po%
   if number_click=515
      v1po%=32 : NGA%=0
   else
      v1po%=144 : NGA%=1
   end_if
   font_name 800,text$(510)
   for v2po% = 1 to 7
      for v3po% = 1 to 16
         grid_write 800,v2po%,v3po%,chr$((v2po%-1)*16+(v3po%-1+v1po%))
      next v3po%
   next v2po%
   show 800
end_sub

sub recule() : rem Recule le bouton du track-bar de 10 ========================
   dim_local v1re% , v2re%
   for v1re% = 645 to 685 step 20
      if checked(v1re%)=1
         v2re%=v1re%+15
      end_if
   next v1re%
   if position(v2re%)>9
      position v2re%,position(v2re%)-10
   end_if
end_sub

sub remplir() : rem Remplir le combo des numéros disponibles ==================
   dim_local v1re% , v2re% , v3re%
   clear 5
   clear 430
   if count(300)>0
      for v1re% = 1 to count(300) step 9
         item_add 5,item_read$(300,v1re%)
      next v1re%
   end_if
   for v1re% = 1 to 60
      v3re%=0
      if count(5)>0
         for v2re% = 1 to count(5)
            if str$(v1re%)=item_read$(5,v2re%)
               v3re%=1
               exit_for
            end_if
         next v2re%
         if v3re%=0
            item_add 430,v1re%
         end_if
      else
         item_add 430,v1re%
      end_if
   next v1re%
end_sub

sub chemin() : rem Repérage du chemin du programme ============================
  dim_local v1ch$ , v2ch$ , v3ch%
  open_dialog 1000
      v1ch$=file_name$(1000)
      if v1ch$<>"" and v1ch$<>"_"
        caption 620,v1ch$
        v2ch$=reverse$(v1ch$)
        v3ch%=instr(v2ch$,"\")
        caption 600,left$(v1ch$,len(v1ch$)-v3ch%+1)
        hide 595
        hide 615
      end_if
  delete 1000
end_sub

v2ch$ = file_extract_path$(v1ch$)

sub chemin() : rem Repérage du chemin du programme ============================
   dim_local v1ch$ , v2ch$
   open_dialog 1000
      v1ch$=file_name$(1000)
      if v1ch$<>"" and v1ch$<>"_"
         caption 620,v1ch$
         v2ch$ = file_extract_path$(v1ch$)
         caption 600,v2ch$
         hide 595
         hide 615
      end_if
   delete 1000
end_sub