| |
| |
|
 | Jörg Sellmeyer (28.10.11)
Ok - es funktioniert doch! Die Menüitems müssen mit einer angehängten 0 erzeugt werden. Wahrscheinlich funktioniert das nur im Zusammenhang mit den neuen Möglichkeiten Icons in Menüs anzuzeigen. Bug oder Feature? KompilierenMarkierenSeparierenCls
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
Wenn man's weiß, ist es ganz praktisch, weil man dann immer wieder leicht auch die normale Farbe verwenden kann. |
|
| |
| |
| |
|
(909)
Deutsch
English
Français
Español
Italia