| |
|
|
| Jörg Sellmeyer (28.10.11)
OK - it functions still! The Menüitems must with of/ one appended 0 created go. probably functions the only Context with the new Opportunities Icons in Menüs view. bow or feature? CompileMarkSeparationCls
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
If man's white, is it integrally useful, because one then over ands over again slight too The normal colour use can. |
|
|
| |
|
|