XProfan

Source wurde am 15.06.2006 in die Babyklappe auf XProfan.Com abgelegt:
DEF LoadPic(6) !user32,LoadImageA
DEF SetMenuItemBitmaps(5) !USER32,SetMenuItemBitmaps
DEF GetMenu(1) !USER32,GetMenu
DEF GetSystemMetrics(1) !USER32,GetSystemMetrics

proc setmenupicture

    parameters h&,pic$
    SetMenuItemBitmaps(GetMenu(%HWND),h&,0,LoadPic(0,addr(pic$),0,GetSystemMetrics(71),GetSystemMetrics(72),$10),0)

endproc

cls
popup &Programm
appendmenu 1000,&Beenden	Alt+F4
popup &Optionen
appendmenu 1001,&Einstellungen	Strg+E
popup &?
appendmenu 1002,&About
setmenupicture 1000,Bitmap1.bmp
setmenupicture 1001,Bitmap2.bmp
setmenupicture 1002,Bitmap3.bmp
usermessages 16

whilenot %umessage==16

    getmessage

wend

end