XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fenstermenü: Bitmaps im Menü
Lauffähig ab Profan-Version 5.0
+----------------------------------------------------------+
| checkmenu.prf                                            |
| Autor: Sebastian König                                   |
| email: koenig.hil@t-online.de                            |
| Homepage: http://www.sekoenig.mysite.de                  |
| Eigene Grafiken für CheckMenu verwenden.		    |
+----------------------------------------------------------+
---Benötigte API:
DEF SetMenuItemBitmaps(5) !USER32,SetMenuItemBitmaps
DEF GetMenu(1) !USER32,GetMenu
DEF LoadImage(6) !USER32,LoadImageA
---Deklarationen:
declare hMenu&
declare hbmChecked&,hbmUnchecked&
declare filename#
dim filename#,255
cls    						    Neues Fenster
windowtitle Eigene Grafiken für CheckMenu
PopUp Test             			    Menu erzeugen
AppendMenu 101,Test
let hMenu&=GetMenu(%hwnd) 			    Menu-Handle holen
string filename#,0=Checked.bmp    		    Grafiken laden...
let hbmChecked&=LoadImage(0,filename#,0,0,0,$10)
string filename#,0=Unchecked.bmp
let hbmUnChecked&=LoadImage(0,filename#,0,0,0,$10)
SetMenuItemBitmaps(hMenu&,101,$10,hbmChecked&,hbmUnChecked&)  Menu-Grafik ändern...
print Ein Blick ins Menü lohnt sich!
print
print Über Systemmenü oder mit Alt+F4 beenden!
declare checked%
CheckMenu 101,0
let checked%=0

while 1

    waitinput

    if @menuitem(101)

        if @equ(checked%,1)

            CheckMenu 101,0
            let checked%=0

        else

            CheckMenu 101,1
            let checked%=1

        endif

    endif

wend

dispose fi