| |
| |
|
| - Page 1 - |
|
Jörg
Sellmeyer | is it solid, that Set("MenuTextCol",col&) not CreateMenu functions?
CompileMarkSeparation
This is too for Set("MenuFont", n)  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 10/28/11 ▲ |
|
| |
|
 |
« this Posting watts as Solution marked. » |
|
Jörg
Sellmeyer | 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. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 10/28/11 ▲ |
|
| |
|
|
|
 | [offtopic]The Autoeinrückung verrät that there one endif missing oO[/offtopic] |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | [OFFTOPIC]is correct(e) - game but für's Result no role...[/OFFTOPIC] |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 10/28/11 ▲ |
|
| |
|
|
Jörg
Sellmeyer | 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. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 10/28/11 ▲ |
|
| |
|
|
RGH | very so is it virtual! 
Greeting
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 | 10/28/11 ▲ |
|
| |
|
(1.352)
Deutsch
English
Français
Español
Italia