Faire une liste

label nouveau,appliquer,imprimer,normal,verif
label add,ok,plus,trier,dialog,lignedelete
dim a$,is_plus,is_tri,NomFichier$,list$

is_plus=0
is_tri=0

left 0,250
top 0,150
width 0,388
height 0,350
caption 0,"Créé une Liste"

button 3
left 3,270
top 3,170
width 3,100
caption 3,"Nouvelle Liste"
font_bold 3
on_click 3,nouveau

button 13
left 13,270
top 13,110
width 13,100
caption 13,"&Imprimer"
on_click  13,imprimer

button 16
left 16,270
top 16,140
width 16,100
caption 16,"Plus >>"
font_bold 16
on_click 16,plus

list 4
left 4,10
top 4,10
height 4,200
width 4,250
on_click 4,verif

button 5
left 5,270
top 5,15
width 5,100
caption 5,"Ajouter un Item"
hint 5,"Cliquer ici pour ajouter un item à la liste"
on_click 5,add

button 6
left 6,270
top 6,45
width 6,100
caption 6,"Supprimer un Item"
inactive 6
hint 6,"Cliquer ici pour supprimer l'item selectionner"
on_click 6,lignedelete

edit 1
top 1,220
left 1,120
width 1,70
text 1,"250"

alpha 7
left 7,15
top 7,222
caption 7,"Largeur de la liste :"

edit 8
top 8,250
left 8,120
width 8,70
text 8,"200"

alpha 9
left 9,15
top 9,252
caption 9,"Hauteur de la liste :"

button 10
left 10,30
top 10,280
width 10,150
caption 10,"Appliquer"
on_click 10,appliquer

button 22
left 22,185
top 22,280
width 22,100
caption 22,"Normal"
hint 22,"Taille Normal de la Liste : 250x200"
on_click 22,normal

alpha 11
top 11,222
left 11,200
caption 11,"pixels"

alpha 12
top 12,252
left 12,200
caption 12,"pixels"

rem invisible ---------------------------------------------------

edit 14:hide 14:left 14,30:width 14,300:top 14,250
text 14,"Entrer votre texte"

button 15:hide 15:left 15,90:width 15,150:top 15,275
caption 15,"OK":on_click 15,ok

rem -------------------------------------------------------------

button 17:hide 17:top 17,25:left 17,403:width 17,85
caption 17,"Ouvrir...":on_click 17,dialog
button 19:hide 19:top 19,55:left 19,403:width 19,85
caption 19,"Enregistrer...":on_click 19,dialog

button 18:hide 18:top 18,100:left 18,403:width 18,85
caption 18,"Trier par Noms":on_click 18,trier

alpha 23:hide 23:left 23,360:top 23,210
caption 23,"Nombre de ligne(s)  :":font_size 23,10
alpha 24:hide 24:left 24,400:top 24,230
caption 24,""+str$(count(4)):font_size 24,12

alpha 25:hide 25:left 25,360:top 25,260
caption 25,"Ligne Selectionner  :":font_size 25,10
alpha 26:hide 26:left 26,400:top 26,280
caption 26,""+str$(item_index(4)):font_size 26,12

rem ouvrir le fichier au départ si c'est un fichier créé sur Windows

if param_number>0
  NomFichier$=param_value$(1)
  if (file_exists(NomFichier$)=1)
  file_load 4,NomFichier$
  end_if
end_if
if (file_exists(list$)=0)
  file_save 4,"Document Liste.list"
else
  rem rien ------------------------
end_if

end

nouveau:
clear 4:caption 24,""+str$(count(4)):caption 26,item_index(4)
caption 26,"- - - - - - -":left 26,390
return

appliquer:
if val(text$(1))<1 or val(text$(8))<1 then message "Un Nombre plus petit que 1 n'est pas valide...":return
if val(text$(1))>255 or val(text$(8))>205 then message "Un Nombre plus grand que 255 n'est pas valide..." :return
rem si cela est correcte il va faire ça ------------------------------------------------------
width 4,text$(1)
height 4,text$(8)
return

imprimer:
a$="C:\Temp\"
dir_change a$
file_save 4,"C:\Temp\liste.txt"
execute "Write.exe /p C:\Temp\liste.txt"
wait 1000
file_delete "liste.txt"
return

add:
hide 7:hide 9:hide 1:hide 8:hide 11:hide 12:hide 10:hide 22
show 14:show 15
return

ok:
item_add 4,text$(14)
hide 14:hide 15:caption 24,""+str$(count(4))
show 7:show 9:show 1:show 8:show 11:show 12:show 10:show 22
return

plus:
if (is_plus=0)
  width 0,500:caption 16,"<< Moins"
  show 17:show 18:show 19:show 23:show 24:show 25:show 26
  if item_index(4)=0 then caption 26,"- - - - - - -":left 26,390
  is_plus=1
else
  hide 17:hide 18:hide 19:hide 23:hide 24:hide 25:hide 26
  width 0,388:caption 16,"Plus >>"
  is_plus=0
end_if
return

trier:
if (is_tri=0)
  caption 18,"<< Inverser >>":font_bold 18
  sort_on 4
  is_tri=1
else
  caption 18,"Trier par Noms":font_bold_off 18
  sort_off 4
  is_tri=0
end_if
return

dialog:
if clicked(19)=1
  save_dialog 21
  filter 21,"Fichiers Liste (*.list)|*.list|Tous les fichiers|*.*"
  NomFichier$=file_name$(21)
  delete 21
  file_save 4,NomFichier$
end_if
if clicked(17)=1
  open_dialog 20
  filter 20,"Fichiers Liste (*.list)|*.list|Tous les fichiers|*.*"
  NomFichier$=file_name$(20)
  file_load 4,NomFichier$
  caption 24,""+str$(count(4))
  delete 20
end_if
return

lignedelete:
item_delete 4,item_index(4):inactive 6
caption 24,""+str$(count(4)):caption 26,item_index(4)
if count(4)=0 then inactive 6
caption 26,"- - - - - - -":left 26,390
return

normal:
width 4,250
height 4,200
return

verif:
if count(4)=0
  inactive 6
  caption 26,item_index(4):left 26,390:caption 26,"- - - - - - -"
else
  active 6
  caption 26,item_index(4):left 26,400
end_if
return