12-13-2023, 02:40 PM
Scout,
On the program below if you place your icon in c:\temp\database.jpg this should work for you. I attached a file with my database icon. All it does is put a little icon at the top left corner of the graphics window.
JR
menuList["File"] = "Main"
menuList["Open"] = "File"
menuList["-"] = "File"
menuList["Exit"] = "File"
menuList["Help"] = "Main"
menuList["Show Help"] = "Help"
iconList["File"]="c:\temp\database.jpg"
checkList["Show Help"] = "True"
menu = LDControls.AddMenu(GraphicsWindow.Width,20,menuList,iconList,checklist)
LDShapes.BrushColour(menu,LDColours.AliceBlue)
LDShapes.PenColour(menu,"Black")
On the program below if you place your icon in c:\temp\database.jpg this should work for you. I attached a file with my database icon. All it does is put a little icon at the top left corner of the graphics window.
JR
menuList["File"] = "Main"
menuList["Open"] = "File"
menuList["-"] = "File"
menuList["Exit"] = "File"
menuList["Help"] = "Main"
menuList["Show Help"] = "Help"
iconList["File"]="c:\temp\database.jpg"
checkList["Show Help"] = "True"
menu = LDControls.AddMenu(GraphicsWindow.Width,20,menuList,iconList,checklist)
LDShapes.BrushColour(menu,LDColours.AliceBlue)
LDShapes.PenColour(menu,"Black")