Posted: Mon Jun 02, 2008 8:43 pm
Thanks!
http://www.purebasic.com
https://www.purebasic.fr/english/
Code: Select all
PureXLS_WriteString(id, "<AutoFilter x:Range="+Chr(34)+"R3C1:R3C11"+Chr(34)+" xmlns="+Chr(34)+"urn:schemas-microsoft-com:office:excel"+Chr(34)+">" )
PureXLS_WriteStringN(id, "</AutoFilter>")
Code: Select all
;-----------------------------------------------------------
;- Object: NotifyIcon UserLibrary
;- Version: 1.1, May 2006
;-
;- Requir.: PureBasic 4.0
;- TailBite 1.3 PR 1.0
;-
;- Author: flype - flype@altern.org
;-
;- Descr. Microsoft SHELL_NOTIFYICON
;- Functions for Systray Icon (shellapi.h)
;-----------------------------------------------------------
;-----------------------------------------------------------
; Constants
;-----------------------------------------------------------
Enumeration ; #WM
#WM_USER = $400
#WM_NOTIFYICON = $400 + $7258
EndEnumeration
Enumeration ; #NIF
#NIF_MESSAGE = $01 ; 95+
#NIF_ICON = $02 ; 95+
#NIF_TIP = $04 ; 95+
#NIF_STATE = $08 ; 95+
#NIF_INFO = $10 ; 2000+
#NIF_GUID = $20 ; XP+ Reserved
EndEnumeration
Enumeration ; #NIIF
#NIIF_NONE = $00 ; 2000+
#NIIF_INFO = $01 ; 2000+
#NIIF_WARNING = $02 ; 2000+
#NIIF_ERROR = $03 ; 2000+
#NIIF_USER = $04 ; XPSP2+
#NIIF_ICON_MASK = $0F ; XP+ Reserved
#NIIF_NOSOUND = $10 ; XP+ Reserved
EndEnumeration
Enumeration ; #NIM
#NIM_ADD = 0 ; 95+
#NIM_MODIFY = 1 ; 95+
#NIM_DELETE = 2 ; 95+
#NIM_SETFOCUS = 3 ; 2000+
#NIM_SETVERSION = 4 ; 2000+
EndEnumeration
Enumeration ; #NIN
#NINF_KEY = 1
#NIN_SELECT = $400
#NIN_KEYSELECT = $401
#NIN_BALLOONSHOW = $402 ; XP+
#NIN_BALLOONHIDE = $403 ; XP+
#NIN_BALLOONTIMEOUT = $404 ; XP+
#NIN_BALLOONUSERCLICK = $405 ; XP+
EndEnumeration
Enumeration ; #NIS
#NIS_HIDDEN = 1 ; 2000+
#NIS_SHAREDICON = 2 ; 2000+
EndEnumeration
#NOTIFYICON_VERSION = 3 ; 2000+
Structure NOTIFYICONDATA_95
cbSize.l
hwnd.l
uID.l
uFlags.l
uCallbackMessage.l
hIcon.l
szTip.c[64]
EndStructure
Structure NOTIFYICONDATA_2K Extends NOTIFYICONDATA_95
szTipEx.c[64]
dwState.l
dwStateMask.l
szInfo.c[256]
StructureUnion
uTimeout.l
uVersion.l
EndStructureUnion
szInfoTitle.c[64]
dwInfoFlags.l
EndStructure
Structure NOTIFYICONDATA_XP Extends NOTIFYICONDATA_2K
guid.GUID
EndStructure
Code: Select all
;------------------------------------------------------------------------------------------------
;- Object: SysTrayIconEx UserLibrary
;- Version: 1.0, May 2006
;- Author: flype - flype@altern.org
;- Requir.: PureBasic 4.0 / TailBite 1.3 PR 1.2
;------------------------------------------------------------------------------------------------
;EnableExplicit
IncludeFile "C:\code\UserLib_PB40_SysTrayIconEx\UserLib_PB40_SysTrayIconEx\Source\\SysTrayIconRes.pb"
;------------------------------------------------------------------------------------------------
; AddSysTrayIconEx(uID.l, hWindow.l, hIcon.l [, tip.s])
; RemoveSysTrayIconEx(uID.l, hWindow.l)
; SysTrayIconToolTipEx(uID.l, hWindow.l, tip.s)
; HideSysTrayIconEx(uID.l, hWindow.l, state.l)
; SetActiveSysTrayIconEx(uID.l, hWindow.l)
; SysTrayIconBalloonEx(uID.l, hWindow.l, title.s, message.s, timeOut.l [, flags.l])
;------------------------------------------------------------------------------------------------
;------------------------------------------------------------------------------------------------
; Compatibility : Microsoft Windows 95+
;------------------------------------------------------------------------------------------------
ProcedureDLL.l AddSysTrayIconEx(uID.l, hWindow.l, hIcon.l)
Protected nid.NOTIFYICONDATA_95
nid\cbSize = SizeOf(NOTIFYICONDATA_95)
nid\uID = uID
nid\hwnd = hWindow
nid\hIcon = hIcon
nid\uFlags = #NIF_MESSAGE | #NIF_ICON
nid\uCallbackMessage = #WM_NOTIFYICON
ProcedureReturn Shell_NotifyIcon_(#NIM_ADD, @nid)
EndProcedure
ProcedureDLL.l AddSysTrayIconEx2(uID.l, hWindow.l, hIcon.l, tip.s)
Protected nid.NOTIFYICONDATA_2K
nid\uID = uID
nid\hwnd = hWindow
nid\hIcon = hIcon
nid\uFlags = #NIF_MESSAGE | #NIF_ICON | #NIF_TIP
nid\uCallbackMessage = #WM_NOTIFYICON
If OSVersion() >= #PB_OS_Windows_2000
PokeS(@nid\szTip, tip, 128)
nid\cbSize = SizeOf(NOTIFYICONDATA_2K)
Else
PokeS(@nid\szTip, tip, 64)
nid\cbSize = SizeOf(NOTIFYICONDATA_95)
EndIf
ProcedureReturn Shell_NotifyIcon_(#NIM_ADD, @nid)
EndProcedure
ProcedureDLL.l RemoveSysTrayIconEx(uID.l, hWindow.l)
Protected nid.NOTIFYICONDATA_95
nid\cbSize = SizeOf(NOTIFYICONDATA_95)
nid\uID = uID
nid\hwnd = hWindow
ProcedureReturn Shell_NotifyIcon_(#NIM_DELETE, @nid)
EndProcedure
ProcedureDLL.l SysTrayIconToolTipEx(uID.l, hWindow.l, tip.s)
Protected nid.NOTIFYICONDATA_2K
nid\uID = uID
nid\hwnd = hWindow
nid\uFlags = #NIF_TIP
If OSVersion() >= #PB_OS_Windows_2000
PokeS(@nid\szTip, tip, 128)
nid\cbSize = SizeOf(NOTIFYICONDATA_2K)
Else
PokeS(@nid\szTip, tip, 64)
nid\cbSize = SizeOf(NOTIFYICONDATA_95)
EndIf
ProcedureReturn Shell_NotifyIcon_(#NIM_MODIFY, @nid)
EndProcedure
;------------------------------------------------------------------------------------------------
; Compatibility : Microsoft Windows 2000+
;------------------------------------------------------------------------------------------------
ProcedureDLL.l HideSysTrayIconEx(uID.l, hWindow.l, state.l)
Protected nid.NOTIFYICONDATA_2K
If OSVersion() >= #PB_OS_Windows_2000
nid\cbSize = SizeOf(NOTIFYICONDATA_2K)
nid\uID = uID
nid\hwnd = hWindow
nid\uFlags = #NIF_STATE
nid\dwStateMask = #NIS_HIDDEN
If state
nid\dwState = #NIS_HIDDEN
EndIf
ProcedureReturn Shell_NotifyIcon_(#NIM_MODIFY, @nid)
EndIf
EndProcedure
ProcedureDLL.l SetActiveSysTrayIconEx(uID.l, hWindow.l)
Protected nid.NOTIFYICONDATA_2K
If OSVersion() >= #PB_OS_Windows_2000
nid\cbSize = SizeOf(NOTIFYICONDATA_2K)
nid\uID = uID
nid\hwnd = hWindow
ProcedureReturn Shell_NotifyIcon_(#NIM_SETFOCUS, @nid)
EndIf
EndProcedure
ProcedureDLL.l SysTrayIconBalloonEx(uID.l, hWindow.l, title.s, message.s, timeOut.l)
Protected nid.NOTIFYICONDATA_2K
If OSVersion() >= #PB_OS_Windows_XP
nid\cbSize = SizeOf(NOTIFYICONDATA_XP)
ElseIf OSVersion() >= #PB_OS_Windows_2000
nid\cbSize = SizeOf(NOTIFYICONDATA_2K)
Else
ProcedureReturn #False
EndIf
nid\uVersion = #NOTIFYICON_VERSION
Shell_NotifyIcon_(#NIM_SETVERSION, @nid)
nid\uID = uID
nid\hwnd = hWindow
nid\dwInfoFlags = #NIIF_INFO
nid\uFlags = #NIF_INFO
nid\uTimeout = timeOut
PokeS(@nid\szInfo, message, 256)
PokeS(@nid\szInfoTitle, title, 64)
ProcedureReturn Shell_NotifyIcon_(#NIM_MODIFY, @nid)
EndProcedure
ProcedureDLL.l SysTrayIconBalloonEx2(uID.l, hWindow.l, title.s, message.s, timeOut.l, flags.l)
Protected nid.NOTIFYICONDATA_2K
If OSVersion() >= #PB_OS_Windows_XP
nid\cbSize = SizeOf(NOTIFYICONDATA_XP)
ElseIf OSVersion() >= #PB_OS_Windows_2000
nid\cbSize = SizeOf(NOTIFYICONDATA_2K)
Else
ProcedureReturn #False
EndIf
nid\uVersion = #NOTIFYICON_VERSION
Shell_NotifyIcon_(#NIM_SETVERSION, @nid)
nid\uID = uID
nid\hwnd = hWindow
nid\dwInfoFlags = flags
nid\uFlags = #NIF_INFO
nid\uTimeout = timeOut
PokeS(@nid\szInfo, message, 256)
PokeS(@nid\szInfoTitle, title, 64)
ProcedureReturn Shell_NotifyIcon_(#NIM_MODIFY, @nid)
EndProcedure
I'm waiting for new links, too.Site had a blow out... trying to get everything back online... sorry all.
Code: Select all
;-----------------------------------------------------------
;- Object: NotifyIcon UserLibrary
;- Version: 1.1, May 2006
;-
;- Requir.: PureBasic 4.0
;- TailBite 1.3 PR 1.0
;-
;- Author: flype - flype@altern.org
;-
;- Descr. Microsoft SHELL_NOTIFYICON
;- Functions for Systray Icon (shellapi.h)
;-----------------------------------------------------------
;-----------------------------------------------------------
; Constants
;-----------------------------------------------------------
Enumeration ; #WM
#WM_USER = $400
#WM_NOTIFYICON = $400 + $7258
EndEnumeration
Enumeration ; #NIF
#NIF_MESSAGE = $01 ; 95+
#NIF_ICON = $02 ; 95+
#NIF_TIP = $04 ; 95+
#NIF_STATE = $08 ; 95+
#NIF_INFO = $10 ; 2000+
#NIF_GUID = $20 ; XP+ Reserved
EndEnumeration
Enumeration ; #NIIF
#NIIF_NONE = $00 ; 2000+
#NIIF_INFO = $01 ; 2000+
#NIIF_WARNING = $02 ; 2000+
#NIIF_ERROR = $03 ; 2000+
#NIIF_USER = $04 ; XPSP2+
#NIIF_ICON_MASK = $0F ; XP+ Reserved
#NIIF_NOSOUND = $10 ; XP+ Reserved
EndEnumeration
Enumeration ; #NIM
#NIM_ADD = 0 ; 95+
#NIM_MODIFY = 1 ; 95+
#NIM_DELETE = 2 ; 95+
#NIM_SETFOCUS = 3 ; 2000+
#NIM_SETVERSION = 4 ; 2000+
EndEnumeration
Enumeration ; #NIN
#NINF_KEY = 1
#NIN_SELECT = $400
#NIN_KEYSELECT = $401
#NIN_BALLOONSHOW = $402 ; XP+
#NIN_BALLOONHIDE = $403 ; XP+
#NIN_BALLOONTIMEOUT = $404 ; XP+
#NIN_BALLOONUSERCLICK = $405 ; XP+
EndEnumeration
Enumeration ; #NIS
#NIS_HIDDEN = 1 ; 2000+
#NIS_SHAREDICON = 2 ; 2000+
EndEnumeration
#NOTIFYICON_VERSION = 3 ; 2000+
Structure NOTIFYICONDATA_95 Align #PB_Structure_AlignC
cbSize.l
hwnd.i
uID.l
uFlags.l
uCallbackMessage.l
hIcon.i
szTip.c[128]
EndStructure
Structure NOTIFYICONDATA_2K Extends NOTIFYICONDATA_95
szTipEx.c[128]
dwState.l
dwStateMask.l
szInfo.c[256]
StructureUnion
uTimeout.l
uVersion.l
EndStructureUnion
szInfoTitle.c[128]
dwInfoFlags.l
EndStructure
Structure NOTIFYICONDATA_XP Extends NOTIFYICONDATA_2K
guid.GUID
EndStructure
Code: Select all
;------------------------------------------------------------------------------------------------
;- Object: SysTrayIconEx UserLibrary
;- Version: 1.0, May 2006
;- Author: flype - flype@altern.org
;- Requir.: PureBasic 4.0 / TailBite 1.3 PR 1.2
;------------------------------------------------------------------------------------------------
;EnableExplicit
IncludeFile "SysTrayIconRes.pbi"
;------------------------------------------------------------------------------------------------
; AddSysTrayIconEx(uID.l, hWindow.l, hIcon.l [, tip.s])
; RemoveSysTrayIconEx(uID.l, hWindow.l)
; SysTrayIconToolTipEx(uID.l, hWindow.l, tip.s)
; HideSysTrayIconEx(uID.l, hWindow.l, state.l)
; SetActiveSysTrayIconEx(uID.l, hWindow.l)
; SysTrayIconBalloonEx(uID.l, hWindow.l, title.s, message.s, timeOut.l [, flags.l])
;------------------------------------------------------------------------------------------------
;------------------------------------------------------------------------------------------------
; Compatibility : Microsoft Windows 95+
;------------------------------------------------------------------------------------------------
ProcedureDLL.l AddSysTrayIconEx(uID.l, hWindow.l, hIcon.l)
Protected nid.NOTIFYICONDATA_95
nid\cbSize = SizeOf(NOTIFYICONDATA_95)
nid\uID = uID
nid\hwnd = hWindow
nid\hIcon = hIcon
nid\uFlags = #NIF_MESSAGE | #NIF_ICON
nid\uCallbackMessage = #WM_NOTIFYICON
ProcedureReturn Shell_NotifyIcon_(#NIM_ADD, @nid)
EndProcedure
ProcedureDLL.l AddSysTrayIconEx2(uID.l, hWindow.l, hIcon.l, tip.s)
Protected nid.NOTIFYICONDATA_2K
nid\uID = uID
nid\hwnd = hWindow
nid\hIcon = hIcon
nid\uFlags = #NIF_MESSAGE | #NIF_ICON | #NIF_TIP
nid\uCallbackMessage = #WM_NOTIFYICON
If OSVersion() >= #PB_OS_Windows_2000
PokeS(@nid\szTip, tip, 128)
nid\cbSize = SizeOf(NOTIFYICONDATA_2K)
Else
PokeS(@nid\szTip, tip, 64)
nid\cbSize = SizeOf(NOTIFYICONDATA_95)
EndIf
ProcedureReturn Shell_NotifyIcon_(#NIM_ADD, @nid)
EndProcedure
ProcedureDLL.l RemoveSysTrayIconEx(uID.l, hWindow.l)
Protected nid.NOTIFYICONDATA_95
nid\cbSize = SizeOf(NOTIFYICONDATA_95)
nid\uID = uID
nid\hwnd = hWindow
ProcedureReturn Shell_NotifyIcon_(#NIM_DELETE, @nid)
EndProcedure
ProcedureDLL.l SysTrayIconToolTipEx(uID.l, hWindow.l, tip.s)
Protected nid.NOTIFYICONDATA_2K
nid\uID = uID
nid\hwnd = hWindow
nid\uFlags = #NIF_TIP
If OSVersion() >= #PB_OS_Windows_2000
PokeS(@nid\szTip, tip, 128)
nid\cbSize = SizeOf(NOTIFYICONDATA_2K)
Else
PokeS(@nid\szTip, tip, 64)
nid\cbSize = SizeOf(NOTIFYICONDATA_95)
EndIf
ProcedureReturn Shell_NotifyIcon_(#NIM_MODIFY, @nid)
EndProcedure
;------------------------------------------------------------------------------------------------
; Compatibility : Microsoft Windows 2000+
;------------------------------------------------------------------------------------------------
ProcedureDLL.l HideSysTrayIconEx(uID.l, hWindow.l, state.l)
Protected nid.NOTIFYICONDATA_2K
If OSVersion() >= #PB_OS_Windows_2000
nid\cbSize = SizeOf(NOTIFYICONDATA_2K)
nid\uID = uID
nid\hwnd = hWindow
nid\uFlags = #NIF_STATE
nid\dwStateMask = #NIS_HIDDEN
If state
nid\dwState = #NIS_HIDDEN
EndIf
ProcedureReturn Shell_NotifyIcon_(#NIM_MODIFY, @nid)
EndIf
EndProcedure
ProcedureDLL.l SetActiveSysTrayIconEx(uID.l, hWindow.l)
Protected nid.NOTIFYICONDATA_2K
If OSVersion() >= #PB_OS_Windows_2000
nid\cbSize = SizeOf(NOTIFYICONDATA_2K)
nid\uID = uID
nid\hwnd = hWindow
ProcedureReturn Shell_NotifyIcon_(#NIM_SETFOCUS, @nid)
EndIf
EndProcedure
ProcedureDLL.l SysTrayIconBalloonEx(uID.l, hWindow.l, title.s, message.s, timeOut.l)
Protected nid.NOTIFYICONDATA_2K
If OSVersion() >= #PB_OS_Windows_XP
nid\cbSize = SizeOf(NOTIFYICONDATA_XP)
ElseIf OSVersion() >= #PB_OS_Windows_2000
nid\cbSize = SizeOf(NOTIFYICONDATA_2K)
Else
ProcedureReturn #False
EndIf
nid\uVersion = #NOTIFYICON_VERSION
Shell_NotifyIcon_(#NIM_SETVERSION, @nid)
nid\uID = uID
nid\hwnd = hWindow
nid\dwInfoFlags = #NIIF_INFO
nid\uFlags = #NIF_INFO
nid\uTimeout = timeOut
PokeS(@nid\szInfo, message, 256)
PokeS(@nid\szInfoTitle, title, 64)
ProcedureReturn Shell_NotifyIcon_(#NIM_MODIFY, @nid)
EndProcedure
ProcedureDLL.l SysTrayIconBalloonEx2(uID.l, hWindow.l, title.s, message.s, timeOut.l, flags.l)
Protected nid.NOTIFYICONDATA_2K
If OSVersion() >= #PB_OS_Windows_XP
nid\cbSize = SizeOf(NOTIFYICONDATA_XP)
ElseIf OSVersion() >= #PB_OS_Windows_2000
nid\cbSize = SizeOf(NOTIFYICONDATA_2K)
Else
ProcedureReturn #False
EndIf
nid\uVersion = #NOTIFYICON_VERSION
Shell_NotifyIcon_(#NIM_SETVERSION, @nid)
nid\uID = uID
nid\hwnd = hWindow
nid\dwInfoFlags = flags
nid\uFlags = #NIF_INFO
nid\uTimeout = timeOut
PokeS(@nid\szInfo, message, 256)
PokeS(@nid\szInfoTitle, title, 64)
ProcedureReturn Shell_NotifyIcon_(#NIM_MODIFY, @nid)
EndProcedure