Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249129 (10565)
  Suchen
 Zurück zur Übersicht
 AutorThema: Trayicons...
Julian Rau
Datum:02.03.02 11:19 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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