PB onglet Version 1.0 beta 3

Developed or developing a new product in PureBasic? Tell the world about it.
User avatar
microdevweb
Enthusiast
Enthusiast
Posts: 179
Joined: Fri Jun 13, 2014 9:38 am
Location: Belgique

PB onglet Version 1.0 beta 3

Post by microdevweb »

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: Select all

; ******************************************************************************
; 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
Last edited by microdevweb on Mon Jul 22, 2019 12:45 pm, edited 5 times in total.
Use Pb 5.73 lst and Windows 10

my mother-language isn't english, in advance excuse my mistakes.
BarryG
Addict
Addict
Posts: 3292
Joined: Thu Apr 18, 2019 8:17 am

Re: PB onglet Version 1.0 beta 1

Post by BarryG »

Looks good! Thanks for sharing it.
User avatar
microdevweb
Enthusiast
Enthusiast
Posts: 179
Joined: Fri Jun 13, 2014 9:38 am
Location: Belgique

Re: PB onglet Version 1.0 beta 2

Post by microdevweb »

beta 3 is out
Use Pb 5.73 lst and Windows 10

my mother-language isn't english, in advance excuse my mistakes.
User avatar
Kwai chang caine
Always Here
Always Here
Posts: 5342
Joined: Sun Nov 05, 2006 11:42 pm
Location: Lyon - France

Re: PB onglet Version 1.0 beta 3

Post by Kwai chang caine »

Really nice, like usually :wink:
I have a little error at this line with W10 / v5.70 X86

Code: Select all

SetWindowLong_(WindowID(\onglet\idHelpForm), #GWL_EXSTYLE, #WS_EX_LAYERED | #WS_EX_TOPMOST)
Thanks for sharing 8)
ImageThe happiness is a road...
Not a destination
IdeasVacuum
Always Here
Always Here
Posts: 6425
Joined: Fri Oct 23, 2009 2:33 am
Location: Wales, UK
Contact:

Re: PB onglet Version 1.0 beta 3

Post by IdeasVacuum »

Hi Kcc

That should be SetWindowLongPtr_()
IdeasVacuum
If it sounds simple, you have not grasped the complexity.
User avatar
microdevweb
Enthusiast
Enthusiast
Posts: 179
Joined: Fri Jun 13, 2014 9:38 am
Location: Belgique

Re: PB onglet Version 1.0 beta 3

Post by microdevweb »

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
Use Pb 5.73 lst and Windows 10

my mother-language isn't english, in advance excuse my mistakes.
Post Reply