8 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
sub systray_RightClick {
my $systray_menu = new Win32::GUI::Menu(
"SystrayMenu Functions" =>"SystrayMenu",
"> hier klicken" => 'test'
);
my($x, $y) = Win32::GUI::GetCursorPos();
$win32->TrackPopupMenu($systray_menu->{SystrayMenu}, $x, $y-50);
}
$systray_menu->{test}->Change( -text => "www.Perl-Community.de" );
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
sub systray_RightClick {
my $systray_menu = new Win32::GUI::Menu(
"SystrayMenu Functions" => "SystrayMenu",
">-" => "",
"> Mein Status" => "",
">> Online" => 'set_status(1)',
">> Beschäftigt" => 'set_status_Click(2)',
">> Bin gleich zurück" => 'set_status(3)',
">> Abwesend" => 'set_status(4)',
">> Mittagspause" => 'set_status(5)',
"> Abmelden" => { -name => 'open_main', -state => 1 },
">-" => "",
"> Öffnen" => { -name => 'open_main', -bold=>1 },
"> Beenden" => 'quit'
);
my($x, $y) = Win32::GUI::GetCursorPos();
$config{Win32Window}->TrackPopupMenu($systray_menu->{SystrayMenu}, $x-50, $y);
$systray_menu->{quit}->Change(-text => "huhu");
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
my $systray_menu = new Win32::GUI::Menu(
"SystrayMenu Functions" => "SystrayMenu",
">-" => "",
"> Mein Status" => "",
">> Online" => 'set_status(1)',
">> Beschäftigt" => 'set_status_Click(2)',
">> Bin gleich zurück" => 'set_status(3)',
">> Abwesend" => 'set_status(4)',
">> Mittagspause" => 'set_status(5)',
"> Abmelden" => { -name => 'open_main', -state => 1 },
">-" => "",
"> Öffnen" => { -name => 'open_main', -bold=>1 },
"> Beenden" => 'quit'
);
sub systray_RightClick {
my($x, $y) = Win32::GUI::GetCursorPos();
$config{Win32Window}->TrackPopupMenu($systray_menu->{SystrayMenu}, $x-50, $y);
}
sub set_status(1)_Click
{
$systray_menu->{quit}->Change(-text => "huhu");
}
8 Einträge, 1 Seite |