FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Simuler l’appui de n’importe quelle touche.
par papydall Hier à 23:54

» Le Forum est en vacances.
par JL35 Hier à 21:20

» Une autre façon de terminer une application.
par JL35 Mar 22 Aoû 2017 - 14:27

» Compilateur FBPano
par Mike Lun 21 Aoû 2017 - 23:17

» Pb 20 (en analyse): plantage à l'appel d'un SUB
par Jack Lun 21 Aoû 2017 - 21:58

» Pb 19 (en analyse): libellé d'erreur dans des IF imbriqués
par Jack Lun 21 Aoû 2017 - 21:55

» Copier / coller du texte à partir de la fenêtre de commandes
par jean_debord Lun 21 Aoû 2017 - 9:46

» COMPILATEUR V 0.9 beta 8 du 18 aout 2017
par papydall Lun 21 Aoû 2017 - 5:01

» Mettre en windows en veille
par papydall Lun 21 Aoû 2017 - 4:15

» Stretch_on ne stretch plus...
par papydall Dim 20 Aoû 2017 - 15:22

» Pb 18 (en analyse): RESTORE_LABEL avec DATA à la fin
par Jack Dim 20 Aoû 2017 - 13:21

» Problème de traitement des opérateurs avec le compilateur.
par Pedro Alvarez Sam 19 Aoû 2017 - 20:01

» Pb 17 (résolu): ITEM_SELECT ne fonctionne pas
par Jack Jeu 17 Aoû 2017 - 19:26

» un nouveau editeur panobasic
par Jean Claude Jeu 17 Aoû 2017 - 10:18

» Le compilateur.
par Pedro Alvarez Jeu 17 Aoû 2017 - 8:36

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 TreeView en Panoramic

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: TreeView en Panoramic   Mer 7 Mai 2014 - 19:56

Depuis longtemps, je cherchais un moyen de faire une représentation en arborescence, de façon commode. En Delphi, je fais ça aisément avec le composant TTreeView, qui est très souple et marche très bien.

Or, malgré des recherches intensives, je n'ai pas pu le faire marcher avec Panoramic, sur le modèle du RichEdit, par exemple.

Donc, j'ai écrit un PanoramicTreeView (PTV), entièrement en Panoramic. Je montre ici la toute première version. Elle est encore incomplète, car il manquent les fonctions de recherche par chaîne de caractères et de suppression des noeuds. N"anmoins, on peut déjà se faire une bonne idée du fonctionnement.

Un bref rappel: Une représentation arborescente est une liste verticale de noms. Ceux qui sont collés tout à fait à gauche sont nommés "racines", ceux qui sont décalés vers la droite sont nommés "enfants", et ceci à plusieurs niveaux.
On peut créer le PTV.
On peut sauvegarder le PTV dans un fichier.
On peut charger un fichier sauvegardé dans un PTV.
On peut créer des noeuds racine, enfants pour racines ou enfants, et soeurs pour racines ou enfants.
On peut chercher le noeud parent ou le noeud racine de n'importe quel noeud.
Chaque noeud peut contenir des données (chaînes de caractères) qui sont mémorisées en interne et qui peuvent être lues pour le noeud actuel (celui qui vient d'être sélectionné ou qui est le résultat d'une recherche).

Voici le module #INCLUDE qui contient tout le code:
PTV_SUB.bas
Code:
' PTV_SUB.bas

' ############# ici, le #INCLUDE PTV_SUB.bas contenant tout ce qui suit #########
' ===============================================================================
' procédures de gestion du pseudo-objet PTV (PanoramicTreeView)
' Auteur: Klaus
'
' Procédures accessibles:
'    InitializePTV CreatePTV
'    SavePTV LoadPTV AddRootToPTV AddChildToPTV AddSisterToPTV
'    FindParentOfPTV FindRootOfPTV FoldNodeOfPTV UnfoldNodeOfPTV GetDataOfPTV
'    SelectNodeByAddressInPTV, SelectNodeByNameInPTV
'
' Procédures internes:
'    GetIndentOfPTV FindParentItemOfPTV EncodeNumberForPTV DecodeNumberForPTV
'    FormatAuxiliaryRecordForPTV EncodeDataForPTV DecodeDataForPTV

' =============== dipatching des fonctions ====================================
message "PTV: on ne peut pas executer ce module directement !"
terminate

' ********************** procédures publiques *************************************

sub InitializePTV()
' procedure optionnelle.
' Initialise les variables, mais c'est fait également dans CreatePTV.
' N"anmoins, cela évite un plantage lors d'un appel à une procédure avant la création.
  if variable("No%")=0 then dim No%
  if variable("PTV_actual_node%")=0 then dim PTV_actual_node%  : ' numéro du noeud actuel
  if variable("PTV_resultat%")=0 then dim PTV_resultat%        : ' résultat numérique
  if variable("PTV_resultat$")=0 then dim PTV_resultat$        : ' résultat chaîne de caractères
  if variable("PTV_table$")=0
    dim PTV_table$                                            : ' table d'encodage
    PTV_table$ = "0123456789ABCDEFGHIJKLMNOPQRSTUV"
  end_if
  PTV_actual_node% = 0
  if label("SelectPTV")=0 then label SelectPTV
end_sub

sub CreatePTV(P%,V%,T%,L%,H%,W%)
' création de l'objet PanoramicTreeView.
' Au retour, No% contient le numéro de l'objet LIST contenant le PTV visuel.
' L'objet No%-1 est une DLIST utilisée de façon interne.
  if variable("No%")=0 then dim No%
' la ligne suivante est la définition de la DLIST interne en utilisation normale
  No% = No% + 1 : dlist No%
' la ligne suivante est la définition de la DLIST interne en utilisation DEBUG
'  No% = No% + 1 : list No% : top No%,T% : left no%,L%+W%+10 : height No%,H% : width no%,900
  No% = No% + 1 : list No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  font_name No%,"Courier"
  if variable("PTV_actual_node%")=0 then dim PTV_actual_node%
  if variable("PTV_resultat%")=0 then dim PTV_resultat%
  if variable("PTV_resultat$")=0 then dim PTV_resultat$
  if variable("PTV_table$")=0
    dim PTV_table$
    PTV_table$ = "0123456789ABCDEFGHIJKLMNOPQRSTUV"
  end_if
  PTV_actual_node% = 0
  if label("SelectPTV")=0 then label SelectPTV
  on_click No%,SelectPTV
end_sub
SelectPTV:            : ' routine évènement pour la sélection d'un noeud de la PTV
  PTV_actual_node% = item_index(PTV%)
'  text e_nact%,str$(PTV_actual_node%)  : ' ligne à supprimer en utilisation normale
  return

sub SavePTV(PTV%,f$)
' sauvegarde du contenu du PTV dans deus fichiers:
'  *.ptv pour la partie visible LIST
'  *.ptx pour la partie interne DLIST
  dim_local s$
  if PTV%=0 then exit_sub
  s$ = f$
  if lower$(right$(s$,4))<>".ptv" then s$ = s$ + ".ptv"
  file_save PTV%,s$
  file_save PTV%-1,left$(s$,len(s$)-4)+".ptx"
end_sub

sub LoadPTV(PTV%,f$)
' restauration du contenu du PTV dans deus fichiers:
'  *.ptv pour la partie visible LIST
'  *.ptx pour la partie interne DLIST
  dim_local s$
  if PTV%=0 then exit_sub
  s$ = f$
  if lower$(right$(s$,4))<>".ptv" then s$ = s$ + ".ptv"
  if file_exists(s$)=0 then exit_sub
  file_load PTV%,s$
  file_load PTV%-1,left$(s$,len(s$)-4)+".ptx"
  if count(PTV%)>0
    PTV_actual_node% = 1
  else
    PTV_actual_node% = 0
  end_if
end_sub

sub AddRootToPTV(PTV%,lib$,dat$)
' ajouter un noeud racine, en fin de liste.
' un noeud racine est placé directement à gauche, sans indentation.
  if PTV%=0 then exit_sub
  FormatAuxiliaryRecordForPTV("",lib$,dat$)
  item_add PTV%-1,PTV_resultat$
  item_add PTV%,"- "+lib$
  PTV_actual_node% = count(PTV%)
end_sub

sub AddChildToPTV(PTV%,p%,lib$,dat$)
' ajouter un noeud enfant à un noeud parent.
' le noeud parent doit être le noeud actuellement sélectionné (dans PTV_actual_node%).
' le noeud enfant est ajouté à ce noeud parent, indenté d'un cran vers la droite.
' le paramètre p% donne la position:
'  1 = en fin de liste
'  0 = en début de liste
  dim_local s$, ind%, c$, pre$, i%, ptr%
  if PTV%=0 then exit_sub
  if PTV_actual_node%=0 then exit_sub
  ptr% = PTV_actual_node%
  s$ = item_read$(PTV%,ptr%)
  GetIndentOfPTV(s$)
  ind% = PTV_resultat%
  for i%=1 to ind%+1 : pre$ = pre$ + "| " : next i%
  if p%>0
    c$ = left$(s$,ind%*2+2)
    if ptr%<count(PTV%)
      while ptr%<count(PTV%)
        ptr% = ptr% + 1
        s$ = item_read$(PTV%,ptr%)
        if left$(s$,ind%*2+2)=c$ then exit_while
      end_while
      ptr% = ptr% - 1
    end_if
  end_if
  FormatAuxiliaryRecordForPTV(pre$,lib$,dat$)
  item_insert PTV%-1,ptr%+1,PTV_resultat$
  item_insert PTV%,ptr%+1,pre$+"- "+lib$
  PTV_actual_node% = ptr%+1
end_sub

sub AddSisterToPTV(PTV%,p%,lib$,dat$) : ' p% conditionne le positionnement de la ligne
' ajouter un soeur enfant à un noeud parent.
' le noeud parent doit être le noeud actuellement sélectionné (dans PTV_actual_node%).
' le noeud enfant est ajouté à ce noeud parent,avec la même indentation.
' le paramètre p% donne la position:
'  1 = en fin de liste
'  0 = en début de liste
  dim_local s$, ind%, c$, pre$, i%, ptr%
  if PTV%=0 then exit_sub
  if PTV_actual_node%=0 then exit_sub
  ptr% = PTV_actual_node%
  if ptr%=0 then ptr% = PTV_actual_node%
  FindParentItemOfPTV(PTV%,ptr%)
  if PTV_resultat%=0
    AddRootToPTV(PTV%,lib$,dat$)
  else
    PTV_actual_node% = PTV_resultat%
    AddChildToPTV(PTV%,p%,lib$,dat$)
  end_if
end_sub

sub FindParentOfPTV(PTV%)
' retourner le numéro du noeud parent du noeud actuellement sélectionné.
' Le résultat est retourné dans la variable PTV_resultat%.
' Si le noeud actuel est un noeud racine, la valeur 0 est retournée,
' car en effet, un noeud racide n'a pas de parent.
  dim_local ptr%
  if PTV%=0 then exit_sub
  if PTV_actual_node%=0 then exit_sub
  ptr% = PTV_actual_node%
  FindParentItemOfPTV(PTV%,ptr%)
  if PTV_resultat%>0 then PTV_actual_node% = PTV_resultat%
end_sub

sub FindRootOfPTV(PTV%)
' retourner le numéro du noeud racine du noeud actuellement sélectionné.
' Le résultat est retourné dans la variable PTV_resultat%
' Si le noeud actuel est un noeud racine, la valeur 0 est retournée,
' car en effet, un noeud racide n'a pas de parent.
  dim_local ptr%
  if PTV%=0 then exit_sub
  if PTV_actual_node%=0 then exit_sub
  repeat
    FindParentItemOfPTV(PTV%,ptr%)
    if PTV_resultat%>0 then PTV_actual_node% = PTV_resultat%
    ptr% = PTV_actual_node%
  until PTV_resultat% = 0
end_sub

sub FoldNodeOfPTV(PTV%)
' replier un noeud sur lui-même. Tous les noeuds enfant sont repliés et
' deviennent invisibles, et le noeud visé est marqué d'un signe "+".
  dim_local ptr%, s$, d$, d1$, d2$, ind%, pre$, i%, n%
  if PTV%=0 then exit_sub
  if PTV_actual_node%=0 then exit_sub
  ptr% = PTV_actual_node%
  s$ = item_read$(PTV%,ptr%)
  GetIndentOfPTV(s$)
  ind% = PTV_resultat%
'  message str$(ptr%)+": "+str$(ind%)+"  ["+mid$(s$,ind%*2+1,1)+"]"
  if mid$(s$,ind%*2+1,1)="+" then exit_sub
  d$ = item_read$(PTV%-1,ptr%)          : ' lire la copie dans la DLIST
  i% = instr(d$,"-")
  d$ = left$(d$,i%-1) + "+" + mid$(d$,i%+1,len(d$)) : ' marquage "replié"
  pre$ = left$(s$,ind%*2)
  s$ = pre$ + "+ " + mid$(s$,ind%*2+3,len(s$))  : ' préparer le nouveau contenu du record
  item_delete PTV%,ptr%      : ' supprimer l'ancien
  item_insert PTV%,ptr%,s$  : ' et remplacer
  if ptr%<count(PTV%)
    n% = count(PTV%)
    i% = ptr%
    ptr% = ptr% + 1
    pre$ = pre$ + "| "
    d2$ = "00"  : ' préparer le cumul des lignes repliées
    while i%<n%
      i% = i% + 1
      s$ = item_read$(PTV%,ptr%)
      if left$(s$,ind%*2+2)<>pre$ then exit_while
      item_delete PTV%,ptr%          : ' supprimer dans l'arbre
      d1$ = item_read$(PTV%-1,ptr%)  : ' lire la copie dans la DLIST
      d2$ = left$(d2$,len(d2$)-2) + d1$    : ' et ajouter à celle du noeud. d1$ se termine déjà par "00" !
      item_delete PTV%-1,ptr%        : ' supprimer la copie dans DLIST
    end_while
  end_if
  EncodeNumberForPTV(len(d2$))      : ' longueur totale des lignes repliées
  d$ = left$(d$,len(d$)-2) + "zz" + PTV_resultat$ + d2$ : ' marquer et ajouter les lignes repliées au noeud
  item_delete PTV%-1,PTV_actual_node%        : ' supprimer l'ancienne copie
  item_insert PTV%-1,PTV_actual_node%,d$    : ' recréer la nouvelle copie dans la DLIST
end_sub

sub UnfoldNodeOfPTV(PTV%)
' délier un noeud sur lui-même. Tous les noeuds enfant sont dépliés et
' deviennent visibles, et le noeud visé est marqué d'un signe "-".
  dim_local ptr%, s$, ind%, d$, d1$, pre$, i%
  if PTV%=0 then exit_sub
  if PTV_actual_node%=0 then exit_sub
  ptr% = PTV_actual_node%
  s$ = item_read$(PTV%,ptr%)
  GetIndentOfPTV(s$)
  ind% = PTV_resultat%
  if mid$(s$,ind%*2+1,1)="-" then exit_sub
  d$ = item_read$(PTV%-1,ptr%)    : ' lire la copie dans la DLIST
  i% = instr(d$,"+")
  d$ = left$(d$,i%-1) + "-" + mid$(d$,i%+1,len(d$)) : ' marquage "déplié"
  pre$ = left$(s$,2*ind%)
  s$ = pre$ + "- " + mid$(s$,ind%*2+3,len(s$))  : ' préparer le nouveau contenu du record
  item_delete PTV%,PTV_actual_node%      : ' supprimer l'ancien
  item_insert PTV%,PTV_actual_node%,s$  : ' et remplacer
  if left$(d$,2)="zz" then d$ = mid$(d$,5,len(d$)) : ' enlever l'éventuelle marque "éléments repliés"
'  d$ = mid$(d$,5,len(d$))                : ' enlever l'éventuelle marque "éléments repliés"
  DecodeNumberForPTV(left$(d$,2))        : ' décoder la longueur du noeud dans la copie
  d1$ = left$(d$,PTV_resultat%+2) + "00" : ' isoler le noeud
  item_delete PTV%-1,ptr%        : ' supprimer l'ancienne copie
  item_insert PTV%-1,ptr%,d1$    : ' recréer la nouvelle copie dans la DLIST
  d$ = mid$(d$,5+PTV_resultat%+2,len(d$))
  if len(d$)<2 then exit_sub
  repeat                          : ' boucle pour restituer les enregistrements repliés
    ptr% = ptr% + 1                      : ' passer au point d'insertion suivant
    if left$(d$,2)="zz"
      d$ = mid$(d$,3,len(d$))
      DecodeNumberForPTV(left$(d$,2))
      d1$ = left$(d1$,len(d1$)-2) + "zz" + left$(d$,PTV_resultat%)+"00"
      ptr% = ptr% - 1
      item_delete PTV%-1,ptr%
      item_insert PTV%-1,ptr%,d1$
      d$ = mid$(d$,PTV_resultat%+1,len(d$))
    else
      DecodeNumberForPTV(left$(d$,2))      : ' décoder la longueur du record replié dans la copie
      if PTV_resultat%>0                  : ' il y a une suite ?
        d1$ = left$(d$,PTV_resultat%+2) + "00"  : ' isoler le record replié suivant
        item_insert PTV%-1,ptr%,d1$            : ' recréer la nouvelle copie dans la DLIST
        d$ = mid$(d$,PTV_resultat%+3,len(d$))  : ' et les autres enregistrements repliés
        DecodeNumberForPTV(mid$(d1$,3,2))      : ' décoder la longueur du préfixe
        s$ = mid$(d1$,5,PTV_resultat%)          : ' début du record de l'arbre: préfixe
        i% = 4 + PTV_resultat% + 1
        DecodeNumberForPTV(mid$(d1$,i%,2))      : ' décoder la longueur du nom
        s$ = s$ + mid$(d1$,i%+2,PTV_resultat%)  : ' prendre le nom du record
        item_insert PTV%,ptr%,s$                : ' et insérer dans l'arbre
        PTV_resultat% = 1                      : ' juste par précaution...
      end_if
    end_if
  until PTV_resultat%=0
end_sub

sub GetDataOfPTV(PTV%)
' rechercher les données du noeud actuel.
  dim_local i%, s$
  if PTV%=0 then exit_sub
  if PTV_actual_node%=0 then exit_sub
  s$ = item_read$(PTV%-1,PTV_actual_node%)
  DecodeNumberForPTV(mid$(s$,3,2))
  i% = 3 + PTV_resultat% + 2
  DecodeNumberForPTV(mid$(s$,i%,2))
  i% = i% + 2 + PTV_resultat%
  DecodeNumberForPTV(mid$(s$,i%,2))
  DecodeDataForPTV(mid$(s$,i%+2,PTV_resultat%))
end_sub

sub SelectNodeByAddressInPTV(PTV%,n%)
' cibler un noeud par son numéro
  if PTV%=0 then exit_sub
  if PTV_actual_node%=0 then exit_sub
  if (n%>0) and (n%<=count(PTV%)) then PTV_actual_node% = n%
  PTV_resultat% = PTV_actual_node%
end_sub

sub SeletNodeByNameInPTV(PTV%,mode%,partiel%,name$)
' ++++++++++ pas encore implémentée.
' rechercher un noeud par son nom.
' mode:    0 = dans l'arbre visible, à partir du début
'          1 = dans l'arbre visible, à partir de la position actuelle
'          2 = dans l'arbre déplié,  à partir du début
'          3 = dans l'arbre déplié,  à partir de la position actuelle
' partiel: 0 = nom exact
'          1 = nom partiel

  if PTV%=0 then exit_sub
  if PTV_actual_node%=0 then exit_sub

  PTV_resultat% = PTV_actual_node%
end_sub

' ********************** procédures internes **************************************

sub GetIndentOfPTV(s$)
  dim_local c$
  c$ = left$(s$,1)
  PTV_resultat% = 0
  while c$="|"
    PTV_resultat% = PTV_resultat% + 1
    c$ = mid$(s$,PTV_resultat%*2+1,1)
  end_while
end_sub

sub FindParentItemOfPTV(PTV%,p%)
  dim_local s$, ind%, c$, i%, ptr%
  if PTV%=0 then exit_sub
  if PTV_actual_node%=0 then exit_sub
  ptr% = PTV_actual_node%
  s$ = item_read$(PTV%,ptr%)
  GetIndentOfPTV(s$)
  ind% = PTV_resultat%
  if ind%=0
    PTV_resultat%  = 0
    exit_sub
  end_if
  while ptr%>1
    ptr%  = ptr% - 1
    s$ = item_read$(PTV%,ptr%)
    if (mid$(s$,ind%*2-1,1)="-") or (mid$(s$,ind%*2-1,1)="+") then exit_while
  end_while
  PTV_resultat% = ptr%
end_sub

sub EncodeNumberForPTV(n%)
  dim_local v%, v1%
  if n%<0
    PTV_resultat$ = "00"
  else
    if n%>=1024
      PTV_resultat$ = "VV"
    else
      v% = int(n%/32)
      v1% = n% - v%*32
      PTV_resultat$ = mid$(PTV_table$,v%+1,1)+mid$(PTV_table$,v1%+1,1)
    end_if
  end_if
end_sub

sub DecodeNumberForPTV(a$)
  dim_local v%, v1%
  v% = instr(PTV_table$,mid$(a$,1,1))
  v1% = instr(PTV_table$,mid$(a$,2,1))
  PTV_resultat% = (v%-1)*32 + (v1%-1)
end_sub

' <longueur totale><Longueur préfixe><préfixe><longueur libellé><libellé><longueur data><data><00>
sub FormatAuxiliaryRecordForPTV(pre$,lib$,dat$)
  dim_local s$, cnt%
  ' longueur du préfixe
  EncodeNumberForPTV(len(pre$+"- "))
  ' <Longueur préfixe><préfixe>
  s$ = PTV_resultat$ + pre$ + "- "
  ' longueur du libellé
  EncodeNumberForPTV(len(lib$))
  ' <Longueur préfixe><préfixe><longueur libellé><libellé>
  s$ = s$ + PTV_resultat$+lib$
  ' encoder les données
  EncodeDataForPTV(dat$)
  ' <Longueur préfixe><préfixe><longueur libellé><libellé><longueur data><data>
  s$ = s$ + PTV_resultat$
  ' longueur totale
  EncodeNumberForPTV(len(s$))
  ' <longueur totale><Longueur préfixe><préfixe><longueur libellé><libellé><longueur data><data><00>
  PTV_resultat$ = PTV_resultat$ + s$ + "00"
end_sub

Sub EncodeDataForPTV(s$)
 dim_local cnt%, i%, t$
 cnt% = len(s$)
 if cnt%>0
  i% = 0
  t$ = ""
  while i%<len(s$)
    i% = i% + 1
    if mid$(s$,i%,1)="#"
      t$ = t$ + "##"
      cnt% = cnt% + 1
    else
      if asc(mid$(s$,i%,1))<32
        t$ = t$ + "#" + chr$(asc(mid$(s$,i%,1))+32)
        cnt% = cnt% + 1
      else
        t$ = t$ + mid$(s$,i%,1)
      end_if
    end_if
  end_while
 end_if
 EncodeNumberForPTV(len(t$))
 PTV_resultat$ = PTV_resultat$ + t$
end_sub

sub DecodeDataForPTV(s$)
  dim_local i%, skip%
  skip% = 0
  PTV_resultat$ = ""
  if len(s$)>0
    for i%=1 to len(s$)
      if skip%=1
        skip% = 0
      else
        if mid$(s$,i%,1)="#"
          skip% = 1
          if mid$(s$,i%+1,1)="#"
            PTV_resultat$ = PTV_resultat$ + "#"
          else
            PTV_resultat$ = PTV_resultat$ + chr$(asc(mid$(s$,i%+1,1))-32)
          end_if
        else
          PTV_resultat$ = PTV_resultat$ + mid$(s$,i%,1)
        end_if
      end_if
    next i%
  end_if
end_sub

Programme de démo:
PanoramicTreeView.bas
Code:
' PanoramicTreeView.bas
'
' Ce programme crée et teste un pseudo_objet PTV.
' Cet objet donne certaines possibilités de TTreeView,
' mais il est entièrement réalisé en Panoramic.
'
' L'objet DLIST associe contient une copie des enregistrements, avec un encodage spécifique.
' Les données sont encodées de sorte à transformer tous les caractères invisibles (<32)
' en #<c+32>, ainsi que le # lui-même qui deviendra ##.
' Si le préfixe est "+", cela signifie que la ligne DLIST contient un ensemble de lignes
' repliées, toutes codées de la même manière.
' Exemple d'un TreeView complètement déplié, avec les données introduites par un "/" :
' - Animaux/domestiques et sauvages
' | - Mammifères/sang chaud
' | | - Bovins/domestiques
' | | - Chevaux/domestiques
' | | - Souris/sauvages
' | - Oiseaux/sang chaud
' | | - Cigognes/sauvage, mange grenouilles
' | | - Poules/domestiques, pond de oeufs
' - Plantes/cultivées et sauvages
' | - Céréales/essentiellement cultivées
' | | - Blé/nourriture de base
' | | - Riz/nourriture de base
' | - Légumes/cultivés
' | | - Haricots/cultivés
'
' Replier la ligne "| - Oiseaux/sang chaud" conduit au résultat suivant:
' - Animaux/domestiques et sauvages
' | - Mammifères/sang chaud
' | | - Bovins/domestiques
' | | - Chevaux/domestiques
' | | - Souris/sauvages
' | + Oiseaux/sang chaud  | | - Cigognes/sauvage, mange grenouilles  | | - Poules/domestiques, pond de oeufs
' - Plantes/cultivées et sauvages
' | - Céréales/essentiellement cultivées
' | | - Blé/nourriture de base
' | | - Riz/nourriture de base
' | - Légumes/cultivés
' | | - Haricots/cultivés

' replier maintenant "- Animaux/domestiques et sauvages" conduit à ceci;
' + Animaux/domestiques et sauvages | - Mammifères/sang chaud | | - Bovins/domestiques | | - Chevaux/domestiques | | - Souris/sauvages | + Oiseaux/sang chaud  | | - Cigognes/sauvage, mange grenouilles  | | - Poules/domestiques, pond de oeufs
' - Plantes/cultivées et sauvages
' | - Céréales/essentiellement cultivées
' | | - Blé/nourriture de base
' | | - Riz/nourriture de base
' | - Légumes/cultivés
' | | - Haricots/cultivés
'
' un PanoramicTreeView peut être sauvegardé ou restauré dans un fichier *.ptv, et *.ptx pour la partie DLIST.
' Les deux fichiers sont créés simultanément, et doivent coexister pour recharger le tableau.
'
' Tous les enregistrements de la DLIST ont le format suivant:
' <longueur totale><Longueur préfixe><préfixe><longueur libellé><libellé><longueur data><data>...répétition...<00>
' Si une branche de l'arbre est repliée, toutes les lignes repliées sont stockées dans la ligne du noeud replié,
' selon exactement le même format, juste à la suite. Et logiquement, la suite se termine par un <00> qui signifie
' que la longueur de la ligne suivante est zéro, donc que c'est la fin des lignes repliées. Ceci permet de
' déplier cette ligne en réinsérant dans la LIST et la DLIST toutes les lignes individuelles, tout en supprimant
' tout ça de la ligne du noeud d'origine, sauf bien sûr la toute première partie contenant le libellé et les
' données du noeud.

label creer, sauver, charger, ajracine, ajenfant, ajsoeur
label chparent, chracine, chdonnees
label plier, deplier

dim PTV%, e_nact%, e_lib%, e_dat%, e_dact%, d_open%, d_save%, f$

' width 0,700
full_space 0

xButton(10,10,0,0,"Créer") : on_click no%,creer
xButton(40,10,0,0,"Sauver") : on_click no%,sauver
xButton(70,10,0,0,"Charger") : on_click no%,charger
xAlpha(10,110,0,0,"Libellé:")
xEdit(10,160,260,0,0) : e_lib% = no%
xAlpha(40,110,0,0,"Données:")
xEdit(40,160,260,0,0) : e_dat% = no%
xButton(70,160,0,0,"Aj. Racine") : on_click no%,ajracine
xButton(70,250,0,0,"Aj. Enfant") : on_click no%,ajenfant
xButton(70,340,0,0,"Aj. Soeur") : on_click no%,ajsoeur
xButton(10,430,0,0,"Ch. Parent") : on_click no%,chparent
xButton(40,430,0,0,"Ch. Racine") : on_click no%,chracine
xButton(70,430,0,0,"Ch. Données") : on_click no%,chdonnees
xButton(10,520,0,0,"Plier") : on_click no%,plier
xButton(40,520,0,0,"Deplier") : on_click no%,deplier

xAlpha(410,10,0,0,"Noeud actuel:")
xEdit(410,120,68,0,1) : e_nact% = no% : font_bold e_nact%
xAlpha(440,10,0,0,"Données actuelles:")
xEdit(440,120,280,0,1) : e_dact% = no% : font_bold e_dact%

xSaveDialog("PanoramicTreeView|*.ptv") : d_save% = no%
xOpenDialog("PanoramicTreeView|*.ptv") : d_open% = no%

InitializePTV()

end

creer:
  CreatePTV(0,1,100,10,300,400) : PTV% = no%
  text e_nact%,str$(PTV_actual_node%)
  return
 
sauver:
  f$ = file_name$(d_save%)
  if f$<>"_" then SavePTV(PTV%,f$)
  return

charger:
  f$ = file_name$(d_open%)
  if f$<>"_"
    LoadPTV(PTV%,f$)
    text e_nact%,str$(PTV_actual_node%)
  end_if
  return

ajracine:
  AddRootToPTV(PTV%,text$(e_lib%),text$(e_dat%))
  text e_nact%,str$(PTV_actual_node%)
  return
 
ajenfant:
  AddChildToPTV(PTV%,1,text$(e_lib%),text$(e_dat%))
  text e_nact%,str$(PTV_actual_node%)
  return

ajsoeur:
  AddSisterToPTV(PTV%,1,text$(e_lib%),text$(e_dat%))
  text e_nact%,str$(PTV_actual_node%)
  return
 
chparent:
  FindParentOfPTV(PTV%)
  text e_nact%,str$(PTV_actual_node%)
  return

chracine:
  FindRootOfPTV(PTV%)
  text e_nact%,str$(PTV_actual_node%)
  return
 
chdonnees:
  text e_nact%,str$(PTV_actual_node%)
  GetDataOfPTV(PTV%)
  text e_dact%,PTV_resultat$
  return
 
plier:
  FoldNodeOfPTV(PTV%)
  return

deplier:
  UnfoldNodeOfPTV(PTV%)
  return

' contient tout ce qu'il faut pour PTV
#INCLUDE "PTV_SUB.bas"
' contient les procédures pour créer les objets Panoramic
#INCLUDE "KGF_OBJ.bas"

Et les fichiers pour une démo, en version repilée et en version dépliée:
demo_dépliée.ptv
Citation :
- Animaux
| - Mammifères
| | - Chevreuil
| | - Sanglier
| | - Cochon
| - Poissons
| | - Lieu noir
| | - Truite
| - Insectes
| | - Guêpe
| | - Fourni
- Plantes
| - Yf
| - Choux de Bruxelles
| - Rose trémiaire
| - Chêne

demo_dépliée.ptx
Citation :
1G02- 07Animaux10Poissons, mammifères et insectes00
1B04| - 0AMammifères0NSauvages et domestiques00
1706| | - 09Chevreuil0ISauvage, herbivore00
1506| | - 08Sanglier0HSauvage, omnivore00
1606| | - 06Cochon0KDomestique, omnivore00
1904| - 08Poissons0NEau douce et eau de mer00
0V06| | - 09Lieu noir0AEau de mer00
0R06| | - 06Truite09Eau douce00
1804| - 08Insectes0MVolants et non volants00
1206| | - 05Guêpe0HVolant, dangereux00
1806| | - 06Fourni0MNon volant, inoffensif00
1802- 07Plantes0PArbres, fleurs et légumes00
1904| - 02Yf0TArbre à feuilles persistantes00
1A04| - 0IChoux de Bruxelles0ELégume d'hiver00
0T04| - 0ERose trémiaire05Fleur00
1804| - 05Chêne0PArbre à feuilles caduques00

demo_repliée.ptv
Code:
+ Animaux
+ Plantes

demo_repliée.ptx 1ère ligne
Citation :
1F02+ 07Animaux10Poissons, mammifères et insecteszzCK1B04| + 0AMammifères0NSauvages et domestiqueszz3Q1706| | - 09Chevreuil0ISauvage, herbivore1506| | - 08Sanglier0HSauvage, omnivore1606| | - 06Cochon0KDomestique, omnivore1904| + 08Poissons0NEau douce et eau de merzz200V06| | - 09Lieu noir0AEau de mer0R06| | - 06Truite09Eau douce1804| + 08Insectes0MVolants et non volantszz2G1206| | - 05Guêpe0HVolant, dangereux1806| | - 06Fourni0MNon volant, inoffensif00
demo_repliée.ptx 2eme ligne
Citation :
1802+ 07Plantes0PArbres, fleurs et légumeszz521904| - 02Yf0TArbre à feuilles persistantes1A04| - 0IChoux de Bruxelles0ELégume d'hiver0T04| - 0ERose trémiaire05Fleur1804| - 05Chêne0PArbre à feuilles caduques00
Il faut éventuellement enlever les retours à la ligne dans ces deux dernières cases, puis combiner ces deux lignes en un seul fichier demo_repliée.ptx.

Attention: KGF_OBJ.bas dernière version est obligatoire !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
papydall

avatar

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

MessageSujet: Re: TreeView en Panoramic   Mer 7 Mai 2014 - 22:07

Bravo  klaus.
Personnellement j’utilise la commande TREE de l’invite de commande.
Mais le résultat est médiocre.
Ta solution est meilleure.

Code:

height 0,700 : width 0,400
memo 10 : width 10,300 : height 10,2000 : left 10,50 : font_bold 10
execute_wait "cmd.exe /c tree | clip"
item_add 10,clipboard_string_paste$

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: TreeView en Panoramic   Jeu 8 Mai 2014 - 0:59

Je voulais faire un outil utilisable pour n'importe qu'elle type d'information à présenter sous forme d'abre. cela peut être une liste de fichiers et dossiers, une nomenclature de pièces détachées pour un éclaté dans un contexte de maintenance de moteurs, voitures, etc, une liste d'ingrédients pour un processus de fabrication, une hiérarchie administrative, ... Les applications potentielles sont légion. Et le but est d'avoir un outil permettant non seulement la représentation graphique, mais également la modification interactive, et la mémorisation de données variables avec chaque élément. Ces données ne sont pas affichées, mais restent attachées à un élément et peuvent être interrogées et modifiées à tout moment. Ce n'est pas une base de données, mais c'est plus qu'un simple fichier géré par liste.

D'ailleurs, dans Windows, on a des TreeView partout. Pour les dossiers et fichiers, bien sûr, mais également pour l'outil de maintenance des clés de registre, beaucoup d'outils utilisent ce moyen pour la gestion de leurs options de configuration, etc.

C'est pourquoi je voulais tellement injecter le TTreeVew de Delphi dans Panoramic. J'ai pu le créer et injecter, le dimensionner et le supprimer, même en exemplaires multiples. J'ai réussi à construire des structures arborescentes dans cet élément, et à les interroger. Mais je n'ai jamais réussi à lui faire afficher ces informations, même si elles étaient bien présentes et mémorisées dans l'objet. Très frustrant. Donc, je me suis lâché sur Panoramic et je l'ai cuisiné moi-même. J'y ajouterai une série de fonctionnalités supplémentaires prochainement, avant de l'inclure officiellement sur mon site dans la liste des pseudo-objets.

Certes, j'aurais aimé qu'un tel objet apparaisse nativement dans Panoramic.Mais sachant à quel point Jack est surchargé, je n'ai même pas fait la demande pour un tel ajout. La seule chose que je ne pourrai pas faire en Panoramic et qui est possible avec un objet TTreeView, c'est la possibilité d'affecter une icône de 16x16 pixels à chaque élément. Mais bon. On ne peut pas tout avoir. L'important, c'est la fonctionnalité, et elle est là.

J'aimerais apporter un complément d'information. Ce module est fait en Panoramic pur, sans utilisation de DLL. Donc, tout le monde peut s'en servir. Mais il y a un hic: si par l'appel à une procédure, le numéro de la ligne sélectionnée a changé, ce ne sera pas visuellement perceptible dans l'affichage, par en Panoramic, il n'y a aucun moyen de forcer la sélection (ligne sur fond bleu) d'une ligne d'un objet LIST. Je peux le faire par un simple appel de la fonction SelectListBoxItem de KGF.dll, mais je devrais alors imposer l'utilisation de KGF.dll. Je pense que je vais introduire cela par la détection automatique de la présence de KGF.dll, de sorte à résoudre ce problème automatiquement dans les programmes qui ont de toutes façon cette DLL.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
jjn4

avatar

Nombre de messages : 1594
Date d'inscription : 13/09/2009

MessageSujet: Re: TreeView en Panoramic   Jeu 8 Mai 2014 - 14:05

J'avais déjà réalisé cela entièrement en panoramic
dans la partie Treeviewramic de l'utilitaire Récapituloramic
que j'avais présenté récemment, mais c'était seulement
pour l'arborescence des mémoires informatiques
(clés USB ou disques durs).
Le tien a l'avantage de le faire pour toutes les arborescences.
Bravo !
 cheers  alien  cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: TreeView en Panoramic   Jeu 8 Mai 2014 - 19:11

Nouvelle version:
J'ai ajouté 2 possibilités:
- suppression du pseudo-objet PTV
- recherche d'un nom dans les noeuds visibles, avec 3 options:

à partir du début ou à partir de la position actuelle
recherche du nom complet ou partiel
respect de la casse ou casse indifférente

J'ai tout mis sur lme WebDav, dossier "PTV - PanoramicTreeView". C'est plus pratique comme ça.

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: TreeView en Panoramic   Jeu 8 Mai 2014 - 20:00

Nouvelle version:
PTV_SUB.bas détecte maintenant automqtiquement si KGF.dll est chargée. Si oui, la ligne sélectionnée en résultat à un appel de procédure est automatiquement sélectionnée. Sinon, le programme fonctionne exactement de la même manière, mais il n'y a pas le repère visuel de la ligne sélectionnée, car c'est impossible à faire en Panoramic pur.

Le progralle de démo propose un bouton "Charger KGF.dll" au démarrage. Si l'on clique dessus, KGF.dll est chargée et le bouton disparait. Il fait bien sûr adapter le chemin vers la dll.

Maintenant, avec KGF.dll, l'effet de PTV est assez spectaculaire. Vous pouvez vérifier que pour chaque ligne, il y a des données spécifiques. Elles peuvent être visualisées dans le programme de démo, en sélectionnant une ligne puis en cliquant sur le bouton "Ch. données".
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Invité
Invité



MessageSujet: Re: TreeView en Panoramic   Ven 9 Mai 2014 - 1:20

Klaus a écrit:
la ligne sélectionnée en résultat à un appel de procédure est automatiquement sélectionnée. Sinon, le programme fonctionne exactement de la même manière, mais il n'y a pas le repère visuel de la ligne sélectionnée, car c'est impossible à faire en Panoramic pur.
J'ai pas fait l'essai de ton programme. J'ai peux de temps en ce moment, et j'ai eu un problème très curieux que j'ai eu du mal à résoudre dans le temps consacré à l'ordi.
Chaque fois que j'essayai de taper sur un lien ou un moteur de recherche, et avec tous les navigateurs que je possède, j'ouvrais une boite de dialogue pour enregistrer la commande.

Mais pour me changer les idées, j'ai voulu faire l'essai avec trois alphas pour simuler un TreeView avec un repère visuel.

Code:
dim a$,l%
dim t$,m$ , s$
t$ = chr$(13)
m$ = chr$(149)
s$ = "   "
form 5:width 5,500:left 5,200:top 5,100 : color 5,255,255,255 :command_target_is 5
alpha 7:font_size 7,10 : left 7,10:top 7,10 : font_name 7,"Consolas"
alpha 8:font_size 8,10 : left 8,10 : font_name 8,"Consolas" : color 8 ,184,195,208
alpha 9:font_size 9,10 : left 9,10 : font_name 9,"Consolas"

alfa()

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

sub alfa()
    dim_local a$ , b$ , c$ , h%  , m%

    a$ = m$+"C:"+t$+s$+m$+"Pano"+t$+s$+s$+m$+"Basic Panoramic"+t$+s$+s$+s$+"logo.ico"
    caption 7,a$
    h% = height(7)+top(7)
    b$ = s$+s$+s$+"Panoramic_Editor.exe            "
    top 8,h% : caption 8,b$
    h%=h%+height(8)
    c$ = s$+s$+s$+"Nouveau_1.bas" +t$+s$+s$+m$+"Mémoire"+t$+s$+s$+s$+"teste1.txt"+t$+s$+s$+s$+"teste2.txt"
    top 9,h%
    caption 9,c$
    m% = max(width(7),width(8))
    m% = max(m%,width(9))
    height 5,h%+height(9)+50 :width 5,m%+30
end_sub
C'est du vite fait, juste pour voir le visuel.

Edit: Deux alphas pourraient suffire en écrivant tout, et en retenant la position de la ligne, et rajouter le 2ème pour la ligne en sur-écriture.
Revenir en haut Aller en bas
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: TreeView en Panoramic   Ven 9 Mai 2014 - 1:55

Jolie présentation, Cosmos70. Graphiquement plus agréable que la mienne. Mais tu ne peux pas cliquer que une ligne pour déterminer le numéro de ligne et la sélectionner graphiquement. Ca, c'est l'intérêt des listes.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Invité
Invité



MessageSujet: Re: TreeView en Panoramic   Ven 9 Mai 2014 - 2:41

J'ai juste voulu voir le visuel. Je n'ai pas regardé ton code, donc je ne peux pas décider si ça vaut le coup ou non, mais là je ne suis pas d'accord.

Surtout avec 2 alphas, c'est encore plus simple. Je n'ai pas fait l'essai ici, mais je crois qu'il y avait quelque chose de semblable dans pagiciel.
Dans a$, au fur et à mesure que tu incrémentes d'une ligne( je sais c'est une chaîne,  mais je pense que tu comprend) je retiens la hauteur de la ligne pour la mettre dans un tableau. Avec on click sur l'alpha principal, je regarde la position et je compare avec celui du tableau.

On peux même procédé autrement. considérant que l'écriture d'une ligne fasse 10 pixels, selon la position relevée sur le clic, on connait la ligne.

Maintenant je ne connait pas ton programme, et je fais des hypotèses. Peut-être ça ne vaut rien, et je viens de vérifier: mouse_y_position ne créé pas d'erreur sur alpha. C'est juste une idée, sans vouloir t'imposer ce concept. mais je ne peux seulement pas accepter ce que je considère comme une erreur de réflexion. Mais ne t'en fais pas, je me trompe souvent.

Là dessus bonne nuit. Je vais comme mes chats, je vais faire ronron.  Sleep
Revenir en haut Aller en bas
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: TreeView en Panoramic   Ven 9 Mai 2014 - 3:12

Oh, ce n'est pas une erreur de réflexion, Cosmos70. Certes, comme tu le décris très bien, on peut connaître la position du clic sur un ALPHA, ainsi que la hauteur d'une ligne, et en déduire le numéro de ligne affichée.

Mais ce numéro n'est pas le numéro de la ligne de données, en tout cas pas dans le cas d'un LIST, qui peut défiler à l'écran avec la barre de défilement vertical, ce qui est toujours le cas si le nombre de lignes à afficher dépasse le nombre de lignes affichables simultanément dans un ALPHA. Car je veux pouvoir faire des arbres de n'importe quel nombre de lignes et des lignes de n'importe quelle largeur, quelque soit l'espace d'affichage disponible.

Certes, je pourrais tout garder dans une DLIST, gérer le défilement mo-même en réaffichant uniquement la partie utile. C'est ce que je fais dans mon pseudo-objet GLIST. Mais je sais aussi quelle galère c'est, et j'ai voulu économiser ce travail qui est très bien fait par l'objet LIST, pour me concentrer sur le codage de la partie arborescence. Et tant pis pour l'aspect graphique. Mais essaie le programme, tu verras que ce n'est pas si catastrophique que ça...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Invité
Invité



MessageSujet: Re: TreeView en Panoramic   Ven 9 Mai 2014 - 3:21

je me suis relevé, j'avais une autre idée:
Code:
list 1:item_add 1,"je regarde":item_add 1,"passer le train":item_add 1,"le soir":item_add 1,"au fond des bois"
width 1,300:height 1,200 : font_size 1,10

list 2:top 2,43:color 2,184,195,220 : font_size 2,10 :height 2,22 : width 2,300
 item_add 2, "ligne alpha"

On se croise. Bon moi je ne fais pas le programme. Je réagissais par rapport à l'impossibilité de faire qui était dite, et simplement je voulais montrer que cela se discutait, et j'ai fait un petit programme pour voir le résultat. Il est hors de question de reprendre ton travail. J'ai mes propres problèmes que je résous petit à petit. Car moi aussi de mon côté je dois surmonter des obstacles auxquels je ne m'attend pas.

Cette fois-ci bonne nuit.
Revenir en haut Aller en bas
Contenu sponsorisé




MessageSujet: Re: TreeView en Panoramic   

Revenir en haut Aller en bas
 
TreeView en Panoramic
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» TreeView en Panoramic
» EDI réalisé entièrement en Panoramic
» EDI réalisé entièrement en Panoramic
» pas un panoramic mais utilitaires delphi.
» Programmes Panoramic en ligne de commande

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