I use a top level form as the background for my applications and dock a
custom made toolbar which is used by all the forms launched from the menu.
This is the code I use in the ACTIVATE method of the TLF
If this.lFirstTime = .t.
this.lFirstTime = .f.
this.LockScreen = .t.
** the next two lines center the company logo on the TLF (which has a
windowsstate property of 2 (maximized) )
this.logo.Left = (Sysmetric(1) - this.logo.Width ) / 2
this.logo.top = (Sysmetric(2) - this.logo.Height) / 2
application.Visible = .f. &&
place this here to avoid initial flicker
this.LockScreen = .f.
If Vartype(this.oToolBar) <> "O"
this.oToolBar = createobject("myToolBar")
this.oToolBar.dock(0)
this.oToolBar.show()
endif
Release Menus (this.Name) extended && not really needed
but.....
Do general.mpr with this,.t.
EndIf
As you can see, the lFirstTime property causes both the toolbar and the menu
to show when the TLF activates. The toolbar is always there (as is the menu)
and is used by all forms that need it. When they do not need it, the form
class deactivates de toolbar, leaving only the exit button enabled. The
toolbar has navigation buttons, add,delete,cancel,edit,charts,word,excel,
etc. buttons and also an exit button.
Rafael Copquin
www.copquin.com.ar
Universal Thread Magazine - Translation Coordinator
Treasurer - Microsoft Users Group of Argentina (MUG)
www.mug.org.ar
----- Original Message -----
From: "Dave Crozier" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, June 27, 2006 10:16 AM
Subject: Docking Toolbar in Top-Level Form
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
[excessive quoting removed by server]
_______________________________________________
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.
