Pb Tree view (version 3.0 beta 8)

Programmation d'applications complexes
Avatar de l’utilisateur
microdevweb
Messages : 1798
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Pb Tree view (version 3.0 beta 8)

Message par microdevweb »

Bonjour à tous,

Javais déjà réaliser un module TreeView (en 2015). Comme j'en avais besoin pour un projet, je me suis rendu compte que le module était assez lourd à l'utilisation.

J'ai don réaliser un nouveau module (full oop), et beaucoup plus facile d'utilisation.


Vers Github
Download
Wiki User manual

History of version :
  • Beta 6 -> fixed ->some bugs
  • Beta 7 -> added -> enableDragEvent(target)
  • Beta 8 -> fixed -> tree\free()

Exemple :

Image

Image

Image

Comment tester :
  • Ouvrer votre éditeur PureBasic.
  • Sauvegarder et lancer le code ci-dessous.
  • Donner votre accord pour télécharger le package.
  • Ouvrer le fichier EXAMPLE/main.pb
  • Exécuter le fichier
  • Ou dé-commenter la dernière ligne et relancer le fichier

Code : Tout sélectionner

; ******************************************************************************
; AUTHOR  : MicrodevWeb
; MODULE  : TreeView
; PROCESS : load package
; ******************************************************************************
EnableExplicit
Procedure loadPackage()
  Protected zipName.s = "PACKAGE.zip"
  If MessageRequester("Download Package","Do you agree to download the tree view package form github?",#PB_MessageRequester_YesNo) = #PB_MessageRequester_No
    End
  EndIf
  If Not InitNetwork()
    MessageRequester("Network error","Cannot connect to internet",#PB_MessageRequester_Error) 
    End
  EndIf
  If Not ReceiveHTTPFile("https://github.com/microdevweb/PB_TREE_VIEW_3.0/archive/master.zip",zipName)
    MessageRequester("Download error","Cannot download the package",#PB_MessageRequester_Error) 
    End
  EndIf
  #PACKER = 0
  CreateDirectory("TREE")
  CreateDirectory("TREE/CLASS")
  CreateDirectory("TREE/IMG")
  CreateDirectory("EXAMPLE")
  CreateDirectory("EXAMPLE/IMG")
  UseZipPacker()
  OpenPack(#PACKER,zipName)
  If ExaminePack(#PACKER)
    While NextPackEntry(#PACKER)
      Protected dirName.s = StringField(PackEntryName(#PACKER),2,"/")
      If PackEntryType(#PACKER) = #PB_Packer_File
        Protected fileName.s = RemoveString(PackEntryName(#PACKER),"PB_TREE_VIEW_3.0-master/")
        If Not UncompressPackFile(#PACKER,fileName)
          MessageRequester("Download error","Cannot unzip file "+fileName,#PB_MessageRequester_Error) 
          End
        EndIf
      EndIf
    Wend
  EndIf
  ClosePack(#PACKER)
  DeleteFile(zipName)
EndProcedure

loadPackage()

;XIncludeFile "EXAMPLE/main.pb"
Dernière modification par microdevweb le ven. 12/juil./2019 13:22, modifié 10 fois.
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Shadow
Messages : 1373
Inscription : mer. 04/nov./2015 17:39

Re: Pb Tree view (version 3.0 beta 1)

Message par Shadow »

Salut microdevweb,

Ce serait bien si tu pouvait nous faire un exemple complète sur ce que peut faire ton code.
Processeur: Intel Core I7-4790 - 4 Cœurs - 8 Thread: 3.60 Ghz.
Ram: 32 GB.
Disque: C: SDD 250 GB, D: 3 TB.
Vidéo: NVIDIA GeForce GTX 960: 2 GB DDR5.
Écran: Asus VX248 24 Pouces: 1920 x 1080.
Système: Windows 7 64 Bits.

PureBasic: 5.60 x64 Bits.
Avatar de l’utilisateur
Kwai chang caine
Messages : 6962
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: Pb Tree view (version 3.0 beta 1)

Message par Kwai chang caine »

Marche nickel, la détection du cochage de la checkbox ne génère rien dans le debug mais ce doit être voulu :wink:
Merci du partage 8)
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Avatar de l’utilisateur
microdevweb
Messages : 1798
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: Pb Tree view (version 3.0 beta 2)

Message par microdevweb »

Version Beta 2

add : class button
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Avatar de l’utilisateur
microdevweb
Messages : 1798
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: Pb Tree view (version 3.0 beta 3)

Message par microdevweb »

new Version Beta 3

Add : scroll area activate when you resize the container
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Avatar de l’utilisateur
microdevweb
Messages : 1798
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: Pb Tree view (version 3.0 beta 4)

Message par microdevweb »

new Beta 4

added : tree\removeItem(item)
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Avatar de l’utilisateur
microdevweb
Messages : 1798
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: Pb Tree view (version 3.0 beta 4)

Message par microdevweb »

Hello guys,

It's upgrade to beta 5.

Added : some methods for personalize your treeview.
  • setColors(back,front,line)
  • setSelectedColors(back,front)
  • setTolltipColors(back,front)
  • setExpandedIcons(expanded,collapsed)
  • setCheckedIcons(checked,unChecked)
Fixed : some bugs
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Shadow
Messages : 1373
Inscription : mer. 04/nov./2015 17:39

Re: Pb Tree view (version 3.0 beta 5)

Message par Shadow »

C'est bien ça prends forme, cool, merci, continue :)
As tu l'idée de gérer le drag en drop ?
Car là tu va t'amuser mon ami ^^
Processeur: Intel Core I7-4790 - 4 Cœurs - 8 Thread: 3.60 Ghz.
Ram: 32 GB.
Disque: C: SDD 250 GB, D: 3 TB.
Vidéo: NVIDIA GeForce GTX 960: 2 GB DDR5.
Écran: Asus VX248 24 Pouces: 1920 x 1080.
Système: Windows 7 64 Bits.

PureBasic: 5.60 x64 Bits.
Avatar de l’utilisateur
microdevweb
Messages : 1798
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: Pb Tree view (version 3.0 beta 5)

Message par microdevweb »

@Shadow,

Oui le drag and drop sera géré et cela devrait aller cela fonctionnait dans l'ancienne version.
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Avatar de l’utilisateur
microdevweb
Messages : 1798
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: Pb Tree view (version 3.0 beta 6)

Message par microdevweb »

Beta 6 is out
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Avatar de l’utilisateur
microdevweb
Messages : 1798
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: Pb Tree view (version 3.0 beta 7)

Message par microdevweb »

Beta 7 is out

added enableDragEvent(target)
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
mestnyi
Messages : 4
Inscription : dim. 09/mars/2014 21:30

Re: Pb Tree view (version 3.0 beta 7)

Message par mestnyi »

Je voulais vérifier, mais Mac OS ne fonctionne pas.
Avatar de l’utilisateur
microdevweb
Messages : 1798
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: Pb Tree view (version 3.0 beta 7)

Message par microdevweb »

@mestnyi,

Je ne possède pas de mac, je ne saurais donc pas te dire. Cependant aucune fonction spécifique à window n'est utilisée.
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
mestnyi
Messages : 4
Inscription : dim. 09/mars/2014 21:30

Re: Pb Tree view (version 3.0 beta 7)

Message par mestnyi »

Code : Tout sélectionner

premier problème
from > XIncludeFile "..\TREE\TREE.pbi"
to > XIncludeFile "../TREE/TREE.pbi"
deuxième problème
.l to.i
Troisième problème
.ico
Avatar de l’utilisateur
microdevweb
Messages : 1798
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: Pb Tree view (version 3.0 beta 7)

Message par microdevweb »

@mestnyi,

Merci pour ses informations.
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Répondre