XProfan

Italia

Jörg
Sellmeyer

Ist es Absicht, daß Set("MenuTextCol",col&) nicht bei CreateMenu funktioniert?
Kompilieren Markieren Separieren

Cls
Declare col&
Randomize

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&)

        Wend

        TrackMenu()

    EndIf

Wend

Das gilt auch per Set("MenuFont", n)

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

28.10.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

« Dieser Beitrag wurde als Lösung gekennzeichnet. »

Jörg
Sellmeyer

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?
Kompilieren Markieren Separieren

Cls
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.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

28.10.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

[offtopic]die Autoeinrückung verrät dass da ein endif fehlt oO[/offtopic]

XProfan X2
WinXP, SP3 v.3244, P4 3.06GHz

28.10.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

[OFFTOPIC]Stimmt(e) - spielt aber für's Ergebnis keine Rolle...[/OFFTOPIC]

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

28.10.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Cls
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