XProfan

Windowstyle 8
Window 200,100-250,200
Windowtitle "Beispiel Menu Icon Farbe Setzen"
Popup "Hintergrund"
Appendmenu 101,"Hintergrundfarbe"
SetMenuIconColor(101,32,RGB(255,255,255))
declare farbe%

while 1

    waitinput

    if Menuitem(101)

        farbe%=RND(255*255*255)
        SetMenuIconColor(101,32,farbe%)
        cls farbe%

    Endif

Endwhile

Proc SetMenuIconColor

    Parameters menu_nummer%, groeße&, color%
    var hpic&=Create("hNewPic", groeße&, groeße&, color%)
    StartPaint hpic&
    UsePen 0,1,0
    UseBrush 1,color%
    Rectangle 0,0 - %bmpx,%bmpy
    EndPaint
    External("USER32","SetMenuItemBitmaps",&hMenu,menu_nummer%,0,hpic&,0)

EndProc