PureBasic Code-Archive v1.6

dmoc · Post by **dmoc** » Sun Sep 07, 2003 7:58 pm

Andre, thanks for the code archive, it make's a great reference. Just one suggestion, how about a "What's new" section? Also noticed some graphics files missing (I'll take note which next time I use it).

Post by **Andre** » Sun Sep 21, 2003 1:16 pm

dmoc wrote:Andre, thanks for the code archive, it make's a great reference. Just one suggestion, how about a "What's new" section? Also noticed some graphics files missing (I'll take note which next time I use it).

Probably I will add a "new" symbol to newly added codes in future versions.

Graphics are only included in the download archive, but (still) not listed on the website...

high key · Post by **high key** » Fri Sep 26, 2003 10:47 am

I didn't find a code for special folders in AndrÃ©'s CodeArchive, so I converted the example from the API-Guide:

Code: Select all

Declare.s GetSpecialfolder(CSIDL)


#CSIDL_DESKTOP = 0
#CSIDL_PROGRAMS = 2
#CSIDL_CONTROLS = 3
#CSIDL_PRINTERS = 4
#CSIDL_PERSONAL = 5
#CSIDL_FAVORITES = 6
#CSIDL_STARTUP = 7
#CSIDL_RECENT = 8
#CSIDL_SENDTO = 9
#CSIDL_BITBUCKET = $A
#CSIDL_STARTMENU = $B
#CSIDL_DESKTOPDIRECTORY = $10
#CSIDL_DRIVES = $11
#CSIDL_NETWORK = $12
#CSIDL_NETHOOD = $13
#CSIDL_FONTS = $14
#CSIDL_TEMPLATES = $15




Structure shItemID
    cb.l
    abID.b 
EndStructure

Structure ItemIDlist
    mkid.shItemID
EndStructure


a$= "Start menu folder: " + GetSpecialfolder(#CSIDL_STARTMENU)
b$= "Favorites folder: " + GetSpecialfolder(#CSIDL_FAVORITES)
c$= "Programs folder: " + GetSpecialfolder(#CSIDL_PROGRAMS)
d$= "Desktop folder: " + GetSpecialfolder(#CSIDL_DESKTOP)
e$= "Startup folder: " + GetSpecialfolder(#CSIDL_STARTUP)

   
MessageRequester("Info",a$+Chr(13)+b$+Chr(13)+c$+Chr(13)+d$+chr$(13)+e$,0)



Procedure.s GetSpecialfolder(CSIDL)
   
    r = SHGetSpecialFolderLocation_(0, CSIDL, @IDL.ITEMIDLIST)
    If r = #NOERROR
        Path$ = Space(512)
        r = SHGetPathFromIDList_(IDL\mkid\cb, Path$)
        folder$ = Trim(Path$)        
       Else
        folder$="" 
    EndIf
    
    ProcedureReturn folder$
    
EndProcedure

Post by **Andre** » Sat Sep 27, 2003 4:44 pm

Thanks for this one ! Will be included in next release...

Normally I'm reading all the posts on english & german PB forum and include good codes in the archive.

If anyone of you want to see more of his own code examples (probably with needed [small!] gfx,sound files) in the code-archive, simply send to andre@purebasic.com Thanks !

TronDoc · Post by **TronDoc** » Thu Oct 02, 2003 6:23 pm

@AndrÃ©:
Don't get TOO MANY of these EXCELLENT examples in
your code archive! We will not have a reason to visit
the forums anymore nor the time to learn them all!
<joking>

Joe

Post by **Andre** » Fri Oct 03, 2003 9:45 pm

TronDoc wrote:@AndrÃ©:
Don't get TOO MANY of these EXCELLENT examples in
your code archive! We will not have a reason to visit
the forums anymore nor the time to learn them all!
<joking> Joe

Not my problem.

I'm already collecting to reach the 1000...

eddy · Post by **eddy** » Wed Oct 08, 2003 1:14 am

Now...

Code Archiv will become very (x3) usefull for me.
I really need some good examples to understand how to work the new PB features. (COM, interfaces, etc..) 8O

For example, I have a tip to use clipboard in a Webgadget by using PB function "CALLCOM".
Is this function obsolete ?
Is there new solution ?

Post by **freak** » Wed Oct 08, 2003 11:22 am

> For example, I have a tip to use clipboard in a Webgadget by using PB function "CALLCOM".

I made an example of using IWebBrowser2 and WebGadget with the new
Interface stuff.

Here:
viewtopic.php?p=35682#35682

It should be easy to use for the clipboard stuff.

Timo

Post by **Andre** » Sun Nov 02, 2003 10:40 pm

Just in case, you haven't noticed it:

CodeArchive is now available as V1.6 with 914 PureBasic code examples. Go to www.PureArea.net for downloading...

dmoc · Post by **dmoc** » Sun Nov 02, 2003 11:51 pm

Great stuff Andre, well done and thanks!

TronDoc · Post by **TronDoc** » Mon Nov 03, 2003 12:29 am

high key wrote:I didn't find a code for special folders in AndrÃ©'s CodeArchive, so I converted the example from the API-Guide:

Code: Select all

MessageRequester("Info",a$+Chr(13)+b$+Chr(13)+c$+Chr(13)+d$+chr$(13)+e$,0)

Code: Select all

MessageRequester("Info",a$+Chr(13)+b$+Chr(13)+c$+Chr(13)+d$+chr(13)+e$,0)

chr$
I make this "mistake" too!

Joe

eddy · Post by **eddy** » Sun Dec 28, 2003 6:56 am

@Andre
You can update or correct some codes ?

Post by **Andre** » Wed Dec 31, 2003 2:14 am

eddy wrote:@Andre
You can update or correct some codes ?

Normally the CodeArchive will be released every 5-6 weeks in a new version.

If you have any suggestions, corrections or new codes to be added, simply send them me per email to andre@purearea.net Thanks!

eddy · Post by **eddy** » Sun Mar 28, 2004 4:57 am

add :
- treeview editable
- listbox editable

viewtopic.php?t=10064
In the same post there's a link to a lisbox tip

Post by **Andre** » Sun Mar 28, 2004 4:38 pm

@Eddy: already noticed.

Next version will be released in April, but don't ask for a specific date

PureBasic Forums - English

PureBasic Code-Archive v1.6

Get Special folders

Re: Get Special folders

for the next release ...