>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