Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
List of VFP7 system menu bars with a PICTRES picture
Message
From
21/10/2001 13:23:11
Dragan Nedeljkovich (Online)
Now officially retired
Zrenjanin, Serbia
 
 
To
21/10/2001 12:26:18
General information
Forum:
Visual FoxPro
Category:
Menus & Menu designer
Miscellaneous
Thread ID:
00571083
Message ID:
00571460
Views:
44
>Dragan and Craig,
>
>Thanks for your help trying to programmatically figure out what system menu bars had images. I ended up figuring out which menu bars had images by manually reviewing all 256 system menu bars reported by sys(2013). Note that the menu designer's 'Quick Menu' accounts for less than 125 menu bars (there are 125 records in a 'Quick Menu' MNX table).
>
>I've included the list below along with my generic (non-VFP) naming convention for each menu bar. For lesser known menu bars I attempted(!) a written description of the associated image. Your mileage may vary on how accurate or helpful these descriptions are (or aren't) ;)

Whew, this was quite a task... how many hours did it take you?

What Microsoft should do about this is just to include a list like yours, with pictures (not descriptions) in the help. Just three columns: system menu name, the text which appears in the menu pad/bar, and the picture. In my wildest dreams, the pictures should be visible from within the menu designer.

Here's an easier way to see all the pictures... and actually a suggestion on how the the listbox in the system resource picker should look (pasted from class browser):
PUBLIC oform
oform=NEWOBJECT("lform")
oform.Show
RETURN

DEFINE CLASS lform AS form

	DoCreate = .T.
	Caption = "PictRes"
	Name = "pictres"

	ADD OBJECT list1 AS listbox WITH ;
		Height = 229, ;
		Left = 36, ;
		Top = 12, ;
		Width = 253, ;
		Name = "List1"

	PROCEDURE list1.Init
		LOCAL cList, cSysMenuNames, i cSysMName
		cSysMenuNames=SYS(2013)
		DEFINE POPUP cListSource margin
		FOR i=1 TO GETWORDCOUNT(cSysMenuNames)
			cSysMName=GETWORDNUM(cSysMenuNames,i)
			DEFINE BAR (i) OF cListSource PROMPT cSysMName;
				PICTRES &cSysMName
		ENDFOR
		this.RowSourceType= 9
		this.RowSource="cListSource"
	ENDPROC

ENDDEFINE

back to same old

the first online autobiography, unfinished by design
What, me reckless? I'm full of recks!
Balkans, eh? Count them.
Previous
Reply
Map
View

Click here to load this message in the networking platform