ToolBar height ?
Posted: Fri Jul 25, 2003 11:53 pm
hello, how can i get the height of the toolbar in my window ?
Salut Flype,
send a message with TB_GETMETRICS value.
It retrives all Toolbar parameters.
A+
Denis
PureBasic Forums - English
http://www.purebasic.com
https://www.purebasic.fr/english/
ToolBar height ?
Page 1 of 2
Posted: Sat Jul 26, 2003 6:42 am
Posted: Sat Jul 26, 2003 4:23 pm
thanks denis, but that's not all folk !
Structure TBMETRICS not in purebasic includes, so here is :
And the constante #TB_GETMETRICS isn't defined so what's its value ?
Structure TBMETRICS not in purebasic includes, so here is :
Code: Select all
Structure TBMETRICS
cbSize.l
dwMask.l
cxPad.l
cyPad.l
cxBarPad.l
cyBarPad.l
cxButtonSpacing.l
cyButtonSpacing.l
EndStructureCode: Select all
ptbMetrics.TBMETRICS
ptbMetrics\cbSize = Sizeof( TBMETRICS )
SendMessage_( toolbar, #TB_GETMETRICS, 0, @ptbMetrics )Posted: Sat Jul 26, 2003 4:47 pm
Flype,
#TB_GETMETRICS = #WM_USER + 101
Eric
#TB_GETMETRICS = #WM_USER + 101
Eric
Posted: Sat Jul 26, 2003 5:19 pm
very thank you ebs 
Posted: Sat Jul 26, 2003 5:33 pm
arrrg, in order to make it working i need those 3 API constantes :
#TBMF_PAD
#TBMF_BARPAD
#TBMF_BUTTONSPACING
as specified in MSDN documentation http://msdn.microsoft.com/library/defau ... etrics.asp
#TBMF_PAD
#TBMF_BARPAD
#TBMF_BUTTONSPACING
as specified in MSDN documentation http://msdn.microsoft.com/library/defau ... etrics.asp
Posted: Sat Jul 26, 2003 5:41 pm
this is how i coded it :
but it doesn't work (perhaps it works only with winXP )
but it doesn't work (perhaps it works only with winXP )
Code: Select all
Structure TBMETRICS
cbSize.l
dwMask.l
cxPad.l
cyPad.l
cxBarPad.l
cyBarPad.l
cxButtonSpacing.l
cyButtonSpacing.l
EndStructure
#TBMF_PAD = 1
#TBMF_BARPAD = 2
#TBMF_BUTTONSPACING = 4
#TB_GETMETRICS = #WM_USER + 101
;=================================
If OpenWindow(0,0,0,400,300,#PB_Window_ScreenCentered|#PB_Window_SystemMenu,"Toolbar")
toolbar = CreateToolBar( 0, WindowID() )
ToolBarStandardButton( 0, #PB_ToolBarIcon_Save )
ToolBarStandardButton( 1, #PB_ToolBarIcon_Delete )
CreateGadgetList( WindowID() )
ptbMetrics.TBMETRICS
ptbMetrics\cbSize = SizeOf( TBMETRICS )
ptbMetrics\dwMask = #TBMF_PAD
SendMessage_( toolbar, #TB_GETMETRICS, 0, @ptbMetrics )
Debug ptbMetrics\cxPad
Debug ptbMetrics\cyPad
ComboBoxGadget( 3, 5, ptbMetrics\cyPad+10, 200, 120 )
Repeat : Until WaitWindowEvent() = #WM_CLOSE
EndIfHello
Posted: Sat Jul 26, 2003 5:49 pm
Just try:
#TBMF_BARPAD = 2
#TBMF_BUTTONSPACING = 4
#TBMF_PAD = 1
Dominique
#TBMF_BARPAD = 2
#TBMF_BUTTONSPACING = 4
#TBMF_PAD = 1
Dominique
Posted: Sat Jul 26, 2003 5:57 pm
i tried and it doesn't work on my win2000 
If someone can try it under winXP
If someone can try it under winXP
It works .
Posted: Sat Jul 26, 2003 7:16 pm
In fact it can't works for you under w2000 !
Minimum is xp for the structure TBMETRICS.
Said into wsdk.
I've XP pro and your sample code works well for me.
So sad .
Dominique.
Minimum is xp for the structure TBMETRICS.
Said into wsdk.
I've XP pro and your sample code works well for me.
So sad .
Dominique.
Posted: Sat Jul 26, 2003 7:28 pm
Maybe you can use API GetClientRect_() instead to get the height of the toolbar.
Posted: Sat Jul 26, 2003 7:46 pm
On each size of the window it usually updates it's size by passing WM_SIZE to the tb.
After this is done, you can obtain height by using GetWindowRect_()
Subtract top from bottom = height
After this is done, you can obtain height by using GetWindowRect_()
Subtract top from bottom = height
Posted: Sat Jul 26, 2003 8:05 pm
Little snap out of jaPBe:
Should work on all system.
Edit: on GetClientRect_() is rect\left rect\top always 0!
GPI
Code: Select all
ToolBarId=CreateToolBar(#tool_MainWindow,MainWin)
GetClientRect_(ToolBarId,rect.RECT)
ToolBarHeight=rect\bottom
Should work on all system.
Edit: on GetClientRect_() is rect\left rect\top always 0!
GPI
Posted: Sat Jul 26, 2003 8:12 pm
yes, that's exactely what i want 
and now it's so simple
:
and, so, the previous example works only on XP 
I should forget it ...
and now it's so simple
:
Code: Select all
If OpenWindow(0,0,0,300,100,#PB_Window_ScreenCentered|#PB_Window_SystemMenu,"Toolbar")
toolbar = CreateToolBar( 0, WindowID() )
ToolBarStandardButton( 0, #PB_ToolBarIcon_Save )
ToolBarStandardButton( 1, #PB_ToolBarIcon_Delete )
CreateGadgetList( WindowID() )
GetClientRect_( toolbar,rect.RECT)
ComboBoxGadget( 3, 5, rect\bottom, 200, 120 )
Repeat : Until WaitWindowEvent() = #WM_CLOSE
EndIfPosted: Sat Jul 26, 2003 10:49 pm
GetClientRect is not the way to do it..
Unless you want the client area's height.
You where asking the toolbar's height.
This might result in the similar value for now but what if billy changes windows again?
Unless you want the client area's height.
You where asking the toolbar's height.
This might result in the similar value for now but what if billy changes windows again?