| |
| |
|
| - Página 1 - |
|
Jörg
Sellmeyer | ¿Es Absicht, daß Conjunto("MenuTextCol",col&) no en CreateMenu funktioniert?
KompilierenMarcaSeparación
Das gilt auch para Conjunto("MenuFont", n)  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 28.10.2011 ▲ |
|
| |
|
 |
« Dieser Contribución wurde como Solución gekennzeichnet. » |
|
Jörg
Sellmeyer | 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. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 28.10.2011 ▲ |
|
| |
|
|
|
 | [offtopic]el Autoeinrückung verrät dass como una endif fehlt oO[/offtopic] |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | [OFFTOPIC]Stimmt(e) - juega aber für's Ergebnis ningún papel...[/OFFTOPIC] |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 28.10.2011 ▲ |
|
| |
|
|
Jörg
Sellmeyer | 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. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 28.10.2011 ▲ |
|
| |
|
|
RGH | Exactamente así es pensamiento! 
Saludo
Roland |
|
| |
| XProfan X2Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 28.10.2011 ▲ |
|
| |
|
(911)
Deutsch
English
Français
Español
Italia