Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]7565[/thread]

Tray-Icon updaten?



<< >> 4 Einträge, 1 Seite
master
 2005-12-21 20:12
#61232 #61232
User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]
Wie kann ich mein Tray-Icon nachträglich ändern?
$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;
esskar
 2005-12-21 22:56
#61233 #61233
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[quote=master,21.12.2005, 19:12]Wie kann ich mein Tray-Icon nachträglich ändern?[/quote]
jetzt einmal dir frage: wie definierst du es zu beginn?
master
 2005-12-22 09:59
#61234 #61234
User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]
so...

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
  $id = 1;
  $icon = new Win32::GUI::Icon('gfx/icon.ico');
    $main2 = Win32::GUI::Window->new(
        -name   => 'Main',
        -text   => 'Perl',
        -width  => 200,
        -height => 200,
    );

      $ni = $main2->AddNotifyIcon(
       -name => "systray",
        -id   => $id,
        -icon => $icon,
        -tip  => $guitxt{tray'}  );
$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;
master
 2005-12-22 10:48
#61235 #61235
User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]
Ok habs selber gefunden hier die Lösung...


Code: (dl )
1
2
3
4
5
Win32::GUI::NotifyIcon::Modify(
     $main, 
     -id => 1, 
     -icon => $t_icon, 
     -tip => "Not Recording",);
$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;
<< >> 4 Einträge, 1 Seite



View all threads created 2005-12-21 20:12.