Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249129 (10565)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Trayicons...
Julian Rau
| Datum:02.03.02 11:19 (info@german-airlines.com) |
Hallo! ich habe eine kleine Frage zu der PRFellow-Vorlage zu den Trayicons. In dieser Vorlage funktioniert unter Profan 7.0f und Win XP komischerweise nur die Auswertung des Doppelklicks rechts. Wie funktionieren denn die anderen Auswertungen? Mfg Julian Rau
Sven Schmidts
| Datum:04.03.02 08:55 (schmidts@flat2serv.de) |
Soweit ich das mal irgendwo gelesen habe, sollte noch als letzte PRFellow Version eine korrigierte herauskommen, die Fehler unter XP behebt.
Uwe ''Pascal'' Niemeier
| Datum: 04.03.02 21:21 (Pascalxd@owl-online.de) |
Hallo Leute! Ich aber zwar kein XP, aber mit beiliegendem Code sollte man dem Fehler eigendlich auf die Spur kommen.
    window 100,50-500,500
    numwidth 10
    strwidth 10
    declare Tray#,Code&,ID&,Icon&
    def LoadIcon(2) !"user32","LoadIconA"
    def Shell_NotifyIcon(2) !"shell32","Shell_NotifyIconA"

    Code&=2222
    ID&  =5555
    Icon&=LoadIcon(0,32513)

    struct TRAY=Size&,Hwnd&,ID&,Flags&,Code&,Icon&,Tip$(64)
    dim Tray#,TRAY
    with Tray#
    	.Size&  =92
    	.Hwnd&  =%hwnd
    	.ID&    =ID&
    	.Flags& =7'--NIF_ICON + NIF_TIP + NIF_MESSAGE
    	.Code&  =Code&
    	.Icon&  =Icon&
    	.Tip$   ="Laber..Laber"
    endwith

    Shell_NotifyIcon(0,Tray#)'--------NIM_ADD
    usermessages Code&,16'------------WM_CLOSE (16)
    while 1
    	locate 0,0
    	print
    	print "           TrayCode",Code&
    	print "             TrayID",ID&
    	print
    	print "           %message",%message
    	print
    	print "         &wparam Hi",&wparam & $FFFF0000
    	print "         &wparam Lo",&wparam & $0000FFFF
    	print "         &lparam Hi",&lparam & $FFFF0000
    	print "         &lparam Lo",&lparam & $0000FFFF
    	print
    	print " ButtonDown L (513)",&lparam=513
    	print "   ButtonUp L (514)",&lparam=514
    	print "Doppelklick L (515)",&lparam=515
    	print
    	print " ButtonDown R (516)",&lparam=516
    	print "   ButtonUp R (517)",&lparam=517
    	print "Doppelklick R (518)",&lparam=518
            waitinput
    	case %umessage=16:break
    endwhile

    Shell_NotifyIcon(2,Tray#)'--------NIM_DELETE
    dispose Tray#
HTH Pascal

| Zurück zur Übersicht