XProfan

Français

Jörg
Sellmeyer

Ist es intention, qui Set("MenuTextCol",col&) pas chez CreateMenu funktioniert?
Kompilieren Marque Séparation

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

cela gilt aussi pour Set("MenuFont", n)

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

28.10.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

« cette Beitrag wurde comme Solution gekennzeichnet. »

Jörg
Sellmeyer

Ok - es funktioniert doch! qui Menüitems doit avec einer angehängten 0 erzeugt volonté.
Wahrscheinlich funktioniert cela seulement im Zusammenhang avec den neuen Opportunités Icônes dans Menüs anzuzeigen. Bug ou bien Feature?
Kompilieren Marque Séparation

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

si man's sais, ist es entier pratique, weil on ensuite toujours wieder léger aussi qui normale la couleur verwenden peux.

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

28.10.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

[offtopic]qui Autoeinrückung verrät dass là un endif fehlt oO[/offtopic]

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

28.10.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

[OFFTOPIC]Stimmt(e) - écoutes mais für's Ergebnis aucun rôle...[/OFFTOPIC]

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

28.10.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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