How to put a Text- or Combobox Gadget in the Windows Taskbar
Posted: Wed Jun 16, 2010 5:59 pm
Is this possible ?
If so... how ?
If so... how ?
Code: Select all
SHAppBarMessage_(#ABM_GETTASKBARPOS,Pos.AppBarData)
If Pos\uEdge <> 1 And Pos\uEdge <> 3
End
EndIf
TrayWnd = FindWindow_("Shell_TrayWnd", 0)
TrayNofifyWnd = FindWindowEx_(TrayWnd, 0, "TrayNotifyWnd", 0)
GetWindowRect_(TrayNofifyWnd,r.RECT)
x=r\left - 200
y=r\top + 4
width=200 - 20
height=r\bottom - r\top - 8
OpenWindow(0,x,y,width,height,"", #PB_Window_BorderLess )
SetWindowPos_(WindowID(0),#HWND_TOPMOST,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE)
ComboBoxGadget(1,0,0,width,height)
For a = 1 To 5
AddGadgetItem(1, -1,"ComboBox item " + Str(a))
Next
SetGadgetState(1,1)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow