PB4.2 beta1 Frage zu CreateImagePopupMenu()

[mardanny71]

Ich bekomme bei der Erstellung von Submenüs den Farbbalken nicht durchgezogen.
Ein Bug kann es eigentlich nicht sein - in der IDE zum Beispiel kommt es zu so einem Fehler nicht.
Aber wie macht man das dann?

Code: Alles auswählen

LoadImage(0, "C:\...\pblogo1.ico");<- bitte Pfad anpassen

  If OpenWindow(0, 200, 200, 210, 120, "Popup Menu PB 4.2b1")
    If CreateImagePopupMenu(0)      
        MenuItem(1, "Öffnen")    
        MenuItem(2, "Schliessen")
        OpenSubMenu("Öffnen mit...") ;<- hier wird kein Farbbalken Dargestellt
          MenuItem(5, "PureBasic")
          MenuItem(6, "PureBasic beta",ImageID(0))
        CloseSubMenu()       
        MenuItem(3, "Speichern")
        MenuItem(4, "Exit")
      
    EndIf
 EndIf
    
Repeat
      eventID = WaitWindowEvent()     
      If eventID = #WM_RBUTTONDOWN             
          DisplayPopupMenu(0,WindowID(0))
      EndIf
Until eventID =#PB_Event_CloseWindow             

Hat jemand eine Idee?

gruss
mardanny71

[RSBasic]

@mardanny71
Jo, das ist ein Bug von PB:

[mardanny71]

@mardanny71
Jo, das ist ein Bug von PB

Habe es mal als Bug eingestellt.
Mich hat nur gewundert, das die IDE selbst solche Item's ja korrekt Darstellt.Nun ja.

gruss
mardanny71

[Falko]

Wenn du den MenuTitle hinzufügst, wird es korrekt angezeigt:

Code: Alles auswählen

LoadImage(0, "kerze.ico");<- bitte Pfad anpassen

  If OpenWindow(0, 200, 200, 210, 120, "Popup Menu PB 4.2b1")
    If CreateImagePopupMenu(0)     
        MenuTitle("Datei")
        MenuItem(1, "Öffnen")   
        MenuItem(2, "Schliessen")
        OpenSubMenu("Öffnen mit...") ;<- hier wird kein Farbbalken Dargestellt
          MenuItem(5, "PureBasic")
          MenuItem(6, "PureBasic beta",ImageID(0))
        CloseSubMenu()       
        MenuItem(3, "Speichern")
        MenuItem(4, "Exit")
     
    EndIf
 EndIf
   
Repeat
      eventID = WaitWindowEvent()     
      If eventID = #WM_RBUTTONDOWN             
          DisplayPopupMenu(0,WindowID(0))
      EndIf
Until eventID =#PB_Event_CloseWindow  

Gruß Falko

[mardanny71]

@Falko
Ja schon, aber ein MenuTitle() hat auch keinen Office - Style.
Bei normalen Menüs braucht er das ja auch nicht.
Irgentwie wurde es bei der IDE schon gemacht - aber so auch nicht.

gruss
mardanny71

[Falko]

@Falko
Ja schon, aber ein MenuTitle() hat auch keinen Office - Style.
Bei normalen Menüs braucht er das ja auch nicht.
Irgentwie wurde es bei der IDE schon gemacht - aber so auch nicht.

gruss
mardanny71

>>>Irgentwie wurde es bei der IDE schon gemacht - aber so auch nicht.
Stimmt, dort taucht beim Rechtsklick kein MenuTitle auf und der Fehler
den du beschrieben hast, ist auch nicht vorhanden.

freak wird wohl wissen, was da anders ist

Gruß Falko