Share your advanced PureBasic knowledge/code with the community.
-
RASHAD
- PureBasic Expert
- Posts: 4954
- Joined: Sun Apr 12, 2009 6:27 am
Post
by RASHAD »
Hi guys
I do not want to hijack Tenaja thread
Code: Select all
info.APPBARDATA
info\cbSize = SizeOf(info)
autoHide = SHAppBarMessage_(#ABM_GETSTATE,@info)
If autoHide = 1
Debug "AutoHide : Active"
Else
Debug "AutoHide : Not Active"
EndIf
SHAppBarMessage_(#ABM_GETTASKBARPOS,@info)
Debug "Left : "+Str(info\rc\left)
Debug "Right : "+Str(info\rc\right)
Debug "Top : "+Str(info\rc\top)
Debug "Bottom : "+Str(info\rc\bottom)
align = info\uEdge
Select align
Case 0
Debug "Aligned : Left"
Case 1
Debug "Aligned : Top"
Case 2
Debug "Aligned : Right"
Case 3
Debug "Aligned : Bottom"
EndSelect
If autoHide = 1
autoHideHandle = SHAppBarMessage_(#ABM_GETAUTOHIDEBAR,@info)
Debug autoHideHandle
EndIf
Egypt my love
-
Kwai chang caine
- Always Here
- Posts: 5494
- Joined: Sun Nov 05, 2006 11:42 pm
- Location: Lyon - France
Post
by Kwai chang caine »
Works nice here
Thanks for sharing RASHAD
The happiness is a road...
Not a destination
-
Tenaja
- Addict
- Posts: 1959
- Joined: Tue Nov 09, 2010 10:15 pm
Post
by Tenaja »
RASHAD wrote:Hi guys
I do not want to hijack Tenaja thread
Code: Select all
info.APPBARDATA
info\cbSize = SizeOf(info)
autoHide = SHAppBarMessage_(#ABM_GETSTATE,@info)
If autoHide = 1
Debug "AutoHide : Active"
Else
Debug "AutoHide : Not Active"
EndIf
SHAppBarMessage_(#ABM_GETTASKBARPOS,@info)
Debug "Left : "+Str(info\rc\left)
Debug "Right : "+Str(info\rc\right)
Debug "Top : "+Str(info\rc\top)
Debug "Bottom : "+Str(info\rc\bottom)
align = info\uEdge
Select align
Case 0
Debug "Aligned : Left"
Case 1
Debug "Aligned : Top"
Case 2
Debug "Aligned : Right"
Case 3
Debug "Aligned : Bottom"
EndSelect
If autoHide = 1
autoHideHandle = SHAppBarMessage_(#ABM_GETAUTOHIDEBAR,@info)
Debug autoHideHandle
EndIf
Thanks for sharing updates!
