Flype UserLibraries for PureBasic 4.0

[josku_x]

why booooooooring....

JoystickEx V1.0 should work with up to 16 joysticks.
if some of you have more than 1 controller, please test and let me know.

It was boring because you didn't have that something every thread should have

[z3phir2003]

thanks a lot for u'r code

[Dare]

Hi Flype,

I think your lib and source codes are out of synch for SysTrayIconEx (using the sources as includes with the example gets "Incorrect Number of Parameters" for some calls). Just mentioning in case you want to change it.

Thanks again for all this good stuff!

[Flype]

humm, are you sure ?

it's because some of the functions are provided in two syntax (i use the tailbite feature for multiple arguments).

AddSysTrayIconEx(uId.l, hWindow.l, hIcon.l)
AddSysTrayIconEx2(uId.l, hWindow.l, hIcon.l, Tip.s)

SysTrayIconBalloonEx(uId.l, hWindow.l, title.s, message.s, timeOut.l)
SysTrayIconBalloonEx2(uId.l, hWindow.l, title.s, message.s, timeOut.l, flags.l)

but, then, since it's compiled with tailbite it becomes :

AddSysTrayIconEx(uId.l, hWindow.l, hIcon.l [, Tip.s])
SysTrayIconBalloonEx(uId.l, hWindow.l, title.s, message.s, timeOut.l [, flags.l])

[Dare]

Ah, okay! Thanks for the clarification. Sorry for the false alarm!

[Flype]

New file:

Includes for PostgreSQL 8.1,
a free, open-source, and very efficient SGBDR.

see first post,
regards.

[Andre]

@Flype: it's ok to include all your libs also on www.PureArea.net ?

[z3phir2003]

hi the link for File:1->libpgsql81_full.zip is broken i keep geting a 0bytes file using firefox and ie

[Flype]

yes, andre, as always

link is corrected - see first post.

[Flype]

NEW

about this post : http://www.purebasic.fr/english/viewtop ... highlight=

i've added a wrapper to the list (see 1st post) for the RMCHART.DLL V3.10.

More information about this free DLL here : http://www.rmchart.com/

A screenshot of what it can do :

[yoxola]

Thiese libraries is pretty powerful and useful, thanks for the contribution.

[Flype]

NEW

Related to some recent topics and for my own use (as i have 2 monitors),
i decided to make my own 'DesktopEx V1.0b for PB4' which is basically a replacement for the purebasic 'Desktop' internal library (but only for PB4/Win32).

It is largely based on the source provided by the communauty of the english forum

See first post for download.

At this stage, beta test, i have still 2 problems related to Tailbite :

. TB_Debug_Error() seems bugged, so 'Debug' reports do not work atm.
. Ansi/Unicode is supported when used with 'IncludeFile' but do not work once compiled with tailbite.

I will inquire a bit about this last 2.

Functions List :

Code: Select all

ExamineDesktopsEx()               ; Retrieves informations about user's desktops and returns the number of desktops.

DesktopExName(index.l)            ; Returns the device name of the specified desktop, if any.
DesktopExString(index.l)          ; Returns the device string of the specified desktop, if any.
DesktopExRegID(index.l)           ; Returns the device id of the specified desktop, if any.
DesktopExRegKey(index.l)          ; Returns the device key of the specified desktop, if any.

DesktopExMouseY(index.l)          ; Returns the absolute/relative x mouse position. 
DesktopExMouseX(index.l)          ; Returns the absolute/relative x mouse position. 
DesktopExMouse(x.l, y.l, index.l) ; Set the absolute/relative mouse position.

DesktopExLeftArea(index.l)        ; Returns the left position (in pixels) in the work area of the specified desktop.
DesktopExTopArea(index.l)         ; Returns the top position (in pixels) in the work area of the specified desktop.
DesktopExWidthArea(index.l)       ; Returns the right position (in pixels) in the work area of the specified desktop.
DesktopExHeightArea(index.l)      ; Returns the bottom position (in pixels) in the work area of the specified desktop.

DesktopExTop(index.l)             ; Returns the top position (in pixels) of the specified desktop.
DesktopExLeft(index.l)            ; Returns the left position (in pixels) of the specified desktop.
DesktopExWidth(index.l)           ; Returns the width (in pixels) of the specified desktop.
DesktopExHeight(index.l)          ; Returns the height (in pixels) of the specified desktop.
DesktopExDepth(index.l)           ; Returns the depth (bits per pixels) of the specified desktop.
DesktopExFrequency(index.l)       ; Returns the frequency (in Hz) of the specified desktop.

DesktopExID(index.l)              ; Returns the handle (HMONITOR) of the specified desktop.
DesktopExFlags(index.l)           ; Returns the device flags of the specified desktop.

DesktopExIsActive(index.l)        ; Returns #TRUE if the specified desktop is active, else #False.
DesktopExIsPrimary(index.l)       ; Returns #TRUE if the specified desktop is the primary one, else #False.
DesktopExIsRemote(index.l)        ; Returns #TRUE if the specified desktop is remote one (Terminal Server), else #False.
DesktopExIsRemovable(index.l)     ; Returns #TRUE if the specified desktop is removable, else #False.
DesktopExIsVGACompatible(index.l) ; Returns #TRUE if the specified desktop is VGA Compatible, else #False.

DesktopExFromWindow(*hwnd)        ; Returns the #Desktop of the specified WindowID.
DesktopExFromRect(*lpRect)        ; Returns the #Desktop of the specified RECT structure.
DesktopExFromPoint(x.l, y.l)      ; Returns the #Desktop of the specified coords.

Best regards.

[Pantcho!!]

Thanks Flype your libs are very cool!

[LuckyLuke]

Hi Flype,

Thanks for the cool includes ... I'm using the extended linkedlist lib in my project. (ExplorerBar Gadget).
Using add and deletes causes an endless loop in the following procedure :

Code: Select all

Procedure.l LastElementEx(*list.LINKEDLISTEX)
  While *list      
    If *list\next = #Null
      ProcedureReturn *list
    EndIf
    *list = *list\next
    ;Added to prevent endless loop
    If *list\next  = *list\prev 
      *list\next = #Null
     EndIf       
  Wend
EndProcedure

Maybe I'm not using it correctly, but the above function gives me an endless loop
If you need an example, it can be downloaded here.

[Flype]

@luckyluke

ok, i'm looking at your sample.