FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  RechercherRechercher  Dernières imagesDernières images  S'enregistrerS'enregistrer  MembresMembres  Connexion  
Derniers sujets
» Logiciel de planétarium.
Panoramic Project Emptypar Pedro Aujourd'hui à 10:37

» Un autre pense-bête...
Panoramic Project Emptypar Froggy One Jeu 21 Nov 2024 - 15:54

» Récupération du contenu d'une page html.
Panoramic Project Emptypar Pedro Sam 16 Nov 2024 - 14:04

» Décompilation
Panoramic Project Emptypar JL35 Mar 12 Nov 2024 - 19:57

» Un album photos comme du temps des grands-mères
Panoramic Project Emptypar jjn4 Mar 12 Nov 2024 - 17:23

» traitement d'une feuille excel
Panoramic Project Emptypar jjn4 Jeu 7 Nov 2024 - 3:52

» Aide-mémoire mensuel
Panoramic Project Emptypar jjn4 Lun 4 Nov 2024 - 18:56

» Des incomprèhension avec Timer
Panoramic Project Emptypar Klaus Mer 30 Oct 2024 - 18:26

» KGF_dll - nouvelles versions
Panoramic Project Emptypar Klaus Mar 29 Oct 2024 - 17:58

» instructions panoramic
Panoramic Project Emptypar maelilou Lun 28 Oct 2024 - 19:51

» Figures fractales
Panoramic Project Emptypar Marc Ven 25 Oct 2024 - 12:18

» Panoramic et Scanette
Panoramic Project Emptypar Yannick Mer 25 Sep 2024 - 22:16

» Editeur d étiquette avec QR évolutif
Panoramic Project Emptypar JL35 Lun 23 Sep 2024 - 22:40

» BUG QR Code DelphiZXingQRCode
Panoramic Project Emptypar Yannick Dim 22 Sep 2024 - 11:40

» fichier.exe
Panoramic Project Emptypar leclode Ven 20 Sep 2024 - 19:02

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier
Le Deal du moment : -40%
(CDAV) Machine à pâtes Philips 7000 ...
Voir le deal
148.88 €

 

 Panoramic Project

Aller en bas 
2 participants
AuteurMessage
Yannick




Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010

Panoramic Project Empty
MessageSujet: Panoramic Project   Panoramic Project EmptyJeu 10 Mar 2016 - 6:26

J' ai honte mais je l' avoue, avec tous les travaux que nous avons mené pour la création d' un nouvel éditeur,
je me sers encore de Panoramic Editor. Embarassed

Je ne sais pas si je suis le seul mais pour mieux m' y retrouver dans mes programmes en construction, 
j' utilise plusieurs fichiers ( MAIN, DEC, INI, GUI, MEN, FCT) et j' ai une légère tendance à en mettre de partout (des progs Laughing ).
Alors, je me suis fait une appli qui me déleste de certaines tâches répétitives.
Le prog est un peu long car il embarque tout.

Pour les testeurs ou les curieux, il suffit "normalement" d' enregistrer le code dans un dossier que vous placez
ou vous voulez du moment que vous avez les droits en écriture. Pour moi, "C:\" mais le bureau peut faire l' affaire...

Code:
hide 0
variables()
labels()
init()
gui()
show 0
end

' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' DECLARATIONS
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

sub variables()
  dim_local i%
' -> dossiers et fichiers externes
  dim Path$        : Path$= dir_current$
  if right$(Path$,1)="\" : Path$=left$(Path$,len(Path$)-1) : end_if
  Path$ = Path$+"\"
  dim kgf$        : kgf$        = Path$+"KGF.dll"
  dim ProjectPath$ : ProjectPath$ = Path$+"Projets"
  dim Param$      : Param$      = Path$+"Param.inf"
  dim ImgL$        : ImgL$        = Path$+"Ico.ilb"
' -> objets Panoramic
  dim no%
  dim alph%(10)    : for i%=1 to 10 : no%=no%+1 : alph%(i%)=no% : next i%
  dim PName%      : no%=no%+1 : PName%=no%
  dim PDest%      : no%=no%+1 : PDest%=no%
  dim Pview%      : no%=no%+1 : Pview%=no%
  dim Cont%        : no%=no%+1 : Cont%=no%
  dim opt1%        : no%=no%+1 : opt1%=no%
  dim opt2%        : no%=no%+1 : opt2%=no%
  dim PDestSearch% : no%=no%+1 : PDestSearch%=no%
  dim PCreate%    : no%=no%+1 : PCreate%=no%
  dim Temp%        : no%=no%+1 : Temp%=no%
  dim PEP%        : no%=no%+1 : PEP%=no%
  dim PEPedit%    : no%=no%+1 : PEPedit%=no%
  dim FBOW%        : no%=no%+1 : FBOW%=no%
  dim F_OpenR%    : no%=no%+1 : F_OpenR%=no%
  dim OPENDIAL%    : no%=no%+1 : OPENDIAL%=no%
  dim F_OPENW%    : no%=no%+1 : F_OPENW%=no%
' -> objets kgf
  dim TV%
' -> variables projet
  dim ProjectName$
  dim ProjectDest$
  dim ProjectDll%
  dim v_info%
end_sub

sub labels()
  label clic,change,fin,close0
end_sub

' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' INITIALISATIONS
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

sub init()
  if file_exists(kgf$)=0
      if file_exists(Param$)=1
        file_open_read F_OpenR%,Param$
        file_readln F_OpenR%,KGF$
        file_close F_OpenR%
      else
        SearchDll()
      end_if
  end_if
  dll_on kgf$
  if dir_exists(ProjectPath$)=0 : dir_make ProjectPath$ : end_if
  if file_exists(ImgL$)=0 : CreateImageListLibrary() : end_if
end_sub

' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' INTERFACE UTILISATEUR
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

' ---------- FORM PRINCIPAL ----------------------------------------------------

sub gui()
  height 0,210
  width 0,400
  top 0,(screen_y-height(0))/2
  left 0,(screen_x-width(0))/2
  font_name 0,"arial"
  font_size 0,8
  caption 0,"Panoramic Project"
  on_close 0,close0
 
  alpha alph%(1)
  top alph%(1),10
  left alph%(1),10
  caption alph%(1),"Nom du projet"
 
  Edit PName%
  top PName%,25
  left PName%,10
  width PName%,200
  font_color PName%,0,0,200
  on_change PName%,change
 
  Button Pview%
  top Pview%,24
  left Pview%,215
  height Pview%,21
  width Pview%,21
  font_name Pview%,"webdings"
  font_size Pview%,12
  caption Pview%,"i"
  cursor_point Pview%
  on_click Pview%,clic
  hint Pview%,"Visualiser la liste des projets..."+chr$(13)+"( dossier 'Projets' par defaut )"
 
  alpha alph%(2)
  top alph%(2),50
  left alph%(2),10
  caption alph%(2),"Destination"
 
  Edit PDest%
  top PDest%,65
  left PDest%,10
  width PDest%,340
  text PDest%,ProjectPath$
  color PDest%,200,200,200
  font_color Pdest%,90,90,90
 
  button PDestSearch%
  top PDestSearch%,64
  left PDestSearch%,350
  height PDestSearch%,21
  width PDestSearch%,30
  caption PDestSearch%,"...\..."
  cursor_point PDestSearch%
  on_click PDestSearch%,clic
  hint PDestSearch%,"Changer le dossier de destination..."
 
  container_option cont%
  top cont%,90
  left cont%,10
  height cont%,50
  width cont%,width(0)-30
  caption cont%,"  KGF.dll  "
 
  option opt1%
  parent opt1%,cont%
  top opt1%,20
  left opt1%,10
  caption opt1%,"Oui"
 
  option opt2%
  parent opt2%,cont%
  top opt2%,20
  left opt2%,100
  caption opt2%,"Non"
 
  Button PCreate%
  top PCreate%,145
  left PCreate%,width(0)-97
  caption PCreate%,"Créer"
  cursor_point PCreate%
  on_click PCreate%,clic
  hint PCreate%,"Créer le projet..."
 
  dlist temp%
end_sub

' ---------- FORM DE VISUALISATION DES PROJETS EXISTANTS -----------------------

sub PreviexExistingProjects()
  dim_local res%,m%
  m%=0-1
  if object_exists(PEP%)=1
      show PEP%
  else
      form PEP%
      height PEP%,height(0)
      width PEP%,300
      caption PEP%,"Liste des projets"

      edit PEPedit%
      parent PEPedit%,PEP%
      on_change PEPedit%,change
      hide PEPedit%

      TV% = dll_call3("CreateTreeViewEx",handle(PEP%),1,adr(ImgL$))
      res% = dll_call3("SetTreeViewEventReceiver",TV%,1,handle(PEPedit%))
      res% = dll_call5("ResizeTreeView",TV%,m%,m%,m%,m%)

  end_if
  top PEP%,top(0)
  left PEP%,left(0)+width(0)+5
  MajTV()

  res% = DLL_call2("WindowTopMost",handle(PEP%),1)
end_sub

' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' MENUS
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

' ---------- MENU CLIC ---------------------------------------------------------

clic:
  if number_click = PDestSearch%
      SearchDir(PDest%)
      color PDest%,255,255,255
      font_color Pdest%,0,0,200
      return
  end_if
  if number_click = PCreate%
      VerifInfo()
      if V_info%=0
        VerifFiles()
      end_if
      return
  end_if
  if number_click = Pview%
      PreviexExistingProjects()
      return
  end_if
return

' ---------- MENU CHANGE -------------------------------------------------------

change:
  if number_change = PEPedit%
      if left$(text$(PEPedit%),12)="double_click"
        OpenProject()
      end_if
      return
  end_if
  if number_change = PName%
      off_change PName%
      Rename()
      on_change PName%,change
  end_if
return

' ---------- ARRET DE L APPLICATION SI ABSENCE DE KGF --------------------------

fin:
  Terminate
return

' ---------- FERMETURE PAR LA CROIX --------------------------------------------

close0:
  Quitter()
return

' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' FONCTIONS
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

' ---------- RECHERCHE DE LA DLL -----------------------------------------------

sub SearchDll()
  dim_local f$,m0%,m1%,mes0$,mes1$

  mes0$="KGF.dll n' a pas été trouvé dans le dossier courant !"+chr$(13)
  mes0$=mes0$+"Si vous disposez de cette dll sur votre ordinateur, cliquez sur 'OK' pour indiquer son emplacement..."

  mes1$="Vous n' avez pas KGF.dll sur votre ordinateur."+chr$(13)
  mes1$=mes1$+"Voulez vous télécharger KGF.dll ?..."

  m0%=message_warning_yes_no(mes0$)
  if m0%=1
      open_dialog OPENDIAL%
      dir_dialog OPENDIAL%,"C:\"
      filter OPENDIAL%,"*.dll|*.dll"
      f$=file_name$(OPENDIAL%)
      delete OPENDIAL%

      if f$<>"_"
        KGF$=f$
        file_open_write F_OPENW%,PARAM$
        file_writeln F_OPENW%,KGF$
        file_close F_OPENW%
      else
        m1%=message_warning_ok(mes1$)
        gosub fin
      end_if
  else
      m1%=message_warning_yes_no(mes1$)
      if m1%=1
        WebFile_discret("http://klauspanoramic.comxa.com/versions/KGF.zip",Path$+"KGF.zip")
      else
        gosub fin
      end_if
  end_if
end_sub

' ---------- TELECHARGEMENT DE LA DLL ------------------------------------------

SUB WebFile_discret(url$,fr$)
  ' Télécharger dans fr$ la page web (fichier html) à l'adresse web url$ (méthode discrète)
  DIM_LOCAL pr$,vb$,q$,z$,res%
  if dir_exists("C:\WFD_Temp\")=0 then dir_make "C:\WFD_Temp\"
  z$  = fr$
  vb$ = "C:\WFD_Temp\Vb.vbs"
  q$  = CHR$(34)
  pr$ = "Powershell.exe (New-Object System.Net.WebClient).DownloadFile('"+url$+"'"+",'"+z$+"')"

  ' ===== Création du script .vbs =====
  FILE_OPEN_WRITE 9, vb$
  FILE_WRITELN 9,"CreateObject("+q$+"Wscript.Shell"+q$+").Run "+q$+pr$+q$+",0,True"
  FILE_CLOSE 9

  ' ===== Exécution du script =====
  EXECUTE_WAIT "WSCRIPT.exe "+vb$
  FILE_DELETE vb$
  DIR_REMOVE "C:\WFD_Temp\"
 
  archiver_on
  archiver_extract z$,Path$
  archiver_off
 
  dll_on kgf$
  res% = dll_call1("DeleteFileToRecycleBin",adr(z$))
  dll_off
END_SUB

' ---------- NORMALISATION DU NOM DU PROJET ------------------------------------

sub Rename()
  dim_local a$,p%
  p%=caret_position(PName%)
  if p%>0
      a$=right$(text$(PName%),1)
      if a$="é" : a$="e" : end_if
      if a$="è" : a$="e" : end_if
      if a$="ê" : a$="e" : end_if
      if a$="ë" : a$="e" : end_if
      if a$="â" : a$="a" : end_if
      if a$="à" : a$="a" : end_if
      if a$="ä" : a$="a" : end_if
      if a$="ù" : a$="u" : end_if
      if a$="ü" : a$="u" : end_if
      if a$=" " : a$="_" : end_if
      a$=left$(text$(PName%),len(text$(PName%))-1)+a$
      text PName%,a$
      caret_position PName%,p%
  end_if
end_sub

' ---------- RECHERCHE D UN DOSSIER DE DESTINATION POUR UN PROJET --------------

sub SearchDir(obj%)
  dim_local res%,racine$,dossier$
  racine$  = ":\"
  dossier$ = string$(255," ")
  res% = DLL_call4("FolderSelect",adr(racine$),adr(dossier$),len(dossier$),0)
  dossier$ = trim$(dossier$)
  text obj%,dossier$
end_sub

' ---------- MISE A JOUR DU TREEVIEW DES PROJETS -------------------------------

sub MajTV()
  dim_local ret%,a$,txt$
  ret% = dll_call1("ClearTreeView",TV%)
  txt$ = "Projets"
  ret% = dll_call4("AddTreeViewRootNode",TV%,adr(txt$),1,1)

  dir_change ProjectPath$
  a$=file_find_first$
  if instr(a$,".")=0
      ret% = dll_call3("SelectTreeViewNode",TV%,0,0)
      ret% = dll_call4("AddTreeViewChildNode",TV%,adr(a$),2,2)
  end_if
  a$=file_find_next$
  while a$<>"_"
      if instr(a$,".")=0
        ret% = dll_call3("SelectTreeViewNode",TV%,0,0)
        ret% = dll_call4("AddTreeViewChildNode",TV%,adr(a$),2,2)
      end_if
      a$=file_find_next$
  end_while
  file_find_close
  dir_change Path$
end_sub

' ---------- OUVERTURE D UN PROJET DEPUIS LE TREEVIEW --------------------------

sub OpenProject()
  dim res%,par$,d$,court$
  par$=string$(255," ")
  res% = dll_call3("GetTreeViewInformation",TV%,2,adr(par$))
  par$=trim$(par$)
  d$=ProjectPath$+"\"+par$
  court$=string$(255," ")
  res% = DLL_call2("GetShortName",adr(d$),adr(court$))
  d$=trim$(court$)
  execute d$
end_sub

' ---------- VERIFICATION DE LA PRESENCE DE TOUTES LES INFOS REQUISES ----------

sub VerifInfo()
  dim_local m%,res%
  ProjectName$ = text$(PName%)
  ProjectDest$ = text$(PDest%)+"\"+ProjectName$+"\"
  if checked(opt1%)=1  : ProjectDll%=1 : else : ProjectDll%=0 : end_if

  if text$(PName%)="" or text$(PDest%)=""
      m% = message_information_ok("Tout les champs doivent être remplis !")
      v_info%=1
      exit_sub
  end_if

  if dir_exists(ProjectDest$)=1
      m% = message_warning_yes_no("Un projet du même nom est déjà enregistré !!!"+chr$(13)+"Voulez vous écraser le dossier existant ?...")
      if m%=1
        res% = dll_call1("DeleteFileToRecycleBin",adr(ProjectDest$))
        if res% = 0
            v_info%=0
            dir_make ProjectDest$
            CreateFiles()
        end_if
      else
        text PName%,""
        v_info%=1
        exit_sub
      end_if
  else
      v_info%=0
      dir_make ProjectDest$
      CreateFiles()
  end_if
end_sub

' ---------- CREATION DES FICHIERS DU PROJET -----------------------------------

sub CreateFiles()
  clear Temp%
  item_add Temp%,"' "+string$(78,"+")
  item_add Temp%,"' Main"
  item_add Temp%,"' "+string$(78,"+")
  item_add Temp%,""
  item_add Temp%,"hide 0"
  item_add Temp%,"variables()"
  item_add Temp%,"constantes()"
  item_add Temp%,"labels()"
  item_add Temp%,"init()"
  item_add Temp%,"gui()"
  item_add Temp%,"show 0"
  item_add Temp%,"end"
  item_add Temp%,""
  item_add Temp%,"#INCLUDE "+chr$(34)+"DEC.bas"+chr$(34)
  item_add Temp%,"#INCLUDE "+chr$(34)+"INI.bas"+chr$(34)
  item_add Temp%,"#INCLUDE "+chr$(34)+"GUI.bas"+chr$(34)
  item_add Temp%,"#INCLUDE "+chr$(34)+"MEN.bas"+chr$(34)
  item_add Temp%,"#INCLUDE "+chr$(34)+"FCT.bas"+chr$(34)
  item_add Temp%,""
  file_save Temp%,ProjectDest$+"MAIN.bas"
  clear Temp%

  item_add Temp%,"' "+string$(78,"+")
  item_add Temp%,"' DECLARATIONS"
  item_add Temp%,"' "+string$(78,"+")
  item_add Temp%,""
  item_add Temp%,"sub variables()"
  item_add Temp%,"  dim no%"
  item_add Temp%,"end_sub"
  item_add Temp%,""
  item_add Temp%,"sub constantes()"
  if ProjectDll%=1
  item_add Temp%,"  dim kgf$ : kgf$ = dir_current$+"+chr$(34)+"\"+chr$(34)+"+"+chr$(34)+ProjectName$+chr$(34)
  end_if
  item_add Temp%,"end_sub"
  item_add Temp%,""
  item_add Temp%,"sub labels()"
  item_add Temp%,"  label clic,change,dclic,close0,fin"
  item_add Temp%,"end_sub"
  item_add Temp%,""
  file_save Temp%,ProjectDest$+"DEC.bas"
  clear Temp%
 
  item_add Temp%,"' "+string$(78,"+")
  item_add Temp%,"' INITIALISATIONS"
  item_add Temp%,"' "+string$(78,"+")
  item_add Temp%,""
  item_add Temp%,"sub init()"
  if ProjectDll%=1
  item_add Temp%,"  dll_on kgf$"
  end_if
  item_add Temp%,"end_sub"
  item_add Temp%,""
  file_save Temp%,ProjectDest$+"INI.bas"
  clear Temp%
 
  item_add Temp%,"' "+string$(78,"+")
  item_add Temp%,"' INTERFACE UTILISATEUR"
  item_add Temp%,"' "+string$(78,"+")
  item_add Temp%,""
  item_add Temp%,"sub gui()"
  item_add Temp%,"end_sub"
  item_add Temp%,""
  file_save Temp%,ProjectDest$+"GUI.bas"
  clear Temp%

  item_add Temp%,"' "+string$(78,"+")
  item_add Temp%,"' MENUS"
  item_add Temp%,"' "+string$(78,"+")
  item_add Temp%,""
  item_add Temp%,"clic:"
  item_add Temp%,"return"
  item_add Temp%,""
  item_add Temp%,"change:"
  item_add Temp%,"return"
  item_add Temp%,""
  item_add Temp%,"dclic:"
  item_add Temp%,"return"
  item_add Temp%,""
  item_add Temp%,"close0:"
  item_add Temp%,"return"
  item_add Temp%,""
  item_add Temp%,"fin:"
  item_add Temp%,"return"
  item_add Temp%,""
  file_save Temp%,ProjectDest$+"MEN.bas"
  clear Temp%

  item_add Temp%,"' "+string$(78,"+")
  item_add Temp%,"' FONCTIONS"
  item_add Temp%,"' "+string$(78,"+")
  item_add Temp%,""
  file_save Temp%,ProjectDest$+"FCT.bas"
  clear Temp%
 
  if ProjectDll%=1
      file_copy kgf$,ProjectDest$+"KGF.dll"
  end_if
end_sub

' ---------- VERIFICATION DE LA CREATION ET DE L IMPORTATION DES FICHIERS DU PROJET

sub VerifFiles()
  dim_local f$,ok%,m%,mes$
  mes$ = "Une erreur s' est produite pendant la création de :"+chr$(13)
 
  f$ = ProjectDest$+"MAIN.bas"
  if file_exists(f$)=1 : ok%=0 : else : ok%=1 : mes$ = mes$+"MAIN.bas"+chr$(13) : end_if
  f$ = ProjectDest$+"DEC.bas"
  if file_exists(f$)=1 : ok%=0 : else : ok%=1 : mes$ = mes$+"DEC.bas"+chr$(13) : end_if
  f$ = ProjectDest$+"INI.bas"
  if file_exists(f$)=1 : ok%=0 : else : ok%=1 : mes$ = mes$+"INI.bas"+chr$(13) : end_if
  f$ = ProjectDest$+"GUI.bas"
  if file_exists(f$)=1 : ok%=0 : else : ok%=1 : mes$ = mes$+"GUI.bas"+chr$(13) : end_if
  f$ = ProjectDest$+"MEN.bas"
  if file_exists(f$)=1 : ok%=0 : else : ok%=1 : mes$ = mes$+"MEN.bas"+chr$(13) : end_if
  f$ = ProjectDest$+"FCT.bas"
  if file_exists(f$)=1 : ok%=0 : else : ok%=1 : mes$ = mes$+"FCT.bas"+chr$(13) : end_if
  if ProjectDll%=1
      f$ = ProjectDest$+"KGF.dll"
      if file_exists(f$)=1 : ok%=0 : else : ok%=1 : mes$ = mes$+"KGF.dll"+chr$(13) : end_if
  end_if
  if ok%=1
      m% = message_warning_ok(mes$)
  else
      if object_exists(PEP%)=1
        if show(PEP%)=1
            MajTV()
        end_if
      end_if
      m% = message_information_ok("Félicitations !!!"+chr$(13)+"Vôtre projet est créé.")
  end_if
end_sub

' ---------- CREATION DE L IMAGELIST -------------------------------------------

sub CreateImageListLibrary()
  dim_local i%,l$,sep%,v%,w%
  if variable("nbv%")=0 then dim nbv%
  filebin_open_write FBOW%,ImgL$
      restore
      for i%=1 to 173
        read l$
        comptevirgules(l$)
        pause 10
        for w%=1 to nbv%
            sep%=instr(l$,",")
            v%=val(left$(l$,sep%-1))
            filebin_write FBOW%,v%
            if len(l$)>1
              l$=right$(l$,len(l$)-sep%)
            end_if
        next w%
      next i%
  filebin_close FBOW%
end_sub

sub comptevirgules(t$)
  dim_local z%,y$,cpt%
  for z%=1 to len(t$)
      y$=mid$(t$,z%,1)
      if y$="," : cpt%=cpt%+1 : end_if
  next z%
  nbv%=cpt%
end_sub

' ---------- OPTION QUITTER ----------------------------------------------------

sub Quitter()
  dim_local res%
  res% = dll_call1("KillProcessByHandle",handle(0))
end_sub

' ---------- DATA IMGL ---------------------------------------------------------

data "255,10,0,84,73,77,65,71,69,76,73,83,84,0,48,16,174,33,0,0,84,80,70,48,10,84,73,109,97,103,101,76,105,115,116,0,6,66,105,116,109,97,112,10,144,33,0,0,73,76,"
data "1,1,2,0,5,0,4,0,16,0,16,0,255,255,255,255,255,0,255,255,255,255,255,255,255,255,66,77,54,0,0,0,0,0,0,0,54,0,0,0,40,0,0,0,64,0,0,0,32,0,"
data "0,0,1,0,32,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,"
data "255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,"
data "255,0,255,255,255,0,235,220,199,0,168,119,59,0,144,91,29,0,235,224,207,0,235,224,207,0,145,92,30,0,149,93,29,0,228,210,183,0,255,255,255,0,255,255,255,0,255,255,255,0,"
data "255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,102,123,183,0,51,112,194,0,32,109,201,0,30,105,198,0,27,103,"
data "198,0,26,101,198,0,24,100,198,0,22,99,198,0,20,96,196,0,18,94,198,0,16,92,196,0,16,91,196,0,16,91,196,0,16,94,200,0,16,89,193,0,94,119,182,0,255,255,255,0,"
data "255,255,255,0,255,255,255,0,255,255,255,0,167,121,68,0,223,158,81,0,222,156,75,0,119,75,22,0,117,73,22,0,222,155,75,0,223,158,81,0,164,119,64,0,255,255,255,0,255,255,"
data "255,0,255,255,255,0,255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,40,74,161,0,128,223,255,0,65,188,255,0,"
data "67,184,255,0,63,180,255,0,59,177,255,0,54,174,255,0,50,169,255,0,46,166,255,0,41,161,255,0,37,158,255,0,33,154,255,0,32,151,255,0,32,154,255,0,34,159,255,0,6,58,"
data "160,0,255,255,255,0,233,223,206,0,146,115,74,0,145,122,90,0,93,57,17,0,224,162,85,0,224,162,85,0,220,153,73,0,219,151,70,0,225,163,87,0,224,160,82,0,88,54,15,0,"
data "151,128,97,0,148,117,77,0,233,222,205,0,255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,71,163,0,121,211,"
data "255,0,64,177,254,0,65,174,252,0,63,171,252,0,57,167,250,0,55,163,249,0,51,160,249,0,47,156,249,0,44,153,249,0,40,150,248,0,35,147,248,0,30,142,248,0,29,141,249,0,"
data "31,146,255,0,5,60,162,0,253,252,250,0,142,101,51,0,233,175,104,0,222,156,75,0,218,149,67,0,243,195,130,0,255,222,170,0,255,239,192,0,255,239,194,0,255,224,173,0,245,197,"
data "134,0,218,149,68,0,222,155,75,0,233,175,104,0,142,101,51,0,253,252,250,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "37,76,168,0,126,215,255,0,69,183,254,0,72,179,252,0,68,176,252,0,64,172,252,0,60,169,251,0,57,166,250,0,53,162,250,0,49,159,250,0,45,155,250,0,41,152,249,0,37,148,"
data "249,0,34,146,251,0,32,149,255,0,6,63,166,0,239,233,224,0,138,87,27,0,250,209,151,0,250,209,151,0,254,215,157,0,255,230,180,0,246,198,136,0,228,168,95,0,228,168,95,0,"
data "247,202,141,0,255,233,186,0,255,216,162,0,252,210,152,0,250,209,151,0,138,87,27,0,239,233,224,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,37,76,168,0,132,219,255,0,76,187,254,0,77,184,253,0,74,181,253,0,69,177,252,0,65,174,252,0,62,170,252,0,58,167,250,0,54,164,250,0,50,160,250,0,"
data "45,157,250,0,43,153,250,0,41,152,250,0,36,153,255,0,6,66,172,0,255,255,255,0,216,205,190,0,203,129,42,0,254,215,158,0,255,216,162,0,223,158,80,0,100,61,17,0,155,97,"
data "30,0,155,97,30,0,104,65,18,0,224,162,85,0,255,222,170,0,255,216,162,0,203,129,42,0,216,205,190,0,255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,37,84,179,0,128,221,255,0,78,191,254,0,80,189,253,0,79,186,253,0,76,182,252,0,70,179,252,0,67,175,252,0,63,171,252,0,61,167,"
data "251,0,55,164,250,0,51,161,250,0,45,156,250,0,35,150,251,0,37,155,255,0,6,66,172,0,199,174,137,0,131,102,64,0,226,166,90,0,252,210,152,0,231,173,100,0,103,63,18,0,"
data "164,103,32,0,255,255,255,0,255,255,255,0,164,103,32,0,117,73,22,0,232,174,103,0,252,211,153,0,226,166,90,0,131,102,64,0,199,174,137,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,37,84,179,0,170,236,255,0,97,201,254,0,83,194,253,0,78,189,253,0,74,185,253,0,70,181,253,0,66,177,252,0,"
data "62,174,252,0,58,170,252,0,54,166,251,0,49,163,250,0,54,162,251,0,77,173,253,0,111,192,255,0,20,80,183,0,209,132,44,0,255,222,171,0,255,218,164,0,241,190,123,0,210,135,"
data "48,0,144,91,29,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,164,103,32,0,209,133,45,0,238,185,117,0,255,217,163,0,255,222,171,0,209,132,44,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,41,90,188,0,190,244,255,0,149,222,255,0,147,217,254,0,130,211,254,0,113,201,253,0,105,198,"
data "253,0,103,196,253,0,98,192,253,0,95,188,253,0,106,191,253,0,114,194,253,0,126,198,253,0,124,197,254,0,128,203,255,0,20,82,187,0,213,141,57,0,255,228,177,0,255,226,174,0,"
data "232,174,103,0,208,132,43,0,171,108,35,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,173,110,35,0,192,122,39,0,230,171,97,0,255,224,173,0,255,228,177,0,213,141,"
data "57,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,40,93,194,0,189,245,255,0,147,223,255,0,148,220,254,0,147,218,254,0,"
data "145,218,254,0,144,216,255,0,141,214,255,0,139,212,255,0,135,209,255,0,131,205,255,0,126,200,255,0,118,197,255,0,118,196,255,0,123,203,255,0,20,86,194,0,212,183,141,0,171,127,"
data "74,0,243,195,132,0,237,182,113,0,213,141,55,0,165,104,32,0,155,97,30,0,255,255,255,0,255,255,255,0,155,97,30,0,155,97,30,0,203,129,42,0,233,178,106,0,245,197,134,0,"
data "171,127,74,0,212,183,141,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,40,93,194,0,192,248,255,0,151,225,255,0,149,223,"
data "254,0,147,223,255,0,180,239,255,0,178,237,255,0,176,235,255,0,175,233,255,0,172,230,255,0,169,228,255,0,167,226,255,0,165,224,255,0,167,225,255,0,169,229,255,0,27,95,202,0,"
data "255,255,255,0,235,219,196,0,230,171,97,0,255,222,167,0,208,132,43,0,196,125,40,0,196,125,40,0,155,97,30,0,155,97,30,0,183,117,37,0,180,114,37,0,192,122,39,0,255,222,"
data "167,0,230,171,97,0,235,219,196,0,255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,40,93,194,0,191,251,255,0,"
data "153,229,255,0,152,226,255,0,157,233,255,0,72,129,217,0,43,96,205,0,45,108,210,0,45,107,209,0,45,107,209,0,44,106,209,0,43,106,208,0,45,107,208,0,45,108,209,0,46,109,"
data "211,0,133,169,226,0,251,241,227,0,220,153,73,0,255,239,194,0,255,249,208,0,247,202,141,0,178,112,36,0,166,105,33,0,162,102,31,0,158,99,31,0,157,99,31,0,167,106,33,0,"
data "246,201,138,0,255,249,208,0,255,239,194,0,220,153,73,0,251,241,227,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,46,110,"
data "213,0,212,255,255,0,168,241,255,0,166,239,255,0,177,249,255,0,20,98,210,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,"
data "255,255,255,0,255,255,255,0,255,255,255,0,255,253,251,0,224,164,89,0,255,228,180,0,253,212,156,0,255,224,172,0,255,226,175,0,213,141,55,0,198,126,42,0,196,125,40,0,212,140,"
data "53,0,255,226,174,0,255,224,172,0,253,212,156,0,255,228,180,0,224,164,89,0,255,253,251,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,24,102,216,0,182,229,250,0,179,232,251,0,178,229,252,0,168,222,248,0,22,103,217,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,"
data "255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,250,235,214,0,226,169,99,0,234,203,159,0,225,167,95,0,255,249,208,0,255,249,208,0,255,243,198,0,"
data "255,243,198,0,255,249,208,0,255,249,208,0,225,167,95,0,234,203,159,0,226,169,99,0,250,235,214,0,255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,172,200,242,0,31,108,222,0,43,114,222,0,43,112,222,0,32,108,222,0,162,193,240,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,"
data "255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,238,193,134,0,255,249,208,0,255,249,"
data "207,0,229,172,102,0,229,172,102,0,255,249,207,0,255,249,208,0,238,193,135,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,"
data "255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,250,231,203,0,"
data "235,184,117,0,233,175,104,0,254,248,239,0,254,248,239,0,233,175,104,0,237,187,123,0,250,232,205,0,255,255,255,0,255,255,255,0,255,255,255,0,255,255,255,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,66,77,62,0,0,0,0,0,0,0,62,0,0,0,40,0,0,0,64,0,0,0,32,0,0,0,1,0,"
data "1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"
data "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"

Je vais faire un zip sur mon webdav aussi.


Dernière édition par ygeronimi le Jeu 10 Mar 2016 - 7:51, édité 1 fois (Raison : Mise à jour du code)
Revenir en haut Aller en bas
Yannick




Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010

Panoramic Project Empty
MessageSujet: re   Panoramic Project EmptyJeu 10 Mar 2016 - 23:35

J' ai mis à jour le fichier *.zip du programme sur mon webdav.
Il commence à être un peu long, même si il se suffit à lui même.

Je sais qu' il n' intéressera pas beaucoup de monde mais pour les nouveaux,
il montre l' utilisation de quelques objets Panoramic et Kgf ( TreeView pour ses objets ), l' utilisation de la ligne de commande
de powershell et autres subtilités... Laughing
Revenir en haut Aller en bas
papydall

papydall


Nombre de messages : 7017
Age : 74
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

Panoramic Project Empty
MessageSujet: Re: Panoramic Project   Panoramic Project EmptyVen 11 Mar 2016 - 0:18

ygeronimi a écrit:
J' ai honte mais je l' avoue, avec tous les travaux que nous avons mené pour la création d' un nouvel éditeur,
je me sers encore de Panoramic Editor.    

Il n’y a aucune honte à ça.
J’utilise Panoramic_Editor et ça me suffit amplement.
Le petit reproche à faire à Panoramic_Editor c’est qu’il s’ouvre sur une fenêtre réduite.
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
Yannick




Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010

Panoramic Project Empty
MessageSujet: re   Panoramic Project EmptyVen 11 Mar 2016 - 21:44

Mise à jour du zip sur mon webdav.

Ajout d' un embryon de menu contextuel par double clic sur un noeud du TreeView.
Il n' y a pas encore les fonctions associés. Wink
Revenir en haut Aller en bas
Contenu sponsorisé





Panoramic Project Empty
MessageSujet: Re: Panoramic Project   Panoramic Project Empty

Revenir en haut Aller en bas
 
Panoramic Project
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» New Panoramic Project
» Logithèque : une base de données en Panoramic pour Panoramic
» IDE Panoramic écrit en Panoramic
» PANORAMIC V 0.9.6 available / PANORAMIC V 0.9.6 disponible
» Logo Panoramic en Panoramic

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: