| |
| |
|
 | Jörg Sellmeyer (28.10.11)
Ok - lo funktioniert doch! El Menüitems necesario con uno angehängten 0 producido voluntad. Wahrscheinlich funktioniert el sólo en el Zusammenhang con el neuen Möglichkeiten Icons en Menüs anzuzeigen. Bug oder Feature? KompilierenMarcaSeparaciónCls
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ß, es bastante praktisch, porque una continuación siempre otra vez ligeramente auch el normale Farbe uso kann. |
|
| |
| |
| |
|
(898)
Deutsch
English
Français
Español
Italia