Seite 1 von 1

PB4.2 beta1 Frage zu CreateImagePopupMenu()

Verfasst: 31.12.2007 04:31
von 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

Verfasst: 31.12.2007 12:28
von RSBasic
@mardanny71
Jo, das ist ein Bug von PB:
Bild

Verfasst: 31.12.2007 14:38
von mardanny71
RSBasic hat geschrieben:@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

Verfasst: 02.01.2008 23:28
von 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

Verfasst: 03.01.2008 16:03
von 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. :lol:

gruss
mardanny71

Verfasst: 04.01.2008 00:18
von Falko
mardanny71 hat geschrieben:@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. :lol:

gruss
mardanny71
>>>Irgentwie wurde es bei der IDE schon gemacht - aber so auch nicht. :lol:
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 :allright:

Gruß Falko