Ich bin mir nicht sicher, ob es zusätzliche Eigenschaften für die ImageList gibt, damit dies funktioniert.
Code-Auszug:
Code: Select all
imgLst2 = ImageList(self)
imgLst2.SetProps(Height = 16, Width = 16,
DrawingStyle = 'dsTransparent',
Masked = False,
ColorDepth = 'cd32bit')
for f in icoFileList:
icon = Icon(self)
icon.LoadFromFile(f)
imgLst2.AddIcon(icon)
icon.Free()
mainMenu.Images = imgLst2
mnuItm1.ImageIndex = 0 #The 'Text' disappear on MenuItem
Hat jemand eine Ahnung, wie man das beheben kann?