Voici un module générique pour afficher des nodes et liaisons
Il reste encore beaucoup de travail, mais j'ai essayé qu'il soit le plus générique possible.
(l'aide est en cours de création)
TO GITHUB
User help
Version history:
- beta 2 -> Fixed -> x86 fatal bug
Comment tester :
- Lancer votre éditeur PureBasic
- Coller et sauvegarder le code ci-dessous dans un répertoire de votre choix
- Lancer la compilation
- Accepter le téléchargement du package
- Executer XIncludeFile "EXAMPLE/EX_01.pb"
- ou commenter loadPackage() et dé-commenter "EXAMPLE/EX_01.pb"
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/VISUAL_BOARD/archive/master.zip",zipName)
MessageRequester("Download error","Cannot download the package",#PB_MessageRequester_Error)
End
EndIf
#PACKER = 0
CreateDirectory("BOARD")
CreateDirectory("BOARD/CLASSES")
CreateDirectory("BOARD/CLASSES/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),"VISUAL_BOARD-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/EX_01.pb"