Thread 2 Probs: Drag & Drop auf Tray-Icon.... (3 answers)
Opened by master at 2005-12-20 16:45

master
 2005-12-20 16:45
#45121 #45121
User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]
2 Kleine Problemchen :-)

1. Drag & Drop auf Tray-Icon
wie mach ich das? gehts überhaupt? möcht, das ein Tray-Icon erscheint.. das hab ich soweit.. jedoch verschwindet es immer wieder wenn ich mit der Maus darüber fahre.

2. Drag&Drop bzw. DropSite-Problem
Wenn ich mehre Dateien ins Fenster ziehe wird die Sub "Dropit", mehrmals ausgeführt...


Ich will aber eine Sub, die auf Das "drop" kommando reagiert.. also ev. dropit... aber die soll nun solange laufen, solange elemente übergeben werden... und nicht mehrmals

20 elemente -> Drop it -> for(@elemente){}
nicht (ist leider so):
20 mal -> dropit (starten)


es soll eben beim 1sten mal sobald das Drag & drop event eintritt ein popup angezeigt, werden... und nicht bei jeder Datei jeweils ein popup


Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
$vars{SysTrayIcon} = new Win32::GUI::Icon('gfx/icon.ico');
new Win32::GUI::NotifyIcon(
  $vars{MainWindow},
  -name => "Notify",
  -id => 100,
  -icon => $vars{SysTrayIcon},
  -tip => "Dies ist ein Systray-Icon");



$scr->DropSite(
   -dropcommand => [\&Dropit, $scr],
   -droptypes => 'Win32'


sub Dropit
{
     #popup anzeigen (wirklich parsen? JA /NEIN)
}

);
$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;

View full thread 2 Probs: Drag & Drop auf Tray-Icon....