PureBasic Forums - English

Posted: **Sun Jun 30, 2019 1:51 pm**

Hello everybody,

For a personal project i've needed of my treeview. But i look this usage and i think it is not easier of all. So i've decided to design a new, in full objet and really more easier than old.

That is a beta version, i've not really finished it. I have to add button options and also manage the sroll area.

To Github
Download
Wiki User manual

History of version :

Beta 6 -> fixed -> some bugs
Beta 7 -> added ->enableDragEvent(target)
Beta 8 -> fixed ->tree\free()

For example :

How testing

Run your PureBasic Editor
Copy and save this below code in your directory
Agree to download the package
Open the file EXAMPLE/main.pb
Run the file
You can also decomment the last line and run again

Code: Select all

; ******************************************************************************
; 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"

Posted: **Tue Jul 02, 2019 2:24 am**

Hi microdevweb

Thank you for sharing thats really handy and excellent

Zebuddi.

Posted: **Tue Jul 02, 2019 8:47 am**

Thank you microdevweb, very nice piece of code !

Posted: **Tue Jul 02, 2019 9:25 am**

Hello all,

New version Beta 2

Added Button class

Posted: **Tue Jul 02, 2019 11:16 am**

new Version Beta 3

Add : scroll area activate when you resize the container

Posted: **Tue Jul 02, 2019 11:43 am**

new Beta 4

added : tree\removeItem(item)

Posted: **Wed Jul 03, 2019 1:05 pm**

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

Posted: **Mon Jul 08, 2019 8:51 am**

Beta 6 is out

Posted: **Tue Jul 09, 2019 11:15 am**

Beta 7 is out

added enableDragEvent(target)

Posted: **Fri Jul 12, 2019 11:27 am**

Hello Guys,

For make the test more easier i've designed a launcher

Posted: **Fri Jul 12, 2019 11:53 am**

This looks really promising

What i found:

Free is not implemented:

Code: Select all

Procedure TREE_free(*this._TREE)
  With *this
    
  EndWith
EndProcedure

All ToolTips flicker for me.

I ony could run it via the main.pb because the example project requests classes that are not provided.

Posted: **Fri Jul 12, 2019 12:45 pm**

@Mijikai,

Thanks i look for that

Posted: **Fri Jul 12, 2019 12:57 pm**

Beta 8 is out

fixed : tree\free()

PureBasic Forums - English

Pure basic personal Tree view (Version 3.0 Beta 8)

Pure basic personal Tree view (Version 3.0 Beta 8)

Re: Pure basic personal Tree view (Version 3.0) Beta 1

Re: Pure basic personal Tree view (Version 3.0) Beta 1

Re: Pure basic personal Tree view (Version 3.0) Beta 2

Re: Pure basic personal Tree view (Version 3.0) Beta 3

Re: Pure basic personal Tree view (Version 3.0) Beta 4

Re: Pure basic personal Tree view (Version 3.0) Beta 4

Re: Pure basic personal Tree view (Version 3.0 Beta 6)

Re: Pure basic personal Tree view (Version 3.0 Beta 7)

Re: Pure basic personal Tree view (Version 3.0 Beta 7)

Re: Pure basic personal Tree view (Version 3.0 Beta 7)

Re: Pure basic personal Tree view (Version 3.0 Beta 7)

Re: Pure basic personal Tree view (Version 3.0 Beta 7)