Yes, I could mimic a menu but there is no need. I’ve already gone down the path of non-standard buttons and controls with my own “tool bar”. Now I’m in the process of de-cluttering, therefore I don’t want another control on the window. The menu bar serves it’s purpose very well - I’m glad it’s there.
The “user” symbol would have been a “nice touch”, but at this point it has to be about “functionality over form” and the diamond shape is fine (although I might see how I can move it to the right a bit). With this App, I’ve spent a lot of time to put form with function, but his time I have to be pragmatic.
The “User Level” function was always a possibility during planning, but then I forgot about it, but now it has to be introduced. I’ve spent the last couple of days thinking, weeding through my code to ensure that it works. At this point it’s working great but will need beta testing.
I have to say that programmers always refer to poor/ineffective code as “spaghetti code”. Well I’ve taken it up another notch - I call it “KerPlunk” like that old game where if you pull out the wrong straw, it all comes tumbling down.
Nevertheless, I’ve been smart enough to make it “modular” in that I can insert new code without wrecking the rest (I think) - but it’s not that easy, and no-one can help me with that.
Thanks Chistian, perhaps this is what separates the “Professionals” from the “Amateurs”. But I could not get this working with Win7.
I did copy/paste your code, this is how I used it:
[code] currentUserLevel = “Advanced” // currentUserLevel is a global string
Dim userSymbol As String
userSymbol = encodings.UTF16.Chr(&hD83D) + encodings.UTF16.Chr(&hDC65)
UserLevelMenu.Text = userSymbol + " User Level : " + currentUserLevel[/code]
It shows an empty rectangle, not a symbol - as in the default unrecognized character. Is there something I’ve missed?
I tried on Mac and the Mac does pick a symbol from another font if needed.
So for you, please make sure you use on Windows a font which contains the character!
That’s fine Christian, thanks for your efforts and much appreciated.
I guess the reality is that the font (Segoe UI) installed with Win7, does NOT have that character symbol. I guess I keep hoping for some magical solution, but it’s just not going to happen - I can live with it.
The only way I can see this working correctly is if I included the newer version of the font (Segeo UI) with my App, then on first App start, the user was told they needed to install it to use the App, then asked if they wanted to, then the font is installed “seamlessly”.
That would be good - but I’m sure it wouldn’t be easy and I’ll just stick with what I have.
I’m aware of your plugins, and they look like a very worthwhile investment for a professional. But being a hobby programmer, I can’t justify it, perhaps later on down the track.
I do now hate that diamond shape though. It looks like it’s out of place and yelling at me. I might use a solid circle instead. This is my reality, I can become obsessed over a small thing like this. You guys just have to read about it - but I’m the one who has live it!
Anyway, the symbol/icon is more a distraction to other issues regarding menu items. I’d rather continue those issues in this thread, but better to start a new one.
Deutsch
rem Menueintrag Arbeit/alsShape50%
rem Insert bee before text on Canvas.open to which the menu is assigned
Dim th As String
th= Text.FromUnicodeCodepoint(128029)+" “+ArbeitalsShape50.Text
ArbeitalsShape50.Text = th
’
'or create as shape previously / save and assign as an icon
'Dim neu As picture
'neu = New picture(40,40,32)
'neu.Transparent = 1
'neu.Graphics.TextSize = 32
'neu.Graphics.DrawString(th,1,35)
'myicon=New PixmapShape(neu) // in Canvas zeichnen oder
’
'// save
'f= GetSaveFolderItem(”",“myicon.png”)
'If f <> Nil Then
'neu.Save(f, 150)
'End If
