PureBoard

• Was ist mit "Einklappbar" gemeint?
• Die Größenanpassung des Ribbons selbst sehe ich, allerdings verschwinden die Elemente trotzdem rechts, bzw. werden über den Rand gezeichnet. Ist es geplant die Items noch in der größe dynamisch zu schrumpfen wenn das Ribbon klein wird. (Vergleich Windows Word oder so).

• Vorab, dein Event-Handling um Beispielcode ist nicht sehr "vorbildlich". Funktionen wie EventGadget() usw. sollten nur dann ausgewertet werden, wenn es auch tatsächlich ein Gadget-Event gab, also #PB_Event_Gadget.
• Du verwendest ja dein eigenes CheckRibbonActivity() um Events auf dem Gadget zu Checken. Da dein Ribbon aber ein normales Gadget ist, könntest du dich da nicht in den Event-Strom von PureBasic reinhängen? Jedes Mausklicken wird ja auch in die PB-Eventliste durchgereicht und falls du eigene Events brauchst, wäre da noch PostEvent() mit eigenen Typen die dann auch von EventType() zurückgegeben werden.
• Wenn ich folgenden eigenen Code ausführe, bei dem ich denke, dass alle notwenigen Funktionen zum Rendern aufgerufen werden, dann sehe ich keine Texte der Buttons, sondern nur den Hover-Effekt:

  Code: Alles auswählen

  XIncludeFile "RibbonGadget.pbi"
  UseModule RibbonGadget
  
  Enumeration
  	#Window
  	#Gadget
  EndEnumeration
  
  Enumeration 1
  	#Tab1
  	#Tab2
  	#Group1
  	#Container1
  	#Item1
  	#Item2
  	#Item3
  EndEnumeration
  
  OpenWindow(#Window, 0, 0, 800, 450, "Ribbon Gadget", #PB_Window_MaximizeGadget|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget|#PB_Window_ScreenCentered)
  RibbonGadget(#Window, #Gadget, #Ribbon_Color_Auto, #Ribbon_Style_Black, #Ribbon_Flag_FullHover)
  AddRibbonItem(#Gadget, #Tab1, #Ribbon_Type_Category, "Category 1")
  	AddRibbonItem(#Tab1, #Group1, #Ribbon_Type_Group, "Group 1")
  		AddRibbonItem(#Group1, #Container1, #Ribbon_Type_Container)
  			AddRibbonItem(#Container1, #Item1, #Ribbon_Type_Button, "Button 1", #Ribbon_Image_None)
  			AddRibbonItem(#Container1, #Item2, #Ribbon_Type_Button, "Button 2", #Ribbon_Image_None)
  			AddRibbonItem(#Container1, #Item3, #Ribbon_Type_Checkbox, "Checkbox 3", #Ribbon_Image_None, #Ribbon_Status_Checked)
  AddRibbonItem(#Gadget, #Tab2, #Ribbon_Type_Category,"Category 2")
  
  SetRibbonMetric(#Gadget, #Ribbon_Metric_UpdateMode, 0)
  RenderRibbon(#Gadget, #Ribbon_Render_Force)
  
  Repeat
  	Select WaitWindowEvent()
  		Case #PB_Event_CloseWindow
  			Break
  		Case #PB_Event_Gadget
  			CheckRibbonActivity()
  	EndSelect
  ForEver
  
  End

• Wäre es möglich auch für die ID deiner Items #PB_Any zu ermöglichen? Zum Beispiel der #Ribbon_Type_Separator macht eine ID irgendwie überflüssig, trotzdem muss man eine einmalige ID festlegen, da er sonst verschwindet.
• Erstelle ich mehr als 3 Items in einem #Ribbon_Type_Container dann werden diese weiter unten angehangen und verschwinden damit, diese sollten sich dann nach rechts verteilen, ähnlich wie es bei den Buttons der Fall ist.
• Anhand deines Codes sehe ich, dass du das Image was optional übergeben wird, direkt verwendest. Das führt jedoch beim löschen des Items dazu, dass logischerweise auch das übergebene Image freigegeben wird, was nicht immer gewollt ist. Denn dadurch müsste ich immer Kopien an deine Funktion übergeben und kann ein Image nicht mehreren Items zuweisen.
• SetRibbonItemImage() scheint bei #Ribbon_Type_Category Items nicht zu funktionieren. Wenn ich in den Code gucke, weiß ich auch warum, da wird irgendein tempimage gesetzt, was aber 0 ist, statt mein Image:

  Code: Alles auswählen

  Procedure SetRibbonItemImage(id,image)
    Protected old,tempimage,dimensions.bitmap,temp
    Select SetPointerToItem(id)
      Case 1
        old=ribbons()\Categories()\image
        ribbons()\Categories()\image=tempimage
  

• Es gibt einen Fehler bei bei RemoveRibbonItem(), wenn kein Image gesetzt ist. Der Code hat dort folgende Zeilen:

  Code: Alles auswählen

  If ribbons()\...\image<>0:FreeImage(ribbons()\...\image):EndIf

  Das Problem ist nun aber, dass du beim Erstellen der Items, die #Ribbon_Image_None (= -1) einfach als Image setzt, und dieses dann logischerweise <> 0 ist. Somit wird FreeImage() ausgeführt und zwar mit -1 was in PB dann #PB_All heißt und alle Images löscht. Guck da noch mal durch.

jacdelad hat geschrieben:Wie verhält es sich, wenn eine andere Include-Datei oder so auf #PB_Event_FirstCustomValue oder #PB_EventType_FirstCustomValue zugreifen wollen? Verschiebt PB die automatisch?

Enumeration EnumEventType #PB_EventType_FirstCustomValue
  #EventType_MeinErster
  #EventType_MeinZweiter
EndEnumeration

Enumeration EnumEventType
  #EventType_MeinDritter
EndEnumeration
Enumeration #PB_EventType_FirstCustomValue
  #EventType_MeinVierter
EndEnumeration

Debug #EventType_MeinErster
Debug #EventType_MeinDritter

; Dieser hier ist wie der Erste
Debug #EventType_MeinVierter

DeclareModule MeinModul

  EnableExplicit
  
  CompilerIf Defined(Common, #PB_Module)
    UseModule Common
  CompilerElse
    Enumeration EnumEventType #PB_EventType_FirstCustomValue
    EndEnumeration
  CompilerEndIf
  
  Enumeration EnumEventType
    #EventType_MeinErster
  EndEnumeration
  
EndDeclareModule