| |
| |
|
J.
Strahl | ¡Hola Gemeinde,
Yo veces otra vez ne Concepto y kann Sie net umsetzen 
Yo habe me una Proggi gebastelt welches me una Expediente una FTP hochlädt. Dies geschieht en el Hintergrund sodaß Yo während des Vorgangs normal más a media Rechner trabajo kann.
Soweit tan bueno. Yo sería me gerne todavía una Tray Icon para el Programa einbinden, welches me por Icon anzeigt si el Upload todavía se ejecuta oder no.
zb.: una grün blinkenden Punkt innerhalb des Icons el el Upload aún en Gange es.
Yo habe hier a veces Codes nachgeschaut, desafortunadamente krich Yo Augenkrätze si yo me el Codes para una normales TrayIcon anschaue. Es doch viel a viel Aufwand.
Sombrero alguien una Concepto cómo así una kleinigkeit bewerkstelligen podría ?
 |
|
| |
| Windows 7 Ultimate 64 * 12 GB Ram * XProfan 11.2a * PRFellow * PRFPAD | 15.07.2008 ▲ |
|
| |
|
|
Jac
de
Lad | El einfachste Concepto wäre una Umstieg en XProfan 11, como son Trayicon nativ esta.
Ansonsten wäre hier schonmal una 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 | Gracias dir, Yo mostrar me veces a.
äh, hmm - Profano 11 ?? seit wann is el fuera ? Hab Yo qué verpasst ?
 |
|
| |
| Windows 7 Ultimate 64 * 12 GB Ram * XProfan 11.2a * PRFellow * PRFPAD | 15.07.2008 ▲ |
|
| |
|
|
Jac
de
Lad | Usted hast definitiv qué verpasst. Es bald 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 | ¡Hola,
en XProfan 11 se lo tatsächlich deutlich einfacher, aber como XProfan 11 todavía no fertig es y sólo en el nächsten Wochen erscheint, hier el Características, el Usted necesidad para frühere XProfan-Versionen:
KompilierenMarcaSeparaciónStruct 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
Volver Result&
ENDPROC
Saludo
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: Hast du auch una Función, en una vorhandenes Trayicon dazu a bringen, una Tooltip anzuzigen, sin, dass el 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 ▲ |
|
| |
|
(1.108)
Deutsch
English
Français
Español
Italia