I don't have those session notes available online anywhere at present, but
at any rate, they didn't cover anything like this. I've never tried this,
but I believe here's what you'd need to do. I think the key is setting the
ShowWindow property of the Toolbar.
of = Newobject([tlForm])
of.Show()
ot = Newobject([tlTB])
ot.Show()
ot.Dock(0)
SUSPEND
DEFINE CLASS tlForm AS Form
ShowWindow = 2
ENDDEFINE
DEFINE CLASS tlTB AS Toolbar
ShowWindow = 1
PROCEDURE Init
This.AddObject([Command1],[CommandButton])
This.Command1.Caption = [Button 1]
This.Command1.Visible = .T.
This.AddObject([Command2],[CommandButton])
This.Command2.Caption = [Button]
This.Command2.Visible = .T.
ENDPROC
ENDDEFINE
If you don't want the user to be able to move or undock the toolbar make
sure to set its movable property to false and put a NODEFAULT in the
DblClick method.
Mike
-----Original Message-----
From: Bill Anderson [mailto:[EMAIL PROTECTED]
Sent: Wednesday, June 28, 2006 5:08 PM
To: ProFox Email List
Subject: Re: Docking Toolbar in Top-Level Form
Profox wrote:
> From: "Dave Crozier" <[EMAIL PROTECTED]>
>> Problem:
>> I'm trying to make a top level form in which a toolbar is dockable.
>
> I just sold a VFP 9.0 to a newbie and was going to email him
> some VFP sites to look at. One was www.foxite.com and on
> the main page is a link to an article by Mike Feltman called:
> "Everything You Ever Wanted to Know About Docking in VFP".
>
> The article link points to LAFox.org, (LA user group), but I
> don't see the article there. Maybe Bill Anderson could point
> the way.
I don't have support files for Mike's excellent presentation on June 13,
but I've copied him on this email and I'll let you know...
Bill Anderson
_______________________________________________
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.
