version instantanée du 6 novembre 2009

dim dossier$,boite%,ligne%,a$,onglet% ,a%,PrimOnglet%,NbOnglet% ,DernierOnglet%,LigOnglet%,suivre%
dim ongletclic% , Wxz% ,sauve% ,table% ,decale%
label DeCadix ,lecture,sauve,save,load,rajouOnglet,choixFichier,choisir,fin ,vu
left 0,550:top 0,10:width 0,680:height 0,720 :color 0,210,230,210 :rem border_hide 0
' ========================
Wxz%=1  :rem valeur à adapter, mettre MultiPage à la suite des autres objets
PrimOnglet%=Wxz%+20
' ======================== je retires les 2 objets les codages ne sont faits
  rem picture Wxz%+1:left Wxz%+1,52:top Wxz%+1,22:width Wxz%+1,23:height Wxz%+1,23
 rem  file_load Wxz%+1,"SCRLLEFT.bmp"
 
 rem  picture Wxz%+2:top Wxz%+2,22:width Wxz%+2,23:height Wxz%+2,23
  rem file_load Wxz%+2,"SCRLRGHT.bmp"
' --------------------------------------------------------------------
    button Wxz%+5:left Wxz%+5,10:top Wxz%+5,0:width Wxz%+5,40:height Wxz%+5,15
    caption Wxz%+5,"Stop" :on_click Wxz%+5,fin
open_dialog Wxz%+6
' --------------------------------------------------------------------
rem list pour remplacer les onglets verticaux le main_menu et sub_menu ne faisait pas le branchement
  list Wxz%+7:left Wxz%+7,100 :top Wxz%+7,.:width Wxz%+7,250
  height Wxz%+7,20:color Wxz%+7,210,230,210:font_size Wxz%+7,11
  font_bold Wxz%+7:font_color Wxz%+7,0,0,255
  item_add Wxz%+7,"ONGLET PRINCIPAL1":item_add Wxz%+7,"ONGLET SUIVANT"
' --------------------------------------------------------------------
  alpha Wxz%+9:left Wxz%+9,10:top Wxz%+9,25:caption Wxz%+9,"Menu":font_bold Wxz%+9
  on_click Wxz%+9,choisir
LigOnglet%=0
' --------------------------------------------------------------------
memo Wxz%:left Wxz%,10:top Wxz%,40:width Wxz%,650:height Wxz%,632
color Wxz%,230,250,155 :font_size Wxz%,14 :bar_vertical Wxz%
left Wxz%+2,width(Wxz%)-18
 ' -------------------------------------------------------------------
suivre%= PrimOnglet%+NbOnglet%
dlist PrimOnglet%                      :rem titres onglets
gosub rajouOnglet
spin 20:on_click 20,vu :left 20,500

'  ============            =============           

end
'


vu:

return

choisir:
  rem    12:lecture - 13:sauve - 14:new Onglet - 15:fichier
  if table%=0
      list Wxz%+11:left Wxz%+11,15:top Wxz%+11,35:width Wxz%+11,130:height Wxz%+11,110
      table%=1
      ' ici mettre une variable pour valider l'ouverture et continuer
      font_size Wxz%+11,12:font_bold Wxz%+11
      item_add Wxz%+11,"Lecture":item_add Wxz%+11,"Sauve"
      item_add Wxz%+11,"Nouvel onglet"
      item_add Wxz%+11,"Fichier ?"
      item_add Wxz%+11,"annulation"
      if file_exists("existance fiches.txt")=1 and file_exists("titre onglets.fic")=0

        item_add Wxz%+11,"déblocage 1er fichier":rem pas vraiment codé
      end_if
 
      rem on_click Wxz%+11,
      repeat
        ligne%=item_index (Wxz%+11)
      until clicked(Wxz%+11)=1
      delete Wxz%+11 :table%=0
      select ligne%
        case 1: goto load
        case 2: goto save
        case 3: goto rajouOnglet
        case 4: goto choixFichier
      end_select
  end_if
return
' --------------------------------------------------------------
choixFichier:
  filter Wxz%+6,"chercher le fichier|existance fiches.txt"
  dossier$=file_name$(Wxz%+6)
return
' --------------------------------------------------------------

' ===============================================
DeCadix:
  for a%=PrimOnglet%+1 to PrimOnglet%+ DernierOnglet%*2-1  step 2
    if clicked(a%)=1 then exit_for
  next a%
  ongletclic%=a% :if onglet%=0 then onglet%=a%
  color onglet%,251,223,211:font_color onglet%,0,0,0:font_bold_off onglet%
  gosub sauve
  onglet%=ongletclic%:color onglet%,230,250,155:font_color onglet%,255,0,0:font_bold onglet%  :rem celui du mémo
  gosub lecture :set_focus Wxz%
 return
' --------------------------------------------------------------
sauve:
  rem message "sauve, onglet%="+str$(onglet%) +"  PrimOnglet%="+str$(PrimOnglet%)
  color Wxz%,251,186,159:display:wait 100
  height onglet%,19
  ' -------------------- on prend le titre de chaque vignette =>> dlist
  clear PrimOnglet%
  for a%=1 to (NbOnglet%-1)*2 step 2
      a$=text$(PrimOnglet%+a%)
      item_add PrimOnglet%,a$
  next a%

  ' -------------------- on transmet le memo dans dlist
  clear onglet%+1:ligne%=1
  if count(Wxz%)>0
      while ligne%<=count(Wxz%)
      a$=item_read$(Wxz%,ligne%):item_add onglet%+1,a$
      ligne%=ligne%+1
      end_while
  end_if
  clear Wxz%
return
' --------------------------------------------------------------
lecture:
  rem message DernierOnglet%
  rem for a%=PrimOnglet%
  color onglet%,251,223,211:font_color ongletclic%,0,0,0:font_bold_off onglet%
  wait 50:clear Wxz% :wait 50
  if count(onglet%+1)>0
      font_size Wxz%,14:ligne%=1
      while ligne%<= count(onglet%+1)
        a$=item_read$(onglet%+1,ligne%)
        item_add Wxz%,a$
        ligne%=ligne%+1
      end_while
      sauve%=1
  end_if
  height onglet%,22 :font_color onglet%,255,0,0:color onglet%, 230,250,155:font_bold onglet%
  color Wxz%,230,250,155
return
' --------------------------------------------------------------
save:
gosub sauve
rem message "save"
sauve%=1
if sauve%=1
  rem caption Wxz%+2,"sauve"
  color Wxz%,251,186,159:display:wait 100
  for a%=1 to DernierOnglet%
      a$="onglet "+str$(a%)+".fic"
      file_save a%*2 + PrimOnglet%, a$
  next a%
  clear PrimOnglet%
  for a%=PrimOnglet%+1 to PrimOnglet%+(nbOnglet%-1)*2 step 2:item_add PrimOnglet%,text$(a%):next a%
  item_add PrimOnglet%,"$$$"
  file_save PrimOnglet%,"titre onglets.fic"
  rem caption Wxz%+2,"sauvegarde"
  color Wxz%,230,250,155 :goto lecture
end_if
return
' --------------------------------------------------------------
load:
color Wxz%,251,186,159:display:wait 100
rem caption Wxz%+1,"lire"
clear PrimOnglet%:color Wxz%,230,250,155
onglet%=PrimOnglet%+1: height onglet%,23
ligne%=1
while file_exists("onglet "+str$(ligne%)+".fic")=1
  a$="onglet " + str$(ligne%) + ".fic"
  if ligne%>DernierOnglet% then gosub rajouOnglet
  if file_exists("onglet "+str$(ligne%)+".fic")=0 then exit_while
  file_load  ligne%*2 + PrimOnglet% ,a$
  ligne%=ligne%+1
end_while
file_load PrimOnglet%,"titre onglets.fic"
  if count(PrimOnglet%)>0
      ligne%=1 :ligOnglet%=1
      while ligne%<= count(PrimOnglet%)
        a$=item_read$(PrimOnglet%,ligne%)
        if a$="$$$" then exit_while
        text PrimOnglet%+ligOnglet%,a$
        ligne%=ligne%+1 :ligOnglet%=ligOnglet%+2
        if ligne%>DernierOnglet% then exit_while
      end_while
  end_if
  gosub lecture  : boite%=PrimOnglet%+2
rem  caption Wxz%+1,"lecture"  : active Wxz%+2
  color Wxz%,230,250,155
return
' --------------------------------------------------------------
rajouOnglet:

  suivre%=suivre%+1
  edit suivre%:left suivre%,140-70+DernierOnglet%*70:top suivre%,22:width suivre%,70
  height suivre%,22:color suivre%,251,223,211
  font_color suivre%,0,0,0: on_click suivre%,DeCadix
  ' -------------------
      suivre%=suivre%+1
  dlist suivre%:NbOnglet%=NbOnglet%+1
  DernierOnglet%=DernierOnglet%+1
return
' -------------------------------------------------------------
fin:
 terminate

width 0,250:height 0,150:caption 0,"PIXELS..."
alpha 1:left 1,20:top 1,15:font_size 1,10
caption 1,"Largeur de l'écran  :  "+str$(screen_x)+" Pixels"
alpha 2:left 2,20:top 2,40:font_size 2,10
caption 2,"Hauteur de l'écran  :  "+str$(screen_y)+" Pixels"
alpha 3:left 3,25:top 3,70:font_size 3,10:font_bold 3
caption 3,"Total de pixels :  "+str$(screen_x*screen_y)

label suit
width 0,250:height 0,150:caption 0,"PIXELS...":on_key_up 0,suit
alpha 1:left 1,20:top 1,15:font_size 1,10
caption 1,"Largeur de l'écran  :  "+str$(screen_x)+" Pixels"
alpha 2:left 2,20:top 2,40:font_size 2,10
caption 2,"Hauteur de l'écran  :  "+str$(screen_y)+" Pixels"
alpha 3:left 3,25:top 3,70:font_size 3,10:font_bold 3
caption 3,"Total de pixels :  "+str$(screen_x*screen_y)

end
suit:
if key_up_code=39 then hide 3:height 0,120
if key_up_code=37 then show 3:height 0,150
return