Page 1 of 1
ProgressTray
Posted: Wed Nov 20, 2002 9:47 pm
by BackupUser
Code updated For 5.20+
Restored from previous forum. Originally posted by crown.
Example of a ProgressBar in SystemTray...
Code: Select all
; ProgressBar in SystemTray - crown.
r=FindWindow_("Shell_TrayWnd", 0)
r = FindWindowEx_(r, 0, "TrayNotifyWnd", 0)
GetWindowRect_(r,win.RECT)
x=win\left : y=win\top
w=win\right-win\left : h=win\bottom-win\top
MessageRequester("Info", "Look at the clock in the systemtray", 0)
hwnd=OpenWindow(0,x,y,w,h,"", #PB_Window_BorderLess )
If hwnd
CreateGadgetList(WindowID(0))
ProgressBarGadget(1,0,0,w,h,0,100,#PB_ProgressBar_Smooth)
EndIf
For x=1 To 100
SetGadgetState(1,x)
Delay(50)
Next
End
(registered PureBasic user)
Posted: Wed Nov 20, 2002 10:06 pm
by BackupUser
Restored from previous forum. Originally posted by MrVainSCL.
hi crown
i tested your example...
it dont show me any progressbar in my taskbar..
ok, there will be a progressbar but on the the taskbar... it will be behind the taskbar....
just as info...
PIII450, 256MB Ram, 80GB HD + 6,4 GB, RivaTNT, DirectX8.1, SB AWE64, Win2000 + all Updates...
greetz
MrVainSCL! aka Thorsten
Posted: Wed Nov 20, 2002 11:04 pm
by BackupUser
Restored from previous forum. Originally posted by crown.
over here it works, i know it is not in the
taskbar but just over it maybe this works for you?
Code: Select all
; ProgressBar in SystemTray - crown.
r=FindWindow_("Shell_TrayWnd", 0)
r = FindWindowEx_(r, 0, "TrayNotifyWnd", 0)
GetWindowRect_(r,win.RECT)
x=win\left : y=win\top
w=win\right-win\left : h=win\bottom-win\top
MessageRequester("Info", "Look at the clock in the systemtray", 0)
hwnd=OpenWindow(0,x,y,w,h, #PB_Window_BorderLess ,"")
If hwnd
CreateGadgetList(WindowID())
ProgressBarGadget(1,0,0,w,h,0,100,#PB_ProgressBar_Smooth)
EndIf
For x=1 To 100
SetForegroundWindow_(WindowID())
SetGadgetState(1,x)
Delay(50)
Next
End
anyway, thanks for trying my humble code...
(registered PureBasic user)
Posted: Thu Nov 21, 2002 1:05 am
by BackupUser
Restored from previous forum. Originally posted by MrVainSCL.
hi...
same like before ;(
sorry i forgot to tell you that i have tested your first posting with adding "SetForegroundWindow_(WindowID())"
PIII450, 256MB Ram, 80GB HD + 6,4 GB, RivaTNT, DirectX8.1, SB AWE64, Win2000 + all Updates...
greetz
MrVainSCL! aka Thorsten
Posted: Thu Nov 21, 2002 5:39 am
by BackupUser
Restored from previous forum. Originally posted by fweil.
Crown,
I have no display of this progress on my W2K ... maybe because you use FindWindow and it may not work on all OS. I will have a look if I can find some time to search about this.
Rgrds
Francois Weil
14, rue Douer
F64100 Bayonne
Posted: Thu Nov 21, 2002 8:14 am
by BackupUser
Restored from previous forum. Originally posted by Danilo.
I make the window stay-on-top and all works fine here (Win2k).
Code: Select all
; ProgressBar in SystemTray - crown.
TrayWnd = FindWindow_("Shell_TrayWnd", 0)
TrayNofifyWnd = FindWindowEx_(TrayWnd, 0, "TrayNotifyWnd", 0)
GetWindowRect_(TrayNofifyWnd,win.RECT)
x=win\left : y=win\top
w=win\right-win\left : h=win\bottom-win\top
MessageRequester("Info", "Look at the clock in the systemtray", 0)
If OpenWindow(0,x,y,w,h, #PB_Window_BorderLess ,"")
CreateGadgetList(WindowID())
ProgressBarGadget(1,0,0,w,h,0,100,#PB_ProgressBar_Smooth)
SetWindowPos_(WindowID(),#HWND_TOPMOST,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE)
For x = 1 To 100
SetGadgetState(1,x)
Delay(50)
Next
EndIf
cya,
...Danilo
(registered PureBasic user)
Posted: Thu Nov 21, 2002 2:06 pm
by BackupUser
Restored from previous forum. Originally posted by crown.
that line completes the example, thanks.
(registered PureBasic user)
Posted: Thu Nov 21, 2002 5:47 pm
by BackupUser
Restored from previous forum. Originally posted by Franco.
This works fine as long the user didn't use 'Auto hide' in Taskbar Preferences.
So to use this code you need to determine if 'Auto hide' is on.
Code: Select all
; ProgressBar in SystemTray - crown.
TaskbarInfo.AppBarData
TaskbarInfo.AppBarData\cbSize = SizeOf(AppBarData)
; Is AutoHide of AppBar active ? Result: 2 = no , 3 = yes
TaskbarAutoHide.l=SHAppBarMessage_(#ABM_GETSTATE,@TaskbarInfo)
If TaskbarAutoHide = 3
MessageRequester("Info", "Taskbar 'Auto hide' is on, nothing to do.", 0)
End
EndIf
TrayWnd = FindWindow_("Shell_TrayWnd", 0)
TrayNofifyWnd = FindWindowEx_(TrayWnd, 0, "TrayNotifyWnd", 0)
GetWindowRect_(TrayNofifyWnd,win.RECT)
x=win\left : y=win\top
w=win\right-win\left : h=win\bottom-win\top
MessageRequester("Info", "Look at the clock in the systemtray", 0)
If OpenWindow(0,x,y,w,h, #PB_Window_BorderLess ,"")
CreateGadgetList(WindowID())
ProgressBarGadget(1,0,0,w,h,0,100,#PB_ProgressBar_Smooth)
SetWindowPos_(WindowID(),#HWND_TOPMOST,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE)
For x = 1 To 100
SetGadgetState(1,x)
Delay(50)
Next
EndIf
You could also switch Auto hide off - show your progress bar - and switch Auto hide on again.
Have a nice day...
Franco