| |
| |
|
J.
Strahl | Hello Gemeinde,
I have time again ne idea and can tappt im dunkeln net umsetzen 
I have me one Proggi gebastelt which me File a FTP hochlädt. this happens in the background sodaß I during the Vorgangs normal moreover with empty computer works can.
so far so well. i'd me gladly another Tray Icon for the Program integrate, which me by Icon indicating whether the Upload yet runs or not.
zb.: a green blinkenden point inside the Icons the the Upload yet in the Gange is.
I have here times under Codes nachgeschaut, unfortunately krich I Augenkrätze if I me The Codes for a normales TrayIcon anschaue. this is still plenty To plenty hoisted.
has someone a idea How one so a kleinigkeit manage could ?
 |
|
| |
| Windows 7 Ultimate 64 * 12 GB Ram * XProfan 11.2a * PRFellow * PRFPAD | 07/15/08 ▲ |
|
| |
|
|
Jac
de
Lad | The simplest idea would one Umstieg on XProfan 11, there are Trayicon nativ thereby.
otherwise would here Schonmal one beginning...[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 | 07/15/08 ▲ |
|
| |
|
|
J.
Strahl | thanks you, I look me the at times.
äh, hmm - Profan 11 ?? how long since is the out ? Have I what missed ?
 |
|
| |
| Windows 7 Ultimate 64 * 12 GB Ram * XProfan 11.2a * PRFellow * PRFPAD | 07/15/08 ▲ |
|
| |
|
|
Jac
de
Lad | you have definitiv what missed. its soon ready.  |
|
| |
| 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 | 07/15/08 ▲ |
|
| |
|
|
RGH | Hi,
in XProfan 11 becomes it objectively explicit plainer, but since XProfan 11 not yet is done and first into next weeks appear, here The functions, The You benötigst for frühere XProfan-versions:
CompileMarkSeparationStruct 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
Return Result&
ENDPROC
Greeting
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 | 07/15/08 ▲ |
|
| |
|
|
Jac
de
Lad | | @Roland: have you got too a function, for a vorhandenes Trayicon moreover To bring, a Tooltip anzuzigen, without, that the Cursor 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 | 07/15/08 ▲ |
|
| |
|
(1.109)
Deutsch
English
Français
Español
Italia