From Xojo Documentation
Used for creating a bevel button. A DesktopBevelButton can use text, a graphic, a pop-up menu, or several of these interface elements in combination.
|On macOS, DesktopBevelButton is not a native control and does not automatically change its appearance in dark mode.|
A DesktopBevelButton can display a graphic, a label (caption), or both.
The "No Bevel" option for the BevelStyle property is functional only on Microsoft Windows. On platforms with cursor, the button appears to have no border until the cursor enters the bounds of the BevelButton control. Then the outline of the button appears. On non-Windows systems, the "No Bevel" option has the same appearance of "Small Bevel."
The following code places an icon in the DesktopBevelButton, aligns it, and specifies the position of the caption. The graphic, "DatabaseQueryIcon," has been added to the project.
Me.IconAlignment = DesktopBevelButton.IconAlignments.TopLeft
Me.CaptionAlignment = DesktopBevelButton.CaptionAlignments.Left
Me.CaptionPosition = DesktopBevelButton.CaptionPositions.RightOfIcon
Me.IconDeltaX = 2
Me.IconDeltaY = 1
The following code creates a bevel button menu.
me.Caption = "Month"
me.CaptionAlignment = DesktopBevelButton.CaptionAlignments.Left
me.MenuStyle = DesktopBevelButton.MenuStyles.Right
Var myMenu As New DesktopMenuItem
For Each m As String In months
me.Menu = myMenu
The following line of code in the DesktopBevelButton's MenuSelected event handler sets the DesktopBevelButton caption to the value that the user selects: