Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: GUI > Окно свернуть в трей

Автор: OutlawZ 9.5.2010, 10:26

Народ тут на форуме в разделе GUI был топик один человек говорил о том что написал программу для быстрой вставки текста из буфера обмена, в его примере очень хорошо показано было как окно в трей свернуть, если у кто скачивал его пример прошу поделиться ) smile

Автор: shamber 9.5.2010, 12:26

OutlawZ, Какое GUI?

Автор: OutlawZ 9.5.2010, 23:20

Насколько я помню был 100% Tk и еще Win32 )

Автор: shamber 10.5.2010, 12:27

смотрите на http://ptktools.sourceforge.net

Автор: OutlawZ 10.5.2010, 13:32

Цитата(shamber @ 10.5.2010, 12:27

)

смотрите на tkruler

Скачал, посмотрел, линейка почти на весь экран, не нашел кода который окно сворачивает в область уведомления, только X и Стрелка. )

Автор: shamber 10.5.2010, 13:51

OutlawZ, а исходники посмотреть?

Код


sub create_systray_icon {
    $win32_mw = Win32::GUI::Window->new
    (
     -title   => 'tkruler',
     -left    => 100,
     -top     => 100,
     -width   => 150,
     -height  => 100,
     -name    => 'MainWindow',
     -visible => 0
    );
    my $icon;
    foreach my $d (@INC) {
    if (-r "$d/tkruler.ico") {
        my $icon = Win32::GUI::Icon->new("$d/tkruler.ico");
        last if ($icon);
    }
    }
    if ($icon) {
    $win32_mw->AddNotifyIcon(-icon => $icon,
                 -id => 1010,
                 -name => 'systray',
                 -tip => 'tkruler',
                );
    } else {
    warn "Can't find tkruler.ico in @INC for systray icon";
    }
}

Автор: OutlawZ 10.5.2010, 14:25

Странно, такого кода я там не видел, сейчас тока что просмотрел код нету такого кода ), наверно не ту версию скачал. Все равно спасибо.

Автор: shamber 10.5.2010, 15:44

OutlawZ, вы последнюю версию скачайте. в том коде что я привел не все. там нет обработки нажатий правой или левой кнопки мышки