PureBasic Forum
https://www.purebasic.fr/english/

PB onglet Version 1.0 beta 3
https://www.purebasic.fr/english/viewtopic.php?f=14&t=73235
Page 1 of 1

Author:  microdevweb [ Sat Jul 20, 2019 11:23 pm ]
Post subject:  PB onglet Version 1.0 beta 3

Pb onglet is a tools bar like a panel completely customisable.

At the moment Windows only

TO GITHUB
USER MANUAL

Image

How to try it :

Code:
; ******************************************************************************
; AUTHOR  : MicrodevWeb
; MODULE  : Pb Onglet
; 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-ONGLET/archive/master.zip",zipName)
    MessageRequester("Download error","Cannot download the package",#PB_MessageRequester_Error)
    End
  EndIf
  #PACKER = 0
  CreateDirectory("ONGLET")
  CreateDirectory("ONGLET/CLASSES")
  CreateDirectory("ONGLET/CLASSES/IMG")
  CreateDirectory("EXAMPLES")
  CreateDirectory("EXAMPLES/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-ONGLET-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()


Image

Author:  BarryG [ Sun Jul 21, 2019 6:11 am ]
Post subject:  Re: PB onglet Version 1.0 beta 1

Looks good! Thanks for sharing it.

Author:  microdevweb [ Mon Jul 22, 2019 10:59 am ]
Post subject:  Re: PB onglet Version 1.0 beta 2

beta 3 is out

Author:  Kwai chang caine [ Mon Jul 22, 2019 8:00 pm ]
Post subject:  Re: PB onglet Version 1.0 beta 3

Really nice, like usually :wink:
I have a little error at this line with W10 / v5.70 X86
Code:
SetWindowLong_(WindowID(\onglet\idHelpForm), #GWL_EXSTYLE, #WS_EX_LAYERED | #WS_EX_TOPMOST)

Thanks for sharing 8)

Author:  IdeasVacuum [ Mon Jul 22, 2019 11:07 pm ]
Post subject:  Re: PB onglet Version 1.0 beta 3

Hi Kcc

That should be SetWindowLongPtr_()

Author:  microdevweb [ Tue Jul 23, 2019 8:58 am ]
Post subject:  Re: PB onglet Version 1.0 beta 3

Hi Kcc i don't have any error with pb 5.70 x86, but i've changed this instruction as like IdeasVacuum wrote.

Please can you run again the code for download the new package and try again.

Thanks

Page 1 of 1 All times are UTC + 1 hour
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/