I have done some searches, and I don’t see a real defined answer on this…
Me.Height = 50
Doesn’t seem to do anything on the open event of the toolbar. So is there some way to set the height? With my icons in it, there is a lot of extra space below them that is driving me nuts lol.
That extra space (if I recall) is for a caption,
It used to work that if you set the caption to CHRB(8) (backspace), then this space vanished. I stopped using the native toolbar along time ago, so things may have changed
I usually just use the Xojo toolbar, but in one of my apps I wanted to try something (needed checkboxes and search field in there) and I simply used a 1 pixel wide and 50 pixel high image (a green gradient) and draw that in the window paint event stretched across the top. Seems to work fine. Advantage is that I can put any control into the “toolbar”.
[code] Declare Function toolbar Lib “Cocoa” Selector “toolbar” (NSWindow As Ptr) As Ptr
Dim toolbarPtr As Ptr = toolbar(Ptr(Self.Handle))
Declare Sub setShowsBaselineSeparator Lib “Cocoa” Selector “setShowsBaselineSeparator:” _
(NSToolbar As Ptr, flag As Boolean)
setShowsBaselineSeparator(toolbarPtr, false)