Menu Item 1

[ChrisAgius]

Working on a menu I wanted to add the opened forms in my program under the menubar windows and this will show all windows with the active one check.

Any one knows how to insert that check in the menu and printing bold or anything else.

Also if anyone has done some similar work can you help me in some code.

Thanks
Chris [sig][/sig]

 

[dgrewe]

Chris, Here is a Code section from one of my menus that calls a routine (SetSound) that places/removes a check mark on my main application menu.
[tt]
DEFINE POPUP [red]mmuser[/red] MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF mmuser PROMPT &quot;\<User Maintenance ...&quot;
DEFINE BAR 2 OF mmuser PROMPT &quot;Toggle \<Phone Appointment System On/Off&quot;
DEFINE BAR 3 OF mmuser PROMPT &quot;Toggle \<Email System On/Off&quot;
DEFINE BAR [red]4[/red] OF [red]mmuser[/red] PROMPT &quot;Toggle \<Sound On/Off&quot;
DEFINE BAR 5 OF mmuser PROMPT &quot;Toggle \<Clock On/Off&quot;
DEFINE BAR 6 OF mmuser PROMPT &quot;Toggle Status \<Bar On/Off&quot;
DEFINE BAR 7 OF mmuser PROMPT &quot;Change Wall\<Paper ....&quot;
DEFINE BAR 8 OF mmuser PROMPT &quot;Change Default Sound File&quot;
ON SELECTION BAR 1 OF mmuser do USEREDIT
ON SELECTION BAR 2 OF mmuser do Pa_OnOff
ON SELECTION BAR 3 OF mmuser do Em_OnOff
ON SELECTION BAR [red]4[/red] OF [red]mmuser[/red] [COLOR=&quot;#0000FF&quot;]do SetSound[/color] with [red]4 , &quot;mmuser&quot;[/red]
ON SELECTION BAR 5 OF mmuser do SetClock with 0 , scols()-14 , 5 , &quot;mmuser&quot;
ON SELECTION BAR 6 OF mmuser do SetBar with 6 , &quot;mmuser&quot;
ON SELECTION BAR 7 OF mmuser do SetWall with .f.
ON SELECTION BAR 8 OF mmuser do SetWave with .f.

[COLOR=&quot;#0000FF&quot;]function SetSound[/color]
parameters pnBar , pcMenu
if dbfopen(&quot;NETWORK&quot; , &quot;NETWORK&quot; , &quot;USER_ID&quot; , ucNetName)
ulSound = iif(ulSound , .F. , .T.)
replace NETWORK.SOUND with ulSound
set mark of bar pnBar of (pcMenu) to NETWORK.SOUND
endif
return found()
[/tt] [sig]<p>David W. Grewe<br><a href=mailtoave@internationalbid.net>Dave@internationalbid.net</a><br>ICQ VFP ActiveList #46145644[/sig]