| |
| |
|
J.
Strahl | allô Gemeinde,
j'ai la fois wieder ne concept et peux vous net umsetzen 
j'ai mir un Proggi gebastelt welches mir une Dossier une FTP hochlädt. ca geschieht im Hintergrund si je au cours de des Vorgangs normal plus à meinen calculateur travailler peux.
Soweit si bien. je serait mir volontiers encore un Tray Icon pour cela Programme einbinden, welches mir per Icon anzeigt si qui Upload encore fonctionne ou bien pas.
zb.: une vert blinkenden Punkt dedans des Icônes cela qui Upload encore im Gange ist.
j'ai ici la fois sous Codes nachgeschaut, malheureusement krich je Augenkrätze si je mir qui Codes pour un normales TrayIcon anschaue. c'est doch viel trop viel Aufwand.
Hat quelqu'un une concept comment on so une kleinigkeit bewerkstelligen pourrait ?
 |
|
| |
| Windows 7 Ultimate 64 * 12 GB Ram * XProfan 11.2a * PRFellow * PRFPAD | 15.07.2008 ▲ |
|
| |
|
|
Jac
de
Lad | qui einfachste concept wäre un Umstieg sur XProfan 11, voilà Trayicon nativ dabei.
Ansonsten wäre ici Schonmal un Anfang...[web]https://XProfan.com/thread.core?t=2222[/web] |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 15.07.2008 ▲ |
|
| |
|
|
J.
Strahl | merci dir, je exposition mir cela la fois à.
äh, hmm - Profan 11 ?? depuis quand is cela raus ? Hab je quoi verpasst ?
 |
|
| |
| Windows 7 Ultimate 64 * 12 GB Ram * XProfan 11.2a * PRFellow * PRFPAD | 15.07.2008 ▲ |
|
| |
|
|
Jac
de
Lad | tu as définitif quoi verpasst. c'est bientôt fertig.  |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 15.07.2008 ▲ |
|
| |
|
|
RGH | Salut,
dans XProfan 11 wird es réellement deutlich einfacher, mais là XProfan 11 encore pas fertig ist et seulement dans den prochain Wochen erscheint, ici qui Funktionen, qui Du besoin pour frühere XProfan-Versionen:
KompilierenMarqueSéparationStruct NOTIFYICONDATA = cbSize&,
hWnd&,
uID&,
uFlags&,
uCallBackMessage&,
hIcon&,
szTip$(64)
Def &NIM_ADD $00000000
Def &NIM_MODIFY $00000001
Def &NIM_DELETE $00000002
Def &NIF_MESSAGE $00000001
Def &NIF_ICON $00000002
Def &NIF_TIP $00000004
Def Shell_NotifyIcon(2) !shell32.dll, Shell_NotifyIconA
Proc TrayIconAdd
-------------------------------------------------------------------------------
Fügt dem Systray ein Icon hinzu
hWin& - Handle des Programmfensters (meist %hWnd)
ID& - Nummer des Icons (1 für das erste, 2 für das zweite, etc.)
hIcon - Handle des Icons (z.B. erzeugt mit create(hIcon, ...))
Tip$ - Tooltip, der erscheint, wenn die Maus über dem Icon ist (max. 63 Zeichen)
-------------------------------------------------------------------------------
parameters hWin&, ID&, hIcon&, tip$
declare NID#, Result&
dim NID#, NOTIFYICONDATA
NID#.cbSize& = SizeOf(NID#)
NID#.hWnd& = hwin&
NID#.uID& = ID&
NID#.uFlags& = &NIF_ICON | &NIF_TIP | &NIF_MESSAGE
NID#.uCallBackMessage& = 65535
NID#.hIcon& = hIcon&
Case len(tip$) > 63 : Tip$ = left$(tip$,63)
NID#.szTip$ = tip$ + chr$(0)
If Shell_NotifyIcon(&NIM_ADD, NID#)
Result& = 1
Else
Result& = 0
EndIf
Return Result&
EndProc
Proc TrayIconSetIcon
-------------------------------------------------------------------------------
Ändert das Icon des TrayIcons
hWin& - Handle des Programmfensters (meist %hWnd)
ID& - Nummer des Icons (wie mit TrayIconAdd festgelegt)
hIcon - Handle des neuen Icons (z.B. erzeugt mit create(hIcon, ...))
-------------------------------------------------------------------------------
parameters hWin&, ID&, hIcon&
declare NID#, Result&
dim NID#, NOTIFYICONDATA
NID#.cbSize& = SizeOf(NID#)
NID#.hWnd& = hwin&
NID#.uID& = ID&
NID#.uFlags& = &NIF_ICON
NID#.hIcon& = hIcon&
If Shell_NotifyIcon(&NIM_MODIFY, NID#)
Result& = 1
Else
Result& = 0
EndIf
Return Result&
EndProc
Proc TrayIconSetTip
-------------------------------------------------------------------------------
Ändert den Tooltip-Text des TrayIcons
hWin& - Handle des Programmfensters (meist %hWnd)
ID& - Nummer des Icons (wie mit TrayIconAdd festgelegt)
Tip$ - Tooltip, der erscheint, wenn die Maus über dem Icon ist (max. 63 Zeichen)
-------------------------------------------------------------------------------
parameters hWin&, ID&, tip$
declare NID#, Result&
dim NID#, NOTIFYICONDATA
NID#.cbSize& = SizeOf(NID#)
NID#.hWnd& = hwin&
NID#.uID& = ID&
NID#.uFlags& = &NIF_TIP
Case len(tip$) > 63 : Tip$ = left$(tip$,63)
NID#.szTip$ = tip$ + chr$(0)
If Shell_NotifyIcon(&NIM_MODIFY, NID#)
Result& = 1
Else
Result& = 0
EndIf
Return Result&
EndProc
Proc TrayIconDelete
-------------------------------------------------------------------------------
Entfernt das TrayIcons
hWin& - Handle des Programmfensters (meist %hWnd)
ID& - Nummer des Icons (wie mit TrayIconAdd festgelegt)
-------------------------------------------------------------------------------
parameters hWin&, ID&
declare NID#, Result&
dim NID#, NOTIFYICONDATA
NID#.cbSize& = SizeOf(NID#)
NID#.hWnd& = hwin&
NID#.uID& = ID&
If Shell_NotifyIcon(&NIM_DELETE, NID#)
Result& = 1
Else
Result& = 0
EndIf
Retour Result&
ENDPROC
Salut
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 15.07.2008 ▲ |
|
| |
|
|
Jac
de
Lad | | @Roland: la hâte du aussi une Funktion, um un vorhandenes Trayicon en supplément trop apporter, une Tooltip anzuzigen, sans, dass qui Mauszeiger drüberfährt? |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 15.07.2008 ▲ |
|
| |
|
(269)
Deutsch
English
Français
Español
Italia