Problem:
I'm trying to make a top level form in which a toolbar is dockable.
So Far:
If I create a form which is set as a "Top-Level" with Desktop=.T. and add a
toolbar in the init() of the form as follows:
With This
.AddProperty("barToolbar")
.barToolbar=NewObject("Organiser_Toolbar","stdControls")
.barToolbar.Visible=.T.
* Bind My Event to the first Toolbar Button
* This binding fires correctly
=BindEvent(Thisform.barToolbar.btnOpen,"Click",This,"btnOpen")
*
Endwith
*
Return
The toolbar is created but will only dock with the main VFP window and not
the new top-level form I created. So, how do I make the new top level form
the place where the toolbar will dock? I have the feeling I've missed
something really basic here - but I can't think what.
Anyone any ideas as I've never really got into toolbars and I know there are
a few "gotcha's"?
Dave Crozier
"A computer is a stupid machine with the ability to do incredibly smart
things, while computer programmers are smart people with the ability to do
incredibly stupid things. They are, in short, a perfect match" - Bill
Bryson
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.394 / Virus Database: 268.9.5/376 - Release Date: 26/06/2006
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
