Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Error on build
Message
De
18/10/2006 14:22:18
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de menu & Menus
Titre:
Divers
Thread ID:
01162354
Message ID:
01163052
Vues:
21
Thanks Naomi, that does the trick.

>Put external array aToolBars right before the first time you're accessing it.
>
>>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.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform