Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Error on build
Message
De
16/10/2006 18:43:19
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de menu & Menus
Titre:
Error on build
Divers
Thread ID:
01162354
Message ID:
01162354
Vues:
73
Can someone tell me why I get the following error when I build my project?
Menu d:\foxpro\pagmodeltools\menus\mainmenu.mnx has the following errors:
    Unknown ATOOLBARS - Undefined
ATOOLBARS is a public array defined and populated in setup.prg. The error can be ignored and everything seems to work OK but it's presence suggests I need to do something more that I haven't done.
*** startup.prg

close tables all
_screen.BackColor = RGB(207,207,207)
_screen.caption = 'PAG Model Tools'
_screen.Closable = .f.
_screen.WindowState = 2
clear
set path to .\PAGModeltools,.\PAGModeltools\forms, .\PAGModeltools\reports, ;
.\PAGModeltools\programs, .\classes, .\PAGModeltools\menus, .\PAGModeltools\other,;
.\PAGModeltools\documentation, .\pagmodeltools\help
set deleted on
set procedure to tools_proc
set seconds on
SET CPDIALOG OFF
set reportbehavior 80
set exclusive on
set exact on
set help to modeltools.chm
public authlevel
authlevel = 9
reporton = .f.

USE userdata

*	Release all Visual FoxPro toolbars
public aToolbars
local i
dimension aToolBars[14,2]

#define TB_FORMDESIGNER_LOC 		"Form Designer"
#define TB_STANDARD_LOC 		"Standard"
#define TB_LAYOUT_LOC 			"Layout"
#define TB_QUERY_LOC 			"Query Designer"
#define TB_VIEWDESIGNER_LOC		"View Designer"
#define TB_COLORPALETTE_LOC 		"Color Palette"
#define TB_FORMCONTROLS_LOC 		"Form Controls"
#define TB_DATADESIGNER_LOC 		"Database Designer"
#define TB_REPODESIGNER_LOC 		"Report Designer"
#define TB_REPOCONTROLS_LOC 		"Report Controls"
#define TB_PRINTPREVIEW_LOC 		"Print Preview"
#define WIN_COMMAND_LOC 		"Command"
#DEFINE WIN_Properties_LOC          "Properties"
#DEFINE WIN_Document_LOC            "Document view"

aToolBars[1,1] = TB_FORMDESIGNER_LOC
aToolBars[2,1] = TB_STANDARD_LOC
aToolBars[3,1] = TB_LAYOUT_LOC
aToolBars[4,1] = TB_QUERY_LOC
aToolBars[5,1] = TB_VIEWDESIGNER_LOC
aToolBars[6,1] = TB_COLORPALETTE_LOC
aToolBars[7,1] = TB_FORMCONTROLS_LOC
aToolBars[8,1] = TB_DATADESIGNER_LOC
aToolBars[9,1] = TB_REPODESIGNER_LOC
aToolBars[10,1] = TB_REPOCONTROLS_LOC
aToolBars[11,1] = TB_PRINTPREVIEW_LOC
aToolBars[12,1] = WIN_COMMAND_LOC
aToolBars[13,1] = WIN_PROPERTIES_LOC
aToolBars[14,1] = WIN_DOCUMENT_LOC

for i = 1 to alen(aToolBars,1)
	if wvisible(aToolBars[i,1])
	        aToolBars(i,2) = .t.
		hide window (aToolBars[i,1])
	endif
endfor

do form splash
do mainmenu.mpr

read events
The menu code is:
* cancel
frmSplash.release

***	Show all VFP toolbars that were previously hidden
local i
for i = 1 to alen(aToolBars,1)
	if aToolBars[i,2]
		show window (aToolBars[i,1])
	endif
endfor
***
set sysmenu to default
set help to
_screen.closable = .t.
clear events
cancel
Thanks for any insights.
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform