| |
|
|
| Jörg Sellmeyer (28.10.11)
Ok - es funktioniert doch! qui Menüitems doit avec einer angehängten 0 erzeugt volonté. Wahrscheinlich funktioniert cela seulement im Zusammenhang avec den neuen Opportunités Icônes dans Menüs anzuzeigen. Bug ou bien Feature? KompilierenMarqueSéparationCls
Declare col&
Randomize
Set("MenuBorderCol", RGB(230,230,230))
PopUp "&Datei"
AppendMenu 100,"&Laden"
AppendMenu 101,"&Speichern"
AppendMenu 102,"Speichern &als"
Separator
Set("MenuTextCol",$FF00FF)
SubPopUp "Datei&typ"
AppendMenu 110,"Exe",0
AppendMenu 120,"Com",0
EndSub
AppendMenu 103,"&Ende"
While 1
WaitInput
If %mousepressed = 2
CreateMenu
AppendMenu 100,"FarbTest"
WhileLoop 10
col& = Rnd($FFFFFF)
Set("MenuTextCol",col&)
AppendMenu 100 + &Loop,"FarbTest Farbe: " + Str$(Col&),0
Wend
TrackMenu()
EndIf
Wend
si man's sais, ist es entier pratique, weil on ensuite toujours wieder léger aussi qui normale la couleur verwenden peux. |
|
|
| |
|
|