Norman has made a replacement class for the BevelButton.
Rather than hijack another thread I started this one to report some issues.
I ran it in Xojo 2018 R3 in MacOS X High Sierra 10.13.6 and what I see:
bevelButtonReplacement9 and bevelButtonReplacement11 have a black background (both are ButtonType button). Turning Transparency on fixes this.
black outline for each button
no checkmarks for selected items
I tried to put a real bevel button next to or close by every replacement o you can check them against each other
here on 10.14 they all look like their bevelbutton counterpart at runtime EXCEPT mine switch to dark mode where the real ones remain glaringly white
Thanks, Norman for the effort. I am struggling to get the value or name from the selected menu item. When I stop the code with break, it shows me that MenuItem is loaded with the right name and value, but when using Event Handler MenuAction it will not recognise either. E.g.:
Var menuResult as String
menuResult = MenuItem.Value
menuResult = MenuItem.Name
Error: MenuItem.Value and MenuItem.Name do not exist
Hi Norman, thanks for the great BevelButtonReplacement… Trying to get a Popup menu filled with the fonts. So far I have this but it’s only populating it in one line… Any ideas? Thanks!
dim arrayString as string
Dim fCount As Integer = FontCount
For i As Integer = 0 To fCount-1
arrayString = arrayString + chr(34) + (Font(i)) + chr(34) + chr(44) + chr(32)
Next
Dim groups() As String = Array(arrayString)
bevelButtonReplacement(obj).DeleteAllRows
For Each m As String In groups
bevelButtonReplacement(obj).AddRow(m)
Next
I might be missing something but I’m just trying to get the button to show when it is temporarily depressed (between mouseDown and mouseUp). Something like a temporary darkening (or lightening in dark mode)
I’ve tried a few things but it’s tough to tell if it already has the feature or it’s a side-effect of some other setting?
Hi Norm, thanks for the Bevel Button fix. For the most part it is working fine.
The one problem I can’t seem to get to work is to get the Caption Placement to centre under an icon, it puts the text in the middle over any icons I put there.
I put this which suits my purpose but was wondering what would actually make it robust for the other options
titleY = (g.height - captionHeight) '+g.TextAscent/2